correcciones en algunas páginas e implementación del metodo de subproyecto y proyecto

AF/AF.aspx

@@ -397,7 +397,7 @@
 
                                                             <div class="row" runat="server" id="RowProyecto">
                                                                 <div class="col-md-4 ">
-                                                                    <label class="  control-label">Proyecto: </label>
+                                                                    <asp:Label runat="server" ID="lblProyecto" class="  control-label">Proyecto: </asp:Label>
                                                                 </div>
 
                                                                 <div class="col-md-7">
@@ -411,7 +411,7 @@
 
                                                             <div class="row">
                                                                 <div class="col-md-4 ">
-                                                                    <label class="  control-label">SubProyecto: </label>
+                                                                    <asp:Label runat="server" ID="LblSubProyecto" class="  control-label">SubProyecto: </asp:Label>
                                                                 </div>
 
                                                                 <div class="col-md-7">

AF/AF.aspx.vb

@@ -275,10 +275,6 @@ Partial Class AF_AF
 
             End If
 
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-                RowProyecto.Visible = False
-            End If
-
             If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.UsaContabilidad Then
                 ActivarRegistroCuentaAF()
             End If
@@ -320,8 +316,8 @@ Partial Class AF_AF
         CargaTipoActivoFijo()
         CargaResponsable()
         CargaEstatusActivoFijo()
-        'CargaProyecto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
-        CargaSubProyecto()
+        RowProyecto.Visible = DdlProyecto.Visible
         CargaCliente()
         CargaGrupos()
         CargaMarcas()
@@ -404,10 +400,10 @@ Partial Class AF_AF
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
     End Sub
-    Private Sub CargaProyecto()
+    'Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
+    '    DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
-        DdlProyecto.DataBind()
+    '    DdlProyecto.DataBind()
-    End Sub
+    'End Sub
     Private Sub CargaEstatusActivoFijo()
         DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
         DdlEstadoActivoFijo.DataBind()

AF/CatAF.aspx

@@ -106,11 +106,19 @@
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlEstatus" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="EstadoActivoFijo" DataValueField="CveEstadoActivoFijo"></asp:DropDownList>
                         </div>
-                        <div class="col-md-1">Proyecto: </div>
+                        <div runat="server" id="DivProyecto" class="col-md-1">
-                        <div class="col-md-2">
+                            <asp:Label runat="server" ID="LblProyecto">
+                                Proyecto:
+                            </asp:Label>
+                        </div>
+                        <div runat="server" id="DivProyectoDdl" class="col-md-2">
                             <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
                         </div>
-                        <div class="col-md-1">SubProyecto: </div>
+                        <div class="col-md-1">
+                            <asp:Label runat="server" ID="LblSubProyecto">
+                                SubProyecto: 
+                            </asp:Label>
+                        </div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>
                         </div>

AF/CatAF.aspx.vb

@@ -88,9 +88,12 @@ Partial Class AF_CatAF
         DdlEstatus.DataBind()
         DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
-        DdlProyecto.DataBind()
+        DivProyecto.Visible = LblProyecto.Visible
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        DivProyectoDdl.Visible = LblProyecto.Visible
+        'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
+        'DdlProyecto.DataBind()
+        'DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
         DdlCliente.DataBind()

AF/PopUpBuscarAF.aspx

@@ -177,15 +177,19 @@
                     </td>
                 </tr>
                 <tr>
-                    <td class="text-right"><b>Proyecto:</b></td>
+                    <td runat="server" id="tdProyecto" class="text-right">
-                    <td>
+                        <asp:Label runat="server" ID="LblProyecto" Font-Bold="true">Proyecto:</asp:Label>
+                    </td>
+                    <td runat="server" id="tdDdlProyecto">
                         <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar">
                             <asp:ListItem Selected="True" Text="Sin Proyecto asignado" Value="-1"></asp:ListItem>
                         </asp:DropDownList>
                     </td>
                     <%-- </tr>
                             <tr>--%>
-                    <td class="text-right"><b>SubProyecto:</b></td>
+                    <td class="text-right">
+                        <asp:Label runat="server" ID="LblSubProyectos" Font-Bold="true">SubProyecto:</asp:Label>
+                    </td>
                     <td>
                         <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar">
                             <asp:ListItem Selected="True" Text="Sin SubProyecto asignado" Value="-1"></asp:ListItem>

AF/PopUpBuscarAF.aspx.vb

@@ -126,7 +126,11 @@ Partial Class AF_PopUpBuscarAF
             CargaEstatusActivoFijo()
             CargaMarcaActivoFijo()
             'CargaModeloActivoFijo()
