GDiaz 2024.05.21

Sistemas/UsuarioDetalle.aspx.vb

@@ -1734,8 +1734,15 @@ Partial Class Sistemas_UsuarioDetalle
     Private Sub CargaDtSubProyectos()
         Dim ClsUsuarios As New ClsSisUsuarios
 
-        If ClsUsuarios.GetSubProyectos(CveUsuario) Then
-            DtSubProyectos = ClsUsuarios.DtResultados
+        If ClsUsuarios.GetSubProyectos(CveUsuario) Then
+
+            DtSubProyectos = ClsUsuarios.DtResultados
+            If Not CveUsuario > 0 Then
+                DtSubProyectos.Rows.Clear()
+                DtSubProyectos.AcceptChanges()
+            End If
+
+
         Else
             DtSubProyectos = Nothing
             Alert("Ocurrió un Error al cargar los SubProyectos del Usuario. Por favor vuelva a intentar", TipoMensaje.MsgError)
@@ -2256,8 +2263,15 @@ Partial Class Sistemas_UsuarioDetalle
         DdlCuentasBancarias.DataBind()
         DdlCuentasBancarias.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
-    Private Sub CargaDtCuentasBancarias()
+    Private Sub CargaDtCuentasBancarias()
+
         DtCuentasBancarias = GlobalDTBancosCuentas(CveUsuario, -1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}")
+
+        If Not CveUsuario > 0 Then
+            DtCuentasBancarias.Rows.Clear()
+            DtCuentasBancarias.AcceptChanges()
+        End If
+
         DtCuentasBancarias.Columns.Add("Accion", GetType(Integer))
 
         CargaGvCuentasBancarias()