diff --git a/Inventarios/Equivalencia.aspx.vb b/Inventarios/Equivalencia.aspx.vb
index c357c49f5..9844c5684 100644
--- a/Inventarios/Equivalencia.aspx.vb
+++ b/Inventarios/Equivalencia.aspx.vb
@@ -29,7 +29,7 @@ Partial Class Inventarios_Equivalencia
     Private Sub InicializarListas()
         'Llenar el dropdownlist de unidad de medida
 
-        ddlUnidad.DataSource = GlobalDTUnidadesMedida()
+        ddlUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
         ddlUnidad.DataBind()
 
 
@@ -245,7 +245,7 @@ Partial Class Inventarios_Equivalencia
     Protected Sub gvEquivalencias_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvEquivalencias.RowDataBound
 
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
+            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
             e.Row.FCDropDownList("ddlEUnidad").DataBind()
         End If
diff --git a/OC/CotizacionEnvio.aspx.vb b/OC/CotizacionEnvio.aspx.vb
index 8fc084c94..2636302f6 100644
--- a/OC/CotizacionEnvio.aspx.vb
+++ b/OC/CotizacionEnvio.aspx.vb
@@ -230,7 +230,7 @@ Partial Class OC_CotizacionEnvio
 
                     If objCotizacion.AddCotizacion(CveOrdenCompra, CveProveedor, CveColectiva, "-1", "-1", "", 1, 0, 0) Then
                         'Cargar los detalles de la cotizacion
-                        If objCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
+                        If objCotizacion.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                             'Agrega CveCotizacion a la lista
                             OrdenCotizacion.Add(objCotizacion.CveCotizacion)
                             For Each RowCD As DataRow In objCotizacion.DtResultados.Rows
@@ -397,7 +397,7 @@ Partial Class OC_CotizacionEnvio
         'verifico los permisos según el estatus
 
         Dim dtConceptos As DataTable = Nothing
-        If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+        If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
             dtConceptos = objOC.DtResultados
         End If
 
diff --git a/OC/OC.aspx b/OC/OC.aspx
index dd6c99ce1..88f22bc33 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -212,7 +212,8 @@
                                                 <asp:Label runat="server" ID="lblFolio" Font-Bold="true"></asp:Label>
                                             </label>
                                             <b>
-                                                <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
+                                                          
+                                          <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
                                             <div class="col-md-4" id="DivPrioridad" runat="server">
                                                 <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
                                                     <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
@@ -220,6 +221,9 @@
                                                     <asp:ListItem Text="Media" Value="2"></asp:ListItem>
                                                     <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
                                                 </asp:DropDownList>
+                                                 <asp:DropDownList ID="DdlSubProyectoGral" Visible="false" CssClass="form-control  select2me" runat="server" Width="85%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
+                                                     <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
+                                                 </asp:DropDownList>
                                             </div>
                                         </div>
                                     </ContentTemplate>
@@ -446,15 +450,7 @@
                                             <asp:Label ID="LblUsuarioAsignado" runat="server" Text=""></asp:Label>
                                              <asp:HiddenField ID="hdnCveSuperior" runat="server" Value="-1" />
                                         </td>
-                                    </tr>
-                                    <tr id="trSubProyecto">
-                                        <td><b>Sucursal:</b></td>
-                                        <td>
-                                            <asp:DropDownList ID="DdlSubProyectoGral" CssClass="form-control  select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" OnSelectedIndexChanged ="DdlSubProyectoGral_SelectedIndexChanged" AutoPostBack="true">
-                                                <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
-                                            </asp:DropDownList>
-                                        </td>
-                                    </tr>
+                                    </tr>                                   
                                     <tr id="trCfdi" style="display:none;" >
                                         <td>
                                             <div class="caption font-green">
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 269cc9922..419e71f4c 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -728,7 +728,7 @@ Partial Class OC_OC
                 'temporal
                 If UsuarioActual.CveEmpresa = 189 Then
                     'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
-                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
+                    DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC).FiltraParametros("", "SubProyecto", DistinctColumns:={"CveSubProyecto", "SubProyecto"})
                     DdlSubProyectoGral.DataBind()
                     DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
                 End If
@@ -957,8 +957,11 @@ Partial Class OC_OC
                 End If
             End If
 
