From a29568a06cbc70c279621b0c49c7869b2c4d1053 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 20 Jan 2025 18:26:34 -0700
Subject: [PATCH] -- mejoras en devoluciones

---
 Ventas/Clientes.aspx.vb | 44 +++++++++++++++++++++++------------------
 1 file changed, 25 insertions(+), 19 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9f8ef5b80..4a7558dfc 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2176,7 +2176,6 @@ Partial Class Clientes
             If e.Row.DBCampo("CveVenta") = "" Then
                 If e.Row.DBCampo("CveIE") <> "" Then
 
-
                     e.Row.Cells(0).Text = String.Format("{0} - {1}", e.Row.DBCampo("Banco"), e.Row.DBCampo("NumCuenta"))
                     e.Row.FCLiteral("LtlFechaVenci").Text = e.Row.DBCampo("FechaDocumento").ToDate().ToShortDateString()
                     e.Row.FCHyperLink("HplCheque").Visible = True
@@ -3037,28 +3036,35 @@ Partial Class Clientes
 
                     If (e.Row.DBCampo("CveVenta").ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").Contiene("Ant", "NC", "Dev")) OrElse (e.Row.DBCampo("CveIE").ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo") = "IxC") Then
 
-                        'If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) AndAlso CType(sender, GridView).ID = "GVAnticipos" Then
-                        '    If e.Row.DBCampo("CveVenta").ToString().ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").ToString().Contiene("NC", "Ant") Then
-                        '        If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
-                        '        If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
-                        '            e.Row.FCLinkButton("LnkAutorizar").Visible = True
-                        '            e.Row.FCLinkButton("LnkCancelar").Visible = False
-                        '        Else
-                        '            e.Row.FCLinkButton("LnkAutorizar").Visible = False
-                        '            e.Row.FCLinkButton("LnkCancelar").Visible = True
-                        '        End If
-                        '    End If
-                        'End If
+                        If ModalidadSelecionDevAnticipos Then
+                            e.Row.FCCheckBox("chkDevolver").Visible = True
+                            e.Row.FCCheckBox("chkDevolver").InputAttributes.Add("data-saldo", e.Row.DBCampo("SaldoConImpuestos"))
+                        End If
 
-                        e.Row.FCHyperLink("HLDevolverDinero").Visible = True
-                        e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinV&P={Parametros}"
+                        If e.Row.DBCampo("CveVenta").ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo") = "NC" Then
+                            Dim Parametros As String = Encripta($"CveVenta={e.Row.DBCampo("CveVenta").ToEntero()}&SerieFolio={e.Row.DBCampo("Folio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveCliente={CveCliente}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}")
+
+                            'If UsuarioActual.Empresa.Funcionalidad(185) = "1" AndAlso UsuarioActual.TienePermisoProceso(379) AndAlso CType(sender, GridView).ID = "GVAnticipos" Then
+                            '    If e.Row.DBCampo("CveVenta").ToString().ToEntero() > 0 AndAlso e.Row.DBCampo("Tipo").ToString().Contiene("NC", "Ant") Then
+                            '        If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
+                            '        If Not CBool(e.Row.DBCampo("AnticipoAutorizado")) Then
+                            '            e.Row.FCLinkButton("LnkAutorizar").Visible = True
+                            '            e.Row.FCLinkButton("LnkCancelar").Visible = False
+                            '        Else
+                            '            e.Row.FCLinkButton("LnkAutorizar").Visible = False
+                            '            e.Row.FCLinkButton("LnkCancelar").Visible = True
+                            '        End If
+                            '    End If
+                            'End If
+
+                            ' e.Row.FCHyperLink("HLDevolverDinero").Visible = True
+                            e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinV&P={Parametros}"
+                        End If
                     End If
                 End If
-
             End If
         End If
-
-        End If
+
     End Sub
 
 #End Region
@@ -10886,7 +10892,7 @@ Partial Class Clientes
                         'IMPUESTOS
                         If gvr.DataKey("IVA").ToDecimal > 0 Then
                             tImporte = -(gvr.DataKey("IVA").ToDecimal * PorcentajePagoDevDin).RoundSQL
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 13, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=gvr.DataKey("PorcentajeIVA").ToDecimal) Then
+                            If gvr.DataKey("Tipo").Contiene("Dev", "NC") AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 13, ReferenciaAplicar, ConceptoAplicar, CveIE:=CveIE, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteME:=ImporteAplicarME, PorcentajeImpuesto:=gvr.DataKey("PorcentajeIVA").ToDecimal) Then
                                 MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
                                 Exit For
                             End If