Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2020-07-07 12:14:55 -07:00
parent 1b7daf4649 a3d4c02976
commit 64ed9960d8
32 changed files with 148 additions and 329 deletions
--- a/AF/AF.aspx
+++ b/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">
--- a/AF/AF.aspx.vb
+++ b/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()
-        CargaSubProyecto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, lblProyecto, LblSubProyecto)
+        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()
-        DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
-        DdlProyecto.DataBind()
-    End Sub
+    'Private Sub CargaProyecto()
+    '    DdlProyecto.DataSource = GlobalDTProyectos(CveEmpresaActual)
+    '    DdlProyecto.DataBind()
+    'End Sub
    Private Sub CargaEstatusActivoFijo()
        DdlEstadoActivoFijo.DataSource = GlobalDTEstadoActivoFijo
        DdlEstadoActivoFijo.DataBind()
--- a/AF/CatAF.aspx
+++ b/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 class="col-md-2">
+                        <div runat="server" id="DivProyecto" class="col-md-1">
+                            <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>
--- a/AF/CatAF.aspx.vb
+++ b/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)
-        DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
+        DivProyecto.Visible = LblProyecto.Visible
+        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()
--- a/AF/PopUpBuscarAF.aspx
+++ b/AF/PopUpBuscarAF.aspx
@@ -177,15 +177,19 @@
                    </td>
                </tr>
                <tr>
-                    <td class="text-right"><b>Proyecto:</b></td>
-                    <td>
+                    <td runat="server" id="tdProyecto" class="text-right">
+                        <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>
--- a/AF/PopUpBuscarAF.aspx.vb
+++ b/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()
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/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)
--- a/Acumuladores/RepIndicadorDiario.aspx
+++ b/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:ListBox ID="DdlSubProyecto"  AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>
+                            </asp:DropDownList>
+                            <%--<asp:ListBox ID="DdlSubProyecto"  AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" Style="width: 100%;" runat="server"></asp:ListBox>--%>
                        </div>

                           
--- a/Acumuladores/RepIndicadorDiario.aspx.vb
+++ b/Acumuladores/RepIndicadorDiario.aspx.vb
@@ -84,10 +84,8 @@ Partial Class ACumuladores_RepIndicadorDiario

    Private Sub CargaCombos()

-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyecto.SelectedValuesIfExist("-1")
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+        DdlSubProyecto.SelectedValueExist("-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
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -304,7 +304,7 @@ Public Class ClsInventarios

        Return Retorno
    End Function
-    Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Boolean,
+    Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Integer,
                                    Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1,
                                    Optional CveUsuarioConsulta As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
@@ -315,7 +315,7 @@ Public Class ClsInventarios
            .Add("@FechaF", SqlDbType.VarChar).Value = FechaFin
            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
            .Add("@CveTipoAlmacen", SqlDbType.VarChar).Value = CveTipoAlmacen
-            .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable
+            .Add("@Inventariable", SqlDbType.Int).Value = Inventariable
            .Add("@SoloMovimientosContables", SqlDbType.Bit).Value = SoloMovimientosContables
            .Add("@Modalidad", SqlDbType.Int).Value = Contabilizable
            .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -783,20 +783,20 @@ Public Class ClsPaginas
            Application("GlobalDTMonedasAlias") = value
        End Set
    End Property
-    Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
-        Get
-            If CveEmpresa <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
-                GlobalDTSucursales = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
-            End If
-        End Get
-        Set(value As DataTable)
-            Application("GlobalDTSucursales") = value
-        End Set
-    End Property
+    'Property GlobalDTSucursales(Optional CveEmpresa As Integer = -1) As DataTable
+    '    Get
+    '        If CveEmpresa <> -1 Then
+    '            Dim Dv As New DataView(DirectCast(Application("GlobalDTSucursales"), DataTable), String.Format("CveEmpresa = {0}", CveEmpresa), " Sucursal", DataViewRowState.CurrentRows)
+    '            GlobalDTSucursales = Dv.ToTable
+    '            Dv.Dispose()
+    '        Else
+    '            GlobalDTSucursales = DirectCast(Application("GlobalDTSucursales"), DataTable)
+    '        End If
+    '    End Get
+    '    Set(value As DataTable)
+    '        Application("GlobalDTSucursales") = value
+    '    End Set
+    'End Property
    Property GlobalDTSATUsosCFDI(Optional EsPersonaFisica As Integer = -1) As DataTable
        Get
            If EsPersonaFisica <> -1 Then
@@ -1013,10 +1013,10 @@ Public Class ClsPaginas
    End Property
    Property GlobalDTProyectosUsuarios(CveUsuario As Integer, CveProyecto As Integer, CveEmpresa As Integer, CveEstatus As Integer) As DataTable
        Get
-
-            If Application("GlobalDTProyectosUsuarios") Is Nothing AndAlso DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable).Rows.Count = 0 Then
+            Dim AppNombre As String = String.Format("GlobalDTProyectosUsuarios-{0}", CveEmpresa)
+            If Application(AppNombre) Is Nothing Then
                Dim ObjSubProyectos As New ClsSubProyectos()
