AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correcion de asignacion de usuarios

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-11-06 16:28:16 -07:00
parent 66a9e86403
commit cd3b10931a
1 changed files with 490 additions and 480 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -794,7 +794,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim TieneError = False Dim TieneError = False
Dim EsNuevoUsuario As Boolean = False Dim EsNuevoUsuario As Boolean = False
Try
'Cargo la ultima empresa consultada en asignaciones 'Cargo la ultima empresa consultada en asignaciones
Dim DtValida = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior)) Dim DtValida = DtAsignacionesMultiEmpresa.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresaAnterior))
If DtValida.Rows.Count > 0 Then If DtValida.Rows.Count > 0 Then
@@ -827,7 +827,7 @@ Partial Class Sistemas_UsuarioDetalle
TieneError = True TieneError = True
End If 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 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 TieneError = True
End If End If
@@ -837,7 +837,7 @@ Partial Class Sistemas_UsuarioDetalle
TieneError = True TieneError = True
End If 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 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 TieneError = True
End If End If
@@ -1272,6 +1272,11 @@ Partial Class Sistemas_UsuarioDetalle
Next Next
End If End If
Catch ex As Exception
TieneError = True
OnError("Ocurrió un error al guardar el usuario", ex)
End Try
If Not TieneError Then If Not TieneError Then
If EsNuevoUsuario Then If EsNuevoUsuario Then
@@ -1287,6 +1292,11 @@ Partial Class Sistemas_UsuarioDetalle
ObjUsuarios.Dispose() ObjUsuarios.Dispose()
ObjSubProyectos.Dispose()
ObjOC.Dispose()
ObjOS.Dispose()
Indicador.Dispose()
ObjBancos.Dispose()
End Sub End Sub
Private Sub RecargaGlobales(TieneError As Boolean, ObjSubProyectos As ClsSubProyectos, ObjBancos As ClsBancos, ObjOC As ClsOC, ObjUsuarios As ClsSisUsuarios) Private Sub RecargaGlobales(TieneError As Boolean, ObjSubProyectos As ClsSubProyectos, ObjBancos As ClsBancos, ObjOC As ClsOC, ObjUsuarios As ClsSisUsuarios)