From ed450189f7b72b30bf3145c9853b61c86ab34389 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 8 Feb 2023 14:57:36 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20globaldt?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad/PlantillasPolizasDetalle.aspx.vb | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index e9a5d17dd..9ecb78a66 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -231,10 +231,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle If Not ErrorPlantilla Then - Using ObjContabilidad As New ClsContabilidad - If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing - If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing - End Using + GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing + GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing + 'Using ObjContabilidad As New ClsContabilidad + ' If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing + ' If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing + 'End Using End If @@ -244,13 +246,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Dim ObjPlantillaPolizaDetalle As New ClsContabilidad If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa)) - ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados End If + ObjPlantillaPolizaDetalle.Dispose() GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing + GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing - ObjPlantillaPolizaDetalle.Dispose() End Sub Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click OcultaDiv()