cambio en ProductosSAT

App_Code/ClsGenerales.vb

@@ -2619,13 +2619,13 @@ Public Class ClsGenerales
 #End Region
 
 #Region "SAT PRODUCTOS SERVICIOS Y UNIDAD DE MEDIDA"
-    Public Function GetSATProductosServicios() As Boolean
+    Public Function GetSATProductosServicios(Optional SATClaveProductoServicio As String = "-1", Optional CveSATPS As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_SAT_ProductosServiciosGet")
 
         With SqlAdapter.SelectCommand.Parameters
-
-
+            .Add("@SATClaveProductoServicio", SqlDbType.VarChar).Value = SATClaveProductoServicio
+            .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
         End With
         'SqlTypes.SqlDateTime.Null
         Try