-- centros de costo, texto proyecto

App_Code/ClsPaginas.vb

@@ -4291,42 +4291,31 @@ Public Class ClsPaginas
         ObjUsuario.Dispose()
         Return Retorno
     End Function
-    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
+    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LblProyecto As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing, Optional divProyecto As HtmlControl = Nothing)
 
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
-
+            Case 1
-            Case 1 To 3
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
-                If LblSubProyecto IsNot Nothing Then
+                If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
-                    Select Case UsuarioActual.Empresa.Tipo_CentroCosto
+                If divProyecto IsNot Nothing Then divProyecto.Visible = False
-                        Case 1
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro de costo"
-                            LblSubProyecto.Text = "Centro de costo"
+            Case 2
-                        Case 2
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
-                            LblSubProyecto.Text = "Sucursal"
+                If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
-                        Case 3
+                If divProyecto IsNot Nothing Then divProyecto.Visible = False
-                            LblSubProyecto.Text = "Proyecto"
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
-                    End Select
+            Case 3
-                End If
+                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
-
+                If LblProyecto IsNot Nothing Then LblProyecto.Visible = False
-                If DdlProyecto IsNot Nothing Then DdlProyecto.Parent.Visible = False 'DivProyecto
+                If divProyecto IsNot Nothing Then divProyecto.Visible = False
-                If LblProyecto IsNot Nothing Then
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
-                    LblProyecto.Visible = False
+            Case 4
-                Else
+                If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto<br/>"
-                    RegistraScript("$('[id$=""LblProyecto""]').css('display', 'none');")
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
-                End If
+            Case 5
-
+                If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto<br/>"
-            Case 4 To 5
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
-                If LblSubProyecto IsNot Nothing Then
-                    Select Case UsuarioActual.Empresa.Tipo_CentroCosto
-                        Case 4
-                            LblSubProyecto.Text = "Subproyecto"
-                        Case 5
-                            LblSubProyecto.Text = "Sucursal"
-                    End Select
-                End If
-                If LblProyecto IsNot Nothing Then LblProyecto.Text = "Proyecto"
-
         End Select
-
         If DdlProyecto IsNot Nothing Then
             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()

Ventas/RepVentaDetalle.aspx.vb

@@ -288,7 +288,7 @@ Partial Class RepVentaDetalle
     End Sub
 
     Private Sub CargaCombos()
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
         CargaClientes()
         'DdlClientes.setEsWebService(False)
 

Ventas/RepVentas.aspx.vb

@@ -159,7 +159,7 @@ Partial Class Ventas_RepVentas
 
     Private Sub CargaCombos()
 
-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 
         'CargaClientes
         Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)