Option Strict On


Imports Extensiones
Imports System.Data
Imports Microsoft.Reporting.WebForms



Partial Class RH_RepUniformesResguardo
    Inherits ClsPaginas

    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
    Private Sub RH_RepUniformes_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
            DdlSubProyecto.DataBind()
            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ")
            DdlDepartamento.DataBind()
            DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))

            DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
            DdlPersonal.DataBind()
            DdlPersonal.Items.Insert(0, New ListItem("Seleccione", "-1"))

            'TxtFechaInicio.Text = Now.ToString("dd/MM/yyyy")
            'TxtFechaFin.Text = Now.AddMonths(1).ToString("dd/MM/yyyy")

            CargaDatos()
        End If

    End Sub


    Private Sub CargaDatos()


        Dim ObjInv As New ClsInventarios

        Dim strFechaInicio As String = "-1"
        Dim strFechaFin As String = "-1"

        Dim dfecha As Date = TxtFechaInicio.Text.ToDate()
        If dfecha.Year > 1900 Then
            strFechaInicio = dfecha.ToString("yyyy/MM/dd")
        End If

        dfecha = TxtFechaFin.Text.ToDate()
        If dfecha.Year > 1900 Then
            strFechaFin = dfecha.ToString("yyyy/MM/dd")
        End If
        If ObjInv.GetResguardoUniformesRep(UsuarioActual.CveEmpresa, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, CveDepartamento:=DdlDepartamento.SelectedValue.ToEntero, FechaInicio:=strFechaInicio, FechaFin:=strFechaFin, Todo:=False) Then
            GvUniformes.DataSource = ObjInv.DtResultados
            DTDatos = ObjInv.DtResultados
        Else
            GvUniformes.DataSource = Nothing
            DTDatos = New DataTable
        End If

        ObjInv.Dispose()

        GvUniformes.DataBind()
        UpGvUniforme.Update()

        'Dim objRH As New ClsRH

        'If objRH.UniformesRepGet(DdlSubProyecto.SelectedValue.ToEntero, DdlDepartamento.SelectedValue.ToEntero, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, UsuarioActual.CveEmpresa) Then
        '    GvUniformes.DataSource = objRH.DtResultados
        '    DTDatos = objRH.DtResultados
        'Else
        '    GvUniformes.DataSource = Nothing
        '    DTDatos = Nothing
        'End If

        'objRH.Dispose()

        'GvUniformes.DataBind()
        'UpGvUniforme.Update()



    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub


#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")


        If DTDatos.Rows.Count > 0 Then
            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)

            ' Dim Filtros As String = "<b>Filtros: </b> "



            'Dim FechaI, FechaF As String

            ' 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\RepUniformesResguardo.rdlc", DTDatos, params, "ReporteUniformes", Formato:=Formato)
        End If




    End Sub
#End Region

End Class