From f2398ad2f911d95646358229973502b40f0e193d Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 27 Jun 2020 19:07:14 -0700
Subject: [PATCH] Mensaje para aplicar nueva nota de credito

---
 Ventas/Ventas.aspx    |  4 ++++
 Ventas/Ventas.aspx.vb | 33 +++++++++++++++++++++++++--------
 2 files changed, 29 insertions(+), 8 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index d6baf47b7..539f72842 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -5265,6 +5265,7 @@
     <asp:Button ID="BtnRefacturacionConfirmar" runat="server" ClientIDMode="Static" Text="Refacturacion Documento" Style="display: none;" />
     <asp:Button ID="BtnRefacturacionConfirmarAceptacion" runat="server" ClientIDMode="Static" Text="Refacturacion Aceptacion Documento" Style="display: none;" />
     <asp:Button ID="BtnRefrescarPagina" runat="server" ClientIDMode="Static" Text="Refrescar" Style="display: none;" />
+    <asp:Button ID="BtnAplicaNuevaNC" runat="server" ClientIDMode="Static" Text="AplicarNC" Style="display: none;" />
 
     <%--FLETES--%>
     <div id="ModalFletes" class="modal ADS fade" role="dialog">
@@ -7394,6 +7395,9 @@
         function Recargar() {
             $('#BtnRefrescarPagina').click();
         }
+        function BtnAplicaNuevaNC() {
+            $('#BtnAplicaNuevaNC').click();
+        }
 
         $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
         $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 583103124..97560784d 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/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:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;No&nbsp;&nbsp;&nbsp;&nbsp;")
+            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)