From f321ef41fdc1dc355b25434969bc5edf98d9fecb Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 1 Jun 2023 20:17:20 -0700 Subject: [PATCH] -- parametro empresa. contabilzaciondiariodetalle --- Contabilidad/RegPrePolizaS.aspx.vb | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 90208a628..169028c41 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -475,7 +475,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaCuentasContables() End If - ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza) + ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial", "Banc/FluctuaAD") Then @@ -1181,7 +1181,6 @@ Partial Class ContabilidadC_RegPrePolizaS Try - Dim Retorno As Boolean = ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario) If Retorno Then @@ -1846,8 +1845,6 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() GvPrePoliza.Visible = True - - GvPrePoliza.Columns(11).Visible = True GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero @@ -2770,7 +2767,7 @@ Partial Class ContabilidadC_RegPrePolizaS CargaCuentasContables() End If - ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePolizaOrigen) + ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePolizaOrigen, UsuarioActual.CveEmpresa) DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")