From 9066bdac16c276364b52d34c0c2d3252a0141c11 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 22 Jun 2021 07:35:22 -0700 Subject: [PATCH] -- productos SAT --- App_Code/ClsPaginas.vb | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 2e98da7cf..f8f2a6677 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -293,7 +293,7 @@ Public Class ClsPaginas Application("Directorio") = value End Set End Property - Public Shared ReadOnly Property GlobalDTPSATPS(SATClaveProductoServicio As String, Optional CveSATPS As Integer = -1) As DataTable + Public Shared ReadOnly Property GlobalDTPSATPS(SATProductoServicio As String, Optional CodigoSAT As String = "-1", Optional CveSATPS As Integer = -1) As DataTable Get 'If Application("GlobalDTPSATPS") Is Nothing Then ' Dim ObjGrales As New ClsGenerales @@ -304,13 +304,12 @@ Public Class ClsPaginas 'GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable Dim ObjGrales As New ClsGenerales - If ObjGrales.GetSATProductosServicios(SATClaveProductoServicio, CveSATPS) Then + If ObjGrales.GetSATProductosServicios(CodigoSAT, SATProductoServicio, CveSATPS) Then GlobalDTPSATPS = ObjGrales.DtResultados Else GlobalDTPSATPS = Nothing End If - - 'GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable + ObjGrales.Dispose() End Get 'Set(value As DataTable) ' Application("GlobalDTPSATPS") = value