-            CargaProyecto()
+            CargarCentrosDeCosto(DdlProyecto, Nothing, LblProyecto, LblSubProyectos)
+            If Not LblProyecto.Visible Then
+                tdProyecto.Attributes.Add("style", "display:none")
+                tdDdlProyecto.Attributes.Add("style", "display:none")
+            End If
             CargaSubProyecto()
             CargaSubTipoActivoFijo()
             CargaCliente()
@@ -236,10 +240,6 @@ Partial Class AF_PopUpBuscarAF
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto asignado", "-1"))
     End Sub
-    Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-    End Sub
     Private Sub CargaEstatusActivoFijo()
         DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
         DdlEstadoActivoFijo.DataBind()

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -48,10 +48,6 @@ Partial Class Acumuladores_CatFoliosGarantia
 #Region "Folios Garantía"
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
-        DdlSubProyectos.Items.Clear()
-        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectos.DataBind()
-        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

Acumuladores/RepIndicadorDiario.aspx

@@ -151,10 +151,10 @@
 
                             <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                         <div class="col-md-2">
-                            <%--  <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
+                              <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
                                 <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>--%>
+                            </asp:DropDownList>
-                            <asp:ListBox ID="DdlSubProyecto"  AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>
+                            <%--<asp:ListBox ID="DdlSubProyecto"  AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>--%>
                         </div>
 
                            

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -84,10 +84,8 @@ Partial Class ACumuladores_RepIndicadorDiario
 
     Private Sub CargaCombos()
 
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-        DdlSubProyecto.DataBind()
+        DdlSubProyecto.SelectedValueExist("-1")
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyecto.SelectedValuesIfExist("-1")
 
     End Sub
 
@@ -188,7 +186,7 @@ Partial Class ACumuladores_RepIndicadorDiario
         If txtFechaF.Text = "" Then FechaFn = ""
 
 
