parametros enviados a prepolizasdetalle

2023-02-23 23:41:13 -07:00
parent 70e1e72d49
commit ac9a43a9b3
2 changed files with 13 additions and 10 deletions
--- 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" />
--- 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()