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

-contratos tipos

Browse Source
This commit is contained in:
Rene Molina
2020-01-23 20:03:13 -07:00
parent c91d6ad6ba
commit 0093cd82da
2 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
App_Code/ClsPaginas.vb
View File

@@ -1676,20 +1676,16 @@ Public Class ClsPaginas
Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable
Get Get
Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)
'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjContratos As New ClsContratos Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratosTipos(CveEmpresa) Then If ObjContratos.GetContratosTipos(CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados
Application(AppNombre) = ObjContratos.DtResultados ObjContratos.Dispose()
If CveEmpresa <> -1 Then End If
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), "", DataViewRowState.CurrentRows)
GlobalDTContratosTipos = Dv.ToTable GlobalDTContratosTipos = DirectCast(Application(AppNombre), DataTable)
Dv.Dispose()
Else
GlobalDTContratosTipos = DirectCast(Application(AppNombre), DataTable)
End If
End If
End If
GlobalDTContratosTipos = DirectCast(Application("GlobalDTContratosTipos"), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa) Dim AppNombre As String = String.Format("GlobalDTContratosTipos{0}", CveEmpresa)

2
Contratos/Contratos.aspx.vb
View File

@@ -22,7 +22,7 @@ Partial Class Contratos_Contratos
DdlClientes.Items.Insert(0, New ListItem("Todos", "-1")) DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
DdlClientes.DataBind() DdlClientes.DataBind()
DdlTipo.DataSource = GlobalDTContratosTipos().FiltraParametros($"CveEmpresa={UsuarioActual.CveEmpresa}") DdlTipo.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa)
DdlTipo.Items.Insert(0, New ListItem("Todos", "-1")) DdlTipo.Items.Insert(0, New ListItem("Todos", "-1"))
DdlTipo.DataBind() DdlTipo.DataBind()