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

Cambios en portal de proveedores

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-06-13 17:13:41 -07:00
parent d31fe2ddab
commit e4cdc1f832
4 changed files with 178 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Proveedores.aspx
View File

@@ -2521,7 +2521,7 @@
</div> </div>
</div> </div>
</div> </div>
<div class="col-md-3" id="divportalusuarios" runat="server" style="min-width: 315px;"> <%-- <div class="col-md-3" id="divportalusuarios" runat="server" style="min-width: 315px;">
<div class="portlet light xspadding bordered "> <div class="portlet light xspadding bordered ">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
@@ -2582,7 +2582,7 @@
</asp:GridView> </asp:GridView>
</div> </div>
</div> </div>
</div> </div>--%>
<div class="col-md-3"> <div class="col-md-3">
<asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px" Visible="false" Enabled="false"></asp:TextBox> <asp:TextBox ID="TxtBody" runat="server" TextMode="MultiLine" Columns="3" Rows="3" Width="194px" Visible="false" Enabled="false"></asp:TextBox>
</div> </div>

294
Compras/Proveedores.aspx.vb
View File

@@ -512,7 +512,7 @@ Partial Class Compras_Proveedores
CargaDocs() CargaDocs()
'CargaColectivas() 'CargaColectivas()
'CargaSaldosBeneficiarios() 'CargaSaldosBeneficiarios()
CargaUsuariosPortal() 'CargaUsuariosPortal()
CargarPagosNoBancarios() CargarPagosNoBancarios()
CargaFiltroMonedas() CargaFiltroMonedas()
MostrarFiltro() MostrarFiltro()
@@ -605,7 +605,7 @@ Partial Class Compras_Proveedores
If UsuarioActual.Empresa.CvePlataforma = 2 Then If UsuarioActual.Empresa.CvePlataforma = 2 Then
DivFiscal.Visible = False DivFiscal.Visible = False
TrFondoGarantia.Visible = False TrFondoGarantia.Visible = False
divportalusuarios.Visible = False 'divportalusuarios.Visible = False
End If End If
CveProveedorContacto = -1 CveProveedorContacto = -1
@@ -890,8 +890,8 @@ Partial Class Compras_Proveedores
HplAbonarMasivoNotas.NavigateUrl = String.Format("/Bancos/IE.aspx?OPCION=DevDinC&CveProveedor={0}&Masivo={1}", CveProveedor, 1) HplAbonarMasivoNotas.NavigateUrl = String.Format("/Bancos/IE.aspx?OPCION=DevDinC&CveProveedor={0}&Masivo={1}", CveProveedor, 1)
TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza TxtCorreoCobranza.Text = ObjProveedor.CorreoCobranza
LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza 'LblUsuarioPortalCliente.Text = ObjProveedor.CorreoCobranza
LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;" 'LblUsuarioPortalCliente.Attributes("style") = "font-weight: bold;"
ChkFolioDuplicado.Checked = ObjProveedor.EditarFolioDuplicado ChkFolioDuplicado.Checked = ObjProveedor.EditarFolioDuplicado
DdlMonedaPrefente.SelectedValueExist(ObjProveedor.CveMonedaPreferente.ToString) DdlMonedaPrefente.SelectedValueExist(ObjProveedor.CveMonedaPreferente.ToString)
@@ -1032,7 +1032,7 @@ Partial Class Compras_Proveedores
Retorno = True Retorno = True
enviaractivacion() ' enviaractivacion()
CargaEventoBitacora() CargaEventoBitacora()
@@ -1255,38 +1255,38 @@ Partial Class Compras_Proveedores
End Sub End Sub
#End Region #End Region
Private Sub CargaUsuariosPortal() 'Private Sub CargaUsuariosPortal()
Dim ObjUsrs As New ClsSisUsuarios() ' Dim ObjUsrs As New ClsSisUsuarios()
GvUsuariosPortalSis.Visible = False ' GvUsuariosPortalSis.Visible = False
If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then ' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
Dim dtUsr As DataTable = ObjUsrs.DtResultados ' Dim dtUsr As DataTable = ObjUsrs.DtResultados
'GvUsuariosPortalSis.DataSource = dtUsr.FiltraParametros("Estatus = 1") ' 'GvUsuariosPortalSis.DataSource = dtUsr.FiltraParametros("Estatus = 1")
'busco la clave del admin, si es que existe ' 'busco la clave del admin, si es que existe
Dim dr As DataRow = dtUsr.FiltroPrimero("Nombre = 'Admin'") ' Dim dr As DataRow = dtUsr.FiltroPrimero("Nombre = 'Admin'")
If dr IsNot Nothing Then ' If dr IsNot Nothing Then
HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString ' HdnCveUsuarioPortalAdmin.Value = dr("CveUsuario").ToString
If Convert.ToBoolean(dr("Estatus")) Then ' If Convert.ToBoolean(dr("Estatus")) Then
LblUsuarioActivo.Text = "Si" ' LblUsuarioActivo.Text = "Si"
'divUsuariosPortal.Visible = True ' 'divUsuariosPortal.Visible = True
HdnCveUsuarioPortalActivado.Value = "1" ' HdnCveUsuarioPortalActivado.Value = "1"
trDesactivarUsuario.Visible = True ' trDesactivarUsuario.Visible = True
End If ' End If
End If ' End If
If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then ' If HdnCveUsuarioPortalActivado.Value.ToEntero > 0 Then
trEnviarActivacion.Visible = False ' trEnviarActivacion.Visible = False
End If ' End If
Else ' Else
' GvUsuariosPortalSis.DataSource = Nothing ' ' GvUsuariosPortalSis.DataSource = Nothing
End If ' End If
ObjUsrs.Dispose() ' ObjUsrs.Dispose()
'GvUsuariosPortalSis.DataBind() ' 'GvUsuariosPortalSis.DataBind()
UPUsuarios.Update() ' UPUsuarios.Update()
End Sub 'End Sub
Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound Protected Sub GVHistorial_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVHistorial.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -1539,14 +1539,14 @@ Partial Class Compras_Proveedores
ObjProveedores.Dispose() ObjProveedores.Dispose()
End Sub End Sub
Protected Sub enviaractivacion() 'Protected Sub enviaractivacion()
If TxtCorreoCobranza.Text <> "" Then ' If TxtCorreoCobranza.Text <> "" Then
LbEnviarActivacionPortal.Enabled = True ' LbEnviarActivacionPortal.Enabled = True
Else ' Else
LbEnviarActivacionPortal.Enabled = False ' LbEnviarActivacionPortal.Enabled = False
LbEnviarActivacionPortal.ToolTip = "Debe de agregar una dirección de Email en la pestaña Información del Proveedor, campo 'Cobranza/Portal'." ' LbEnviarActivacionPortal.ToolTip = "Debe de agregar una dirección de Email en la pestaña Información del Proveedor, campo 'Cobranza/Portal'."
End If ' End If
End Sub 'End Sub
Private Function AsignaCuentasAutomaticas(ObjProveedor As ClsCompProveedores, CveProveedor As Integer) As Boolean Private Function AsignaCuentasAutomaticas(ObjProveedor As ClsCompProveedores, CveProveedor As Integer) As Boolean
Dim IdCtaContProveedores As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(321).ToEntero, UsuarioActual.Empresa.Funcionalidad(322).ToEntero) Dim IdCtaContProveedores As Integer = If(DdlCveTipoProveedor.SelectedValue.ToEntero = 1, UsuarioActual.Empresa.Funcionalidad(321).ToEntero, UsuarioActual.Empresa.Funcionalidad(322).ToEntero)
@@ -1562,7 +1562,7 @@ Partial Class Compras_Proveedores
End Function End Function
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
enviaractivacion() 'enviaractivacion()
Dim tIdContaProveedor As Integer Dim tIdContaProveedor As Integer
Dim CuentaAbono As Integer Dim CuentaAbono As Integer
@@ -1911,10 +1911,10 @@ Partial Class Compras_Proveedores
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO 'HABILITA ENVIAR ACTIVACION AL PORTAL PROVEEDOR SI SE AGREGO CORREO
If TxtCorreoCobranza.Text <> "" Then 'If TxtCorreoCobranza.Text <> "" Then
LbEnviarActivacionPortal.Enabled = True ' LbEnviarActivacionPortal.Enabled = True
LbEnviarActivacionPortal.ToolTip = "" ' LbEnviarActivacionPortal.ToolTip = ""
End If 'End If
'''''' ''''''
'ACTUALIZA SUCURSALES 'ACTUALIZA SUCURSALES
@@ -2077,122 +2077,122 @@ Partial Class Compras_Proveedores
#Region "U S U A R I O S" #Region "U S U A R I O S"
Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click 'Protected Sub LbSolicitudPortal_Click(sender As Object, e As EventArgs) Handles LbEnviarActivacionPortal.Click
'guarda el nuevo usuario ' 'guarda el nuevo usuario
Dim ObjUsuario As New ClsSisUsuarios ' Dim ObjUsuario As New ClsSisUsuarios
Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero ' Dim CveUsr As Integer = HdnCveUsuarioPortalAdmin.Value.ToEntero
Dim CvePlataforma As Integer = 7 ' Dim CvePlataforma As Integer = 7
Dim ErrorUsuario As Boolean = False ' Dim ErrorUsuario As Boolean = False
'DECLARAMOS PERMISOS DEFAULT DE ADMIN ' 'DECLARAMOS PERMISOS DEFAULT DE ADMIN
Dim Permisos() As Integer = {236, 237, 238, 239, 240} ' Dim Permisos() As Integer = {236, 237, 238, 239, 240}
If TxtCorreoCobranza.Text.Trim = "" Then ' If TxtCorreoCobranza.Text.Trim = "" Then
Alert("No se ha registrado ningún correo en la pestaña Información del Proveedor.", TipoMensaje.MsgAdvertencia) ' Alert("No se ha registrado ningún correo en la pestaña Información del Proveedor.", TipoMensaje.MsgAdvertencia)
Return ' Return
End If ' End If
ObjUsuario.IniciaTransacSQL() ' ObjUsuario.IniciaTransacSQL()
'AGREGAMOS USUARIO ADMIN NUEVO ' 'AGREGAMOS USUARIO ADMIN NUEVO
If CveUsr = 0 Then ' If CveUsr = 0 Then
'CREA USUARIO ' 'CREA USUARIO
CveUsr = ObjUsuario.AddUsuarioPortal(TxtCorreoCobranza.Text.Trim, ContraseñaPredeterminadaEncriptada, "Admin", TxtCorreoCobranza.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) ' CveUsr = ObjUsuario.AddUsuarioPortal(TxtCorreoCobranza.Text.Trim, ContraseñaPredeterminadaEncriptada, "Admin", TxtCorreoCobranza.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CveUsr > 0 Then ' If CveUsr > 0 Then
' AGREGA PERMISO A MODULO PORTALPROVEEDOR ' ' AGREGA PERMISO A MODULO PORTALPROVEEDOR
If Not ObjUsuario.UpdateUsuariosModulos(CveUsr, 1201, True, UsuarioActual.CveUsuario) Then ' If Not ObjUsuario.UpdateUsuariosModulos(CveUsr, 1201, True, UsuarioActual.CveUsuario) Then
ErrorUsuario = True ' ErrorUsuario = True
End If ' End If
Else ' Else
ErrorUsuario = True ' ErrorUsuario = True
End If ' End If
Else ' Else
'ACTUALIZAMOS ESTADO DE USARIO ADMIN INACTIVO ' 'ACTUALIZAMOS ESTADO DE USARIO ADMIN INACTIVO
If Not ObjUsuario.UpdateUsuarioPortal(TxtCorreoCobranza.Text.Trim, "Admin", TxtCorreoCobranza.Text.Trim, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, CveUsr, UsuarioActual.CveUsuario) Then ' If Not ObjUsuario.UpdateUsuarioPortal(TxtCorreoCobranza.Text.Trim, "Admin", TxtCorreoCobranza.Text.Trim, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, CveUsr, UsuarioActual.CveUsuario) Then
ErrorUsuario = True ' ErrorUsuario = True
End If ' End If
End If ' End If
If Not ErrorUsuario Then ' If Not ErrorUsuario Then
'AGREGAMOS PERMISOS A ADMIN ' 'AGREGAMOS PERMISOS A ADMIN
For Each permiso In Permisos ' For Each permiso In Permisos
If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then ' If Not ObjUsuario.UpdateUsuariosProcesos(CveUsr, permiso, True, UsuarioActual.CveUsuario) Then
ErrorUsuario = True ' ErrorUsuario = True
Exit For ' Exit For
End If ' End If
Next ' Next
End If ' End If
'VERIFICAMOS SI HUBO ERRORES ' 'VERIFICAMOS SI HUBO ERRORES
If ErrorUsuario Then ' If ErrorUsuario Then
ObjUsuario.RollBack() ' ObjUsuario.RollBack()
Else ' Else
'ACTUALIZAMOS SECCION USUARIO PORTAL ' 'ACTUALIZAMOS SECCION USUARIO PORTAL
HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString ' HdnCveUsuarioPortalAdmin.Value = CveUsr.ToString
trDesactivarUsuario.Visible = True ' trDesactivarUsuario.Visible = True
trEnviarActivacion.Visible = False ' trEnviarActivacion.Visible = False
LblUsuarioActivo.Text = "Si" ' LblUsuarioActivo.Text = "Si"
GvUsuariosPortalSis.Visible = False ' GvUsuariosPortalSis.Visible = False
ErrorUsuario = False ' ErrorUsuario = False
ObjUsuario.Commit() ' ObjUsuario.Commit()
End If ' End If
ObjUsuario.Dispose() ' ObjUsuario.Dispose()
UPUsuarios.Update() ' UPUsuarios.Update()
'ENVIA CORREO DE ACTIVACION y CARGA USUARIOS ' 'ENVIA CORREO DE ACTIVACION y CARGA USUARIOS
If CveUsr > 0 And Not ErrorUsuario Then ' If CveUsr > 0 And Not ErrorUsuario Then
CargaUsuariosPortalProveedor() ' CargaUsuariosPortalProveedor()
UpGvUsuarios.Update() ' UpGvUsuarios.Update()
Dim MensajeCorreo As String = EnviaCorreoActivacionPortal(CveUsr) ' Dim MensajeCorreo As String = EnviaCorreoActivacionPortal(CveUsr)
Dim Mensaje As String = IIf(MensajeCorreo = "", $"No se pudo Notificar a : {TxtCorreoCobranza.Text.Trim}", MensajeCorreo).ToString() ' Dim Mensaje As String = IIf(MensajeCorreo = "", $"No se pudo Notificar a : {TxtCorreoCobranza.Text.Trim}", MensajeCorreo).ToString()
Alert($"La Activación del Portal del Proveedor se ha realizado correctamente.<br><br> {Mensaje}", TipoMensaje.MsgInformacion) ' Alert($"La Activación del Portal del Proveedor se ha realizado correctamente.<br><br> {Mensaje}", TipoMensaje.MsgInformacion)
End If ' End If
End Sub 'End Sub
Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click 'Protected Sub LbDesactivaUsuario_Click(sender As Object, e As EventArgs) Handles LbDesactivaPortal.Click
Dim ObjUsuario As New ClsSisUsuarios ' Dim ObjUsuario As New ClsSisUsuarios
Dim ErrorDesactivando As Boolean = False ' Dim ErrorDesactivando As Boolean = False
If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then ' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados ' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
Else ' Else
ErrorDesactivando = True ' ErrorDesactivando = True
End If ' End If
If Not ErrorDesactivando Then ' If Not ErrorDesactivando Then
For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosProveedor"), DataTable).Rows ' For Each Dr As DataRow In DirectCast(ViewState("DTUsuariosProveedor"), DataTable).Rows
'se desactiva el usuario y se restablece la contraseña ' 'se desactiva el usuario y se restablece la contraseña
If ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then ' If ObjUsuario.UpdateUsuarioPortal(Dr("Usuario").ToString, Dr("Nombre").ToString, Dr("Correo").ToString, False, ContraseñaPredeterminadaEncriptada, Dr("CveCliente").ToString.ToEntero, Dr("CveProveedor").ToString.ToEntero, Dr("CveUsuario").ToString.ToEntero, UsuarioActual.CveUsuario) Then
ErrorDesactivando = False ' ErrorDesactivando = False
Else ' Else
ErrorDesactivando = True ' ErrorDesactivando = True
Alert("Ocurrió un Error al desactivar a los Usuarios.", TipoMensaje.MsgError) ' Alert("Ocurrió un Error al desactivar a los Usuarios.", TipoMensaje.MsgError)
End If ' End If
Next ' Next
Else ' Else
Alert("No se Encontraron Usuarios.", TipoMensaje.MsgInformacion) ' Alert("No se Encontraron Usuarios.", TipoMensaje.MsgInformacion)
End If ' End If
If Not ErrorDesactivando Then ' If Not ErrorDesactivando Then
LblUsuarioActivo.Text = "No" ' LblUsuarioActivo.Text = "No"
'HdnCveUsuarioPortalAdmin.Value = "" ' 'HdnCveUsuarioPortalAdmin.Value = ""
HdnCveUsuarioPortalActivado.Value = "0" ' HdnCveUsuarioPortalActivado.Value = "0"
trEnviarActivacion.Visible = True ' trEnviarActivacion.Visible = True
trDesactivarUsuario.Visible = False ' trDesactivarUsuario.Visible = False
ViewState("DTUsuariosProveedor") = "" ' ViewState("DTUsuariosProveedor") = ""
GvUsuariosPortalSis.Visible = False ' GvUsuariosPortalSis.Visible = False
Alert("Los Usuarios del Portal de Proveedores han sido Desactivados.", TipoMensaje.MsgInformacion) ' Alert("Los Usuarios del Portal de Proveedores han sido Desactivados.", TipoMensaje.MsgInformacion)
End If ' End If
ObjUsuario.Dispose() ' ObjUsuario.Dispose()
'ACTUALIZA USUARIOS EN TABUSUARIOS ' 'ACTUALIZA USUARIOS EN TABUSUARIOS
If Not ErrorDesactivando Then ' If Not ErrorDesactivando Then
CargaUsuariosPortalProveedor() ' CargaUsuariosPortalProveedor()
UpGvUsuarios.Update() ' UpGvUsuarios.Update()
End If ' End If
End Sub 'End Sub
Protected Function EnviaCorreoActivacionPortal(CveUsuario As Integer) As String Protected Function EnviaCorreoActivacionPortal(CveUsuario As Integer) As String
Dim Mensaje As String = "" Dim Mensaje As String = ""