-                If ObjSubProyectos.GetSubProyectosUsuarios Then Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
+                If ObjSubProyectos.GetSubProyectosUsuarios Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
                ObjSubProyectos.Dispose()
                GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
            End If
@@ -1028,25 +1028,18 @@ Public Class ClsPaginas
                If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
                If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)

-                Dim Dv As New DataView(DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
                GlobalDTProyectosUsuarios = Dv.ToTable
                Dv.Dispose()

            Else
-                GlobalDTProyectosUsuarios = DirectCast(Application("GlobalDTProyectosUsuarios"), DataTable)
+                GlobalDTProyectosUsuarios = DirectCast(Application(AppNombre), DataTable)
            End If

        End Get
        Set(ByVal value As DataTable)
-            If value Is Nothing OrElse value.Rows.Count = 0 Then
-                Dim msg As String = "aqui no se carga proyectos"
-                If Request IsNot Nothing Then
-                    msg = msg & Request.ServerVariables("URL")
-                End If
-                msg.GuardaLog()
-
-            End If
-            Application("GlobalDTProyectosUsuarios") = value
+            Dim AppNombre As String = String.Format("GlobalDTSubProyectosUsuarios-{0}", CveEmpresa)
+            Application(AppNombre) = value
        End Set
    End Property
    Property GlobalDTPrecioListas(CveEmpresa As Integer) As DataTable
@@ -1779,20 +1772,26 @@ Public Class ClsPaginas
    End Property
    Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
        Get
+            Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjUsr As New ClsSisUsuarios
+                If ObjUsr.GetAlmacen(-1, CveEmpresa) Then Application(AppNombre) = ObjUsr.DtResultados
+                ObjUsr.Dispose()
+            End If

            Dim Str As New StringBuilder
            If CveEmpresa <> -1 Then Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
            If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
            If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)

-            Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
            GlobalDTAlmacenUsuarios = Dv.ToTable
            Dv.Dispose()
-
-
        End Get
        Set(value As DataTable)
-            Application("GlobalDTAlmacenUsuarios") = value
+            Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
+            Application(AppNombre) = value
        End Set
    End Property

@@ -8045,19 +8044,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
--- a/App_Code/ClsSisEmpresas.vb
+++ b/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"
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -1571,13 +1571,14 @@ Public Class ClsSisUsuarios

 #End Region
 #Region " A L M A C E N "
-    Public Function GetAlmacen(CveUsuario As Integer) As Boolean
+    Public Function GetAlmacen(CveUsuario As Integer, CveEmpresa As Integer) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_Sis_UsuariosAlmacenesGet")

        With SqlAdapter.SelectCommand.Parameters
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
        End With

        Try
--- a/App_Code/Empresa.vb
+++ b/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
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -7478,21 +7478,24 @@ Namespace Modelos
        End Property
        Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1) As DataTable
            Get
