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 = Now.AddDays(-10).ToShortDateString
        txtFechaF.Text = Now.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(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> "
        '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.ToShortDateString))

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

#End Region



End Class