- quitar globaldtsucursales
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user