SIG/Ventas/RepPUESinPago.aspx.vb

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

Partial Class Ventas_RepPUESinPago
    Inherits ClsPaginas

    Private Property DtDatos As DataTable
        Get
            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
        End Get

        Set(ByVal value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property

    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            InicializaValores()
        End If

    End Sub

    Private Sub InicializaValores()
        TxtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString
        TxtFechaF.Text = Now.LastDayOfMonth.ToShortDateString

        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))

        CargaClientes()

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

    Private Sub CargaClientes()
        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        If EsWS Then
            DdlCliente.setEsWebService(True)
        Else
            DdlCliente.setEsWebService(False)
            DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
            DdlCliente.DataBind()
            DdlCliente.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If
    End Sub

    Private Sub CargadatosGvPUES()

        Dim objVentas As New ClsVentas
        Dim CveCliente As Integer = -1
        If DdlCliente.SelectedValue.ToEntero > 0 Then CveCliente = DdlCliente.SelectedValue.ToEntero

        If objVentas.GetPUESinPago(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
            GvPUES.DataSource = objVentas.DtResultados
            DtDatos = objVentas.DtResultados
        Else
            GvPUES.DataSource = Nothing
        End If

        objVentas.Dispose()

        UPGvPUES.DataBind()
        UpGral.Update()

    End Sub

    Protected Sub btConsultar_Click(sender As Object, e As EventArgs)
        CargadatosGvPUES()
    End Sub

#Region "IMPRESION"
    Protected Sub LnkPDF_Click(sender As Object, e As EventArgs)
        GeneraImpresion()
    End Sub
    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs)
        GeneraImpresion("Excel")
    End Sub

    Private Sub GeneraImpresion(Optional Formato As String = "PDF")

        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 FI As String = If(TxtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaI.Text}")
        Dim FF As String = If(TxtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaF.Text}")
        Dim cliente As String = If(DdlCliente.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{DdlCliente.SelectedText}")
        Dim subProy As String = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>SubProyecto:</b>&nbsp;{DdlSubProyecto.SelectedItem.Text}")
        Dim vendedor As String = If(DdlVendedor.SelectedValue = "-1", "", $"&emsp;<b>Vendedor:</b>&nbsp;{DdlVendedor.SelectedItem.Text}")

        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then

            Dim params As New List(Of ReportParameter)

            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("AgrupadoPor", $"{FI}{FF}{cliente}{subProy}{vendedor}"))

            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If

            ImprimirPDF("Empresas/Grales/Formatos/RepPUESinPago.rdlc", DtDatos, params, "RepPUESinPago", Formato)
        Else
            Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
        End If

    End Sub
#End Region
End Class