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()
            CargaMonedas()
            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).FiltraParametros("", "Nombre", {"CveUsuario", "Nombre"})
        ddlUsuario.DataBind()
        ddlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))

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

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

    End Sub
    Protected Sub CargaMonedas()
        DdlMoneda.DataSource = GlobalDTMonedas
        DdlMoneda.DataBind()
        DdlMoneda.Items.Insert(0, New ListItem("Todas", "-1"))
    End Sub
    Protected Sub CargaProveedores()
        If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
            DdlProveedores.setEsWebService(True)
            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
            DdlProveedores.SelectedText = "Todos"
            DdlProveedores.SelectedValue = "-1"
        Else
            DdlProveedores.setEsWebService(False)
            DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
            DdlProveedores.ddl.DataBind()
            DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If
    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()

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
                GvPorAtender.Columns(10).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
                GvPorAtender.Columns(12).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
                GvPorAtender.Columns(13).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
                GvPorAtender.Columns(15).Visible = False
            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()

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
                GvPendientes.Columns(10).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
                GvPendientes.Columns(12).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
                GvPendientes.Columns(13).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
                GvPendientes.Columns(15).Visible = False
            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, DdlProveedores.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(), CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then

            GvConsultar.DataSource = OC.DtResultados
            DtOC = OC.DtResultados
            DtPorAtender = OC.DtResultados

            If UsuarioActual.TienePermisoProceso(227) Then
                DivIndicadores.Visible = True
                DivIndicadores.InnerHtml = String.Empty
                Dim Cantidad As Integer = DtOC.COUNT("CveOrdenCompra")
                Dim TotalPesos As Double = DtOC.SUM("Total", "CveMoneda = 1")
                Dim TotalDolares As Double = DtOC.SUM("Total", "CveMoneda = 2")
                Dim Total As Double = TotalPesos + (TotalDolares * GlobalTipoCambio)

                MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
                UPPIndicador.Update()
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"UsuarioAsignado"}).FiltroPrimeroValor("UsuarioAsignado") = "" Then
                GvConsultar.Columns(10).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"Cliente"}).FiltroPrimeroValor("Cliente") = "" Then
                GvConsultar.Columns(12).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"CodigoAF"}).FiltroPrimeroValor("CodigoAF") = "" Then
                GvConsultar.Columns(13).Visible = False
            End If

            'SI NO TIENE DATOS, NO MOSTRAR LA COLUMNA
            If OC.DtResultados.FiltraParametros("", DistinctColumns:={"EntregaDirectaFormat"}).FiltroPrimeroValor("EntregaDirectaFormat") = "" Then
                GvConsultar.Columns(15).Visible = False
            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($"{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 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(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.txtText.Value    }")
        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"))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            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

#Region "Indicadores"
    Private Sub MuestraIndicador(DIV As HtmlGenericControl, Color As String, Icono As String, Titulo As String, C1 As String, CT1 As String, C2 As String, CT2 As String, C3 As String, CT3 As String, C4 As String, CT4 As String)
        Dim htmldiv As New StringBuilder
        htmldiv.AppendFormat("{0}<div class='dashboard-stat {1}'><div class='visual'><i class='{2}' '=''></i></div>", DIV.InnerHtml, Color, Icono)
        htmldiv.AppendFormat("<div class='details'><div class='number'>{0}</div><div class='desc'><label class='indicadortipo4 col-md-6 tooltips'  data-original-title='{1}'>{2}</label>", Titulo, CT1, C1)
        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT2, C2)
        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT3, C3)
        htmldiv.AppendFormat("<label class='indicadortipo4 col-md-6 tooltips' data-original-title='{0}'>{1}</label>", CT4, C4)
        htmldiv.AppendFormat("</div></div></div>")
        DIV.InnerHtml = htmldiv.ToString
    End Sub
#End Region

End Class