- cuando se hacia un movimietno de acreedores, no se calculaba cuando eran dolares

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