From 917ca6b7bd5a5dbcd00b429e894c37986ea90fb2 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 31 Mar 2023 14:50:22 -0700 Subject: [PATCH] Correcion al aplicar "otros ingresos" al guardar reembolso --- Compras/ReembolsosComprobaciones.aspx.vb | 27 ++++++++++++------------ 1 file changed, 14 insertions(+), 13 deletions(-) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index b28b694c0..b578e2ee8 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -280,18 +280,18 @@ Partial Class Compras_ReembolsosComprobaciones dt = dt.FiltraParametros(String.Format("CveMoneda = {0}", 1)) - If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then - dt = dt.FiltraParametros("CveTipoCuenta = 7") - End If - - 'cuando es layout - If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then - dt = dt.FiltraParametros("UsaLayout = 1") + If DdlTipoTransaccion.SelectedValue.ToEntero = 3 Then + dt = dt.FiltraParametros("CveTipoCuenta = 7") + End If + + 'cuando es layout + If DdlTipoTransaccion.SelectedValue.ToEntero = 9 Then + dt = dt.FiltraParametros("UsaLayout = 1") End If - If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then - dt = dt.FiltraParametros("UsaLayoutGrupos = 1") + If DdlTipoTransaccion.SelectedValue.ToEntero = 17 Then + dt = dt.FiltraParametros("UsaLayoutGrupos = 1") End If DdlCuenta.DataSource = dt @@ -774,6 +774,11 @@ Partial Class Compras_ReembolsosComprobaciones End If If MsgError = "" Then + + If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then + MsgError = "Detalle" + End If + If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158)) Then 'Si es caja chica metemos el concepto 30, si es funcionario metemos 29 ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte @@ -781,10 +786,6 @@ Partial Class Compras_ReembolsosComprobaciones MsgError = "Detalle" End If End If - - If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaPago, ObjMov) Then - MsgError = "Detalle" - End If End If Dim SaldoExcedente As Decimal = gvr.FCTextBox("TxtSaldoExcedente").Text.ToDecimal