SIG/OC/RepOC.aspx.vb

Option Strict On
Option Explicit On

Imports Extensiones
Imports System.Data
Imports Microsoft.Reporting.WebForms
Partial Class RepOC
    Inherits ClsPaginas
#Region "PROPIEDADES"
    Private Property DtOC As DataTable
        Get
            Return DirectCast(ViewState("DtOC"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtOC") = value
        End Set
    End Property
    Private Property DtPorAtender As DataTable
        Get
            Return DirectCast(ViewState("DtPorAtender"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPorAtender") = value
        End Set
    End Property
    Private Property DtPendiente As DataTable
        Get
            Return DirectCast(ViewState("DtPendiente"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtPendiente") = value
        End Set
    End Property
#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            txtFechaI.Text = Now.AddMonths(-3).ToShortDateString
            txtFechaF.Text = Now.ToShortDateString

            DdlTipo.SelectedValue = IfNull(Request("Tipo"), "-1").ToString

            If UsuarioActual.Empresa.CvePlataforma = 2 Then DivAF.Visible = False

            If DdlTipo.SelectedValue <> "-1" Then DdlTipo_SelectedIndexChanged(sender, e)

            If Not UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
                GvPorAtender.Columns(0).Visible = False
                GvPendientes.Columns(0).Visible = False
                GvConsultar.Columns(0).Visible = False
            End If

            If UsuarioActual.Empresa.GrupoEmpresa = 0 Then
                GvPorAtender.Columns(1).Visible = False
                GvPendientes.Columns(1).Visible = False
                GvConsultar.Columns(1).Visible = False
            End If

            'If UsuarioActual.TienePermisoProceso(227) Then
            '    DivTotalOC.Visible = True
            'End If

            CargaProyectos()
            'CargaSubProyectos()
            CargaUsuarios()
            CargaProveedores()
            CargaEstatus()
            CargaActivoFijo()
            CargaClasificacion()
            CargaPS(-1)

            If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
                CargaClientes()
            Else
                ddlcliente.Items.Insert(0, New ListItem("Todos", "-1"))
            End If

            CargaPendientes()

            txtFechaISemanal.Text = Now.FirstDayOfMonth.ToShortDateString
            txtFechaFSemanal.Text = Now.ToShortDateString




        End If
    End Sub


#Region "  CARGA COMBOS  "
    Protected Sub CargaProyectos()
        'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
        'DdlProyectos.DataBind()
        'DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
        CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LblSubProyecto)
        GvPorAtender.Columns(5).HeaderText = LblSubProyecto.Text
        GvPendientes.Columns(5).HeaderText = LblSubProyecto.Text
        GvConsultar.Columns(5).HeaderText = LblSubProyecto.Text
        DivProyectos.Visible = DdlProyectos.Visible
    End Sub

    Protected Sub CargaSubProyectos()
        DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyectos.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1))
        DdlSubProyectos.DataBind()
        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Protected Sub CargaUsuarios()
        ddlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
        ddlUsuario.DataBind()
        ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlUsuarioAsignado.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre")
        DdlUsuarioAsignado.DataBind()
        DdlUsuarioAsignado.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlUsuarioAutorizo.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
        DdlUsuarioAutorizo.DataBind()
        DdlUsuarioAutorizo.Items.Insert(0, New ListItem("Todos", "-1"))

    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()
        clintesdiv1.Visible = True
        clintesdiv2.Visible = True
        ddlcliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
        ddlcliente.DataBind()
        ddlcliente.Items.Insert(0, New ListItem("Todos", "-1"))

        GvPorAtender.Columns(12).Visible = False
        GvPendientes.Columns(12).Visible = False
        GvConsultar.Columns(12).Visible = False

    End Sub
    Protected Sub CargaEstatus()
        DdlEstatus.DataSource = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (Tipo = '{0}' OR '{0}' = '-1')", DdlTipo.SelectedValue.ToString))
        DdlEstatus.DataBind()
        If DdlTipo.SelectedValue = "-1" Or DdlTipo.SelectedValue = "REQ" Then DdlEstatus.Items.Insert(0, New ListItem("Pre Requisicion", "0"))
        DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
    Protected Sub CargaActivoFijo()
        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
        DdlActivoFijo.DataBind()
        DdlActivoFijo.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlClasificacion.SelectedIndexChanged
        CargaPS(DDlClasificacion.SelectedValue.ToEntero)
    End Sub
    Private Sub CargaClasificacion()
        If UsuarioActual.Empresa.UsaAC Then
            DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
        Else
            DDlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
        End If
        DDlClasificacion.DataBind()

        DDlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        DDlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
    End Sub
    Private Sub CargaPS(CveClasificacion As Integer)

        DDlPS.setEsWebService(If(UsuarioActual.Empresa.Funcionalidad(105).ToString = "1", True, False))

        If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then
            DDlPS.ddl.Items.Clear()
            DDlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1)
            DDlPS.ddl.DataBind()
            DDlPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
            DDlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
        Else
            DDlPS.ddlWS.Attributes.Add("data-cveclasificacion", DDlClasificacion.SelectedValue)
            DDlPS.SelectedText = "Todos"
            DDlPS.SelectedValue = "-1"
        End If

    End Sub
    Protected Sub DdlProyectos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectos.SelectedIndexChanged
        CargaSubProyectos()
    End Sub
    Protected Sub DdlTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipo.SelectedIndexChanged
        CargaEstatus()
    End Sub
#End Region


#Region "  PENDIENTES - POR ATENDER  "
    Protected Sub btnConsultarPendientes_Click(sender As Object, e As EventArgs) Handles btnConsultarPendientes.Click
        LbPorAtender.Visible = True
        LbPendientes.Visible = True
        LbPendientesPDF.Visible = True
        LbConsultar.Visible = False

        Tab.Visible = True
        UPPTab.Update()
        GvConsultar.Visible = False
        UpConsultar.Update()

        CargaPendientes()
    End Sub
    Private Sub CargaPendientes()

        Dim OC As New ClsOC
        If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 0, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then

            DtPorAtender = OC.DtResultados
            GvPorAtender.DataSource = DtPorAtender 'OC.DtResultados
            GvPorAtender.DataBind()

            'If (GvPorAtender.Rows.Count > 0) Then
            '    GvPorAtender.UseAccessibleHeader = True
            '    GvPorAtender.HeaderRow.TableSection = TableRowSection.TableHeader
            '    RegistraScript("AddScrollGvPorAtender();")
            'End If

        End If

        If OC.GetOrdenesPendientes(DdlTipo.SelectedValue.ToString, 1, UsuarioActual.CveEmpresa, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero,
                                   DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveUsuario, ddlcliente.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                                   CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
            GvPendientes.DataSource = OC.DtResultados
            DtPendiente = OC.DtResultados
            GvPendientes.DataBind()
            'If (GvPendientes.Rows.Count > 0) Then
            '    GvPendientes.UseAccessibleHeader = True
            '    GvPendientes.HeaderRow.TableSection = TableRowSection.TableHeader
            '    RegistraScript("AddScrollGvPendientes();")
            'End If
        End If
        OC.Dispose()
    End Sub
    Protected Sub GVPendientes_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPendientes.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            '<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
            e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
            e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
            e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)

            Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
                Case "0" 'Supervisada
                    e.Row.Cells(7).CssClass = "label label-sm label-warning" 'Amarillo
                Case "1" 'Autorizada
                    e.Row.Cells(7).CssClass = "label label-sm label-success" 'Verde
                Case "2" 'Rechazada
                    e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
                Case "3" 'Solicitada
                    e.Row.Cells(7).CssClass = "label label-sm label-default" 'Gris
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
            Else
                e.Row.FCLiteral("LtlLigaReq").Text = ""
            End If

            If UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
                If e.Row.DataKey("CveEvento").ToString.ToEntero > 0 Then
                    e.Row.Cells(0).Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
                    e.Row.Cells(0).ForeColor = Drawing.Color.DarkOrange
                    Dim ToolTip = "<b>Fecha:</b>" & e.Row.DataKey("FechaIng") & " <b>Usuario:</b>" & e.Row.DataKey("UEUsuario") & " <br/> <b>Descripcion:</b>" & e.Row.DataKey("Descripcion")
                    e.Row.Attributes.Add("title", ToolTip)
                    e.Row.Attributes.Add("data-toggle", "tooltip")
                    e.Row.Attributes.Add("data-html", "true")
                Else
                    e.Row.Cells(0).Text = ""
                End If
            End If



        End If
    End Sub
    Protected Sub GvPorAtender_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPorAtender.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            '<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
            e.Row.FCLiteral("LtlLiga").Text = String.Format(" <a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
            e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
            e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)

            Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
                Case "0" 'Supervisada
                    e.Row.Cells(7).CssClass = "label label-sm label-warning" 'Amarillo
                Case "1" 'Autorizada
                    e.Row.Cells(7).CssClass = "label label-sm label-success" 'Verde
                Case "2" 'Rechazada
                    e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
                Case "3" 'Solicitada
                    e.Row.Cells(7).CssClass = "label label-sm label-default" 'Gris
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
            Else
                e.Row.FCLiteral("LtlLigaReq").Text = ""
            End If

            If UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
                If e.Row.DataKey("CveEvento").ToString.ToEntero > 0 Then
                    e.Row.Cells(0).Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
                    e.Row.Cells(0).ForeColor = Drawing.Color.DarkOrange
                    Dim ToolTip = "<b>Fecha:</b>" & e.Row.DataKey("FechaIng") & " <b>Usuario:</b>" & e.Row.DataKey("UEUsuario") & " <br/> <b>Descripcion:</b>" & e.Row.DataKey("Descripcion")
                    e.Row.Attributes.Add("title", ToolTip)
                    e.Row.Attributes.Add("data-toggle", "tooltip")
                    e.Row.Attributes.Add("data-html", "true")
                Else
                    e.Row.Cells(0).Text = ""
                End If
            End If

        End If
    End Sub
#End Region


#Region "  CONSULTAR  "
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
        LbPorAtender.Visible = False
        LbPendientes.Visible = False
        LbPendientesPDF.Visible = False
        LbConsultar.Visible = True
        DivConsultar.Visible = True
        DivPendiete.Visible = False
        DivPorAtender.Visible = False

        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)

        FF = FF.AddDays(1)

        Dim OC As New ClsOC
        If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
                        If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
                        ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                        CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then

            GvConsultar.DataSource = OC.DtResultados
            DtOC = OC.DtResultados
            DtPorAtender = OC.DtResultados
            LblTotal.Text = OC.DtResultados.SUM("Total").FormatoNumero

            If UsuarioActual.TienePermisoProceso(227) Then
                DivTotalOC.Visible = True
            End If

        End If
        OC.Dispose()
        GvConsultar.DataBind()

        If (GvConsultar.Rows.Count > 0) Then
            GvConsultar.UseAccessibleHeader = True
            GvConsultar.HeaderRow.TableSection = TableRowSection.TableHeader
            'RegistraScript("AddScrollGvConsultar();")
        End If

        Tab.Visible = False
        UPPTab.Update()
        GvConsultar.Visible = True
        UpConsultar.Update()
        UpBusqueda.Update()
    End Sub
    Protected Sub GvConsultar_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvConsultar.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            '<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra"  ControlStyle-CssClass="Texto" DataNavigateUrlFormatString="/OC/OC.aspx?OC={0}" DataTextField="Folio" HeaderText="#">
            e.Row.FCLiteral("LtlLiga").Text = String.Format("<a Class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveOrdenCompra"), e.Row.DBCampo("Folio"))
            e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("Fecha").ToDate.Ticks.ToString)
            e.Row.Cells(15).Attributes.Add("data-order", e.Row.DBCampo("Total").ToDecimal.ToString)

            Select Case e.Row.DBCampo("TipoTermino") 'e.Row.DBCampo("Estatus")
                Case "0" 'Supervisada
                    e.Row.Cells(7).CssClass = "label label-sm label-warning" 'Amarillo
                Case "1" 'Autorizada
                    e.Row.Cells(7).CssClass = "label label-sm label-success" 'Verde
                Case "2" 'Rechazada
                    e.Row.Cells(7).CssClass = "label label-sm label-danger" 'Rojo
                Case "3" 'Solicitada
                    e.Row.Cells(7).CssClass = "label label-sm label-Default" 'Gris
            End Select

            If e.Row.DBCampo("Tipo") = "OC" Then
                e.Row.FCLiteral("LtlLigaReq").Text = String.Format("<a class=""Texto"" href=""/OC/OC.aspx?OC={0}"">{1}</a>", e.Row.DBCampo("CveREQ"), e.Row.DBCampo("FolioREQ"))
            Else
                e.Row.FCLiteral("LtlLigaReq").Text = ""
            End If

            If UsuarioActual.Empresa.Funcionalidad(519) = "1" Then
                If e.Row.DataKey("CveEvento").ToString.ToEntero > 0 Then
                    e.Row.Cells(0).Text = "<i class='fa fa-exclamation-triangle' aria-hidden='true'></i>"
                    e.Row.Cells(0).ForeColor = Drawing.Color.DarkOrange
                    Dim ToolTip = "<b>Fecha:</b>" & e.Row.DataKey("FechaIng") & " <b>Usuario:</b>" & e.Row.DataKey("UEUsuario") & " <br/> <b>Descripcion:</b>" & e.Row.DataKey("Descripcion")
                    e.Row.Attributes.Add("title", ToolTip)
                    e.Row.Attributes.Add("data-toggle", "tooltip")
                    e.Row.Attributes.Add("data-html", "true")
                Else
                    e.Row.Cells(0).Text = ""
                End If
            End If

        End If
    End Sub
