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

-- cambio en Globaldt PS SAT

Browse Source
This commit is contained in:
rrene
2021-06-09 07:45:46 -07:00
parent 4dac7b31e1
commit 696057d66d
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
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) As DataTable Public Shared ReadOnly Property GlobalDTPSATPS(SATClaveProductoServicio As String, 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,7 +304,7 @@ 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) Then If ObjGrales.GetSATProductosServicios(SATClaveProductoServicio, CveSATPS) Then
GlobalDTPSATPS = ObjGrales.DtResultados GlobalDTPSATPS = ObjGrales.DtResultados
Else Else
GlobalDTPSATPS = Nothing GlobalDTPSATPS = Nothing
@@ -1759,7 +1759,7 @@ Public Class ClsPaginas
ObjProveedores.Dispose() ObjProveedores.Dispose()
End If End If
If CveEmpresa <> -1 Then If CveEmpresa <> -1 AndAlso Application(AppNombre) IsNot Nothing Then
Dim StrSQL As New StringBuilder Dim StrSQL As New StringBuilder
StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa) StrSQL.AppendFormat("CveEmpresa = {0}", CveEmpresa)
If CveProveedor >= 0 Then StrSQL.AppendFormat(" AND CveProveedor = {0} ", CveProveedor) If CveProveedor >= 0 Then StrSQL.AppendFormat(" AND CveProveedor = {0} ", CveProveedor)