SIG/OC/RepOCGuias.aspx.vb

Option Explicit On
Option Strict On

Imports Microsoft.Reporting.WebForms
Imports System.Data
Imports Extensiones
Partial Class OC_RepOCGuias
    Inherits ClsPaginas

#Region "  PROPIEDADES  "
    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
#End Region


    Private Sub OC_RepOCGuias_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then

            InicializaValores()
            CargaDatos()

        End If
    End Sub

#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()
        txtFechaI.Text = NowADS().AddDays(-10).ToShortDateString
        txtFechaF.Text = NowADS().ToShortDateString

        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
            Case 1
                LtCC.Text = "Sucursal"
            Case 2
                LtCC.Text = "Proyecto"
            Case 3
                LtCC.Text = "SubProyecto"
        End Select

        CargaProveedores()
        CargaClientes()
        CargaVendedores()
        CargaSubProyectos()
    End Sub

    Private Sub CargaCombos()
        CargaProveedores()
        CargaClientes()
        CargaVendedores()
    End Sub

    Protected Sub CargaProveedores()
        ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        ddlProveedor.DataBind()
        ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
    Protected Sub CargaClientes()

        Ddlcliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
        Ddlcliente.DataBind()
        Ddlcliente.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub CargaVendedores()
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))


        UPFiltros.Update()
    End Sub

    Private Sub CargaSubProyectos()
        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
        DdlSubproyecto.DataBind()
        DdlSubproyecto.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
#End Region


#Region "  CARGA DATOS  "
    Protected Sub BtnConsultar_Click1(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub
    Private Sub CargaDatos()
        Dim ObjOC As New ClsOC
        If ObjOC.GetRepOCGuias(txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"), txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), ddlProveedor.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, Ddlcliente.SelectedValue.ToEntero, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            DTDatos = ObjOC.DtResultados
            GvDatos.DataSource = DTDatos
        Else
            DTDatos = Nothing
            GvDatos.DataSource = DTDatos
        End If
        ObjOC.Dispose()
        GvDatos.DataBind()

        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
            Case 1
                GvDatos.HeaderRow.Cells(3).Text = "Sucursal"
            Case 2
                GvDatos.HeaderRow.Cells(3).Text = "Proyecto"
            Case 3
                GvDatos.HeaderRow.Cells(3).Text = "SubProyecto"
        End Select

        UpDatos.Update()
    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($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        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> "
        '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", NowADS().ToShortDateString))

        params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        ImprimirPDF("Empresas\Grales\Formatos\RepOCGuias.rdlc", DTDatos, params, $"RepOCGuias_{NowADS().ToString("yyyyMMddmmss")}", Formato:=Formato)
    End Sub

#End Region



End Class