#End Region


#Region "  OCS POR SEMANA  "
    Protected Sub BtnConsultarSemanal_Click(sender As Object, e As EventArgs)
        CargaRepSemana()
    End Sub

    Private Sub CargaRepSemana()
        Dim DtTemp As DataTable = Nothing

        Dim ObjOC As New ClsOC
        If ObjOC.RepOCCount(txtFechaISemanal.Text.ToDate, txtFechaFSemanal.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            DtTemp = ObjOC.DtResultados
        Else
            Alert("Ocurrió un error al obtener el reporte semanal. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If
        ObjOC.Dispose()

        If DtTemp IsNot Nothing Then
            GVSemanal.DataSource = DtTemp
            GVSemanal.DataBind()
        End If

        UPDatosSemanal.Update()
    End Sub


#End Region


#Region "   IMPRESION  "
    Protected Sub LbPorAtender_Click(sender As Object, e As System.EventArgs) Handles LbPorAtender.Click
        'GvPorAtender.ExportToExcel("OrdenesCompraPorAtender" & Now.ToShortDateString)
        ImprimePorAtender("Excel")
    End Sub
    Protected Sub LbPorAtenderPDF_Click(sender As Object, e As System.EventArgs) Handles LbPorAtenderPDF.Click
        ImprimePorAtender("PDF")
    End Sub
    Private Sub ImprimePorAtender(Optional Formato As String = "PDF")
        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepOCPorAtender.rdlc", UsuarioActual.Empresa.Ruta))
        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 Folio As String = If(txtFolio.Text = "", "", $"&emsp;<b>Folio:</b>&nbsp;{txtFolio.Text}")
        Dim Tipo = If(DdlTipo.SelectedValue = "-1", "", $"&emsp;<b>Tipo:</b>&nbsp;{DdlTipo.SelectedItem.Text}")
        Dim Proyecto = If(DdlProyectos.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b>&nbsp;{DdlProyectos.SelectedItem.Text}")
        Dim SubProyecto = If(DdlSubProyectos.SelectedValue = "-1", "", $"&emsp;<b>SubProyecto:</b>&nbsp;{DdlSubProyectos.SelectedItem.Text}")
        Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b>&nbsp;{DdlEstatus.SelectedItem.Text}")
        Dim AF = If(DdlActivoFijo.SelectedValue = "-1", "", $"&emsp;<b>Activo Fijo:</b>&nbsp;{DdlActivoFijo.SelectedItem.Text}")
        Dim Usuario = If(ddlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Usuario:</b>&nbsp;{ddlUsuario.SelectedItem.Text}")
        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 Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DDlClasificacion.SelectedItem.Text}")
        Dim Producto = If(DDlPS.SelectedValue = "-1", "", $"&emsp;<b>Producto/Servicio:</b>&nbsp;{DDlPS.SelectedText}")
        Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $"&emsp;, <b>No completa</b>&nbsp;")
        Dim Proveedor = If(ddlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{ddlProveedor.SelectedItem.Text}")
        Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{ddlcliente.SelectedItem.Text}")

        If DtPorAtender IsNot Nothing AndAlso DtPorAtender.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", $"{Folio}{Tipo}{Proyecto}{SubProyecto}{Estatus}{AF}{Usuario}{FI}{FF}{Clasificacion}{Producto}{Completa}{Proveedor}{Cliente}"))
            params.Add(New ReportParameter("SubProyectoHeader", LblSubProyecto.Text))
            params.Add(New ReportParameter("Titulo", "REPORTE DE ORDENES DE COMPRA POR ATENDER"))

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

            If Archivo.Exists Then
                ImprimirPDF($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
                'ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepOCPorAtender.rpt", DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
            Else
                ImprimirPDF("Empresas/Grales/Formatos/RepOCPorAtender.rdlc", DtPorAtender, params, "RepOCPorAtender", Formato)
                'ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepOCPorAtender.rpt"), DtPorAtender, params, "RepOCPorAtender", Formato), "RepOCPorAtender", Formato)
            End If

        Else
            Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
        End If

    End Sub
    Protected Sub LbPendientes_Click(sender As Object, e As System.EventArgs) Handles LbPendientes.Click
        'GvPendientes.ExportToExcel("OrdenesCompraPendientes" & Now.ToShortDateString)
        ImprimirPendientes("EXCEL")
    End Sub
    Protected Sub LbPendientesPDF_Click(sender As Object, e As System.EventArgs) Handles LbPendientesPDF.Click
        ImprimirPendientes("PDF")
    End Sub

    Private Sub ImprimirPendientes(format As String)
        If UsuarioActual.CveEmpresa.Contiene(72) Then
            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
            params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
            params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))

            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtPendiente, params, Formato:=format)
        Else
            GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
        End If
    End Sub
    Protected Sub LbConsultar_Click(sender As Object, e As System.EventArgs) Handles LbConsultar.Click
        If UsuarioActual.CveEmpresa.Contiene(72) Then
            Dim params As New List(Of ReportParameter)
            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("FechaInicio", If(txtFechaI.Text = "", "-1", txtFechaI.Text)))
            params.Add(New ReportParameter("FechaFin", If(txtFechaF.Text = "", "-1", txtFechaF.Text)))
            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))
            params.Add(New ReportParameter("SubProyecto", LblSubProyecto.Text))

            ImprimirPDF(String.Format(UsuarioActual.Empresa.Ruta & "/Formatos/RepRequisicionesOC.rdlc", UsuarioActual.Empresa.Ruta), DtOC, params, Formato:="EXCEL")
        Else
            GvConsultar.ExportToExcel("OrdenesCompra" & Now.ToShortDateString)
        End If
    End Sub
    Private Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs) Handles Tab.ActiveTabChanged
        If Tab.ActiveTabIndex = 0 Then
            DivPorAtender.Visible = True
            DivPendiete.Visible = False
            DivConsultar.Visible = False
        Else
            DivPendiete.Visible = True
            DivPorAtender.Visible = False
            DivConsultar.Visible = False
        End If

        UpBusqueda.Update()
    End Sub
#End Region



End Class