-                If CveEmpresa <> -1 Then
-                    Dim Str As New StringBuilder
-                    Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
-                    If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
-
-                    Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                    GlobalDTAlmacenUsuarios = Dv.ToTable
-                    Dv.Dispose()
-                Else
-                    GlobalDTAlmacenUsuarios = DirectCast(HttpContext.Current.Application("GlobalDTAlmacenUsuarios"), DataTable)
+                Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
+                'sino existe, recarga los datos
+                If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                    Dim ObjUsr As New ClsSisUsuarios
+                    If ObjUsr.GetAlmacen(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjUsr.DtResultados
+                    ObjUsr.Dispose()
                End If
+                Dim Str As New StringBuilder
+                Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
+                If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)

+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+                GlobalDTAlmacenUsuarios = Dv.ToTable
+                Dv.Dispose()
            End Get
            Set(value As DataTable)
-                HttpContext.Current.Application("GlobalDTAlmacenUsuarios") = value
+                Dim AppNombre As String = String.Format("GlobalDTAlmacenUsuarios-{0}", CveEmpresa)
+                HttpContext.Current.Application(AppNombre) = value
            End Set
        End Property
        Property GlobalDTNom_Periodos() As DataTable
--- a/Compras/Compras.aspx
+++ b/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>--%>
--- a/Compras/Compras.aspx.vb
+++ b/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
-                '    LitHProyecto.Text = "Proyecto"
-                '    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
+            CargarCentrosDeCosto(DdlProyecto, Nothing, Nothing, Nothing)
+            divproyecto.Visible = DdlProyecto.Visible

            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
--- a/GPS/FacturacionMasiva.aspx.vb
+++ b/GPS/FacturacionMasiva.aspx.vb
@@ -511,7 +511,7 @@ Partial Class Contratos_FacturacionMasiva
        ObjFactura.CveCondicionEntrega = -1
        ObjFactura.CondicionEntrega = ""
        ObjFactura.NumeroCuenta = ""
-        ObjFactura.CveSucursal = GlobalDTSucursales.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero
+        'ObjFactura.CveSucursal = GlobalDTSubProyectos.FiltroPrimeroValor("CveSucursal", $"CveEmpresa = {UsuarioActual.CveEmpresa}").ToEntero
        'ObjFactura.Cliente.NumCtaPago = TxtNumCtaPago.Text.Trim
        ObjFactura.CondicionesPago = 0
        ObjFactura.FormaPago = 0
--- a/Global.asax
+++ b/Global.asax
@@ -498,8 +498,8 @@
            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
        Else
            Application("GlobalDTUsuarios") = Nothing
-        End If
-        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+        End If
+        'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
        ObjUsuarios.Dispose()

        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--- a/Inventarios/Apartados.aspx.vb
+++ b/Inventarios/Apartados.aspx.vb
@@ -132,9 +132,6 @@ Partial Class Inventarios_Apartados

        TipoSeccionAlmacen = 0

-        GvDatos.Columns(5).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-        GvDatosDesapartado.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-
    End Sub
    Private Sub CargaCombos()

@@ -631,12 +628,6 @@ Partial Class Inventarios_Apartados
        Next

        Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad")
-        'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-        '    If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then
-        '        Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-        '        Exit Sub
-        '    End If
-        'End If

        Dim ObjInventario As New ClsInventarios

@@ -909,13 +900,6 @@ Partial Class Inventarios_Apartados
            End If
        Next

-        'If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then
-        '    If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then
-        '        Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia)
-        '        Exit Sub
-        '    End If
-        'End If
-
        'VALIDA SI HUBO CAMBIOS EN LA EXISTENCIA
        Dim CantidadGV = GvDatosDesapartado.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("Cantidad").ToDouble)
        'Alert($"Cantidad GV {CantidadGV} <br/> Cantidad DT {GetExistenciasDT().SUM("Cantidad")}")
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -340,7 +340,6 @@ Partial Class Inventarios_EntradasSalidas
            BtnContabilizar.Enabled = PermiteContabilizar()
            BtnNuevo.Enabled = PermiteCrearNuevo()

-            ActivaPermisoSeccionAlmacen()
            If CveMovimiento > 0 Then
                PermisoVerImportes()
            End If