-        Dim SubProyecto = If(DdlSubProyecto.GetSelectedText = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.GetSelectedText}")
+        Dim SubProyecto = If(DdlSubProyecto.SelectedItem.Text = "", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
 
 
         Dim FechaIF, FechaFF As String

App_Code/ClsPaginas.vb

@@ -8045,19 +8045,22 @@ Public Class ClsPaginas
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
             Case 1
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
-                LblSubProyecto.Text = "Centro Costo"
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Centro Costo"
             Case 2
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
-                LblSubProyecto.Text = "Sucursal"
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
             Case 3
                 If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
-                LblSubProyecto.Text = "Proyecto"
+                If LthProyectoP IsNot Nothing Then LthProyectoP.Visible = False
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Proyecto"
             Case 4
                 If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
-                LblSubProyecto.Text = "Subproyecto"
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Subproyecto"
             Case 5
                 If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto<br/>"
-                LblSubProyecto.Text = "Sucursal"
+                If LblSubProyecto IsNot Nothing Then LblSubProyecto.Text = "Sucursal"
         End Select
 
         If DdlProyecto IsNot Nothing Then

App_Code/ClsSisEmpresas.vb

@@ -449,7 +449,7 @@ Public Class ClsSisEmpresas
                 _Empresa.PV_TerminalTipo = Data.Rows(0)("PV_TerminalTipo").ToString.ToEntero
                 _Empresa.EjercicioActual = Data.Rows(0)("EjercicioActual").ToString.ToEntero
                 _Empresa.PeriodoActual = Data.Rows(0)("PeriodoActual").ToString.ToEntero
-                _Empresa.GralSoloProyecto = Data.Rows(0)("Gral_SoloProyecto").ToString <> "No"
+                '_Empresa.GralSoloProyecto = Data.Rows(0)("Gral_SoloProyecto").ToString <> "No"
                 _Empresa.MetodoOC = Data.Rows(0)("MetodoOC").ToString.ToEntero
                 _Empresa.CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
                 _Empresa.RequiereCentroCostos = Data.Rows(0)("RequiereCentroCostos").ToString <> "No"

App_Code/Empresa.vb

@@ -40,7 +40,6 @@ Public Class Empresa
     Public Property MostrarRetIVA As Boolean
     Public Property EjercicioActual As Integer
     Public Property PeriodoActual As Integer
-    Public Property GralSoloProyecto As Boolean
     Public Property MetodoOC As Integer
     Public Property CveMetodoInventario As Integer
     Public Property RequiereCentroCostos As Boolean

Compras/Compras.aspx

@@ -4431,7 +4431,7 @@
                                                     <div class="col-md-6" id="divproyecto" runat="server">
                                                         <div class="form-group form-md-line-input input-iconright">
                                                             <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" Width="50%" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto">
-                                                                <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                <%--<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>--%>
                                                             </asp:DropDownList>
                                                             <%--  <asp:RequiredFieldValidator runat="server" Enabled="true" Display="None" ID="RFVProyecto" ControlToValidate="DdlProyecto" InitialValue="-1" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
                                                                             <ajax:ValidatorCalloutExtender ID="VCEProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>--%>

Compras/Compras.aspx.vb

@@ -1534,96 +1534,17 @@ Partial Class Compras_Compras
                 liServicios.Visible = False
                 DivConsignaciones.Visible = False
             End If
-
             CargarCentrosDeCosto(DdlAsignarProyecto, DdlAsignaSubProyecto, LitHProyecto, LblSubProyectoHeader)
-            If UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+            CargarCentrosDeCosto(DdlProyecto, Nothing, Nothing, Nothing)
-                '    LitHProyecto.Text = "Proyecto"
+            divproyecto.Visible = DdlProyecto.Visible
-                '    LthProyectoP.Text = "Proyecto"
-
-                '    LblSubProyectoHeader.Text = ""
-                '    LblSubProyectoPHeader.Text = ""
-
-                '    LblSubProyecto.InnerText = "Proyecto"
-                '    'LblSubProyectoDivAplica.InnerText = "Proyecto"
-
-                'DdlSubProyecto.Items.Clear()
-                ''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                '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.DataBind()
-                'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                '    'DdlAsignaSubProyecto.Items.Clear()
-                '    'DdlAsignaSubProyecto.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))
-                '    'DdlAsignaSubProyecto.DataBind()
-                '    'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                divproyecto.Visible = False
-                'divasignaproyecto.Visible = False
-                DdlProyecto.Visible = False
-                DdlProyecto.Items(0).Text = ""
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-                '    LitHProyecto.Text = "Sucursal"
-                '    LthProyectoP.Text = "Sucursal"
-
-                '    LblSubProyectoHeader.Text = ""
-                '    LblSubProyectoPHeader.Text = ""
-
-                '    LblSubProyecto.InnerText = "Sucursal"
-                '    'LblSubProyectoDivAplica.InnerText = "Sucursal"
-
-                'DdlSubProyecto.Items.Clear()
-                ''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                '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.DataBind()
-                'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                '    'DdlAsignaSubProyecto.Items.Clear()
-                '    'DdlAsignaSubProyecto.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))
-                '    'DdlAsignaSubProyecto.DataBind()
-                '    'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                divproyecto.Visible = False
-                'divasignaproyecto.Visible = False
-                DdlProyecto.Visible = False
-                DdlProyecto.Items(0).Text = ""
-
-                'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-                '    LitHProyecto.Text = "Sucursal"
-                '    LthProyectoP.Text = "Sucursal"
-
-                '    LblSubProyectoHeader.Text = "Proyecto"
-                '    LblSubProyectoPHeader.Text = "Proyecto"
-
-                '    'LblSubProyectoDivAplica.InnerText = "Sucursal"
-                '    'LblProyectoDivAplica.InnerText = "Proyecto"
-                '    LblSubProyecto.InnerText = "Sucursal"
-                '    LblProyecto.InnerText = "Proyecto"
-
-                'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-                '    LitHProyecto.Text = "Proyecto"
-                '    LthProyectoP.Text = "Proyecto"
-
-                '    LblSubProyectoHeader.Text = "Sucursal"
-                '    LblSubProyectoPHeader.Text = "Sucursal"
-
-                '    'LblSubProyectoDivAplica.InnerText = "Proyecto"
-                '    'LblProyectoDivAplica.InnerText = "Sucursal"
-                '    LblSubProyecto.InnerText = "Proyecto"
-                '    LblProyecto.InnerText = "Sucursal"
-            End If
 
             CargaGvPersonal()
             CargaDdlPersonal()
 
-
             InicializaDevolucionAlmacen()
             HabilitaEdicionManualAgregar()
             InicializaActualizarTC()
 
-
-
-
             LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCompra:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCompra)
 
         End If
@@ -11300,7 +11221,6 @@ Partial Class Compras_Compras
         CargaClasificacionesComprobaciones()
         CargaClasificaciones()
         CargaPS(-1)
-        CargaProyecto()
         CreaDTCompras()
         CargaMonedas()
         CargarAlmacen()
@@ -17430,12 +17350,7 @@ Partial Class Compras_Compras
             Alert("Es necesario seleccionar el Proveedor al cual se le va a capturar.", TipoMensaje.MsgAdvertencia, "AbrirVentana(""/Compras/PopUpBuscarProveedor.aspx?Opt=Fact"", 800, 547, ""N"", ""PopUpBuscar"")")
         End If
     End Sub
