SIG/Compras/RepComprasPrecios.aspx.vb

Option Explicit On
Option Strict On

Imports System.Data
Imports Microsoft.Reporting.WebForms
Imports Extensiones
Partial Class RepComprasPrecios
    Inherits ClsPaginas
    Private Shared missing As Object = System.Reflection.Missing.Value

#Region "PROPIEDADES"
    Private Property DtCompras As DataTable
        Get
            Return DirectCast(ViewState("DtCompras"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtCompras") = 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
            CargaProveedor()
            'CargaDatos()
        End If
    End Sub

#Region " C A R G A - D A T O S "
    Public Sub CargaDatos()
        Dim ObjCompras As New ClsCompras

        If ObjCompras.GetRepComprasPrecios(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjCompras.DtResultados
            DtCompras = ObjCompras.DtResultados
            GvDatos.DataBind()
            UPDatos.Update()
        End If

        ObjCompras.Dispose()
    End Sub
#End Region

#Region "G V - D A T O S "
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            GvDatos.HeaderRow.Cells(0).Visible = False
            e.Row.Cells(0).Visible = False

            e.Row.HorizontalAlign = HorizontalAlign.Right
            e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left

            If e.Row.DBCampo("CvePS") = "" Then
                e.Row.CssClass = "Totales"
            End If

            For Each Cells As TableCell In e.Row.Cells
                Dim Celda As String = Cells.Text
                If IsNumeric(Celda) Then
                    'If Celda.ToDouble = 0 Then
                    '    Cells.Text = ""
                    'Else
                    Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)

                    If Not ce.ContainingField.HeaderText = "PS" Then
                        Cells.Text = Cells.Text.FormatoNumero(2)
                    End If
                    'End If
                End If
            Next

            'Cuando es titulo
            'If e.Row.DBCampo("PS").ToString.Trim = "" Then
            '    e.Row.CssClass = "Totales"

            '    e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
            '    e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
            '    e.Row.Cells(3).Text = String.Format("Almacen Destino: {0} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
            'End If

        End If
    End Sub
#End Region

#Region "CARGA COMBOS FILTRO"
    Private Sub CargaProveedor()
        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedor.DataBind()
        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlProveedor.SelectedValue = "-1"
    End Sub
#End Region

#Region "IMPRESION"
    'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
    '    Imprime("PDF")
    'End Sub
    Private Sub Imprime(Formato As String)
        If DtCompras IsNot Nothing Then
            Dim StrFiltro As New StringBuilder
            If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)
            GvDatos.ExportToExcelG("RepComprasPrecios.xlsx", "Reporte de Precios de Compras", UsuarioActual, StrFiltro.ToString, 100, 200)

            'Dim StrFiltro As New StringBuilder

            'If DdlProveedor.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Proveedor:</b> {0}", DdlProveedor.SelectedItem.Text)

            '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 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("Filtros", StrFiltro.ToString))
            'If Imagen.Exists Then
            '    params.Add(New ReportParameter("LogoPath", logouri))
            'Else
            '    params.Add(New ReportParameter("LogoPath", ""))
            'End If
            'ImprimirPDF("Empresas/Grales/Formatos/RepComprasPrecios.rdlc", DtCompras, params, String.Format("RepComprasPrecios-{0}", Now.ToDateTime.ToShortDateString), Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If
    End Sub
#End Region
    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
        Imprime("Excel")
    End Sub
End Class