This commit is contained in:
Rakcsle Supertramp
2020-07-13 09:38:04 -07:00

View File

@@ -205,11 +205,8 @@ Partial Class Inventarios_CatAlmacenes
End Sub
Private Sub RecargaGlobalAlmacenesUsuarios()
Dim ObjUsuarios As New ClsSisUsuarios
If ObjUsuarios.GetAlmacen(-1) Then
Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados
End If
ObjUsuarios.Dispose()
GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
End Sub
'Private Sub CargaSucursal()
' DtSubProyectos = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto =" & DdlSubProyecto.SelectedValue.ToEntero)