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 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-title">
<div class="caption font-green">
@@ -2582,7 +2582,7 @@
</asp:GridView>
</div>
</div>
</div>
</div>--%>
<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>
</div>

294
Compras/Proveedores.aspx.vb
View File

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

24
Sistemas/PopUpAddUsuario.aspx.vb
View File

@@ -350,6 +350,15 @@ Partial Class Sistemas_PopUpAddUsuario
Next
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
'VALIDA NO ALTERAR DATOS DE OTRO USUARIO
'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
HuboError = True
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
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 Sub
Private Sub GetEmpresas()
GlobalDTUsuarios(-1, -1) = Nothing 'Esto es por los cambios de contaseña
Private Sub GetEmpresas()
GlobalDTUsuarios(-1, -1) = Nothing
Dim Dt As Data.DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario)
If Dt IsNot Nothing Then
@@ -90,10 +88,10 @@ Partial Class PopUpSeleccionarEmpresa
RegistraScript("Ir3();")
End If
End If
dt.Dispose()
Else
Alert($"Usuario Nulo {gvr.DataKey("Usuario")} , {gvr.DataKey("Contraseña")}, {IMEI}, {gvr.DataKey("CveEmpresa").ToEntero}", TipoMensaje.MsgAdvertencia)
End If
dt.Dispose()
End If
End If
End If