T129 Auditoria SAT
This commit is contained in:
Rakcsle Supertramp
@@ -69,6 +69,7 @@
|
||||
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
|
||||
|
||||
<ajax:TabContainer ID="Tab" runat="server" Width="100%" CssClass="tabBodyOverride" ActiveTabIndex="0">
|
||||
|
||||
<ajax:TabPanel ID="TabCxP" runat="server" HeaderText="<i class='fa fa-list-alt'></i> Cuentas x Cobrar" Visible="False">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -799,13 +800,13 @@
|
||||
</ajax:TabPanel>
|
||||
|
||||
<%---2020/02/06 - Auditoria--%>
|
||||
<ajax:TabPanel ID="TabAuditoria" runat="server" HeaderText="<i class='fa fa-search'></i> Auditoría">
|
||||
<ajax:TabPanel ID="TabAuditoria" runat="server" HeaderText="<i class='fa fa-search'></i> Auditoría" Visible="false" >
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:UpdatePanel ID="UpTabAuditoria" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<div class="row">
|
||||
|
||||
<asp:UpdatePanel ID="UPGvDocumentos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-12">
|
||||
|
||||
@@ -284,8 +284,16 @@ Partial Class Portal_PortalProveedor
|
||||
' CargaUsuariosPortal()
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(305) Then
|
||||
|
||||
TabAuditoria.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
'CARGA TAB CONTRASENIA PARA TODOS LOS USUARIOS
|
||||
If UsuarioActual.CvePlataforma = 7 Then TabContraseña.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -647,289 +655,289 @@ Partial Class Portal_PortalProveedor
|
||||
GvCxPHistorial.DataBind()
|
||||
|
||||
' UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "Usuarios Portal"
|
||||
|
||||
'Private Sub CargaUsuariosPortal()
|
||||
' Dim ObjUsrs As New ClsSisUsuarios()
|
||||
' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' Dim dtUsr As DataTable = ObjUsrs.DtResultados
|
||||
' 'Dim dr As DataRow = dtUsr.FiltroPrimero(String.Format("CveUsuario = {0}", UsuarioActual.CveUsuario))
|
||||
' 'If dr IsNot Nothing Then
|
||||
|
||||
' ' If True Then TabHistorial.Visible = True 'dr("Permiso1").ToString = "True"
|
||||
' ' If True Then TabCxP.Visible = True
|
||||
' ' If True Then TabAnticipos.Visible = True
|
||||
' ' If True Then TabBancos.Visible = True
|
||||
' ' If True Then TabSistema.Visible = True
|
||||
|
||||
' 'End If
|
||||
|
||||
' 'dtUsr = dtUsr '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
|
||||
' ViewState("OrdenUsuarios") = ""
|
||||
' GvUsuariosPortal.DataSource = dtUsr
|
||||
' ViewState("DTUsuariosProveedor") = dtUsr
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = Nothing
|
||||
' ViewState("DTUsuariosProveedor") = Nothing
|
||||
' End If
|
||||
' ObjUsrs.Dispose()
|
||||
' GvUsuariosPortal.DataBind()
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaGridUsuarios(Orden As String)
|
||||
' If CType(ViewState("DTUsuariosProveedor"), DataTable).Rows.Count > 0 Then
|
||||
' If Orden <> String.Empty Then
|
||||
' Dim DV As New DataView(CType(ViewState("DTUsuariosProveedor"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
' GvUsuariosPortal.DataSource = DV.ToTable() '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' DV.Dispose()
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosProveedor"), DataTable) '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
' End If
|
||||
' GvUsuariosPortal.DataBind()
|
||||
' UPPUsuarios.Update()
|
||||
'End Sub
|
||||
|
||||
''ajustar el tamaño de las celdas de la GvUsuarios Portal
|
||||
'Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' 'El usuario Admin no se puede editar ni eliminar
|
||||
' If e.Row.DataKey("Nombre") = "Admin" Then
|
||||
' e.Row.FCLinkButton("imgE").Visible = False
|
||||
' e.Row.FCLinkButton("imgD").Visible = False
|
||||
' e.Row.FCLinkButton("imgC").Visible = False
|
||||
' End If
|
||||
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' '' e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(1).Width = Unit.Pixel(150)
|
||||
' 'e.Row.Cells(2).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(3).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(4).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(5).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(6).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(7).Width = Unit.Pixel(55)
|
||||
|
||||
' 'e.Row.Cells(8).Width = Unit.Pixel(75)
|
||||
' 'e.Row.Cells(9).Width = Unit.Pixel(100)
|
||||
' 'e.Row.Cells(10).Width = Unit.Pixel(150)
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Editar usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing
|
||||
' GvUsuariosPortal.EditIndex = e.NewEditIndex
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim Nombre, Correo As String
|
||||
' Dim Estatus As Boolean
|
||||
' Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex)
|
||||
|
||||
' 'Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim
|
||||
' Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
|
||||
' Correo = gvr.FCTextBox("TxtCorreoEdit").Text.Trim
|
||||
' Estatus = gvr.FCCheckBox("ChkEstatus").Checked
|
||||
|
||||
' Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuario").ToEntero
|
||||
' Dim pCveProveedor As Integer = gvr.DataKey("CveProveedor").ToEntero
|
||||
|
||||
' If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", -1, CveProveedor, CveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
|
||||
' End If
|
||||
' ObjUsuario.Dispose()
|
||||
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Cancelar Edición
|
||||
'Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Restablecer contraseña
|
||||
'Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
|
||||
|
||||
' If e.CommandName = "RestablecerContraseña" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' Alert("Contraseña Restablecida.<br> La nueva contraseña es: """ & ContraseñaPredeterminada & "")
|
||||
' End If
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
' If e.CommandName = "ReenviarCorreo" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' Usuario.IniciaTransacSQL()
|
||||
' Dim TieneError = False
|
||||
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' 'ACTUALIZA USUARIO, CONTRASEÑA Y ESTATUS
|
||||
' If Not Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' TieneError = True
|
||||
' Alert("Ocurrió un error al actualizar el usuario. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' 'MANDA CORREO ACTIVACION
|
||||
' If Not TieneError Then
|
||||
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
|
||||
' Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
|
||||
' Dim LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
|
||||
|
||||
' Dim ObjMail As New ClsSisMail()
|
||||
|
||||
' If dr("Correo").ToString <> "" Then
|
||||
' Dim Correos As String() = dr("Correo").ToString.Split(New Char() {";"c})
|
||||
' Dim Texto = ""
|
||||
' For Each Correo As String In Correos
|
||||
' Texto = String.Format("Direccion de Acceso: <a href='{0}' target='_blank'>Portal del Proveedor</a><br>Usuario: {2}<br>Haga click para activar su cuenta <a href='{3}' target='_blank'>Activar</a>", Liga, CveProveedor, dr("Usuario").ToString, LigaActivar)
|
||||
' 'If Not ObjMail.MandaCorreo(EmpresaNotificaciones, Correo, "Activación de cuenta", "", "", {""}, Texto) Then
|
||||
' If Not ObjMail.SendMail(EmpresaNotificaciones, Correo, "Activación de cuenta", Texto) Then
|
||||
' Alert("Error al mandar el correo. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
' TieneError = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' Else
|
||||
' Alert("No se ha registrado ningún correo al usuario.", TipoMensaje.MsgAdvertencia)
|
||||
' TieneError = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If Not TieneError Then
|
||||
' Usuario.Commit()
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' Alert(String.Format("Se envio correo al usuario y se restablecio contraseña .<br> La nueva contraseña es: ""{0}""", ContraseñaPredeterminada), TipoMensaje.MsgInformacion)
|
||||
' Else
|
||||
' Usuario.RollBack()
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Eliminar Usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' Alert("Usuario Eliminado")
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Agregar Usuario
|
||||
'Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim CvePlataforma As Integer = 7
|
||||
|
||||
' ObjUsuario.IniciaTransacSQL()
|
||||
|
||||
' Dim CveUsuario As Integer = ObjUsuario.AddUsuarioPortal(TxtCorreo.Text.Trim, ContraseñaPredeterminadaEncriptada, TxtNombrePortal.Text.Trim, TxtCorreo.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
' If CveUsuario > 0 Then
|
||||
' If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1201, True, UsuarioActual.CveUsuario) Then
|
||||
' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados.FiltraParametros("Nombre <> 'Admin' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
|
||||
' TxtNombrePortal.Text = ""
|
||||
' TxtCorreo.Text = ""
|
||||
' Alert("Usuario Creado.<br>El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'")
|
||||
' ObjUsuario.Commit()
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' End If
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' Alert("No se ha podido registrar al nuevo Usuario, Verifique si el Usuario ya está registrado")
|
||||
' End If
|
||||
|
||||
' ObjUsuario.Dispose()
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaUsuariosPortal()
|
||||
' Dim ObjUsrs As New ClsSisUsuarios()
|
||||
' If ObjUsrs.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' Dim dtUsr As DataTable = ObjUsrs.DtResultados
|
||||
' 'Dim dr As DataRow = dtUsr.FiltroPrimero(String.Format("CveUsuario = {0}", UsuarioActual.CveUsuario))
|
||||
' 'If dr IsNot Nothing Then
|
||||
|
||||
' ' If True Then TabHistorial.Visible = True 'dr("Permiso1").ToString = "True"
|
||||
' ' If True Then TabCxP.Visible = True
|
||||
' ' If True Then TabAnticipos.Visible = True
|
||||
' ' If True Then TabBancos.Visible = True
|
||||
' ' If True Then TabSistema.Visible = True
|
||||
|
||||
' 'End If
|
||||
|
||||
' 'dtUsr = dtUsr '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
|
||||
' ViewState("OrdenUsuarios") = ""
|
||||
' GvUsuariosPortal.DataSource = dtUsr
|
||||
' ViewState("DTUsuariosProveedor") = dtUsr
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = Nothing
|
||||
' ViewState("DTUsuariosProveedor") = Nothing
|
||||
' End If
|
||||
' ObjUsrs.Dispose()
|
||||
' GvUsuariosPortal.DataBind()
|
||||
'End Sub
|
||||
|
||||
|
||||
'Private Sub CargaGridUsuarios(Orden As String)
|
||||
' If CType(ViewState("DTUsuariosProveedor"), DataTable).Rows.Count > 0 Then
|
||||
' If Orden <> String.Empty Then
|
||||
' Dim DV As New DataView(CType(ViewState("DTUsuariosProveedor"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
' GvUsuariosPortal.DataSource = DV.ToTable() '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' DV.Dispose()
|
||||
' Else
|
||||
' GvUsuariosPortal.DataSource = CType(ViewState("DTUsuariosProveedor"), DataTable) '.FiltraParametros("Nombre <> 'Administrador' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
' End If
|
||||
' GvUsuariosPortal.DataBind()
|
||||
' UPPUsuarios.Update()
|
||||
'End Sub
|
||||
|
||||
''ajustar el tamaño de las celdas de la GvUsuarios Portal
|
||||
'Protected Sub GvUsuariosPortal_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvUsuariosPortal.RowDataBound
|
||||
' If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
' 'El usuario Admin no se puede editar ni eliminar
|
||||
' If e.Row.DataKey("Nombre") = "Admin" Then
|
||||
' e.Row.FCLinkButton("imgE").Visible = False
|
||||
' e.Row.FCLinkButton("imgD").Visible = False
|
||||
' e.Row.FCLinkButton("imgC").Visible = False
|
||||
' End If
|
||||
|
||||
' If e.Row.RowIndex = 0 Then
|
||||
' '' e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(0).Width = Unit.Pixel(120)
|
||||
' 'e.Row.Cells(1).Width = Unit.Pixel(150)
|
||||
' 'e.Row.Cells(2).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(3).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(4).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(5).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(6).Width = Unit.Pixel(55)
|
||||
' 'e.Row.Cells(7).Width = Unit.Pixel(55)
|
||||
|
||||
' 'e.Row.Cells(8).Width = Unit.Pixel(75)
|
||||
' 'e.Row.Cells(9).Width = Unit.Pixel(100)
|
||||
' 'e.Row.Cells(10).Width = Unit.Pixel(150)
|
||||
' End If
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Editar usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowEditing(ByVal sender As Object, ByVal e As GridViewEditEventArgs) Handles GvUsuariosPortal.RowEditing
|
||||
' GvUsuariosPortal.EditIndex = e.NewEditIndex
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
'Protected Sub GvUsuariosPortal_RowUpdating(ByVal sender As Object, ByVal e As GridViewUpdateEventArgs) Handles GvUsuariosPortal.RowUpdating
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim Nombre, Correo As String
|
||||
' Dim Estatus As Boolean
|
||||
' Dim gvr As GridViewRow = GvUsuariosPortal.Rows(e.RowIndex)
|
||||
|
||||
' 'Usuario = gvr.FCLiteral("LtlUUsuario").Text.Trim
|
||||
' Nombre = gvr.FCTextBox("TxtUsuarioPortalEdit").Text.Trim
|
||||
' Correo = gvr.FCTextBox("TxtCorreoEdit").Text.Trim
|
||||
' Estatus = gvr.FCCheckBox("ChkEstatus").Checked
|
||||
|
||||
' Dim CveUsuarioPortal As Integer = gvr.DataKey("CveUsuario").ToEntero
|
||||
' Dim pCveProveedor As Integer = gvr.DataKey("CveProveedor").ToEntero
|
||||
|
||||
' If ObjUsuario.UpdateUsuarioPortal(Correo, Nombre, Correo, Estatus, "-1", -1, CveProveedor, CveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados
|
||||
' End If
|
||||
' ObjUsuario.Dispose()
|
||||
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Cancelar Edición
|
||||
'Protected Sub GvUsuariosPortal_RowCancelingEdit(ByVal sender As Object, ByVal e As GridViewCancelEditEventArgs) Handles GvUsuariosPortal.RowCancelingEdit
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Restablecer contraseña
|
||||
'Protected Sub GvUsuariosPortal_RowCommand(sender As Object, e As GridViewCommandEventArgs) Handles GvUsuariosPortal.RowCommand
|
||||
|
||||
' If e.CommandName = "RestablecerContraseña" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' If Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, CType(dr("Estatus"), Boolean), ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados '.FiltraParametros("Usuario <> 'Admin' AND CveUsuarioPortal <> " & UsuarioActual.CveUsuario)
|
||||
' Alert("Contraseña Restablecida.<br> La nueva contraseña es: """ & ContraseñaPredeterminada & "")
|
||||
' End If
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
' If e.CommandName = "ReenviarCorreo" Then
|
||||
' Dim cveUsuarioPortal As Integer = e.CommandArgument.ToString.ToEntero
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' Usuario.IniciaTransacSQL()
|
||||
' Dim TieneError = False
|
||||
|
||||
' If Usuario.GetUsuariosPortal(cveUsuarioPortal, -1, -1) Then
|
||||
' Dim dr As DataRow = Usuario.DtResultados.FiltroPrimero("")
|
||||
|
||||
' 'ACTUALIZA USUARIO, CONTRASEÑA Y ESTATUS
|
||||
' If Not Usuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, ContraseñaPredeterminadaEncriptada, -1, CveProveedor, cveUsuarioPortal, UsuarioActual.CveUsuario) Then
|
||||
' TieneError = True
|
||||
' Alert("Ocurrió un error al actualizar el usuario. Por favor vuelva a intentar.", TipoMensaje.MsgError)
|
||||
' End If
|
||||
|
||||
' 'MANDA CORREO ACTIVACION
|
||||
' If Not TieneError Then
|
||||
' Dim ObjParametro As SisParametro = GlobalDTParametros(SisParametros.URL)
|
||||
' Dim Liga As String = ObjParametro.Cadena1 & "LogIn.aspx"
|
||||
' Dim LigaActivar = Liga & "?p=" & Encripta("CveU=" & cveUsuarioPortal & "&Clave=" & "-acceso-" & "&Opcion=Activar&Hora=" & DateTime.Now.Ticks & "&CveE=" & UsuarioActual.CveEmpresa)
|
||||
|
||||
' Dim ObjMail As New ClsSisMail()
|
||||
|
||||
' If dr("Correo").ToString <> "" Then
|
||||
' Dim Correos As String() = dr("Correo").ToString.Split(New Char() {";"c})
|
||||
' Dim Texto = ""
|
||||
' For Each Correo As String In Correos
|
||||
' Texto = String.Format("Direccion de Acceso: <a href='{0}' target='_blank'>Portal del Proveedor</a><br>Usuario: {2}<br>Haga click para activar su cuenta <a href='{3}' target='_blank'>Activar</a>", Liga, CveProveedor, dr("Usuario").ToString, LigaActivar)
|
||||
' 'If Not ObjMail.MandaCorreo(EmpresaNotificaciones, Correo, "Activación de cuenta", "", "", {""}, Texto) Then
|
||||
' If Not ObjMail.SendMail(EmpresaNotificaciones, Correo, "Activación de cuenta", Texto) Then
|
||||
' Alert("Error al mandar el correo. Por favor vuelva a intentar", TipoMensaje.MsgError)
|
||||
' TieneError = True
|
||||
' Exit For
|
||||
' End If
|
||||
' Next
|
||||
|
||||
' Else
|
||||
' Alert("No se ha registrado ningún correo al usuario.", TipoMensaje.MsgAdvertencia)
|
||||
' TieneError = True
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' If Not TieneError Then
|
||||
' Usuario.Commit()
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' Alert(String.Format("Se envio correo al usuario y se restablecio contraseña .<br> La nueva contraseña es: ""{0}""", ContraseñaPredeterminada), TipoMensaje.MsgInformacion)
|
||||
' Else
|
||||
' Usuario.RollBack()
|
||||
' End If
|
||||
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
|
||||
''Eliminar Usuarios
|
||||
'Protected Sub GvUsuariosPortal_RowDeleting(ByVal sender As Object, ByVal e As GridViewDeleteEventArgs) Handles GvUsuariosPortal.RowDeleting
|
||||
' Dim Usuario As New ClsSisUsuarios
|
||||
' If Usuario.RemoveUsuarioPortal(GvUsuariosPortal.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
|
||||
' GvUsuariosPortal.EditIndex = -1
|
||||
' ViewState("DTUsuariosProveedor") = Usuario.DtResultados
|
||||
' End If
|
||||
' Usuario.Dispose()
|
||||
' Alert("Usuario Eliminado")
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
''Agregar Usuario
|
||||
'Protected Sub LnkAgregarUsuario_Click(sender As Object, e As EventArgs) Handles LnkAgregarUsuario.Click
|
||||
' Dim ObjUsuario As New ClsSisUsuarios
|
||||
' Dim CvePlataforma As Integer = 7
|
||||
|
||||
' ObjUsuario.IniciaTransacSQL()
|
||||
|
||||
' Dim CveUsuario As Integer = ObjUsuario.AddUsuarioPortal(TxtCorreo.Text.Trim, ContraseñaPredeterminadaEncriptada, TxtNombrePortal.Text.Trim, TxtCorreo.Text.Trim, -1, CveProveedor, CvePlataforma, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||
|
||||
' If CveUsuario > 0 Then
|
||||
' If ObjUsuario.UpdateUsuariosModulos(CveUsuario, 1201, True, UsuarioActual.CveUsuario) Then
|
||||
' If ObjUsuario.GetUsuariosPortal(-1, -1, CveProveedor) Then
|
||||
' ViewState("DTUsuariosProveedor") = ObjUsuario.DtResultados.FiltraParametros("Nombre <> 'Admin' AND CveUsuario <> " & UsuarioActual.CveUsuario)
|
||||
' End If
|
||||
|
||||
' TxtNombrePortal.Text = ""
|
||||
' TxtCorreo.Text = ""
|
||||
' Alert("Usuario Creado.<br>El usuario accesará con la contraseña '" & ContraseñaPredeterminada & "'")
|
||||
' ObjUsuario.Commit()
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' End If
|
||||
' Else
|
||||
' ObjUsuario.RollBack()
|
||||
' Alert("No se ha podido registrar al nuevo Usuario, Verifique si el Usuario ya está registrado")
|
||||
' End If
|
||||
|
||||
' ObjUsuario.Dispose()
|
||||
' If ViewState("OrdenUsuarios").ToString() <> String.Empty Then
|
||||
' CargaGridUsuarios(ViewState("OrdenUsuarios").ToString())
|
||||
' Else
|
||||
' CargaGridUsuarios("")
|
||||
' End If
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region "O R D E N A M I E N T O"
|
||||
'Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
' Dim Orden As String = ""
|
||||
' Dim Campo As String = ""
|
||||
' Dim Literal As Literal = Nothing
|
||||
' Const OrdenInicial As String = ""
|
||||
' Dim Arg(2) As String
|
||||
|
||||
' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
' Campo = Arg(0)
|
||||
' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
' If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
' Else
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
' End If
|
||||
' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
' ViewState("Orden") = Orden
|
||||
' CargaGridUsuarios(Orden)
|
||||
'End Sub
|
||||
|
||||
'Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
' Dim Orden As String = ""
|
||||
' Dim Campo As String = ""
|
||||
' Dim Literal As Literal = Nothing
|
||||
' Const OrdenInicial As String = ""
|
||||
' Dim Arg(2) As String
|
||||
|
||||
' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
' Campo = Arg(0)
|
||||
' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
' If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
' Else
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
' End If
|
||||
' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
' ViewState("Orden") = Orden
|
||||
' CargaGridUsuarios(Orden)
|
||||
'End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
#Region " BANCOS"
|
||||
Protected Sub BtnExcelGvBancosCuentas_Click(sender As Object, e As EventArgs)
|
||||
Dim retorno As Byte() = ImprimirReporteGvBancosCuentas("EXCEL")
|
||||
|
||||
Reference in New Issue
Block a user