Commit inicial Ventas Productivo

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -0,0 +1,712 @@
+Option Explicit On
+Option Strict On
+
+Imports Microsoft.Reporting.WebForms
+Imports Extensiones
+Imports System.Data
+Partial Class Compras_RepProductosServiciosDetalle
+    Inherits ClsPaginas
+
+#Region "PROPIEDADES"
+    Private Property DtDatos As DataTable
+        Get
+            Return CType(ViewState("DtDatos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+    Private Property CveMoneda As Integer
+        Get
+            Return ViewState("CveMoneda").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMoneda") = 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 Agrupador As String
+        Get
+            Return ViewState("Agrupador").ToString
+        End Get
+
+        Set(value As String)
+            ViewState("Agrupador") = value
+        End Set
+    End Property
+    Private Property TCEspecifico As Double
+        Get
+            Return ViewState("TCEspecifico").ToString.ToDouble
+        End Get
+
+        Set(value As Double)
+            ViewState("TCEspecifico") = value
+        End Set
+    End Property
+    Private Property TipoCambio As Integer
+        Get
+            Return ViewState("TipoCambio").ToString.ToEntero
+        End Get
+
+        Set(value As Integer)
+            ViewState("TipoCambio") = 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
+            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
+            SetValues()
+            InicializaValores()
+        End If
+    End Sub
+
+#Region "CARGAS"
+
+    Private Sub InicializaValores()
+        Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
+        Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto As String
+
+        Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
+        Proyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
+
+        'PARAMETROS DE LISTBOXS
+        SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto") <> "", Request("CveSubProyecto"), "-1").ToString
+        SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() = -2, "-2", SubProyecto)
+
+        TipoGasto = If(Request("CveTipoGasto") IsNot Nothing AndAlso Request("CveTipoGasto") <> "", Request("CveTipoGasto"), "-1").ToString
+        Categoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString
+        TipoActivoFijo = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF") <> "", Request("CveTipoAF"), "-1").ToString
+        SubTipoActivoFijo = If(Request("CveSubTipoAF") IsNot Nothing AndAlso Request("CveSubTipoAF") <> "", Request("CveSubTipoAF"), "-1").ToString
+        'END PARAMETROS DE LISTBOXS
+
+
+        'SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString
+        'SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() = -2, "-2", SubProyecto)
+        'Categoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria").ToEntero() > 0, Request("CveCategoria").ToEntero(), -1).ToString
+        'TipoActivoFijo = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString
+        'SubTipoActivoFijo = If(Request("CveSubTipoAF") IsNot Nothing AndAlso Request("CveSubTipoAF").ToEntero() > 0, Request("CveSubTipoAF").ToEntero(), -1).ToString
+        'TipoGasto = If(Request("CveTipoGasto") IsNot Nothing AndAlso Request("CveTipoGasto").ToEntero > 0, Request("CveTipoGasto").ToEntero(), -1).ToString
+        Clasificacion = If(Request("CveClasificacion") IsNot Nothing AndAlso Request("CveClasificacion").ToEntero() > 0, Request("CveClasificacion").ToEntero(), -1).ToString
+        PS = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS").ToEntero() > 0, Request("CvePS").ToEntero(), -1).ToString
+        Proveedor = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString
+        Estatus = If(Request("CveEstatusFactura") IsNot Nothing AndAlso Request("CveEstatusFactura").ToEntero() > 0, Request("CveEstatusFactura").ToEntero(), -1).ToString
+        Usuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString
+        Familia = If(Request("CveFamilia") IsNot Nothing AndAlso Request("CveFamilia").ToEntero() > -3, Request("CveFamilia").ToEntero(), -1).ToString
+        SubFamilia = If(Request("CveSubFamilia") IsNot Nothing AndAlso Request("CveSubFamilia").ToEntero() > -3, Request("CveSubFamilia").ToEntero(), -1).ToString
+        ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
+        CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
+        TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
+        Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
+        Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
+        AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
+        Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString
+        FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
+        FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
+        TCEspecifico = If(Request("TCEspecifico") IsNot Nothing AndAlso Request("TCEspecifico").ToDouble() > 0, Request("TCEspecifico").ToDouble, -1).ToString.ToDouble
+        RblTipoCambio.SelectedValue = If(Request("TipoCambio") IsNot Nothing AndAlso Request("TipoCambio").ToEntero() > 0, Request("TipoCambio").ToEntero(), 1).ToString
+        If RblTipoCambio.SelectedValue.ToEntero > 1 Then CveMoneda = -1
+        TipoCambio = RblTipoCambio.SelectedValue.ToEntero
+
+        txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text)
+        txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
+        txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
+
+        If Fecha <> "-1" Then
+            txtFechaI.Text = Fecha
+            txtFechaF.Text = Fecha
+        Else
+            If FechaI <> "-1" Then
+                txtFechaI.Text = FechaI
+            End If
+            If FechaF <> "-1" Then
+                txtFechaF.Text = FechaF
+            End If
+        End If
+
+        'CARGA LISTBOXs
+        DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
+        DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
+        DdlCategoria.SelectedValuesIfExistM(Categoria)
+        DdlTipoAF.SelectedValuesIfExistM(TipoActivoFijo)
+        DdlSubTipoAF.SelectedValuesIfExistM(SubTipoActivoFijo)
+        'END CARGA LISTBOXs
+
+        'DdlCategoria.SelectedValueExist(Categoria)
+        DdlClasificacion.SelectedValueExist(Clasificacion)
+        If PS <> "-1" Then
+            DdlPS.SelectedValue = PS
+            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString
+        End If
+        DdlProyecto.SelectedValueExist(Proyecto)
+        If DivProyecto.Visible Then CargaSubProyecto()
+        'DdlSubProyecto.SelectedValueExist(SubProyecto)
+        DdlFamilia.SelectedValueExist(Familia)
+        DdlSubFamilia.SelectedValueExist(SubFamilia)
+        DdlProveedor.SelectedValue = Proveedor
+        If DdlProveedor.SelectedValue.ToEntero > 0 Then
+            DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+        Else
+            DdlProveedor.SelectedText = "Todos"
+        End If
+        DdlTipoDocto.SelectedValueExist(TipoDocto)
+        DdlEstatus.SelectedValueExist(Estatus)
+        DdlUsuario.SelectedValueExist(Usuario)
+        'DdlTipoAF.SelectedValueExist(TipoActivoFijo)
+        'DdlTipoGasto.SelectedValueExist(TipoGasto)
+        'DdlSubTipoAF.SelectedValueExist(SubTipoActivoFijo)
+
+        DdlSubTipoAF_SelectedIndexChanged(DdlSubTipoAF, New EventArgs)
+        DdlAF.SelectedValueExist(ActivoFijo)
+
+        DdlGrupo.SelectedValueExist(Grupo)
+
+        CargaDatos(Proyecto.ToEntero, SubProyecto, Categoria, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo.ToEntero, TipoGasto)
+
+    End Sub
+
+    Private Sub SetValues()
+
+        'Cargo Proyectos 
+        DdlProveedor.setEsWebService(True)
+        DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedor.SelectedText = "Todos"
+        DdlProveedor.SelectedValue = "-1"
+
+        'CAarga Tipos de Gasto
+        DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
+        DdlTipoGasto.DataBind()
+
+        'Cargo Categorias
+        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
+        DdlCategoria.DataBind()
+
+        'Cargo Clasificaciones
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataBind()
+
+        'CargaProveedor
+        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedor.DataBind()
+
+        'CargaUsuarios
+        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlUsuario.DataBind()
+
+        'CargaEstatus
+        DdlEstatus.DataSource = GlobalDTCompEstatusFactura
+        DdlEstatus.DataBind()
+
+        'Carga Productos
+        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = ""
+            DdlPS.SelectedValue = "-1"
+        Else
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPS(UsuarioActual.CveEmpresa)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+        'Carga Tipos AF
+        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoAF.DataBind()
+
+        'Carga SubTipos AF
+        DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlSubTipoAF.DataBind()
+
+        'Carga Grupos
+        CargaGrupo()
+
+        'Carga Tipo Centro de Costo
+        CargaTipoCentroCosto()
+
+
+        'CARGA COSTOS
+        If UsuarioActual.CveEmpresa = 66 Then
+
+            Dim NumItems As Integer = DdlGrupo.Items.Count
+
+            'COSTOS PROYECTO
+            DdlGrupo.Items.Insert(NumItems, New ListItem("Costos", "13"))
+            RowCostos.Visible = True
+
+            'Carga Familias
+            DdlFamilia.DataSource = GlobalDTFamilias(66)
+            DdlFamilia.DataBind()
+
+            'Carga SubFamilias
+            DdlSubFamilia.DataSource = GlobalDTSubFamilias(66)
+            DdlSubFamilia.DataBind()
+
+            'COSTOS AF
+            DdlGrupo.Items.Insert(NumItems + 1, New ListItem("Costos por Activo Fijo", "14"))
+
+            'Carga AF
+            'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+            'DdlAF.DataBind()
+
+        End If
+
+        RowActivoFijo.Visible = True
+
+
+        'Carga Fechas
+        txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
+        txtFechaF.Text = Now.ToShortDateString
+
+        CreaDataTableColor()
+
+        TipoCambio = 1
+        TCEspecifico = 0
+    End Sub
+
+    Private Sub CargaGrupo()
+        DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
+        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
+        DdlGrupo.Items.Insert(2, New ListItem("Productos-Servicios", "5"))
+        DdlGrupo.Items.Insert(3, New ListItem("Año", "6"))
+        DdlGrupo.Items.Insert(4, New ListItem("Mes", "7"))
+        DdlGrupo.Items.Insert(5, New ListItem("Año/Mes", "8"))
+        DdlGrupo.Items.Insert(6, New ListItem("Fecha", "9"))
+        DdlGrupo.Items.Insert(7, New ListItem("Proveedor", "10"))
+        DdlGrupo.Items.Insert(8, New ListItem("Usuario", "11"))
+        DdlGrupo.Items.Insert(9, New ListItem("Estatus Fact.", "12"))
+        DdlGrupo.DataBind()
+        DdlGrupo.SelectedValueExist("8")
+    End Sub
+    Private Sub CargaTipoCentroCosto()
+        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Sucursal:"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            DdlSubProyecto.Items.Clear()
+            DivProyecto.Visible = False
+            LblProyecto.Visible = False
+            LblSubProyecto.InnerText = "Proyecto:"
+
+            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlSubProyecto.DataBind()
+
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
+            LblProyecto.InnerText = "Sucursal:"
+            LblSubProyecto.InnerText = "Proyecto:"
+
+            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
+            DdlGrupo.DataBind()
+
+        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
+            LblProyecto.InnerText = "Proyecto:"
+            LblSubProyecto.InnerText = "Sucursal:"
+
+            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
+            DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
+            DdlGrupo.DataBind()
+        End If
+    End Sub
+
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim ObjCompras As New ClsCompras()
+
+        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
+        TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero)
+
+        Dim TipoGasto As String = IIf(DdlTipoGasto.GetSelectedValuesM = "", "-1", DdlTipoGasto.GetSelectedValuesM).ToString
+        Dim Categoria As String = IIf(DdlCategoria.GetSelectedValuesM = "", "-1", DdlCategoria.GetSelectedValuesM).ToString
+        Dim SubProyectos As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
+
+        Dim TipoAF As String = IIf(DdlTipoAF.GetSelectedValuesM = "", "-1", DdlTipoAF.GetSelectedValuesM).ToString
+        Dim SubTipoAF As String = IIf(DdlSubTipoAF.GetSelectedValuesM = "", "-1", DdlSubTipoAF.GetSelectedValuesM).ToString
+
+        If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
+
+        If ObjCompras.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, SubProyectos, Categoria, DdlClasificacion.SelectedValue.ToEntero,
+                                              DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
+                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue) Then
+            DtDatos = ObjCompras.DtResultados
+        Else
+            DtDatos = Nothing
+        End If
+        ObjCompras.Dispose()
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UPDatos.Update()
+        Agrupador = DdlGrupo.SelectedItem.Text
+    End Sub
+
+    Private Sub CargaDatos(Proyecto As Integer, SubProyecto As String, Categoria As String, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As String, SubTipoActivoFijo As String, ActivoFijo As Integer, TipoGasto As String)
+        Dim ObjCompras As New ClsCompras()
+
+        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
+        If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
+
+        If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue) Then
+            DtDatos = ObjCompras.DtResultados
+        Else
+            DtDatos = Nothing
+        End If
+        ObjCompras.Dispose()
+
+        GvDatos.DataSource = DtDatos
+        GvDatos.DataBind()
+        UPDatos.Update()
+        Agrupador = DdlGrupo.SelectedItem.Text
+    End Sub
+
+    Private Sub CargaSubProyecto()
+        DdlSubProyecto.Items.Clear()
+        If DdlProyecto.SelectedValue <> "-1" Then
+            DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
+            DdlSubProyecto.DataBind()
+        End If
+        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+#End Region
+
+#Region "SELECT INDEX CHANGED"
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargaSubProyecto()
+    End Sub
+
+    'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
+    '    CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
+    'End Sub
+
+    'Private Sub CargaClasificaciones(CveCategoria As Integer)
+    '    DdlClasificacion.Items.Clear()
+    '    If DdlCategoria.SelectedValue <> "-1" Then
+    '        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=CveCategoria)
+    '        DdlClasificacion.DataBind()
+    '    End If
+    '    DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
+    'End Sub
+
+    Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged
+        DdlSubFamilia.Items.Clear()
+
+        If DdlFamilia.SelectedValue <> "-1" Then
+            DdlSubFamilia.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa, DdlFamilia.SelectedValue.ToEntero)
+            DdlSubFamilia.DataBind()
+        Else
+            DdlSubFamilia.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
+            DdlSubFamilia.DataBind()
+        End If
+
+        DdlSubFamilia.Items.Insert(0, New ListItem("Todas", "-1"))
+    End Sub
+    Protected Sub DdlTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoAF.SelectedIndexChanged
+        DdlSubTipoAF.Items.Clear()
+
+        If DdlTipoAF.GetSelectedValuesM <> "" Then
+            DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(66).FiltraParametros(String.Format("CveTipoActivoFijo IN ({0})", DdlTipoAF.GetSelectedValuesM(True)))
+            DdlSubTipoAF.DataBind()
+        Else
+            DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(66)
+            DdlSubTipoAF.DataBind()
+        End If
+
+        'DdlSubTipoAF.Items.Insert(0, New ListItem("Todas", "-1"))
+    End Sub
+    Protected Sub DdlSubTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoAF.SelectedIndexChanged
+        DdlAF.Items.Clear()
+
+        If DdlSubTipoAF.GetSelectedValuesM <> "" Then
+            DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, -1).FiltraParametros(String.Format("CveSubTipoActivoFijo IN ({0})", DdlSubTipoAF.GetSelectedValuesM(True)))
+            DdlAF.DataBind()
+            'Else
+            '    DdlAF.DataSource = GlobalDTSubTipoActivoFijo(66)
+            '    DdlAF.DataBind()
+        End If
+
+        DdlAF.Items.Insert(0, New ListItem("Todas", "-1"))
+    End Sub
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
+        If DdlPS.UsaWebService Then
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = "Todos"
+            DdlPS.SelectedValue = "-1"
+        Else
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, DdlClasificacion.SelectedValue.ToEntero)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+    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
+            If Not e.Row.DBCampo("CveCompra").ToEntero > 0 Then
+                If e.Row.DBCampo("GPO") = "" Then
+                    e.Row.Cells(2).Text = e.Row.DBCampo("Moneda").ToString
+                    e.Row.CssClass = "Totales"
+                Else
+                    e.Row.Cells(2).Text = e.Row.DBCampo("GPO").ToString
+                    e.Row.CssClass = "SubTotales"
+                End If
+            End If
+        End If
+    End Sub
+
+#End Region
+
+#Region "TIPO DE CAMBIO"
+    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
+        TipoCambio = RblTipoCambio.SelectedValue.ToEntero
+        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
+
+    Private Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click
+        CargaDatos()
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
+        UPDatos.Update()
+    End Sub
+#End Region
+
+#Region "  IMPRESION - NUEVO  "
+    Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
+        GenerarPDF("EXCEL")
+    End Sub
+
+    Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
+        GenerarPDF()
+    End Sub
+
+    Private Sub GenerarPDF(Optional Formato As String = "PDF")
+
+        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
+        If txtFechaI.Text = "" Then FechaI = "-1".ToDate
+        If txtFechaF.Text = "" Then FechaF = "-1".ToDate
+        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
+        Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
+        'Dim SubProyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
+        'Dim Categoria = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b> {DdlCategoria.SelectedItem.Text}")
+        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlClasificacion.SelectedItem.Text}")
+        Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S:</b> {DdlPS.SelectedText}")
+        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
+        Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}")
+        'Dim TipoAF = If(DdlTipoAF.SelectedValue = "-1", "", $"&emsp;<b>Tipo AF:</b> {DdlTipoAF.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 TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero)
+
+        'PARAMETROS EN LISTBOXs
+        Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
+        Dim Categoria = If(DdlCategoria.GetSelectedText = "", "", $"&emsp;<b>Categoria:</b> {DdlCategoria.GetSelectedText}")
+        Dim TipoGasto = If(DdlTipoGasto.GetSelectedText = "", "", $"&emsp;<b>Tipo Gasto:</b> {DdlTipoGasto.GetSelectedText}")
+        Dim TipoAF = If(DdlTipoAF.GetSelectedText = "", "", $"&emsp;<b>Tipo AF:</b> {DdlTipoAF.GetSelectedText}")
+        Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $"&emsp;<b>SubTipo AF:</b> {DdlSubTipoAF.GetSelectedText}")
+
+        If DtDatos.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("UsuarioImprimio", UsuarioActual.Nombre))
+            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+            params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{TipoGasto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{SubTipoAF}{FechaIn}{FechaFn}"))
+
+            If Imagen.Exists Then
+                params.Add(New ReportParameter("LogoPath", logouri))
+            Else
+                params.Add(New ReportParameter("LogoPath", ""))
+            End If
+            ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc", DtDatos, params, "ReportePSDetalle", Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+#End Region
+
+#Region "GRAFICA"
+
+    Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
+        If Not DtDatos IsNot Nothing AndAlso DtDatos.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 DtDatos.Rows
+            If Not Dr("CveCompra").ToString.ToEntero > 0 Then
+                Dim Row As DataRow = Nothing
+                Row = Dt.NewRow()
+                Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").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("Cantidad").ToString.FormatoNumero
+                End Select
+                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("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