diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 75c12338f..b76823e23 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -2521,7 +2521,7 @@ -
+ <%--
@@ -2582,7 +2582,7 @@
-
+
--%>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 18574cc43..4c98d9164 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -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.

{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.

{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 = "" diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb index 64fc0dce6..45b1b8c0c 100644 --- a/Sistemas/PopUpAddUsuario.aspx.vb +++ b/Sistemas/PopUpAddUsuario.aspx.vb @@ -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 diff --git a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb index 4e7e19c10..b729a4477 100644 --- a/Sistemas/PopUpSeleccionarEmpresa.aspx.vb +++ b/Sistemas/PopUpSeleccionarEmpresa.aspx.vb @@ -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