BITACORA PARA MODIFICACIONES A PREPOLIZAS Y PREPOLIZAS DETALLE

Ventas/Ventas.aspx.vb

@@ -5297,6 +5297,7 @@ Partial Class Ventas
             '    RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static',  keyboard: false});", "modalOC")
         End If
         BloqueaCondiconesPago()
+        DeshabilitarAplicarNotaDeCredito(LblRFC.Text)
     End Sub
 
     Private Sub CargaRestriccionesCreditoCliente(Optional Alertas As Boolean = False, Optional CveVenta As Integer = -1)
@@ -26249,6 +26250,15 @@ Partial Class Ventas
         ObjVentas.Dispose()
     End Sub
 
+    Private Sub DeshabilitarAplicarNotaDeCredito(RFC As String)
+
+        If UsuarioActual.CveEmpresa = 119 AndAlso RFC.Contiene("XAXX010101000", "XEXX010101000") Then
+            LBNotaCredito.Visible = False
+            UpnTools.Update()
+        End If
+
+    End Sub
+
 #Region "Auxiliar"
     Private Sub CargarSaldoAuxiliar(CveCliente As Integer)