-            If UsuarioActual.CveRol = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
                 chkSubProyectoEntrega.Visible = True
+                LblPrioridad.Text = "Sucursal"
+                DdlPrioridad.Visible = False
+                DdlSubProyectoGral.Visible = True
             End If
 
         End If
@@ -4956,7 +4959,7 @@ Partial Class OC_OC
         End If
     End Sub
     Private Sub BtnEliminarCotizacion_Click(sender As Object, e As EventArgs) Handles BtnEliminarCotizacion.Click
-        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim)
+        Dim Body As String = GeneraCorreoEliminarCotizacion(HdnCveCotizacion.Value.ToEntero, TxtMotivoEliminacion.Text.Trim, UsuarioActual.CveEmpresa)
         RegistraScript("hideDivEC();")
     End Sub
 #End Region
@@ -6428,7 +6431,7 @@ Partial Class OC_OC
 
                 'verifico los permisos según el estatus
 
-                If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+                If objOC.GetOrdenesDetalle(CveOrdenCompra, UsuarioActual.CveEmpresa) Then
                     For Each dr As DataRow In objOC.DtResultados.Rows
                         strBody.AppendFormat("<tr class='Texto'><td>{0}</td><td>{1}</td><td><span style='width: 220px; border-bottom: 1px solid gray;'>{2}</span><br>{3}</td><td>{4}</td><td style='width:150px;'><span style='width: 150px; border-bottom: 1px solid gray;'>{5}</span><br>{6}</td><td>{7}</td><td align='right'>{8}</td><td align='right'>{9}</td></tr>",
                                                     dr("Cantidad").ToString.FormatoNumero, dr("Abreviatura"), dr("Clasificacion"), dr("PS"), dr("Observacion"), dr("Proyecto"), If(CveEmpresaActual = 66, "", dr("SubProyecto")), dr("Codigo"), If(Not IsDBNull(dr("Importe")), FormatCurrency(dr("Importe").ToString), ""), If(Not IsDBNull(dr("Total")), FormatCurrency(dr("Total").ToString), ""))
@@ -6470,7 +6473,7 @@ Partial Class OC_OC
         objOC.GetOC(CveOrdenCompra, CveEmpresaActual)
         CveProveedor = objOC.CveProveedor
         Dim DttDetalle As DataTable = Nothing
-        If objOC.GetOrdenesDetalle(CveOrdenCompra) Then
+        If objOC.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
             DttDetalle = objOC.DtResultados
         End If
 
@@ -6567,7 +6570,7 @@ Partial Class OC_OC
 #End Region
 
 #Region "Correo Eliminar Cotización"
-    Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String) As String
+    Private Function GeneraCorreoEliminarCotizacion(CveCotizacion As Integer, Motivo As String, CveEmpresaActual As Integer) As String
         Dim ObjCotizacion As New ClsOC
         ObjCotizacion.GetCotizaciones(CveOrdenCompra, CveCotizacion)
         Dim strBody As New StringBuilder
@@ -6650,7 +6653,7 @@ Partial Class OC_OC
         strBody.Append("           </tr>")
 
         Dim dtConceptos As DataTable = Nothing
-        If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra) Then
+        If ObjCotizacion.GetOrdenesDetalle(CveOrdenCompra, CveEmpresaActual) Then
             dtConceptos = ObjCotizacion.DtResultados
         End If
 
@@ -9282,6 +9285,8 @@ Partial Class OC_OC
     End Sub
 
     Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
+        DdlSubProyecto.SelectedValueExist(DdlSubProyectoGral.SelectedValue)
+        UPPDetalle.Update()
         CargaFolios()
     End Sub
 End Class
diff --git a/OC/RepCotizacionesDetalle.aspx.vb b/OC/RepCotizacionesDetalle.aspx.vb
index 29e725848..c4598de88 100644
--- a/OC/RepCotizacionesDetalle.aspx.vb
+++ b/OC/RepCotizacionesDetalle.aspx.vb
@@ -131,7 +131,7 @@ Partial Class PopOCCotizacionesDetalle
     Private Sub CargaOCDetalle(pCveOrden As Integer)
         Dim objOC As New ClsOC
 
