From ebd8267ac33d21a8dca76158e10640520cb18f2f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 1 Feb 2023 00:19:45 -0700 Subject: [PATCH] -- GlobalDT --- Contabilidad/RegPrePoliza.aspx.vb | 4 ++-- Contabilidad/RegPrePolizaS.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 88ea2a459..c39b56c1a 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -825,7 +825,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero() - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") Dim Cuenta As String = "" Dim IdCuenta As Integer = 0 Dim CodigoCuenta As String = "" @@ -2108,7 +2108,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.Substring(1, 30)) Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero() - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows Select New With diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 0edfc89d0..d8eee866b 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -808,7 +808,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") 'Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla, UsuarioActual.CveEmpresa) Dim Cuenta As String = "" @@ -2314,7 +2314,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero 'Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla, UsuarioActual.CveEmpresa) - Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla).FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa), "Orden") + Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden") Dim DtExcel As DataTable = (From row As DataRow In Dt.Rows