AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- productos SAT

Browse Source
This commit is contained in:
rrene
2021-06-22 07:35:22 -07:00
parent 03d70a2ae8
commit 9066bdac16
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsPaginas.vb
View File

@@ -293,7 +293,7 @@ Public Class ClsPaginas
Application("Directorio") = value Application("Directorio") = value
End Set End Set
End Property 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 Get
'If Application("GlobalDTPSATPS") Is Nothing Then 'If Application("GlobalDTPSATPS") Is Nothing Then
' Dim ObjGrales As New ClsGenerales ' Dim ObjGrales As New ClsGenerales
@@ -304,13 +304,12 @@ Public Class ClsPaginas
'GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable 'GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable
Dim ObjGrales As New ClsGenerales Dim ObjGrales As New ClsGenerales
If ObjGrales.GetSATProductosServicios(SATClaveProductoServicio, CveSATPS) Then If ObjGrales.GetSATProductosServicios(CodigoSAT, SATProductoServicio, CveSATPS) Then
GlobalDTPSATPS = ObjGrales.DtResultados GlobalDTPSATPS = ObjGrales.DtResultados
Else Else
GlobalDTPSATPS = Nothing GlobalDTPSATPS = Nothing
End If End If
ObjGrales.Dispose()
'GlobalDTPSATPS = DirectCast(Application("GlobalDTPSATPS"), EnumerableRowCollection(Of DataRow)).CopyToDataTable
End Get End Get
'Set(value As DataTable) 'Set(value As DataTable)
' Application("GlobalDTPSATPS") = value ' Application("GlobalDTPSATPS") = value