Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
644
RH/CatPersonal.aspx.vb
Normal file
644
RH/CatPersonal.aspx.vb
Normal file
@@ -0,0 +1,644 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
|
||||
Partial Class RH_CatPersonal
|
||||
Inherits ClsPaginas
|
||||
|
||||
Private Property DTDatos As DataTable
|
||||
Get
|
||||
|
||||
If ViewState("DTDatos") Is Nothing Then
|
||||
Return New DataTable
|
||||
Else
|
||||
Return DirectCast(ViewState("DTDatos"), DataTable)
|
||||
End If
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DTDatos") = value
|
||||
End Set
|
||||
End Property
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("Orden") = ""
|
||||
|
||||
CargaEscolaridad()
|
||||
CargaEstadoCivil()
|
||||
CargaDepartamento()
|
||||
CargaPuestos()
|
||||
CargaEstatusPersonal()
|
||||
CargaGenero()
|
||||
CargaMotivoBaja()
|
||||
CargaRuta()
|
||||
CargaTiposContrato()
|
||||
CargaTipoPeriodo()
|
||||
CargaTurno()
|
||||
CargaProyecto()
|
||||
CargaSupervisores()
|
||||
CargaMetodosPago()
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjPersonal As New ClsRH
|
||||
|
||||
'Dim Codigo As String
|
||||
'Dim Nombre As String
|
||||
'Dim NSS As String
|
||||
'Dim RFC As String
|
||||
Dim CveTurno As Integer = DdlTurno.SelectedValue.ToEntero
|
||||
Dim CvePuesto As Integer = DdlPuesto.SelectedValue.ToEntero
|
||||
Dim CveDepartamento As Integer = DdlDepartamento.SelectedValue.ToEntero
|
||||
Dim CveRuta As Integer = DdlRuta.SelectedValue.ToEntero
|
||||
Dim CveEscolaridad As Integer = DdlEscolaridad.SelectedValue.ToEntero
|
||||
Dim CveEstadoCivil As Integer = DdlEstadoCivil.SelectedValue.ToEntero
|
||||
Dim CveGenero As Integer = DdlGenero.SelectedValue.ToEntero
|
||||
Dim CveEstatusPersonal As Integer = DdlEstatusPersonal.SelectedValue.ToEntero
|
||||
Dim CveSubProyecto As Integer = DdlSubProyectoAsignado.SelectedValue.ToEntero
|
||||
Dim CveClienteAsignado As Integer = -1 '-----
|
||||
Dim HorarioTrabajo As String = "-1" '-----
|
||||
Dim CveSupervisor As Integer = DdlSupervisor.SelectedValue.ToEntero
|
||||
Dim CveTipoPeriodo As Integer = DdlTipoPeriodo.SelectedValue.ToEntero
|
||||
Dim CveMetodoPago As Integer = DdlMetodoPago.SelectedValue.ToEntero
|
||||
Dim CveTipoContrato As Integer = DdlTipoContrato.SelectedValue.ToEntero
|
||||
Dim CveMotivoBaja As Integer = DdlMotivoBaja.SelectedValue.ToEntero
|
||||
Dim CveProyecto As Integer = DdlProyectoAsignado.SelectedValue.ToEntero
|
||||
Dim FechaIFinContrato As String = TxtFechaIFinContrato.Text.Trim
|
||||
Dim FechaFFinContrato As String = TxtFechaFFinContrato.Text.Trim
|
||||
Dim FechaIIngreso As String = TxtFechaIIngreso.Text.Trim
|
||||
Dim FechaFIngreso As String = TxtFechaFIngreso.Text.Trim
|
||||
|
||||
If FechaIFinContrato = Nothing Then
|
||||
FechaIFinContrato = "-1"
|
||||
End If
|
||||
If FechaFFinContrato = Nothing Then
|
||||
FechaFFinContrato = "-1"
|
||||
End If
|
||||
If FechaIIngreso = Nothing Then
|
||||
FechaIIngreso = "-1"
|
||||
End If
|
||||
If FechaFIngreso = Nothing Then
|
||||
FechaFIngreso = "-1"
|
||||
End If
|
||||
If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa) Then
|
||||
DTDatos = ObjPersonal.DtResultados
|
||||
|
||||
'filtro por usuario subproyecto/sucursal vsh
|
||||
If UsuarioActual.CveEmpresa = 7 Then
|
||||
|
||||
If UsuarioActual.TienePermisoProceso(197) Then
|
||||
GvDatos.DataSource = ObjPersonal.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = ObjPersonal.DtResultados.FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
|
||||
End If
|
||||
|
||||
Else
|
||||
GvDatos.DataSource = ObjPersonal.DtResultados
|
||||
End If
|
||||
|
||||
Else
|
||||
DTDatos = Nothing
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjPersonal.Dispose()
|
||||
GvDatos.DataBind()
|
||||
|
||||
|
||||
'If (GvDatos.Rows.Count > 0) Then
|
||||
' GvDatos.UseAccessibleHeader = True
|
||||
' GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
' RegistraScript("OrdenarGV();")
|
||||
'End If
|
||||
UPDatos.Update()
|
||||
'If ViewState("Orden").ToString() <> String.Empty Then
|
||||
' CargaGrid(ViewState("Orden").ToString())
|
||||
'Else
|
||||
' CargaGrid("")
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
||||
CargaDatos()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region " C O M B O S "
|
||||
|
||||
Private Sub CargaEscolaridad()
|
||||
DdlEscolaridad.DataSource = GlobalDTEscolaridad
|
||||
DdlEscolaridad.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGenero()
|
||||
DdlGenero.DataSource = GlobalDTGenero
|
||||
DdlGenero.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEstadoCivil()
|
||||
DdlEstadoCivil.DataSource = GlobalDTEstadoCivil
|
||||
DdlEstadoCivil.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTipoPeriodo()
|
||||
DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo
|
||||
DdlTipoPeriodo.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTiposContrato()
|
||||
DdlTipoContrato.DataSource = GlobalDTTiposContrato
|
||||
DdlTipoContrato.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTurno()
|
||||
DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlTurno.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDepartamento()
|
||||
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlDepartamento.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPuestos()
|
||||
DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
|
||||
DdlPuesto.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaRuta()
|
||||
DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlRuta.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMotivoBaja()
|
||||
DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlMotivoBaja.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEstatusPersonal()
|
||||
DdlEstatusPersonal.DataSource = GlobalDTEstatusPersonal
|
||||
DdlEstatusPersonal.DataBind()
|
||||
End Sub
|
||||
Private Sub CargaProyecto()
|
||||
DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
||||
DdlProyectoAsignado.DataBind()
|
||||
CargaTipoCentroCosto()
|
||||
If DivProyecto.Visible Then
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyectos()
|
||||
|
||||
DdlSubProyectoAsignado.Items.Clear()
|
||||
If DdlProyectoAsignado.SelectedValue <> "-1" Then
|
||||
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyectoAsignado.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
|
||||
DdlSubProyectoAsignado.DataBind()
|
||||
End If
|
||||
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
'filtro por usuario subproyecto/sucursal vsh
|
||||
'If UsuarioActual.CveEmpresa = 7 Then
|
||||
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
|
||||
'End If
|
||||
UpSubProyecto.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTipoCentroCosto()
|
||||
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
|
||||
DdlSubProyectoAsignado.Items.Clear()
|
||||
DivProyecto.Visible = False
|
||||
LblProyecto.Visible = False
|
||||
LblSubProyecto.Text = "Sucursal:"
|
||||
|
||||
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoAsignado.DataBind()
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
|
||||
DdlSubProyectoAsignado.Items.Clear()
|
||||
DivProyecto.Visible = False
|
||||
LblProyecto.Visible = False
|
||||
LblSubProyecto.Text = "Proyecto:"
|
||||
|
||||
DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
|
||||
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyectoAsignado.DataBind()
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
LblProyecto.Text = "Sucursal:"
|
||||
LblSubProyecto.Text = "Proyecto:"
|
||||
|
||||
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
|
||||
LblProyecto.Text = "Proyecto:"
|
||||
LblSubProyecto.Text = "Sucursal:"
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSupervisores()
|
||||
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
|
||||
DdlSupervisor.DataBind()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaMetodosPago()
|
||||
DdlMetodoPago.DataSource = GlobalDTMetodosPago
|
||||
DdlMetodoPago.DataBind()
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "P E R Z O N A L I Z A R"
|
||||
Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
|
||||
|
||||
|
||||
If ChkCodigo.Checked Then
|
||||
GvDatos.Columns(0).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(0).Visible = False
|
||||
End If
|
||||
|
||||
If ChkNombre.Checked Then
|
||||
GvDatos.Columns(1).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(1).Visible = False
|
||||
End If
|
||||
|
||||
If ChkNSS.Checked Then
|
||||
GvDatos.Columns(2).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(2).Visible = False
|
||||
End If
|
||||
|
||||
If ChlRFC.Checked Then
|
||||
GvDatos.Columns(3).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(3).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTurno.Checked Then
|
||||
GvDatos.Columns(4).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(4).Visible = False
|
||||
End If
|
||||
|
||||
If ChkPuesto.Checked Then
|
||||
GvDatos.Columns(5).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(5).Visible = False
|
||||
End If
|
||||
|
||||
If ChkDepartamento.Checked Then
|
||||
GvDatos.Columns(6).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(6).Visible = False
|
||||
End If
|
||||
|
||||
If ChkRuta.Checked Then
|
||||
GvDatos.Columns(7).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(7).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEscolaridad.Checked Then
|
||||
GvDatos.Columns(8).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(8).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEstadoCivil.Checked Then
|
||||
GvDatos.Columns(9).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(9).Visible = False
|
||||
End If
|
||||
|
||||
If ChkGenero.Checked Then
|
||||
GvDatos.Columns(10).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(10).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEstatusPersonal.Checked Then
|
||||
GvDatos.Columns(11).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(11).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSubProyecto.Checked Then
|
||||
GvDatos.Columns(12).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(12).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSupervisor.Checked Then
|
||||
GvDatos.Columns(13).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(13).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTipoPeriodo.Checked Then
|
||||
GvDatos.Columns(14).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(14).Visible = False
|
||||
End If
|
||||
|
||||
If ChkMetodoPago.Checked Then
|
||||
GvDatos.Columns(15).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(15).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTipoContrato.Checked Then
|
||||
GvDatos.Columns(16).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(16).Visible = False
|
||||
End If
|
||||
|
||||
If ChkMotivoBaja.Checked Then
|
||||
GvDatos.Columns(17).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(17).Visible = False
|
||||
End If
|
||||
|
||||
If ChkProyecto.Checked Then
|
||||
GvDatos.Columns(18).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(18).Visible = False
|
||||
End If
|
||||
|
||||
If ChkFechaIngreso.Checked Then
|
||||
GvDatos.Columns(19).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(19).Visible = False
|
||||
End If
|
||||
If ChkSeInscribioSS.Checked Then
|
||||
GvDatos.Columns(20).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(20).Visible = False
|
||||
End If
|
||||
If ChkSalarioDiarioPago.Checked Then
|
||||
GvDatos.Columns(21).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(21).Visible = False
|
||||
End If
|
||||
If ChkSalarioDiario.Checked Then
|
||||
GvDatos.Columns(22).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(22).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSDI.Checked Then
|
||||
GvDatos.Columns(23).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(23).Visible = False
|
||||
End If
|
||||
|
||||
If ChkSalarioDiarioSS.Checked Then
|
||||
GvDatos.Columns(24).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(24).Visible = False
|
||||
End If
|
||||
|
||||
If ChkBono.Checked Then
|
||||
GvDatos.Columns(25).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(25).Visible = False
|
||||
End If
|
||||
|
||||
If ChkNumDiasAguinaldo.Checked Then
|
||||
GvDatos.Columns(26).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(26).Visible = False
|
||||
End If
|
||||
|
||||
If ChkPorPrimaVacacional.Checked Then
|
||||
GvDatos.Columns(27).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(27).Visible = False
|
||||
End If
|
||||
|
||||
If ChkUbicacion.Checked Then
|
||||
GvDatos.Columns(28).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(28).Visible = False
|
||||
End If
|
||||
|
||||
If ChkFechaNacimiento.Checked Then
|
||||
GvDatos.Columns(29).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(29).Visible = False
|
||||
End If
|
||||
|
||||
If ChkLugarNacimiento.Checked Then
|
||||
GvDatos.Columns(30).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(30).Visible = False
|
||||
End If
|
||||
|
||||
If ChkDireccion.Checked Then
|
||||
GvDatos.Columns(31).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(31).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCP.Checked Then
|
||||
GvDatos.Columns(32).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(32).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCiudad.Checked Then
|
||||
GvDatos.Columns(33).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(33).Visible = False
|
||||
End If
|
||||
|
||||
If ChkEstado.Checked Then
|
||||
GvDatos.Columns(34).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(34).Visible = False
|
||||
End If
|
||||
|
||||
If ChkTelefono.Checked Then
|
||||
GvDatos.Columns(35).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(35).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCelular.Checked Then
|
||||
GvDatos.Columns(36).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(36).Visible = False
|
||||
End If
|
||||
|
||||
If ChkCURP.Checked Then
|
||||
GvDatos.Columns(37).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(37).Visible = False
|
||||
End If
|
||||
If ChkNombrePadre.Checked Then
|
||||
GvDatos.Columns(38).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(38).Visible = False
|
||||
End If
|
||||
If ChkNombreMadre.Checked Then
|
||||
GvDatos.Columns(39).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(39).Visible = False
|
||||
End If
|
||||
|
||||
If ChkClienteAsignado.Checked Then
|
||||
GvDatos.Columns(40).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(40).Visible = False
|
||||
End If
|
||||
|
||||
If ChkUsuario.Checked Then
|
||||
GvDatos.Columns(42).Visible = True
|
||||
Else
|
||||
GvDatos.Columns(42).Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If (GvDatos.Rows.Count > 0) Then
|
||||
GvDatos.UseAccessibleHeader = True
|
||||
GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
RegistraScript("OrdenarGV();")
|
||||
End If
|
||||
|
||||
liLnkDescarPersonalizado.Visible = True
|
||||
|
||||
UpPersonalizado.Update()
|
||||
UPDatos.Update()
|
||||
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "G V D A T O S"
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(60)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(250)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(80)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(80)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(60)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(110)
|
||||
e.Row.Cells(8).Width = Unit.Pixel(90)
|
||||
End If
|
||||
|
||||
|
||||
'If UsuarioActual.Empresa.CveEmpresa = 4 Or UsuarioActual.Empresa.CveEmpresa = 11 Or UsuarioActual.Empresa.CveEmpresa = 7 Or UsuarioActual.Empresa.CveEmpresa = 12 Or UsuarioActual.Empresa.CveEmpresa = 2 Then
|
||||
|
||||
|
||||
' e.Row.FCLiteral("LtlNombre").Text = "<a target='_blank' class=""Texto"" href=""/RH/Reclutamiento.aspx?CvePersonal=" & e.Row.DBCampo("CvePersonal") & """>" & e.Row.FCLiteral("LtlNombre").Text & "</a>"
|
||||
'Else
|
||||
' e.Row.FCLiteral("LtlNombre").Text = "<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal=" & e.Row.DBCampo("CvePersonal") & """>" & e.Row.FCLiteral("LtlNombre").Text & "</a>"
|
||||
'End If
|
||||
|
||||
'e.Row.FCLiteral("LtlCodigo").Text = "<a class=""Texto"" href=""/RH/Personal.aspx?CvePersonal=" & e.Row.DBCampo("CvePersonal") & """>" & e.Row.FCLiteral("LtlCodigo").Text & "</a>"
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region "I M P R I M I R P D F/Excel"
|
||||
|
||||
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
|
||||
GenerarPDF("Excel")
|
||||
End Sub
|
||||
Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
|
||||
GenerarPDF()
|
||||
End Sub
|
||||
|
||||
Private Sub GenerarPDF(Optional Formato As String = "PDF")
|
||||
Dim ObjTareas As New ClsOIEventos
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
|
||||
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
|
||||
' params.Add(New ReportParameter("AgrupadoPor", Filtros))
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
'params.Add(New ReportParameter("FechaInicio", FechaI))
|
||||
'params.Add(New ReportParameter("FechaFin", FechaF))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
ImprimirPDF("Empresas\Grales\Formatos\RepPersonal.rdlc", DTDatos, params, "ReporteTareas", Formato:=Formato)
|
||||
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
CargaSubProyectos()
|
||||
End Sub
|
||||
Protected Sub LnkDescarPersonalizados_Click(sender As Object, e As EventArgs)
|
||||
|
||||
|
||||
Dim htmlFuente As String = txtDatos.Text
|
||||
|
||||
Dim RutaLogo As String = $"{Server.MapPath("~")}\Empresas\{UsuarioActual.CveEmpresa}\logo.png"
|
||||
'Dim Logo As String = ""
|
||||
|
||||
|
||||
|
||||
'If IO.File.Exists(RutaLogo) Then
|
||||
' Dim fs = New IO.MemoryStream(IO.File.ReadAllBytes(RutaLogo))
|
||||
' Dim br As New System.IO.BinaryReader(fs)
|
||||
' Dim bytes As Byte() = br.ReadBytes(CType(fs.Length, Integer))
|
||||
' Logo = Convert.ToBase64String(bytes, 0, bytes.Length)
|
||||
' fs.Dispose()
|
||||
|
||||
'End If
|
||||
|
||||
' Dim Cabera = $"<table width='900px'><tr><td ><img src='data:image/png;base64,{Logo}' alt='Logo' /> </td><td colspan='3'><h2><center>{UsuarioActual.Empresa.Empresa}</center></h2></td><tr><tr> <td ></td> <td>Reporte Personal</td></tr></table>"
|
||||
htmlFuente = htmlFuente.Replace("<table ", "<table border='1' ")
|
||||
htmlFuente = htmlFuente.Replace("<a ", "<label ")
|
||||
htmlFuente = htmlFuente.Replace("</a ", "</label ")
|
||||
htmlFuente = htmlFuente.Replace("<th ", "<th style='background-color:#ddd!important'; ")
|
||||
' htmlFuente = Cabera + htmlFuente
|
||||
Dim buffer As Byte()
|
||||
Dim memoryStream = New System.IO.MemoryStream()
|
||||
buffer = Encoding.Default.GetBytes(htmlFuente)
|
||||
memoryStream.Write(buffer, 0, buffer.Length)
|
||||
|
||||
Response.Clear()
|
||||
|
||||
Response.AddHeader("content-disposition", $"attachment;filename=personalizado_{Now.ToString("yyyyMMddhhmmss")}.xls")
|
||||
Response.AddHeader("Content-Length", memoryStream.Length.ToString())
|
||||
Response.ContentType = "application/octet-stream"
|
||||
memoryStream.WriteTo(Response.OutputStream)
|
||||
Response.End()
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user