@@ -367,11 +366,7 @@ Partial Class Inventarios_EntradasSalidas
    Private Function PermiteCrearNuevo() As Boolean
        Return If(UsuarioActual.TienePermisoProceso(184) Or EsConsumoInterno, True, False)
    End Function
-    Private Sub ActivaPermisoSeccionAlmacen()
-        If CveMovimiento <= 0 Then
-            GvM.Columns(11).Visible = UsuarioActual.Empresa.Funcionalidad(147) = "1"
-        End If
-    End Sub
+
    Private Sub PermisoVerImportes()
        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
        ' tdPU.Visible = TienePermisoImportes
@@ -2286,13 +2281,6 @@ Partial Class Inventarios_EntradasSalidas
                e.Row.FCTextBox("LblEditCodigo").Attributes.Add("onblur", String.Format("AFBlurEdit(this,{0},{1});", e.Row.FCHiddenField("HdnCveActivoFijo").ClientID, e.Row.FCHiddenField("HdnCodigoAF").ClientID))
                e.Row.FCImage("ImgAF").Attributes.Add("onclick", String.Format("AbrirVentana('/AF/PopUpBuscarAF.aspx?OPCION=OCE&RI={0}',950,600,'N');", e.Row.RowIndex))

-                'If UsuarioActual.Empresa.Funcionalidad(147) = "1" Then
-                '    e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero)
-                '    e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()
-                '    e.Row.FCDropDownList("DdlSeccionAlmacen").SelectedValueExist(e.Row.DBCampo("CveSeccionAlmacen"))
-                'End If
-
-
                'PERMISO SOLO PARA EDITAR OBSERVACIONES
                If PermiteGuardarObservacionDetalle() Then
                    e.Row.FCTextBox("txtPrecio").Enabled = False
--- a/Inventarios/RepAlmacen.aspx
+++ b/Inventarios/RepAlmacen.aspx
@@ -143,8 +143,13 @@
                        <div class="col-md-2 v-center">
                            <asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
                        </div>
+                         <div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkInventariable" CssClass="md-checksd" runat="server" Text="Aplica Inventario" />
+                             <asp:DropDownList ID="DdlAplicaInventario" runat="server" CssClass="input-small input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
+                                <asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
+                            </asp:DropDownList>                           
                        </div>
                    </div>
                </div>
--- a/Inventarios/RepAlmacen.aspx.vb
+++ b/Inventarios/RepAlmacen.aspx.vb
@@ -60,7 +60,7 @@ Partial Class Inventarios_RepAlmacen
        Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
        Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()

-        If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked,
+        If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, DdlAplicaInventario.SelectedValue.ToEntero,
                                  Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
            GVAlmacen.DataSource = objInv.DtResultados
            TmpDT = objInv.DtResultados
--- a/Inventarios/RepAnomalias.aspx
+++ b/Inventarios/RepAnomalias.aspx
@@ -234,7 +234,7 @@
                    <asp:BoundField HeaderText="Existencia" DataField="CantidadAlmacen" ItemStyle-HorizontalAlign="Right" />
                    <asp:BoundField HeaderText="Inv. Físico" DataField="CantidadInventarioFisico" ItemStyle-HorizontalAlign="Right" />
                    <asp:BoundField HeaderText="Diferencia" DataField="Diferencia" DataFormatString="{0:#,###.##}" ItemStyle-Font-Bold="true" />
