diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 2f67b4eff..3b02033ed 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) As DataTable
+    Public Shared ReadOnly Property GlobalDTPSATPS(SATClaveProductoServicio As String, Optional CveSATPS As Integer = -1) As DataTable
         Get
             'If Application("GlobalDTPSATPS") Is Nothing Then
             '    Dim ObjGrales As New ClsGenerales
@@ -304,7 +304,7 @@ Public Class ClsPaginas
             'GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable
 
             Dim ObjGrales As New ClsGenerales
-            If ObjGrales.GetSATProductosServicios(SATClaveProductoServicio) Then
+            If ObjGrales.GetSATProductosServicios(SATClaveProductoServicio, CveSATPS) Then
                 GlobalDTPSATPS = ObjGrales.DtResultados
             Else
                 GlobalDTPSATPS = Nothing
@@ -1759,7 +1759,7 @@ Public Class ClsPaginas
                 ObjProveedores.Dispose()
             End If
 
-            If CveEmpresa <> -1 Then
+            If CveEmpresa <> -1 AndAlso Application(AppNombre) IsNot Nothing Then
                 Dim StrSQL As New StringBuilder
                 StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
                 If CveProveedor >= 0 Then StrSQL.AppendFormat(" AND CveProveedor = {0} ", CveProveedor)