-        If objOC.GetOrdenesDetalle(pCveOrden) Then
+        If objOC.GetOrdenesDetalle(pCveOrden, UsuarioActual.CveEmpresa) Then
             DtDetalle = objOC.DtResultados
         End If
 
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 34a55b6bd..5fba840c0 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -474,7 +474,7 @@ Partial Class OS_OrdenesServicios
     End Sub
 
     Private Sub CargaTiposVenta()
-        DdlTipoVenta.DataSource = GlobalDTTipoVenta().FiltraParametros("Estatus = 'True' ")
+        DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlTipoVenta.DataBind()
     End Sub
 
diff --git a/OS/PopUpMateriales.aspx.vb b/OS/PopUpMateriales.aspx.vb
index c2ea18ead..003610457 100644
--- a/OS/PopUpMateriales.aspx.vb
+++ b/OS/PopUpMateriales.aspx.vb
@@ -127,7 +127,7 @@ Partial Class OS_PopUpMateriales
                     Dim RowPS As DataRow = DTPS.FiltraParametros("CvePS = " & Material("CvePS").ToString).Rows(0)
                     Dim PS As String = RowPS("PS").ToString
                     Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
-                    Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
+                    Dim UM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
                     Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
                     Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
 
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index 296551dc9..f6d48d7ac 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -102,7 +102,7 @@ Partial Class CatSubProyectos
 
     Private Sub RecargaGlobal()
         GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
-        GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing
         GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
 
     End Sub
diff --git a/Presupuestos/GenerarPresupuestos.aspx.vb b/Presupuestos/GenerarPresupuestos.aspx.vb
index 0b60ba2bd..2aa6266d6 100644
--- a/Presupuestos/GenerarPresupuestos.aspx.vb
+++ b/Presupuestos/GenerarPresupuestos.aspx.vb
@@ -202,7 +202,7 @@ Partial Class Presupuestos_GenerarPresupuestos
         ddlUM.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
         ddlMOUnidad.Items.Insert(0, New System.Web.UI.WebControls.ListItem("---------", "-1"))
 
-        ddlPUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+        ddlPUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
         ddlPUM.DataBind()
 
         Dim ObjClientes As New ClsClientes
@@ -506,7 +506,7 @@ Partial Class Presupuestos_GenerarPresupuestos
             Dim PU As Double = DtPS.FiltraParametros("CvePS=" & ddlMOPS.SelectedValue.ToString).Rows(0)("Precio").ToString.ToDouble
             tbPrecioMO.Text = PU.ToString
 
-            ddlMOUnidad.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+            ddlMOUnidad.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             ddlMOUnidad.DataBind()
         End If
 
@@ -550,7 +550,7 @@ Partial Class Presupuestos_GenerarPresupuestos
         If ddlPS.SelectedIndex > 0 Then
             Dim PU As Double = DtPS.FiltroPrimero("CvePS=" & ddlPS.SelectedValue.ToString)("Precio").ToString.ToDouble
             tbPrecio.Text = PU.ToString
-            ddlUM.DataSource = GlobalDTUnidadesMedida.FiltraParametros("CveEmpresa=" & UsuarioActual.CveEmpresa)
+            ddlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             ddlUM.DataBind()
         End If
     End Sub
diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index e2e34b308..2d0ad96bd 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -591,7 +591,7 @@ Partial Class Sistemas_CatSesiones
             Case ""
                 dt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
             Case Else
-                dt = DirectCast(Application(DdlVariable.SelectedValue & UsuarioActual.CveEmpresa), DataTable)
+                dt = DirectCast(HttpContext.Current.Application(DdlVariable.SelectedValue & "-" & UsuarioActual.CveEmpresa), DataTable)
         End Select
 
         Gv.DataSource = dt
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 2266011ad..b3a35cb8a 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1319,7 +1319,7 @@ Partial Class ProductosyServicios
 #Region "GV PAQUETE DETALLE"
     Protected Sub gvPaqueteDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvPaqueteDetalle.RowDataBound
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida()
+            e.Row.FCDropDownList("ddlEUnidad").DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("ddlEUnidad").SelectedValue = e.Row.DBCampo("CveUnidadMedida")
             e.Row.FCDropDownList("ddlEUnidad").DataBind()
         End If