From a70c3a7f9657d995239fc3db5aaac5abc2986070 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 14 Apr 2023 06:29:40 -0700 Subject: [PATCH] - mejora en pagoventa/compra otros gastos/ngresos usd --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ce0647911..1e17136db 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7775,7 +7775,7 @@ Public Class ClsPaginas 'si tiene otros gastos/ingresos If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then - ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL + ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 211 Dim tOtTipoMovto As Boolean = False Dim IdCta As Integer = If(UsuarioActual.Empresa.TipoContabilidad = 2, UsuarioActual.Empresa.Funcionalidad(266).ToEntero(), 0) @@ -8286,7 +8286,7 @@ Public Class ClsPaginas 'si tiene otros gastos/ingresos If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then - ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL + ImporteMovimiento = (Pago.OtroGastoIngreso * If(Pago.CveMonedaPago = 1, 1, Pago.TCPago)).RoundSQL ' cuando hay pagos en diferente moneda hay TC en ambos lados Dim tOtCveCon As Integer = 78 Dim tOtTipoMovto As Boolean = True If ImporteMovimiento < 0 Then