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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -81,14 +81,14 @@ Partial Class Sistemas_PopUpAddUsuario
CveProveedor = -1
End If
If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso (ViewState("CveProveedor") > 0 Or ViewState("CveCliente") > 0) Then
If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso (ViewState("CveProveedor").ToString.ToEntero > 0 Or ViewState("CveCliente").ToString.ToEntero > 0) Then
CargaDispositivos()
CargarNotificaciones()
TabApp.Visible = True
CargaGridModulosAccesoApp()
End If
If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso (ViewState("CveProveedor") > 0 OrElse ViewState("CveCliente") > 0) Then
If UsuarioActual.Empresa.CvePlataforma = 1 AndAlso (ViewState("CveProveedor").ToString.ToEntero > 0 OrElse ViewState("CveCliente").ToString.ToEntero > 0) Then
TabVehiculos.Visible = False
TabPermisoVehiculos.Visible = False
TabNotificaciones.Visible = False
@@ -105,9 +105,9 @@ Partial Class Sistemas_PopUpAddUsuario
End If
'INICIALIZA CVEPLATAFORMA
If UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveCliente") > 0 Then
If UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveCliente").ToString.ToEntero > 0 Then
ViewState("CvePlataforma") = 6
ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveProveedor") > 0 Then
ElseIf UsuarioActual.Empresa.CvePlataforma = 1 And ViewState("CveProveedor").ToString.ToEntero > 0 Then
ViewState("CvePlataforma") = 7
Else
ViewState("CvePlataforma") = 3
@@ -126,7 +126,7 @@ Partial Class Sistemas_PopUpAddUsuario
LtlUsuario.Text = ObjUsuario.DtResultados.Rows(0)("Usuario").ToString()
TxtEmail.Text = ObjUsuario.DtResultados.Rows(0)("Correo").ToString()
TxtNombre.Text = ObjUsuario.DtResultados.Rows(0)("Nombre").ToString()
ChkEstatus.Checked = ObjUsuario.DtResultados.Rows(0)("Estatus")
ChkEstatus.Checked = ObjUsuario.DtResultados.Rows(0)("Estatus").ToString = "True"
If ObjUsuario.DtResultados.Rows(0)("CveRol").ToString.ToEntero = 1200 OrElse ObjUsuario.DtResultados.Rows(0)("CveRol").ToString.ToEntero = 1198 Then
BtnDefaultPWD.Visible = True
@@ -561,7 +561,7 @@ Partial Class Sistemas_PopUpAddUsuario
For Each row As GridViewRow In GVNotificaciones.Rows
If row.FCCheckBox("chkCorreo").Checked OrElse row.FCCheckBox("chkVentana").Checked OrElse row.FCCheckBox("chkSMS").Checked OrElse
row.FCCheckBox("chkApp").Checked OrElse row.FCCheckBox("chkCampana").Checked Then
If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion"), row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked,
If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion").ToEntero, row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked,
row.FCCheckBox("chkApp").Checked, row.FCCheckBox("chkCampana").Checked) Then
HuboError = True
End If