--globaldtinv camiones

This commit is contained in:
2021-12-13 17:08:14 -07:00
parent 089cf50746
commit 26f86e03a9

View File

@@ -1616,7 +1616,7 @@ Public Class ClsPaginas
'sino existe, recarga los datos 'sino existe, recarga los datos
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then
Application(AppNombre) = ObjInventarios.DtResultados Application(AppNombre) = ObjInventarios.DtResultados
End If End If
ObjInventarios.Dispose() ObjInventarios.Dispose()