parametro de codigosat, para productosSAT

App_Code/ClsGenerales.vb

@@ -2619,13 +2619,15 @@ Public Class ClsGenerales
 #End Region
 
 #Region "SAT PRODUCTOS SERVICIOS Y UNIDAD DE MEDIDA"
-    Public Function GetSATProductosServicios(Optional SATClaveProductoServicio As String = "-1", Optional CveSATPS As Integer = -1) As Boolean
+    Public Function GetSATProductosServicios(Optional CodigoSAT As String = "-1", 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("@CodigoSAT", SqlDbType.VarChar).Value = CodigoSAT
             .Add("@SATClaveProductoServicio", SqlDbType.VarChar).Value = SATClaveProductoServicio
             .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
+
         End With
         'SqlTypes.SqlDateTime.Null
         Try