Compras decimales retenciones, popcambairta empresa

Sistemas/PopUpSeleccionarEmpresa.aspx.vb

@@ -16,7 +16,10 @@ Partial Class PopUpSeleccionarEmpresa
         End If
     End Sub
 
-    Private Sub GetEmpresas()
+    Private Sub GetEmpresas()
+
+
+        GlobalDTUsuarios(-1, -1) = Nothing 'Esto es por  los cambios de contaseña
         Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
 
         If Dt IsNot Nothing Then
@@ -87,7 +90,9 @@ Partial Class PopUpSeleccionarEmpresa
                             RegistraScript("Ir3();")
                         End If
                     End If
-                    dt.Dispose()
+                    dt.Dispose()
+                Else
+                    Alert($"Usuario Nulo {gvr.DataKey("Usuario")} , {gvr.DataKey("Contraseña")}, {IMEI}, {gvr.DataKey("CveEmpresa").ToEntero}", TipoMensaje.MsgAdvertencia)
                 End If
 
             End If

Sistemas/UsuarioDetalle.aspx.vb

@@ -1385,6 +1385,7 @@ Partial Class Sistemas_UsuarioDetalle
         GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTUsuarios(CveEmpresa:=-1) = Nothing
 
+
         'If ObjUsuarios.GetUsuariosEmpresas(-1, UsuarioActual.CveEmpresa) Then
         '    Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
         '    Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")