SIG/OC/RepRequisiciones.aspx.vb

Option Explicit On
Option Strict On

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

Partial Class OC_RepRequisiciones
    Inherits ClsPaginas
    Private Property DtUsuarioProyectos As DataTable
        Get
            Return DirectCast(ViewState("DtUsuarioProyectos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtUsuarioProyectos") = value
        End Set
    End Property
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ViewState("Orden") = ""
            CargaCombos()
            CargaDatos()

        End If
    End Sub

    Private Sub CargaCombos()
        'CargaProyectos

        Dim objEstatusUsuarios As New ClsOC
        If objEstatusUsuarios.GetEstatusUsuarios(UsuarioActual.CveUsuario, -1, -1, -1, UsuarioActual.CveEmpresa) Then
            DtUsuarioProyectos = objEstatusUsuarios.DtResultados
        End If
        objEstatusUsuarios.Dispose()
        txtFechaI.Text = Now.AddMonths(-1).FirstDayOfMonth.ToShortDateString

        DdlProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) ' GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
        DdlProyecto.DataBind()

        'CargaSubProyectos
        DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})  'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()

        'CargaEstatus de Requisiciones
        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros("Tipo = 'REQ' OR CveEstatus = 0 ")
        DdlEstatus.DataBind()

        'Select Case UsuarioActual.CveRol
        '    Case 1017
        '        DdlEstatus.SelectedValue = "7"
        '    Case 1018
        '        DdlEstatus.SelectedValue = "2"
        'End Select
        OrdenaDatos()
    End Sub

    Public Sub CargaDatos()

        Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
        Dim FF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate)

        Dim ObjOrdenesCompra As New ClsOC()
        If ObjOrdenesCompra.GetOrdenesCompraRep("REQ", DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then
            Me.GVDatos.DataSource = ObjOrdenesCompra.DtResultados.FiltraParametros("", "Folio DESC")
        Else
            Me.GVDatos.DataSource = Nothing
        End If
        ObjOrdenesCompra.Dispose()

        Me.GVDatos.DataBind()
        UpDatos.Update()
        OrdenaDatos()

    End Sub

    Public Sub CargaSubProyecto(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
        DdlSubProyecto.Items.Clear()
        If DdlProyecto.SelectedValue.ToEntero = -1 Then
            DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})  'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
            DdlSubProyecto.DataBind()
            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
        Else
            DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero), "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, Estatus:=1)
            DdlSubProyecto.DataBind()
        End If

    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            'If e.Row.RowIndex = 0 Then
            '    e.Row.Cells(0).Width = Unit.Pixel(50)
            '    e.Row.Cells(1).Width = Unit.Pixel(200)
            '    e.Row.Cells(2).Width = Unit.Pixel(120)
            '    'e.Row.Cells(3).Width = Unit.Pixel(100)
            '    e.Row.Cells(4).Width = Unit.Pixel(100)
            '    e.Row.Cells(5).Width = Unit.Pixel(100)
            '    'e.Row.Cells(6).Width = Unit.Pixel(100)
            'End If

            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left

            'e.Row.FCLiteral("LtlFolio").Text = $"<a class=""Texto"" href=""/OC/OC.aspx?OC={0:e.Row.DBCampo("CveOrdenCompra")}""">{1:e.Row.FCLiteral("LtlFolio").Text}</a>"
            'e.Row.FCLiteral("LtlProyecto").Text = "<a class=""Texto"" href=""/OC/OC.aspx?OC=" & e.Row.DBCampo("CveOrdenCompra") & """>" & e.Row.FCLiteral("LtlProyecto").Text & "</a>"
            'e.Row.FCLiteral("LtlSubProyecto").Text = "<a class=""Texto"" href=""/OC/OC.aspx?OC=" & e.Row.DBCampo("CveOrdenCompra") & """>" & e.Row.FCLiteral("LtlSubProyecto").Text & "</a>"
            'e.Row.FCLiteral("LtlDescripcion").Text = "<a class=""Texto"" href=""/OC/OC.aspx?OC=" & e.Row.DBCampo("CveOrdenCompra") & """>" & e.Row.FCLiteral("LtlDescripcion").Text & "</a>"
            'e.Row.FCLiteral("LtlFechaEstimadaEntrega").Text = "<a class=""Texto"" href=""/OC/OC.aspx?OC=" & e.Row.DBCampo("CveOrdenCompra") & """>" & e.Row.FCLiteral("LtlFechaEstimadaEntrega").Text & "</a>"
            'e.Row.FCLiteral("LtlUsuario").Text = "<a class=""Texto"" href=""/OC/OC.aspx?OC=" & e.Row.DBCampo("CveOrdenCompra") & """>" & e.Row.FCLiteral("LtlUsuario").Text & "</a>"
            'e.Row.FCLiteral("LtlEstatus").Text = "<a class=""Texto"" href=""/OC/OC.aspx?OC=" & e.Row.DBCampo("CveOrdenCompra") & """>" & e.Row.FCLiteral("LtlEstatus").Text & "</a>"
            e.Row.FCLiteral("HplFolio").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))

            Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
                Case "0" 'Supervisada
                    e.Row.Cells(4).CssClass = "label label-sm label-warning" 'Amarillo
                Case "1" 'Autorizada
                    e.Row.Cells(4).CssClass = "label label-sm label-success" 'Verde
                Case "2" 'Rechazada
                    e.Row.Cells(4).CssClass = "label label-sm label-danger" 'Rojo
                Case "3" 'Solicitada
                    e.Row.Cells(4).CssClass = "label label-sm label-default" 'Gris 
            End Select
            e.Row.Cells(5).Attributes.Add("data-order", e.Row.DBCampo("FechaEstimadaEntrega").ToDate.Ticks.ToString)

        End If
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub
    Private Sub OrdenaDatos()
        If (GVDatos.Rows.Count > 0) Then
            GVDatos.UseAccessibleHeader = True
            GVDatos.HeaderRow.TableSection = TableRowSection.TableHeader
            RegistraScript("OrdenarGV();")
        End If
    End Sub




    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
        GVDatos.Columns(7).Visible = ChkCliente.Checked
        GVDatos.Columns(8).Visible = ChkProveedor.Checked
        UpDatos.Update()
        OrdenaDatos()
    End Sub

    'Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
    '    GVDatos.ExportToExcel("ReporteRequisiciones" & Now.ToShortDateString)
    'End Sub


#Region "I M P R I M I R  <i class='fa fa-print'></i>"
    Private Sub GenerarPDF()
        Dim ObjOrdenesCompra As New ClsOC()
        Dim FI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.Trim.ToDate)
        Dim FF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.Trim.ToDate)
        If ObjOrdenesCompra.GetOrdenesCompraRep("REQ", DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) Then
            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 dt As DataTable = ObjOrdenesCompra.DtResultados
            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("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Proyecto", DdlProyecto.SelectedItem.Text))
            params.Add(New ReportParameter("SubProyecto", DdlSubProyecto.SelectedItem.Text))
            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/RepRequisiciones.rdlc", dt, params, "ReporteRequisiciones")
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If

    End Sub
    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
        GenerarPDF()
    End Sub
#End Region


End Class