From c90ef7263c363a50f0c14202fa60f3d7bd9f8d87 Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Mon, 2 Sep 2019 14:57:56 -0700
Subject: [PATCH] Soporte tipo de cambio Egs

---
 Bancos/IE.aspx          | 10 ++++++++++
 Bancos/IE.aspx.vb       | 19 +++++++++++--------
 Bancos/Reportes.aspx.vb |  2 +-
 3 files changed, 22 insertions(+), 9 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 3c72538b3..d6f6d6e03 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -712,6 +712,7 @@
                                                             <td>
                                                                 <asp:TextBox ID="TxtTipoCambio" runat="server" MaxLength="12" Width="80px"></asp:TextBox></td>
                                                         </tr>
+                                                    <asp:Button ID="BtnCambiaTipoMoneda" Text="" OnClick="BtnCambiaTipoMoneda_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
 
@@ -1533,5 +1534,14 @@
             t.value = (ToDouble(t.value) > ToDouble(c) ? c : t.value)
         }
 
+        var TipoCambioActual = 0.0;
+        function CambiaTC(txt) {
+            let TipoCambioTxt = ToDouble(txt.value)
+            if (TipoCambioActual != TipoCambioTxt) {
+                $get("BtnCambiaTipoMoneda").click();
+                TipoCambioActual = TipoCambioTxt;
+            }
+        }
+
     </script>
 </asp:Content>
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 014263330..f009aa10e 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -649,6 +649,7 @@ Partial Class Bancos_IE
                 CveIE = -1
                 TxtFechaDocumento.Text = Now.ToShortDateString
                 ImgUpdateCuentaDeposito.Visible = False
+                TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
             End If
 
             InicializaSolicitudAnticipoOC()
@@ -2251,7 +2252,12 @@ Partial Class Bancos_IE
         Dep.Dispose()
 
         Return EsValido
-    End Function
+    End Function
+
+    Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)
+        CambiaTipoMoneda()
+    End Sub
+
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
@@ -2259,9 +2265,7 @@ Partial Class Bancos_IE
             Exit Sub
         End If
 
-        'PARA QUE TOME EL TIPO DE CAMBIO DEL DIA
-        TxtTipoCambio.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToString
-        UpTipoCambio.Update()
+
 
 
         Dim ObjIE As New ClsBancos()
@@ -3045,14 +3049,13 @@ Partial Class Bancos_IE
                                 'BANCOS COMPLEMENTARIA
                                 If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
                                     Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
-                                    Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
-                                    Dim ImporteAplicarMN = (ImporteAplicar * TCPago - ImporteAplicar).RoundSQL()
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=CveCuentaConta, TipoCambio:=TCPago) Then
+                                    Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=CveCuentaConta, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
 
                                     If CveConceptoCompra = 10 Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=0, TipoCambio:=TCPago) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=0, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                             MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                         End If
                                     End If
diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb
index 3bb4858d2..cdd1eb1d7 100644
--- a/Bancos/Reportes.aspx.vb
+++ b/Bancos/Reportes.aspx.vb
@@ -119,7 +119,7 @@ Partial Class Bancos_Reportes
                         If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                             'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
                             For Each Dr As DataRow In dtMovs.Rows
-                                Dr("Importe") = Dr("Importe").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                                Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
                                 Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                                 Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                                 Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal