From 0aa9622e22d5e68f4fbc1fb1e6a94484639cfad1 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 10 Apr 2023 18:28:31 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20en=20otros=20ingresos,?= =?UTF-8?q?=20en=20d=C3=B3lares?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index eb20408ad..ce0647911 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7772,9 +7772,10 @@ Public Class ClsPaginas If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True End If End If + 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL 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) @@ -8283,8 +8284,9 @@ Public Class ClsPaginas End If End If 'si tiene otros gastos/ingresos - ImporteMovimiento = Pago.OtroGastoIngreso - If Not ErrorMovtos AndAlso ImporteMovimiento <> 0 Then + + If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then + ImporteMovimiento = (Pago.OtroGastoIngreso * Pago.TCPago).RoundSQL Dim tOtCveCon As Integer = 78 Dim tOtTipoMovto As Boolean = True If ImporteMovimiento < 0 Then