-    Private Sub 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.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-    End Sub
     Protected Sub DdlProyectoAsignado_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
         CargaSubProyecto()
     End Sub

OC/OC.aspx.vb

@@ -696,46 +696,18 @@ Partial Class OC
             End If
 
             If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-                DdlProyecto.Visible = False
-                'TituloSubProyecto.Text = ""
-                'TtituloProyecto.Text = "Sucursal"
-                DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-                DivProyecto.Visible = False
-                DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyectoContrato.DataBind()
-                DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                LblSubProyecto.Text = "Sucursal"
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                DdlProyecto.Visible = False
-                'TituloSubProyecto.Text = ""
-                'TtituloProyecto.Text = "Proyecto"
-                DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-                DivProyecto.Visible = False
-                DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyectoContrato.DataBind()
-                DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                LblSubProyecto.Text = "Proyecto"
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-                'TtituloProyecto.Text = "Sucursal"
-                'TituloSubProyecto.Text = "Proyecto"
 
-                LblSubProyecto.Text = "Proyecto"
-                LblProyecto.Text = "Sucursal"
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-                'TtituloProyecto.Text = "Proyecto"
-                'TituloSubProyecto.Text = "Sucursal"
 
-                LblSubProyecto.Text = "Sucursal"
-                LblProyecto.Text = "Proyecto"
             End If
 
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, TtituloProyecto, TituloSubProyecto)
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoContrato, LblProyecto, LblSubProyecto)
+            DivProyecto.Visible = DdlProyecto.Visible
 
             'SOLO SE MUESTRA CUANDO ES REGISTRO NUEVO
             If Not CveOrdenCompra > 0 Then

Ventas/Ventas.aspx

@@ -595,9 +595,12 @@
                             </td>
                         </tr>
                         <tr align="left">
-                            <td><b>Sucursal:</b></td>
                             <td>
-                                <asp:DropDownList ID="DdlSubProyectoDatos" AutoPostBack="True" runat="server" CssClass="form-control input-sm " DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100px"></asp:DropDownList></td>
+                                <asp:Label runat="server" Font-Bold="true" ID="LblSubProyectosDatos">Sucursal:</asp:Label>
+                            </td>
+                            <td>
+                                <asp:DropDownList ID="DdlSubProyectoDatos" AutoPostBack="True" runat="server" CssClass="form-control input-sm " DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100px"></asp:DropDownList>
+                            </td>
                         </tr>
                         <tr align="left">
                             <td><b>Serie - Folio:</b></td>

Ventas/Ventas.aspx.vb

@@ -2451,66 +2451,10 @@ Partial Class Ventas
 
             CargaFletes()
 
-            If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
-                DdlProyecto.Visible = False
+            CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
-                BrSubProyecto.Visible = False
+            BrSubProyecto.Visible = DdlProyecto.Visible
-                DdlProyectoPyME.Visible = False
+            divProyectoPyME.Visible = DdlProyecto.Visible
-                LblProyectoHeader.Text = "Sucursal"
-                LblSubProyecto.Text = ""
-                divProyectoPyME.Visible = False
-                LblSubProyectoPyME.Text = "Sucursal"
-                Dim dttSub As New DataTable
-                dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-
-                DdlSubProyecto.Items.Clear()
-                DdlSubProyecto.DataSource = dttSub
-                'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                DdlSubProyectoPyME.Items.Clear()
-                DdlSubProyectoPyME.DataSource = dttSub
-                'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyectoPyME.DataBind()
-                DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                dttSub.Dispose()
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                DdlProyecto.Visible = False
-                BrSubProyecto.Visible = False
-                DdlProyectoPyME.Visible = False
-                LblProyectoHeader.Text = "Proyecto"
-                LblSubProyecto.Text = ""
-                divProyectoPyME.Visible = False
-                LblSubProyectoPyME.Text = "Proyecto"
-                Dim dttSub As New DataTable
-                dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-
-                DdlSubProyecto.Items.Clear()
-                DdlSubProyecto.DataSource = dttSub
-                'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                DdlSubProyectoPyME.Items.Clear()
-                DdlSubProyectoPyME.DataSource = dttSub
-                'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                DdlSubProyectoPyME.DataBind()
-                DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                dttSub.Dispose()
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-                LblProyectoHeader.Text = "Sucursal"
-                LblSubProyecto.Text = "Proyecto"
-
-            ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-                LblProyectoHeader.Text = "Proyecto"
-                LblSubProyecto.Text = "Sucursal"
-
-            End If
-
-            'CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
-            'CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
 
             'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
             If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then