-- cambios en GlobalDT

This commit is contained in:
2023-02-24 10:51:18 -07:00
parent 601c23100a
commit 07d161bff3
24 changed files with 143 additions and 147 deletions

View File

@@ -82,12 +82,12 @@ Partial Class CatClasificacionesDetalle
Private Sub CargaGlobal()
Dim ObjClasificaciones As New ClsClasificaciones
If ObjClasificaciones.GetClasificaciones() Then
GlobalDTClasificaciones = ObjClasificaciones.DtResultados
Else
Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
End If
'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
' GlobalDTClasificaciones = ObjClasificaciones.DtResultados
'Else
' Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
'End If
GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
End If