From 8e682bf7e02b5f899d6c28ea2e84d0145cf5e7e2 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 6 Aug 2021 15:39:27 -0700 Subject: [PATCH] Comisiones en negativo --- Compras/ReembolsosComprobaciones.aspx.vb | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index b05473cb0..da89c665e 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -724,7 +724,10 @@ Partial Class Compras_ReembolsosComprobaciones End If If SaldoCheque > 0 Then - ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar) + + 'ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar) + ImporteMovto = ImportePagar + CvePrePolizaPago = CvePrePolizaIERegistrado 'SE USARA PARA PODER ELIMINAR UNA COMPROBACION @@ -746,7 +749,7 @@ Partial Class Compras_ReembolsosComprobaciones 'Otros Ingresos - If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then + If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos" End If