24
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -350,6 +350,15 @@ Partial Class Sistemas_PopUpAddUsuario
Next Next
End If End If
If CvePlataforma = 7 Then
'DEBE AGREGAR EL USUARIO AL PROVEEDOR
If ObjUsuarios.DtResultados.Rows.Count = 0 Then
If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
HuboError = True
End If
End If
End If
ElseIf CveUsuario > 0 Then ElseIf CveUsuario > 0 Then
'VALIDA NO ALTERAR DATOS DE OTRO USUARIO 'VALIDA NO ALTERAR DATOS DE OTRO USUARIO
'Dim DtUsuarios As DataTable = GlobalDTUsuarios.FiltraParametros($"CveUsuario <> {CveUsuario}") 'Dim DtUsuarios As DataTable = GlobalDTUsuarios.FiltraParametros($"CveUsuario <> {CveUsuario}")
@@ -403,7 +412,20 @@ Partial Class Sistemas_PopUpAddUsuario
If Not ObjUsuarios.UpdateUsuarioPortal(LtlUsuario.Text.Trim, TxtNombre.Text, TxtEmail.Text, ChkEstatus.Checked, "-1", CveCliente, CveProveedor, CveUsuario, UsuarioActual.CveUsuario) Then If Not ObjUsuarios.UpdateUsuarioPortal(LtlUsuario.Text.Trim, TxtNombre.Text, TxtEmail.Text, ChkEstatus.Checked, "-1", CveCliente, CveProveedor, CveUsuario, UsuarioActual.CveUsuario) Then
HuboError = True HuboError = True
End If End If
End If End If
If CvePlataforma = 7 Then
If Not HuboError AndAlso ObjUsuarios.GetUsuarioProveedor(CveUsuario, CveProveedor) Then
'DEBE AGREGAR EL USUARIO AL PROVEEDOR
If ObjUsuarios.DtResultados.Rows.Count = 0 Then
If Not HuboError AndAlso Not ObjUsuarios.AddUsuarioProveedor(CveUsuario, CveProveedor) Then
HuboError = True
End If
End If
Else
HuboError = True
End If
End If
If Not HuboError Then If Not HuboError Then
For Each Row As GridViewRow In GvModulosAcceso.Rows For Each Row As GridViewRow In GvModulosAcceso.Rows

14
Sistemas/PopUpSeleccionarEmpresa.aspx.vb
View File

@@ -16,10 +16,8 @@ Partial Class PopUpSeleccionarEmpresa
End If End If
End Sub End Sub
Private Sub GetEmpresas() Private Sub GetEmpresas()
GlobalDTUsuarios(-1, -1) = Nothing
GlobalDTUsuarios(-1, -1) = Nothing 'Esto es por los cambios de contaseña
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario) Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
If Dt IsNot Nothing Then If Dt IsNot Nothing Then
@@ -90,10 +88,10 @@ Partial Class PopUpSeleccionarEmpresa
RegistraScript("Ir3();") RegistraScript("Ir3();")
End If End If
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
End If End If
End If End If