detalles aplicados a catEstatusOS

This commit is contained in:
Antonio Gonzalez
2019-10-02 13:37:53 -05:00
parent f4344cc137
commit f4db93c8be
3 changed files with 40 additions and 19 deletions

View File

@@ -447,8 +447,8 @@
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'C O N T R A T O S
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
Dim ObjContratos As New ClsContratos
If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
If ObjContratos.GetContratosTipos() Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
ObjContratos.Dispose()