From a377b0df4b244c7592a9136cb047584b4262913c Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 4 May 2023 18:29:01 -0700 Subject: [PATCH] ids fluctuaciones fijas E13 --- Contabilidad/DiarioPagos.aspx.vb | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index f6e19b1f6..10a005927 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -109,7 +109,7 @@ Partial Class Contabilidad_DiarioPagos DdlPolizaTipo.SelectedValue = "2" 'busco si se ocupa el tipo de cambio - CargaDatos(-1) + 'CargaDatos(-1) Cc.Dispose() Else @@ -1066,16 +1066,13 @@ Partial Class Contabilidad_DiarioPagos End If - - FluctuacionCambiaria += Math.Round((CompraPagadoRetISR * TipoCambioCompra) - (CompraPagadoRetISR * TipoCambioPago), 2) 'FLUCTUACION CAMBIARIA DE ISR - Dim Dif As Double = (CompraPagadoTotal * TipoCambioPago) - Math.Round(CompraPagadoTotal * TipoCambioCompra, 2) + FluctuacionCambiaria - + Dim Dif As Decimal = (CompraPagadoTotal * TipoCambioPago) - Math.Round(CompraPagadoTotal * TipoCambioCompra, 2) + FluctuacionCambiaria If Dif < 0 Then - tempMovto = True ' ganancia cambiaria + CtaFluctuacion = If(UsuarioActual.CveEmpresa = 13, 579, 0) : tempMovto = True ' ganancia cambiaria Else - tempMovto = False ' perdida cambiaria + CtaFluctuacion = If(UsuarioActual.CveEmpresa = 13, 578, 0) : tempMovto = False ' perdida cambiaria End If ConceptoDetalle = String.Format("{0} TC:{1} ${2}", gvr.FCTextBox("TxtDescripcion").Text, TipoCambioPago, Math.Abs(Dif).FormatoNumero)