From ed185cdd6a8e31c6a25db63eb2977cd9e28bef8a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 11 Feb 2021 18:23:21 -0700
Subject: [PATCH] Error al aplicar anticipos en compras

---
 Acumuladores/CatFoliosGarantia.aspx    | 4 ++--
 Acumuladores/CatFoliosGarantia.aspx.vb | 2 +-
 Compras/Compras.aspx.vb                | 5 ++++-
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx
index 5ca6a7a2a..06291a483 100644
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -386,12 +386,12 @@
                                 <div class="col-md-12">
                                     <div style="overflow-y: auto; height: 400px; width: 1200px;" runat="server">
                                         <asp:GridView ID="GvGarantiasDetalle" runat="server" AutoGenerateColumns="false" Width="100%" EmptyDataText="No se encontraron datos" CssClass="table table-striped table-hover Widthall" 
-                                             DataKeyNames="Consecutivo,CodigoCliente,CodigoProducto,CodigoTipoUso,CodigoTipoDefecto,CodigoEnsamble,CodigoLinea,CodigoInspeccion,FechaVenta,FechaReclamacion,TipoComprobante,Comprobante,Autorizo,Comentarios,ClaveAutorizacion" BorderColor="#D3D3D3" GridLines="None">
+                                             DataKeyNames="Consecutivo,CodigoCliente,Codigo,CodigoTipoUso,CodigoTipoDefecto,CodigoEnsamble,CodigoLinea,CodigoInspeccion,FechaVenta,FechaReclamacion,TipoComprobante,Comprobante,Autorizo,Comentarios,ClaveAutorizacion" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="Consecutivo" HeaderText="Consecutivo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="FolioFactura" HeaderText="Factura" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
                                                 <asp:BoundField DataField="Cliente" HeaderText="Cliente" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%" />
-                                                <asp:BoundField DataField="CodigoProducto" HeaderText="Código" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
+                                                <asp:BoundField DataField="Codigo" HeaderText="Código" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="PS" HeaderText="Producto" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
                                                 <asp:BoundField DataField="TipoUso" HeaderText="Tipo Uso" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                                                 <asp:BoundField DataField="CodigoEnsamble" HeaderText="Código Ensamble" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb
index 512e7e593..3acab2744 100644
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -265,7 +265,7 @@ Partial Class Acumuladores_CatFoliosGarantia
                 '2.- Cliente-->100407
                 SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoCliente"))
                 '3.	Codigo De Articulo --> 171402
-                SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoProducto"))
+                SbTxt.AppendFormat("{0}@", GvRow.DataKey("Codigo"))
                 '4.	Tipo De Uso --> A
                 SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoTipoUso"))
                 '5.	Defecto --> P
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 97f5c159a..27a831c1d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7334,6 +7334,8 @@ Partial Class Compras_Compras
 
                                                                 For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
 
+                                                                    TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
+
                                                                     Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
                                                                     Dim CveCompraNC As Integer = CveCompra
 
@@ -7537,7 +7539,7 @@ Partial Class Compras_Compras
 
                                                                             Dim usacomplementariaAnticipo As Boolean = False
                                                                             usacomplementariaAnticipo = If(Ant.TCCompra > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
-                                                                            Dim TipoCambioAnt = Ant.TCCompra
+                                                                            Dim TipoCambioAnt As Decimal = Ant.TCCompra
 
 
                                                                             Dim ImporteAnt As Decimal = importeMovimiento
@@ -8877,6 +8879,7 @@ Partial Class Compras_Compras
                                                             End If
 
                                                             Dim TipoCambioDiferencia = If(ChkPagarConDolares.Checked, GlobalTipoCambio(TxtFecha.Text.ToDate), TipoCambioCompra).ToDecimal
+
                                                             If TipoCambioDiferencia <> TipoCambioAnt Then
                                                                 Dim importeFluctuacion = (ImporteAnt * TipoCambioDiferencia) - (ImporteAnt * TipoCambioAnt)