From a01e3a25a10987908467287a8846c8518d2f0b6e Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Jul 2022 14:21:02 -0700 Subject: [PATCH] -- que si se hacen cargas de partidas manuales, permita registrar en cero --- Contabilidad/RegPrePolizaS.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 3965abdfb..c01afa5e1 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -999,7 +999,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'End If 'Registra movimieno bancario - If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToDecimal <> 0 Then + If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso (gvr.DataKey("ContadoImporte").ToDecimal <> 0 OrElse TipoGrid = 1) Then CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio"), gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "", @@ -1063,7 +1063,7 @@ Partial Class ContabilidadC_RegPrePolizaS If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then idCuentaContabilizacion = 0 End If - If Importe <> 0 Then + If Importe <> 0 OrElse TipoGrid = 1 Then 'si es diferente de cero o si viene de grid prepolizas, que registre todo Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero Dim tReferencia, tConcepto As String Dim tCveSubProyecto, tCveTipoGasto As Integer