Mensaje para aplicar nueva nota de credito

Ventas/Ventas.aspx.vb

@@ -22288,6 +22288,31 @@ Partial Class Ventas
                 End If
             End If
         End If
+
+        'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR
+        If UsuarioActual.CveEmpresa = 140 Then
+            If GvCxC.Rows.Count = 0 OrElse GvCxC.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("ChkCxC").Checked) = 0 Then
+                Alert("No se ha seleccionado ninguna nota de crédito, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ")
+            Else
+                AplicarNotaCreditoDesdeVenta()
+            End If
+        Else
+            AplicarNotaCreditoDesdeVenta()
+        End If
+
+    End Sub
+
+    Private Sub BtnAplicaNuevaNC_Click(sender As Object, e As EventArgs) Handles BtnAplicaNuevaNC.Click
+        If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then
+            AplicarNotaCreditoDesdeVenta(AplicaNuevoDocumento:=True)
+        Else
+            Alert("No ha seleccionado ninguna remisión de nota de crédito", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
+
+    Private Sub AplicarNotaCreditoDesdeVenta(Optional AplicaNuevoDocumento As Boolean = False)
+        RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC")
+
         DdlTipoComprobante.SelectedValue = "Egs"
         Dim AplicaImpuestosLocales As Boolean = False
 
@@ -22299,16 +22324,8 @@ Partial Class Ventas
         End If
         ObjCliente.Dispose()
 
-        Dim AplicaNuevoDocumento As Boolean = False
-
-        'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR
-        If UsuarioActual.CveEmpresa = 140 AndAlso GvCxC.Rows.Count = 0 Then
-            AplicaNuevoDocumento = True
-        End If
-
         AplicarNC(DdlNCPS.SelectedValue.ToEntero(), EsNCAmortizacion:=ChkAplicaNCAnticipo.Checked, AplicaImpuestosLocales:=AplicaImpuestosLocales, AplicaNuevoDocumento:=AplicaNuevoDocumento)
 
-        RegistraScript("$('#ModalAplicarNC').modal('hide');", "EscondeModalNC")
     End Sub
 
     Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional AplicaNuevoDocumento As Boolean = False)