Correcion de asignacion de usuarios

Sistemas/UsuarioDetalle.aspx.vb

@@ -794,7 +794,7 @@ Partial Class Sistemas_UsuarioDetalle
         Dim TieneError = False
         Dim EsNuevoUsuario As Boolean = False
 
-
+        Try
             'Cargo la ultima empresa consultada en asignaciones
             Dim DtValida = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
             If DtValida.Rows.Count > 0 Then
@@ -827,7 +827,7 @@ Partial Class Sistemas_UsuarioDetalle
                     TieneError = True
                 End If
 
-            For Each Row As DataRow In DtAsignacionesMultiEmpresa.Rows
+                For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows
                     If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then
                         TieneError = True
                     End If
@@ -837,7 +837,7 @@ Partial Class Sistemas_UsuarioDetalle
                     TieneError = True
                 End If
 
-            For Each Row As DataRow In DtAsignacionesMultiEmpresa.Rows
+                For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows
                     If Not ObjUsuarios.UpdateUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveEmpresa").ToString.ToEntero, Row("CveTipoDocumento").ToString, CveUsuario, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                         TieneError = True
                     End If
@@ -1272,6 +1272,11 @@ Partial Class Sistemas_UsuarioDetalle
                 Next
             End If
 
+        Catch ex As Exception
+            TieneError = True
+            OnError("Ocurrió un error al guardar el usuario", ex)
+        End Try
+
 
         If Not TieneError Then
             If EsNuevoUsuario Then
@@ -1287,6 +1292,11 @@ Partial Class Sistemas_UsuarioDetalle
 
 
         ObjUsuarios.Dispose()
+        ObjSubProyectos.Dispose()
+        ObjOC.Dispose()
+        ObjOS.Dispose()
+        Indicador.Dispose()
+        ObjBancos.Dispose()
     End Sub
 
     Private Sub RecargaGlobales(TieneError As Boolean, ObjSubProyectos As ClsSubProyectos, ObjBancos As ClsBancos, ObjOC As ClsOC, ObjUsuarios As ClsSisUsuarios)