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