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

- quitar globaldtsucursales

Browse Source
This commit is contained in:
rrene
2020-07-06 23:33:15 -07:00
parent 793105ca0a
commit d6aee365bc
2 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
App_Code/ClsPaginas.vb
View File

@@ -783,20 +783,20 @@ Public Class ClsPaginas
Application("GlobalDTMonedasAlias") = value Application("GlobalDTMonedasAlias") = value
End Set End Set
End Property End Property
Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable 'Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
Get ' Get
If CveEmpresa <> -1 Then ' If CveEmpresa <> -1 Then
Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows) ' Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
GlobalDTSucursales = Dv.ToTable ' GlobalDTSucursales = Dv.ToTable
Dv.Dispose() ' Dv.Dispose()
Else ' Else
GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable) ' GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
End If ' End If
End Get ' End Get
Set(value As DataTable) ' Set(value As DataTable)
Application("GlobalDTSucursales") = value ' Application("GlobalDTSucursales") = value
End Set ' End Set
End Property 'End Property
Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
Get Get
If EsPersonaFisica <> -1 Then If EsPersonaFisica <> -1 Then

2
RH/RepDocumentacionVencida.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class RH_RepDocumentacionVencida
DDLSucursal.DataSource = GlobalDTSucursales(UsuarioActual.Empresa.CveEmpresa) DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
DDLSucursal.DataBind() DDLSucursal.DataBind()
DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1")) DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveSucursal > 0 Then If UsuarioActual.CveSucursal > 0 Then