cargas de subproyectos

App_Code/ClsPaginas.vb

@@ -8073,7 +8073,7 @@ Public Class ClsPaginas
     End Sub
 #End Region
 
-    Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label)
+    Public Sub CargarCentrosDeCosto(DdlProyecto As DropDownList, DdlSubProyecto As DropDownList, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos")
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
             Case 1
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
@@ -8096,15 +8096,15 @@ Public Class ClsPaginas
         End Select
 
         If DdlProyecto IsNot Nothing Then
-            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.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
             DdlProyecto.DataBind()
-            DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            If AplicaTodos <> "" Then DdlProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
 
         If DdlSubProyecto IsNot Nothing Then
-            DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+            DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
             DdlSubProyecto.DataBind()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            If AplicaTodos <> "" Then DdlSubProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
         End If
     End Sub
 End Class

Ventas/Ventas.aspx.vb

@@ -2451,8 +2451,8 @@ Partial Class Ventas
 
             CargaFletes()
 
-            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto, AplicaTodos:="")
-            CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
+            CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME, AplicaTodos:="")
             BrSubProyecto.Visible = DdlProyecto.Visible
             divProyectoPyME.Visible = DdlProyecto.Visible
 
@@ -14418,8 +14418,8 @@ Partial Class Ventas
 
             DdlSubProyecto.Items.Clear()
             DdlSubProyecto.DataSource = DTSucursal
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.SelectedValue = "-1"
+            'DdlSubProyecto.SelectedValue = "-1"
             DdlSubProyecto.DataBind()
             DdlSubProyecto.SelectedValueExist(DdlSubProyectoDatos.SelectedValue)
             CambiaSucursal()