From ac9a43a9b34321cd5ecf727a1c3be5d76aaae159 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 Feb 2023 23:41:13 -0700
Subject: [PATCH] parametros enviados a prepolizasdetalle

---
 Bancos/FluctuacionCambiaria.aspx    |  6 +++---
 Bancos/FluctuacionCambiaria.aspx.vb | 17 ++++++++++-------
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/Bancos/FluctuacionCambiaria.aspx b/Bancos/FluctuacionCambiaria.aspx
index 8c8b8769a..8d2b2f78b 100644
--- a/Bancos/FluctuacionCambiaria.aspx
+++ b/Bancos/FluctuacionCambiaria.aspx
@@ -368,7 +368,7 @@
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank"  DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
-                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                <asp:HyperLinkField HeaderText="# Folio" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE"/>
                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
@@ -475,7 +475,7 @@
                         <br /> 
 
                         <asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
+                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto,CveCliente" EmptyDataText="No se Encontraron Cuentas Bancarias."
                             ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
@@ -696,7 +696,7 @@
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
-                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                <asp:HyperLinkField HeaderText="# Folio" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE"/>
                                 <asp:BoundField DataField="FechaDocumento" HeaderText="Fecha" DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 0257fb67f..f8e7000b9 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -435,7 +435,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
 
                 'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
@@ -515,7 +515,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
 
                 'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
@@ -526,7 +526,11 @@ Partial Class Bancos_FluctuacionCambiaria
                 End If
             Next
 
-            Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa)
+            If Not ErrorRegistrar Then
+                If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa) Then
+                    ErrorRegistrar = True
+                End If
+            End If
 
         End If
 
@@ -538,6 +542,7 @@ Partial Class Bancos_FluctuacionCambiaria
             Conta.RollBack()
             Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
         End If
+        Banco.Dispose()
         Conta.Dispose()
     End Sub
 
@@ -613,7 +618,7 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
@@ -796,7 +801,7 @@ Partial Class Bancos_FluctuacionCambiaria
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
@@ -936,7 +941,6 @@ Partial Class Bancos_FluctuacionCambiaria
                 Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
                 Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
 
-
                 'MOVIMIENTO DE FLUCTUACION
                 If Total > 0 Then
                     CveConceptoContable = 64
@@ -1268,7 +1272,6 @@ Partial Class Bancos_FluctuacionCambiaria
         Banco.Dispose()
     End Sub
 
-
     Protected Sub BtnAcreedoresAntRemove_Click(sender As Object, e As EventArgs)
         Dim Banco As New ClsBancos
         Banco.IniciaTransacSQL()