SIG/Inventarios/RepFletes.aspx.vb

Option Explicit On
Option Strict On

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

Partial Class Compras_RepFletes
    Inherits ClsPaginas

#Region "PROPIEDADES"
    Private Property DtFletes As DataTable
        Get
            Return CType(ViewState("DtFletes"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtFletes") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            InicializaValores()
        End If
    End Sub

    Private Sub InicializaValores()
        DdlProveedores.setEsWebService(True)
        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
        DdlProveedores.SelectedText = "Seleccione"
        DdlProveedores.SelectedValue = "-1"
        DdlProveedores.ddl.AutoPostBack = True

        TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
        TxtFechaF.Text = Date.Now.ToShortDateString

        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        'DdlProveedor.DataBind()
        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub

#Region "  CARGA DAATOS  "
    Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub
    Private Sub CargaDatos()
        Dim ObjInv As New ClsInventarios
        If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
                               TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
            DtFletes = ObjInv.DtResultados
        End If
        ObjInv.Dispose()
        CargaGrid()
    End Sub
    Private Sub CargaGrid()
        GvDatos.DataSource = DtFletes
        GvDatos.DataBind()
        UpDatos.Update()
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then

            Dim Folio As String = e.Row.DBCampo("Folio").ToString
            Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
            Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
            Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
            e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
            e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
            e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
            If Folio = "Total" Then
                e.Row.FCHyperLink("HlkFolio").Font.Underline = False
                e.Row.CssClass = "Totales"
            End If

        End If
    End Sub

    Private Sub Imprimir(formato As String)
        Dim Filtros As New StringBuilder("")
        Filtros.AppendFormat(If(TxtFolio.Text.Length > 0, String.Format("<b>Folio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFolio.Text), ""))
        Filtros.AppendFormat(If(DdlProveedores.SelectedValue.ToEntero() > 0, String.Format("<b>Proveedor: </b>{0}&nbsp;&nbsp;&nbsp;", DdlProveedores.SelectedText), ""))
        Filtros.AppendFormat(If(TxtFechaI.Text.Length > 0, String.Format("<b>Fecha Inicio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaI.Text), ""))
        Filtros.AppendFormat(If(TxtFechaF.Text.Length > 0, String.Format("<b>Fecha Final: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaF.Text), ""))
        Filtros.AppendFormat(If(DdlTipoGasto.SelectedValue.ToEntero > 0, String.Format("<b>Opción: </b>{0}&nbsp;&nbsp;&nbsp;", DdlTipoGasto.SelectedItem.Text), ""))
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("Filtros", Filtros.ToString))
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToString))

        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)
        If Imagen.Exists Then
            params.Add(New ReportParameter("LogoPath", logouri))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
        Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
        If Not ArchivoRuta.Exists Then
            ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato)
        Else
            ImprimirPDF("Empresas/Grales/Formatos/RepFletes.rdlc", DtFletes, params, "Reporte de fletes", formato)
        End If
    End Sub

    Protected Sub LkbPDF_Click(sender As Object, e As EventArgs)
        Imprimir("PDF")
    End Sub

    Protected Sub LkbExcel_Click(sender As Object, e As EventArgs)
        Imprimir("Excel")
    End Sub
#End Region

End Class