From e2aedeed0d37b917119c4e9975c9ddb01bfac741 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:14:11 -0700
Subject: [PATCH] - cuando se hacia un movimietno de acreedores, no se
 calculaba cuando eran dolares

---
 Bancos/IE.aspx.vb | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 83ede0055..6f116c7a2 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -2696,6 +2696,8 @@ Partial Class Bancos_IE
                     MsgError = "No se pudo insertar la póliza de saldo inicial."
                 End If
             End If
+            Dim UsaComplementariaBancos As Boolean = False
+            If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaBancos = True
 
             If MsgError = "" Then
 
@@ -2887,14 +2889,18 @@ Partial Class Bancos_IE
                                                 importeMovimiento = TxtImporte.Text.ToDecimal
                                                 importeMX = importeMovimiento
 
-                                                If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
+                                                If tCveMoneda > 1 AndAlso UsaComplementariaBancos Then
                                                     'Agregamos complementaria
                                                     Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
 
                                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Concepto, 204, Concepto, FechaMovimiento, IDCtaContableComplementaria, -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=(importeMovimiento * TC - importeMovimiento).RoundSQL, ImporteME:=importeMovimiento, TipoCambio:=TC, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento del ingreso."
+                                                    End If
+                                                Else
+                                                    If tCveMoneda > 1 Then
+                                                        Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
+                                                        importeMX = (importeMovimiento * TC).RoundSQL
                                                     End If
-
                                                 End If
 
                                         End Select