-                    <asp:BoundField HeaderText="Costo" DataField="Costo" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Costo" DataField="Costo" DataFormatString="{0:#,##0.00}" ItemStyle-HorizontalAlign="Right" />
                </Columns>
            </asp:GridView>

--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -152,8 +152,6 @@ Partial Class Inventarios_ResguardoMaterial
        CargaCombos()
        TxtFecha.Text = Now.ToShortDateString
        TxtFechaLiberacion.Text = Now.ToShortDateString
-        GvM.Columns(6).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-        GvMLiberacion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"

        GvM.DataBind()

--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -195,10 +195,6 @@ Partial Class Inventarios_TraspasoAlmacen

            If Request("CveEntrada") IsNot Nothing AndAlso Request("CveEntrada").ToString.ToEntero > 0 Then
                CargaMovimiento(Request("CveEntrada").ToString.ToEntero)
-            Else
-                GvDatos.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-                GvDatosRecepcion.Columns(7).Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
-                ThSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(563) = "1"
            End If

            If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
--- a/OC/OC.aspx.vb
+++ b/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
--- a/RH/RepDocumentacionVencida.aspx.vb
+++ b/RH/RepDocumentacionVencida.aspx.vb
@@ -87,7 +87,7 @@ Partial Class RH_RepDocumentacionVencida



-        DDLSucursal.DataSource = GlobalDTSucursales(UsuarioActual.Empresa.CveEmpresa)
+        DDLSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.Empresa.CveEmpresa)
        DDLSucursal.DataBind()
        DDLSucursal.Items.Insert(0, New ListItem("Todos", "-1"))
        If UsuarioActual.CveSucursal > 0 Then
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1303,12 +1303,13 @@ Partial Class Sistemas_UsuarioDetalle
        End If

        If Not TieneError Then
-            If ObjSubProyectos.GetSubProyectosUsuarios Then
-                Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
-            Else
-                Application("GlobalDTProyectosUsuarios") = Nothing
-                TieneError = True
-            End If
+            GlobalDTProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa, -1) = Nothing
+            'If ObjSubProyectos.GetSubProyectosUsuarios Then
+            '    Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
+            'Else
+            '    Application("GlobalDTProyectosUsuarios") = Nothing
+            '    TieneError = True
+            'End If
        End If

        'RECARGA GLOBAL BANCOS
@@ -1318,13 +1319,14 @@ Partial Class Sistemas_UsuarioDetalle

        'RECARGA GLOBAL ESTATUS
        If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-        If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
-
-
-        'RECARGA GLOBAL ALMACEN
-        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-
-        'RECARGA GLOBAL EMPRESAS USUARIOS
+        If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
+
+
+        'RECARGA GLOBAL ALMACEN
+        If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+
+
+        'RECARGA GLOBAL EMPRESAS USUARIOS
        If ObjUsuarios.GetUsuariosEmpresas(-1) Then
            Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
            Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados.FiltraParametros("ProveedoresResponsables > 0")
--- a/Ventas/Ventas.aspx
+++ b/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>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2451,66 +2451,10 @@ Partial Class Ventas

            CargaFletes()

-            If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-                DdlProyecto.Visible = False
-                BrSubProyecto.Visible = False
-                DdlProyectoPyME.Visible = False
-                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)
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto)
+            CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME)
+            BrSubProyecto.Visible = DdlProyecto.Visible
+            divProyectoPyME.Visible = DdlProyecto.Visible

            'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
            If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
@@ -10836,7 +10780,7 @@ Partial Class Ventas
                                        importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
                                        importeMX = importeMovimiento * tipoCambio * Multiplicador
                                        FechaMovimiento = ObjFactura.FechaPago
-                                        Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"

                                        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                        'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -10913,7 +10857,7 @@ Partial Class Ventas

                                        importeMX = importeMovimiento * tipoCambio * Multiplicador
                                        FechaMovimiento = ObjFactura.FechaPago
-                                        Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"

                                        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                        'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
@@ -10978,7 +10922,7 @@ Partial Class Ventas
                                        importeMovimiento = (TmpDTDetalle.SUM("Descuento", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador
                                        importeMX = importeMovimiento * tipoCambio * Multiplicador
                                        FechaMovimiento = ObjFactura.FechaPago
-                                        Concepto = $"{ViewState("VentaFolio").ToString()} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"
+                                        Concepto = $"{ObjFactura.SerieFolio} {If(Row2("CveClasificacion").ToString().ToEntero() > 0, GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = {Row2("CveClasificacion").ToString()}"), "")} - {If(Row2("CveSubProyecto").ToString().ToEntero() > 0, GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto", $"CveSubProyecto = {Row2("CveSubProyecto").ToString()}"), "Sin SubProyecto Asignado")}"

                                        If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
                                        'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -78,6 +78,8 @@
    
  
    
+  
+