Commit inicial Ventas Productivo

Compras/RepCompras.aspx.vb

@@ -0,0 +1,554 @@
+
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Compras_RepCompras
+    Inherits ClsPaginas
+#Region "PROPIEDADES"
+
+    Private Property TCEspecifico As Double
+        Get
+            If ViewState("TCEspecifico") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("TCEspecifico"), Double)
+            End If
+        End Get
+        Set(value As Double)
+            ViewState("TCEspecifico") = value
+        End Set
+    End Property
+
+    Private Property DtColor As DataTable
+        Get
+            Return DirectCast(ViewState("DtColor"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtColor") = value
+        End Set
+    End Property
+    Private Property DtCompras As DataTable
+        Get
+            Return DirectCast(ViewState("DtCompras"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtCompras") = value
+        End Set
+    End Property
+    Private Property Agrupador As String
+        Get
+            Return ViewState("Agrupador").ToString
+        End Get
+
+        Set(value As String)
+            ViewState("Agrupador") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaCombos()
+        End If
+    End Sub
+
+#Region "CARGAS"
+
+    Private Sub CargaGrupo()
+        DdlGrupo.Items.Insert(0, New ListItem("Año", "1"))
+        DdlGrupo.Items.Insert(1, New ListItem("Mes", "2"))
+        DdlGrupo.Items.Insert(2, New ListItem("Año/Mes", "3"))
+        DdlGrupo.Items.Insert(3, New ListItem("Fecha", "4"))
+        DdlGrupo.Items.Insert(4, New ListItem("Fecha Captura", "9"))
+        DdlGrupo.Items.Insert(5, New ListItem("Proveedor", "5"))
+        DdlGrupo.Items.Insert(6, New ListItem("Tipo Documento", "6"))
+        DdlGrupo.Items.Insert(7, New ListItem("Clasificación Prov.", "7"))
+        DdlGrupo.Items.Insert(8, New ListItem("Responsable", "8"))
+        DdlGrupo.Items.Insert(9, New ListItem("Remesa", "10"))
+        DdlGrupo.DataBind()
+        DdlGrupo.SelectedValueExist("3")
+    End Sub
+    Private Sub CargaTipoCentroCosto()
+        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            DivLblProyecto.Visible = False
+            LblSubProyecto.Text = "Sucursal:"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
+            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            DivLblProyecto.Visible = False
+            LblSubProyecto.Text = "Proyecto:"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
+            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
+            DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
+            DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
+            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+            LblProyecto.Text = "Sucursal:"
+            LblSubProyecto.Text = "Proyecto:"
+
+            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
+            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
+            DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+            LblProyecto.Text = "Proyecto:"
+            LblSubProyecto.Text = "Sucursal:"
+
+            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
+            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
+            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
+            DdlGrupo.DataBind()
+        End If
+        DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
+        DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
+    End Sub
+
+    Private Sub CargaCombos()
+        'CargaProveedores
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
+        'Carga Tipo de Gasto
+        DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
+        DdlTipoGasto.DataBind()
+
+        'CargaUsuarios
+        DdlUsuario.DataSource = GlobalDTUsuarioResponsable.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
+
+        'Carga Usuarios Captura
+        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+        DDlUsuarioCaptura.DataBind()
+
+        'Carga Monedas
+        DdlMonedas.DataSource = GlobalDTMonedas()
+        DdlMonedas.DataBind()
+
+        'CargaProyecto
+        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
+        DdlProyecto.DataBind()
+
+        'Carga Grupo
+        CargaGrupo()
+
+        'Carga Tipo Centro de Costo
+        CargaTipoCentroCosto()
+
+        CreaDataTableColor()
+    End Sub
+
+
+
+    Private Sub ConfiguraEmpresa()
+        'Dim ObjEmpresa As New ClsEmpresas()
+        'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+        If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False
+        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False
+        'End If
+        'ObjEmpresa.Dispose()
+    End Sub
+
+    Private Sub CargaSubProyecto()
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero))
+        DdlSubProyecto.DataBind()
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+#End Region
+
+#Region "SELECTED INDEX CHANGE"
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargaSubProyecto()
+    End Sub
+
+    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
+        If RblTipoCambio.SelectedValue.ToEntero = 3 Then
+            Dim TipoCambio As Double
+            LiEspecifico.Visible = True
+            TipoCambio = GlobalTipoCambio(Now)
+            TxtEspecifico.Text = TipoCambio.ToString
+        Else
+            LiEspecifico.Visible = False
+        End If
+        UpBodyTipoCambio.Update()
+    End Sub
+
+#End Region
+
+#Region "CONSULTAR"
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+        ConfiguraEmpresa()
+        UPDatos.Update()
+    End Sub
+    Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+        ConfiguraEmpresa()
+        UPDatos.Update()
+    End Sub
+    Private Sub CargaDatos()
+        Dim ObjCompras As New ClsCompras()
+
+        Dim FechaI, FechaF As String
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+
+        If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then
+            TCEspecifico = TxtEspecifico.Text.ToDouble
+        Else
+            TCEspecifico = -1
+        End If
+
+        Dim FechaICaptura, FechaFCaptura As String
+        FechaICaptura = If(IsDate(TxtFechaICaptura.Text.Trim()), TxtFechaICaptura.Text.Trim(), "-1")
+        FechaFCaptura = If(IsDate(TxtFechaFCaptura.Text.Trim()), TxtFechaFCaptura.Text.Trim(), "-1")
+
+        Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
+        Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString
+
+        If ObjCompras.GetRepCompras(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DDlUsuarioCaptura.SelectedValue.ToEntero, FechaICaptura,
+                                    FechaFCaptura, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, SubProyectos,
+                                    RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProyecto:=DdlProyecto.SelectedValue.ToEntero, CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero, TipoDocto:=DdlTipoDocto.SelectedValue) Then
+            GvDatos.DataSource = ObjCompras.DtResultados
+            DtCompras = ObjCompras.DtResultados
+        Else
+            GvDatos.DataSource = Nothing
+        End If
+        ObjCompras.Dispose()
+        GvDatos.DataBind()
+        Agrupador = DdlGrupo.SelectedItem.Text
+    End Sub
+#End Region
+
+#Region "GRIDVIEW"
+
+    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim Css As String = "Texto"
+            If e.Row.RowIndex = 0 Then
+                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
+                e.Row.Cells(0).Width = Unit.Pixel(200)
+                e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center
+                e.Row.Cells(1).Width = Unit.Pixel(60)
+                e.Row.Cells(2).Width = Unit.Pixel(90)
+                e.Row.Cells(3).Width = Unit.Pixel(90)
+                e.Row.Cells(4).Width = Unit.Pixel(90)
+                e.Row.Cells(5).Width = Unit.Pixel(80)
+                e.Row.Cells(8).Width = Unit.Pixel(100)
+
+            End If
+
+            If e.Row.DBCampo("Orden") = "" Then
+                e.Row.CssClass = "Totales"
+                e.Row.HorizontalAlign = HorizontalAlign.Center
+            End If
+
+            Dim FechaI, FechaF As String
+            FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
+            FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+
+            Dim Liga As String = String.Format("/Compras/RepComprasDetalle.aspx?GPO={0}&Anio={1}&Mes={2}&AnioMes={3}&Fecha={4}&CveProveedor={5}&CveUsuario={6}&FechaI={7}&FechaF={8}&CveMoneda={9}&CveUsuarioCaptura={10}&NumeroRemesa={11}&FechaICaptura={12}&FechaFCaptura={13}&FechaCaptura={14}&CveSubProyecto={15}&CveUsuarioRemesa={16}&TipoDocto={17}&CveTipoGasto={18}&CveProyecto={19}&CveTipoProveedor={20}&TipoCambio={21}",
+                                               DdlGrupo.SelectedValue, e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("CveProveedor"), e.Row.DBCampo("CveUsuario"), FechaI, FechaF, e.Row.DBCampo("CveMoneda"), e.Row.DBCampo("CveUsuarioCaptura"), e.Row.DBCampo("NumeroRemesa"), e.Row.DBCampo("FechaICaptura"), e.Row.DBCampo("FechaFCaptura"), e.Row.DBCampo("FechaCaptura"),
+                                               e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveUsuarioRemesa"), e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("CveTipoGasto"), e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveTipoProveedor"), e.Row.DBCampo("OpcionTipoCambio"))
+
+
+            If e.Row.DBCampo("Orden") = "" Then
+                e.Row.FCLiteral("LtlGrupo").Text = e.Row.FCLiteral("LtlGrupo").Text
+                e.Row.FCLiteral("LtlCantidad").Text = e.Row.FCLiteral("LtlCantidad").Text
+            Else
+                e.Row.FCLiteral("LtlGrupo").Text = String.Format("<a class='{0}' target=""_blank"" href='{1}'>{2}</a>", Css, Liga, e.Row.FCLiteral("LtlGrupo").Text)
+                e.Row.FCLiteral("LtlCantidad").Text = String.Format("<a class='{0}' target=""_blank"" href='{1}'>{2}</a>", Css, Liga, e.Row.FCLiteral("LtlCantidad").Text)
+            End If
+
+
+            If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = ""
+            If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = ""
+            If e.Row.DBCampo("Amortizacion").ToDouble = 0 Then e.Row.FCLiteral("LtlAmortizacion").Text = ""
+            If e.Row.DBCampo("IVA").ToDouble = 0 Then e.Row.FCLiteral("LtlIVA").Text = ""
+            If e.Row.DBCampo("RetIVA").ToDouble = 0 Then e.Row.FCLiteral("LtlRetIVA").Text = ""
+            If e.Row.DBCampo("RetISR").ToDouble = 0 Then e.Row.FCLiteral("LtlRetISR").Text = ""
+            If e.Row.DBCampo("Total").ToDouble = 0 Then e.Row.FCLiteral("LtlTotal").Text = ""
+            If e.Row.DBCampo("MAX_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxSubTotal").Text = ""
+            If e.Row.DBCampo("AVG_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGSubTotal").Text = ""
+            If e.Row.DBCampo("MIN_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMinSubTotal").Text = ""
+            If e.Row.DBCampo("MAX_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxTotal").Text = ""
+            If e.Row.DBCampo("AVG_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGTotal").Text = ""
+            If e.Row.DBCampo("MIN_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMinTotal").Text = ""
+        End If
+    End Sub
+
+#End Region
+
+#Region "PERSONALIZAR"
+
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+        If ChkRetIVA.Checked Then
+            GvDatos.Columns(6).Visible = True
+        Else
+            GvDatos.Columns(6).Visible = False
+        End If
+
+        If ChkRetISR.Checked Then
+            GvDatos.Columns(7).Visible = True
+        Else
+            GvDatos.Columns(7).Visible = False
+        End If
+
+        If ChkMinSub.Checked Then
+            GvDatos.Columns(9).Visible = True
+        Else
+            GvDatos.Columns(9).Visible = False
+        End If
+
+        If ChkAVGSub.Checked Then
+            GvDatos.Columns(10).Visible = True
+        Else
+            GvDatos.Columns(10).Visible = False
+        End If
+
+        If ChkMaxSub.Checked Then
+            GvDatos.Columns(11).Visible = True
+        Else
+            GvDatos.Columns(11).Visible = False
+        End If
+
+        If ChkMinTot.Checked Then
+            GvDatos.Columns(12).Visible = True
+        Else
+            GvDatos.Columns(12).Visible = False
+        End If
+
+        If ChkAvgTot.Checked Then
+            GvDatos.Columns(13).Visible = True
+        Else
+            GvDatos.Columns(13).Visible = False
+        End If
+
+        If ChkMaxTot.Checked Then
+            GvDatos.Columns(14).Visible = True
+        Else
+            GvDatos.Columns(14).Visible = False
+        End If
+
+        UPDatos.Update()
+    End Sub
+
+#End Region
+
+#Region "I M P R I M I R"
+    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+        GvDatos.ExportToExcel("ReporteCompras" & Now.ToShortDateString)
+    End Sub
+
+    Private Sub GenerarPDF()
+        Dim FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text)
+        Dim FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text)
+        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
+        Dim Capturo = If(DDlUsuarioCaptura.SelectedValue = "-1", "", $"&emsp;<b>Capturó:</b> {DDlUsuarioCaptura.SelectedItem.Text}")
+        Dim Grupo = DdlGrupo.SelectedItem.Text
+        Dim Moneda = If(DdlMonedas.SelectedValue = "-1", "", $"&emsp;<b>Monedas:</b> {DdlMonedas.SelectedItem.Text}")
+        Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
+        Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
+        If txtFechaI.Text = "" Then FechaIn = ""
+        If txtFechaF.Text = "" Then FechaFn = ""
+        Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
+        Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
+        Dim FechaICaptura = If(TxtFechaICaptura.Text = "" Or TxtFechaICaptura.Text = "__/__/____", "", $"&emsp;<b>Fecha Inicio Captura:</b> {TxtFechaICaptura.Text}")
+        Dim FechaFCaptura = If(TxtFechaFCaptura.Text = "" Or TxtFechaFCaptura.Text = "__/__/____", "", $"&emsp;<b>Fecha Fin Captura:</b> {TxtFechaFCaptura.Text}")
+        Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $"&emsp;<b>Tipo Gasto:</b> {DdlTipoGasto.GetSelectedText}")
+        Dim TipoProveedor = If(DdlTipoProveedor.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Proveedor:</b> {DdlTipoProveedor.SelectedItem.Text}")
+        Dim TipoDocto = If(DdlTipoDocto.SelectedValue = "-1", "", $"&emsp;<b>Tipo de Documento:</b> {DdlTipoDocto.SelectedItem.Text}")
+        If DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then
+            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("FechaInicio", FechaI))
+            params.Add(New ReportParameter("FechaFin", FechaF))
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+            params.Add(New ReportParameter("AgrupadoPor", $"<b>Agrupado Por:</b> {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}"))
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            ImprimirPDF("Empresas/Grales/Formatos/RepCompras.rdlc", DtCompras, params, "ReporteCompras")
+        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
+
+#Region "GRAFICA"
+
+    Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
+        If Not DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then
+            Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        LblTituloGrafica.Text = $"Agrupado por: {Agrupador}"
+        RegistraScript("$('#DivModalGrafica').modal('show')")
+        CambioGrafica()
+    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 CambioGrafica()
+        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 DtCompras.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}"
+                Select Case DdlVer.SelectedValue.ToEntero
+                    Case 1
+                        Row("Valor") = Dr("Total").ToString.FormatoNumero
+                    Case 2
+                        Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
+                    Case 3
+                        Row("Valor") = Dr("IVA").ToString.FormatoNumero
+                End Select
+                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)
+        Select Case DdlGrafica.SelectedValue.ToEntero
+            Case 1
+                RegistraScript($"CargaGraficaBarras({json})", "22")
+            Case 2
+                RegistraScript($"CargaGraficaPastel({json})", "22")
+        End Select
+        UPModalProd.Update()
+    End Sub
+    Protected Sub DdlGrafica_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CambioGrafica()
+    End Sub
+
+    Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CambioGrafica()
+    End Sub
+
+#End Region
+
+
+End Class