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

Partial Class General_RepIndicadorResumen
    Inherits ClsPaginas
#Region "propiedades"
    Private Property Indicadores As DataTable
        Get

            If ViewState("Indicadores") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("Indicadores"), DataTable)
            End If

        End Get
        Set(value As DataTable)
            ViewState("Indicadores") = value
        End Set
    End Property

    Private Property DtColor As DataTable
        Get

            If ViewState("DtColor") Is Nothing Then
                Return New DataTable
            Else
                Return DirectCast(ViewState("DtColor"), DataTable)
            End If

        End Get
        Set(value As DataTable)
            ViewState("DtColor") = value
        End Set
    End Property

#End Region

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


    Private Sub CargaCombos()

        'Carga SubProyectos
        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, lblSubProyecto)

        TxtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
        TxtFechaF.Text = Now.ToString("dd/MM/yyyy")

        CreaDataTableColor()
    End Sub


    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
        CargaDatos()
    End Sub


    Private Sub CargaDatos()

        Dim ObjVentas As New ClsVentas
        Dim ObjCompras As New ClsCompras
        Dim ObjMovtos As New ClsMovimientos
        Dim ObjCitrus As New ClsCGame

        If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1,
                                              -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then
            ObjVentas.DtResultados.DefaultView.Sort = "CveMoneda,SubTotal DESC"
            GvVxP.DataSource = ObjVentas.DtResultados.DefaultView.ToTable
        End If

        'If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1,
        '                                      UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then
        '    GvCxP192.DataSource = ObjCompras.DtResultados.DefaultView.Sort = "CveMoneda,SubTotal DESC"
        'End If

        Dim FechaCorte As String = $"31/12/{Now.Year}"

        If ObjMovtos.GetCxC(TxtFechaI.Text, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, 1, -1,
                    "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
            ObjMovtos.DtResultados.DefaultView.Sort = "CveMoneda,Saldo DESC"
            GvCCxC.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
        End If

        If ObjMovtos.GetCxP(MinFecha, TxtFechaF.Text, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, 1,
                      FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
            ObjMovtos.DtResultados.DefaultView.Sort = "CveMoneda,Saldo DESC"
            GvCPxP.DataSource = ObjMovtos.DtResultados.DefaultView.ToTable
        End If

        If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text, UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero) Then
            'ObjCitrus.DTSetResultados.Tables(0).DefaultView.Sort = "CveMoneda,SubTotal DESC"
            GvCxP192.DataSource = ObjCitrus.DTSetResultados.Tables(0).DefaultView.ToTable
            'ObjCitrus.DTSetResultados.Tables(1).DefaultView.Sort = "CveMoneda,SubTotal DESC"
            GvComprasAcreed.DataSource = ObjCitrus.DTSetResultados.Tables(1).DefaultView.ToTable
            'GvCPxP.DataSource = ObjCitrus.DTSetResultados.Tables(1).DefaultView.ToTable
        End If

        ObjVentas.Dispose()
        ObjCompras.Dispose()
        ObjMovtos.Dispose()
        ObjCitrus.Dispose()

        GvVxP.DataBind()
        GvCxP192.DataBind()
        GvComprasAcreed.DataBind()
        GvCCxC.DataBind()
        'GvCCxC.HeaderRow.Cells(1).Text = "<a href=""/CxC/RepCxC.aspx"" target=""_blank"">Saldo</a>"
        GvCPxP.DataBind()


        'Mostrar gráficos solo si hay datos en su respectiva tabla
        If GvVxP.Rows.Count > 0 Then
            UPGraficaVxP.Visible = True
        Else
            UPGraficaVxP.Visible = False
        End If
        If GvComprasAcreed.Rows.Count > 0 Then
            UPGraficaComprasAcreed.Visible = True
        Else
            UPGraficaComprasAcreed.Visible = False
        End If
        If GvCxP192.Rows.Count > 0 Then
            UPGraficaCxP192.Visible = True
        Else
            UPGraficaCxP192.Visible = False
        End If
        If GvCCxC.Rows.Count > 0 Then
            UPGraficaCCxC.Visible = True
        Else
            UPGraficaCCxC.Visible = False
        End If
        If GvCPxP.Rows.Count > 0 Then
            UPGraficaCPxP.Visible = True
        Else
            UPGraficaCPxP.Visible = False
        End If
        'If GvIndicadores.Rows.Count > 0 Then
        '    UPGraficaIndicadores.Visible = True
        'Else
        '    UPGraficaIndicadores.Visible = False
        'End If

        'Si no había datos en ninguna tabla no cargar función de gráficos
        If (GvVxP.Rows.Count = 0 AndAlso GvComprasAcreed.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub
        GraficasPastel()
        'GraficasBarras()
    End Sub
    Protected Sub GvVxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvVxP.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("Orden") = "" Then
                e.Row.CssClass = "Totales"
            End If
        End If
    End Sub
    Protected Sub GvComprasAcreed_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvComprasAcreed.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
            If e.Row.DBCampo("CveClasificacion") = "" Then
                e.Row.CssClass = "Totales"
            End If
        End If
    End Sub
    Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            'e.Row.Cells(0).Text = e.Row.DBCampo("Orden")
            'If e.Row.DBCampo("Orden") = "00ND" Then
            '    e.Row.CssClass = "Totales"
            '    e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura")
            'End If
        End If
    End Sub
    Protected Sub GvCCxC_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCCxC.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("Orden") = "" Then
                e.Row.CssClass = "Totales"
            End If
            'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura
            ' e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
        End If
    End Sub
    Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("Orden") = "" Then
                e.Row.CssClass = "Totales"
            End If
            'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura
            '  e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
        End If
    End Sub

    Private Sub CreaDataTableColor()
        DtColor = New DataTable
        DtColor.Columns.Add("Color")
        Dim RowColor As DataRow = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FF0F00"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FF6600"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FF9E01"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#FCD202"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#F8FF01"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#B0DE09"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#04D215"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#0D8ECF"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#0D52D1"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#2A0CD0"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#8A0CCF"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#CD0D74"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#754DEB"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#DDDDDD"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#999999"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#333333"
        DtColor.Rows.Add(RowColor)
        RowColor = Nothing
        RowColor = DtColor.NewRow()
        RowColor("Color") = "#000000"
        DtColor.Rows.Add(RowColor)
    End Sub

    Private Sub GraficasPastel()

        Dim DtVxP, DtCxP, DtCxP192, DtCCxC, DtCPxP As New DataTable
        Dim RowColorIndex As Integer = 0

        'Ventas x Producto
        DtVxP.Reset()
        DtVxP.Columns.Add("Texto")
        DtVxP.Columns.Add("Valor")
        DtVxP.Columns.Add("Color")
        DtVxP.Columns.Add("Moneda")
        RowColorIndex = 0
        For Each Dr As DataRow In GvVxP.DataSource.Rows
            If Not Dr("Orden").ToString = "" Then
                Dim Row As DataRow = Nothing
                Row = DtVxP.NewRow()
                Row("Texto") = Dr("GPO").ToString
                Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
                Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                DtVxP.Rows.Add(Row)
                RowColorIndex += 1
                If RowColorIndex = 17 Then
                    RowColorIndex = 0
                End If
            End If
        Next
        Dim top_vxp = From s In DtVxP.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
        Dim resto_vxp = From s In DtVxP.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
        Dim group_resto_vxp = resto_vxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
            .Texto = "Otros",
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Color = "#000000",
            .Moneda = "MXN"
        })
        Dim query_vxp = top_vxp.Union(group_resto_vxp)
        'Dim query_vxp = top_vxp.Concat(From e In resto_vxp Group e By e.Texto Into gpo = Group)
        'Dim group_resto_vxp = From e In resto_vxp Group e By e.Texto Into gpo = Group
        'Dim group_resto_vxp = resto_vxp.GroupBy(Function(e) New With {Key e.Texto, Key e.Valor, Key e.Color, Key e.Moneda}).ToList()

        'Compras x Producto TipoProveedor=1 Acreedores (Gastos)
        DtCxP.Reset()
        DtCxP.Columns.Add("Texto")
        DtCxP.Columns.Add("Valor")
        DtCxP.Columns.Add("Color")
        DtCxP.Columns.Add("Moneda")
        RowColorIndex = 0
        For Each Dr As DataRow In GvComprasAcreed.DataSource.Rows
            If Dr("CveClasificacion").ToString <> "" Then
                Dim Row As DataRow = Nothing
                Row = DtCxP.NewRow()
                Row("Texto") = Dr("Clasificacion").ToString ' $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
                Row("Moneda") = Dr("Moneda").ToString
                DtCxP.Rows.Add(Row)
                RowColorIndex += 1
                If RowColorIndex = 17 Then
                    RowColorIndex = 0
                End If
            End If
        Next
        Dim top_cxp = From s In DtCxP.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
        Dim resto_cxp = From s In DtCxP.AsEnumerable().Skip(10) Select New With {.Texto = "Otros", .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
        Dim group_resto_cxp = resto_cxp.GroupBy(Function(x) x.Texto).[Select](Function(g) New With {
            .Texto = "Otros",
            .Valor = Math.Round(g.Sum(Function(x) x.Valor), 2),
            .Color = "#000000",
            .Moneda = "MXN"
        })
        Dim query_cxp = top_cxp.Union(group_resto_cxp)

        'Compras x Producto ProveedorClasificacion=192
        DtCxP192.Reset()
        DtCxP192.Columns.Add("Texto")
        DtCxP192.Columns.Add("Valor")
        DtCxP192.Columns.Add("Color")
        DtCxP192.Columns.Add("Moneda")
        RowColorIndex = 0
        For Each Dr As DataRow In GvCxP192.DataSource.Rows
            Dim Row As DataRow = Nothing
            Row = DtCxP192.NewRow()
            Row("Texto") = $"{Dr("RazonSocial").ToString}"
            Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
            Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
            'Row("Moneda") = "MXN"
            DtCxP192.Rows.Add(Row)
            RowColorIndex += 1
            If RowColorIndex = 17 Then
                RowColorIndex = 0
            End If
        Next
        Dim query_cxp192 = From s In DtCxP192.AsEnumerable().Take(10) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}

        'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows))

        'Cuentas por cobrar x Cliente
        DtCCxC.Reset()
        DtCCxC.Columns.Add("Texto")
        DtCCxC.Columns.Add("Valor")
        DtCCxC.Columns.Add("Color")
        DtCCxC.Columns.Add("Moneda")
        RowColorIndex = 0
        For Each Dr As DataRow In GvCCxC.DataSource.Rows
            If Not Dr("Orden").ToString = "" Then
                Dim Row As DataRow = Nothing
                Row = DtCCxC.NewRow()
                Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                Row("Valor") = Dr("Saldo").ToString.FormatoNumero
                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
                Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                DtCCxC.Rows.Add(Row)
                RowColorIndex += 1
                If RowColorIndex = 17 Then
                    RowColorIndex = 0
                End If
            End If
        Next
        Dim query_ccxc = From s In DtCCxC.AsEnumerable().Take(20) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}

        'Cuentas por pagar x Proveedor
        DtCPxP.Reset()
        DtCPxP.Columns.Add("Texto")
        DtCPxP.Columns.Add("Valor")
        DtCPxP.Columns.Add("Color")
        DtCPxP.Columns.Add("Moneda")
        RowColorIndex = 0
        For Each Dr As DataRow In GvCPxP.DataSource.Rows
            If Not Dr("Orden").ToString = "" Then
                Dim Row As DataRow = Nothing
                Row = DtCPxP.NewRow()
                Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                Row("Valor") = Dr("Saldo").ToString.FormatoNumero
                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
                Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                DtCPxP.Rows.Add(Row)
                RowColorIndex += 1
                If RowColorIndex = 17 Then
                    RowColorIndex = 0
                End If
            End If
        Next
        Dim query_cpxp = From s In DtCPxP.AsEnumerable().Take(20) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}

        'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172

        'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON
        Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp})
        'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}})
        'Alert(json)
        RegistraScript($"CargaGraficasBarras({json})", "sdkp24223")
        'RegistraScript($"CargaGraficasPastel({json})", "22")
        UPPMov.Update()
    End Sub
    Private Sub GraficasBarras()
        'Dim Dt As New DataTable()
        'Dt.Columns.Add("Texto")
        'Dt.Columns.Add("Valor")
        'Dt.Columns.Add("Color")
        'Dt.Columns.Add("Moneda")
        'Dim RowColorIndex As Integer = 0
        'For Each Dr As DataRow In VxC.Rows
        '    If Not Dr("Orden").ToString = "" Then
        '        Dim Row As DataRow = Nothing
        '        Row = Dt.NewRow()
        '        Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
        '        Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
        '        Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
        '        Row("Moneda") = Dr("Moneda").ToString
        '        Dt.Rows.Add(Row)
        '        RowColorIndex += 1
        '        If RowColorIndex = 17 Then
        '            RowColorIndex = 0
        '        End If
        '    End If
        'Next

        'Dim query = From s In Dt.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()}
        'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query)
        'RegistraScript($"CargaGraficasBarras({json})", "22")
        'UPPMov.Update()
    End Sub
End Class