Ventas/RepPS.aspx.vb

@@ -21,6 +21,20 @@ Partial Class Ventas_RepPS
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            pnlOrden.Visible = False
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+                pnlOrden.Visible = True
+                DdlOrden.SelectedValue = "2"
+                'Using ObjPS As New ClsProductosServicios
+                '    If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+                '        DdlMarca.DataSource = ObjPS.DtResultados.Copy()
+                '    End If
+                'End Using
+                'DdlMarca.DataBind()
+                'DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+            End If
+
+
             CargaDatosIniciales()
             CargaCombos()
             CargaDatos()
@@ -69,6 +83,7 @@ Partial Class Ventas_RepPS
     End Sub
 
     Private Sub CargaTipoCentroCosto()
+        Dim index As Integer = 17
 
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
             DdlSubProyecto.Items.Clear()
@@ -88,13 +103,19 @@ Partial Class Ventas_RepPS
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
             DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
             DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
+            If DdlGrupo.Items.Count < 17 Then
+                index = DdlGrupo.Items.Count
+            End If
+            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
             DdlGrupo.DataBind()
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
             LblSubProyecto.InnerText = "Proyecto:"
             DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
             DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
+            If DdlGrupo.Items.Count < 17 Then
+                index = DdlGrupo.Items.Count
+            End If
+            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
             DdlGrupo.DataBind()
         ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
             LblSubProyecto.InnerText = "Sucursal:"
@@ -117,7 +138,7 @@ Partial Class Ventas_RepPS
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
 
         Dim ObjVentas As New ClsVentas()
-        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca) Then
+        If ObjVentas.GetRepPSEcono(CveSubProyecto, CvePS, FechaI, FechaF, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, GPO:=Grupo, CveMoneda:=CveMoneda, TipoCambio:=TC, TCEspecifico:=TCEspecifico, Clasificacion:=Clasificacion, Linea:=Linea, Marca:=Marca, orden:=DdlOrden.SelectedValue.ToEntero()) Then
             DtReporte = ObjVentas.DtResultados.Copy()
             GvDatos.DataSource = DtReporte
         Else