- quitar globaldtsucursales

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

View File

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

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.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.CveSucursal > 0 Then