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