Obtener los códigos de los proyectos tales que al menos cierta cantidad de cada parte utilizada por ellos le sea suministrada por el proveedor S1.

Select Distinct J#
from SPJ, SPJX
where not exists (select *
from SPJ SPJY
where exists(select *
from SPJ SPJA
where SPJA.P# = SPJY.P#
and SPJ.J# = SPJX.J#)
and not exists (select *
from SPJ SPJB
where SPJB.S# = ‘S1’
and SPJB.P#.= SPJY.P#
and SPJB.J# = SPJX.J#));

Obtener los códigos de los proyectos a los cuales el proveedor S1 suministres todos los tipos de parte suministrados por él.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select Distinct J#
from SPJ, SPJX
where not exists (select P#
from SPJ SPJY
where exists(select *
from SPJ SPJA
where SPJA.S# = ‘S1’
and SPJ.P# = SPJY.P#)
and not exists (select *
from SPJ SPJB
where SPJB.S# = ‘S1’
and SPJB.P#.= SPJY.P#
and SPJB.J# = SPJX.J#));

Obtener los códigos de los proyectos que utilicen solo partes suministradas por el proveedor S1.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)


Select Distinct J#
from SPJ, SPJX
where not exists (select P#
from SPJ SPJY
where SPJY.J# = SPJX.J#
and not exists (select *
from SPJ SPJZ
where SPJZ.P# = SPJY.P#
and SPJZ.S#.= ‘S1’));

Obtener los códigos de los proyectos a los cuales se vendan por lo menos todas las partes suministradas por el proveedor S1.

Select Distinct J#
from SPJ, SPJX
where not exists (select P#
from SPJ SPJY
where SPJY.S# = ‘s1’#
and not exists (select *
from SPJ SPJZ
where SPJZ.P# = SPJY.P#
and SPJ.J# = SPJX.J#));

Algegra: SPJ [J#, P#] divideby (spj where S# = ‘S1’) [P#]

Obtener los códigos de los proyectos donde se utilice al menos una de las partes suministradas por el suministrador ‘S1’.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select distinct J#
From SPJ
Where P# in (select P#
From SPJ
Where S# = ‘S1’);
Algebra: (SPJ Join (SPJ where s# = ‘S1’) [P#]) [J#]

Obtener los códigos de los suministradores que suministran la misma parte a todos los proyectos.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)


Select Distinct S#
From SPJ SPJX
Where exists (select P#
From SPJ SPJY
Where not exists(
Select J#
From J
Where not exists (Select *
From SPJ SPJZ
Where SPJZ.S# = SPJX.S#
And SPJZ.P# = SPJY.P#
And SPJZ.J# = J.J#)));
Algebra: (SPJ [S#, P#, J#] Divide by J[J#]) [S#]

Indique los códigos de los suministradores que venden todas las partes a todos los proyectos.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select S#
From S
Where not exists (select *
From J, P
Where not exists (select *
From SPJ
Where s.s# = s#
And p.p# = p#
And j.j# = SPJ.J#));
Algebra: SPJ[s#,p#,j#] divibedy (p[p#] times j[j#]) [s#]

Obtener los códigos de los proveedores de Londres que han vendido la misma parte a más de 3 proyectos distintos.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select distinct S#
From SPJ
Where S# in (Select S#
From S
Where ciudad = “Londres”)
Group by S#, P#
Having count (*) >3

Seleccionar los códigos de los suministradores que han realizado ventas a algún proyecto que totalizan una cantidad superior a la mitad del total de l

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select distinct s#
From SPJ as A
Group By S#, J#
Having sum (cantidad) > (select sum (cantidad)/2
From SPJ
Where J# = A.J#);

Indique las ciudades en las que se fabrican partes no vendidas o bien residen proveedores que no venden nada.-

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

select ciudad
from p
where not exists (select *
from spj
where p# = p.p#);
union
select ciudad
from s
where not exists (select *
from spj
where s# = s.s#);

Indique las ciudades en las que residen proveedores que venden, al menos, todas las partes fabricadas en la ciudad en la que vive el proveedor.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select distint ciudad
From S
Where not exists (Select *
From P
Where Ciudad =S.Ciudad
And not exists (Select *
From SPJ
Where SN=S.SN
And PN=P.PN));
(SPJ [S#, P#] divide by (P join S) [ciudad]) join [ciudad]

Indique los códigos de las partes usadas en todos los proyectos.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select pn
From p
Where not exists (Select *
From j
Where not exists (select *
From spj
Where pn= p.pn
And jn=j.jn));
((SPJ [J#, P#] divide by J[J#] join S) [P#]

Obtener los códigos de los proyectos para los cuales ‘S1’ es el único proveedor de partes rojas.

Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select J#
From J
Where not exists (Select *
From SPJ
Where J# = J.J#
And S#<>”S1”
And P# in (Select P#
From P#
Where COLOR=”ROJO”));

Indique los códigos de las partes que han sido vendidas por algún proveedor en una cantidad total mayor de 300.

Ejercicios de Algebra y Calculo Relacional.
Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select Distinct P#
From SPJ
Group by P#, S#
Having sum (cantidad) >300;

los códigos de los proyectos que solo usan partes fabricadas en telde.

Ejercicios de Algebra y Calculo Relacional.
Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select Distinct J#
From SPJ A
Where not exists (select *
From SPJ
Where J#=A.J#
And P# in (select P#
from P
where ciudad <> ‘Telde’)); no usan =
SPJ [J#] minus ((SPJ join P) where ciudad <> ‘Telde’) [J#]

Indicar los códigos de los proveedores que solo venden partes fabricadas en su ciudad

Ejercicios de Algebra y Calculo Relacional.
Siempre Trabajando sobre esta Base de Datos:
S(S#, Snombre, Situación, Ciudad)
P(P#, Pnombre, Color, Peso, Ciudad)
J(J#, Jnombre, ciudad)
SPJ(S#,P#,J#, Cantidad)

Select sn
From s
Where not exists (select *
From spj, p
Where spj.pn=p.pn
And sn=s.sn
And ciudad<>s.ciudad);

(s[sn]) minus
((((((s rename ciudad as sciudad)[sn,sciudad]) join (spj[sn,pn])) join (p[pn,ciudad])) where sciudad <>ciudad[sn])

Trabajo Final: Asignatura Dirección Estratégica de Empresas. Analizar la Empresa 3M

Trabajo Final de la Asignatura Dirección Estratégica de Empresas, impartida en la Universidad de las Palmas de Gran Canaria. En mi caso, en la carrera de Informática de Gestión.

El trabajo consta de:

1.- Misión y Objetivos
2.- Análisis Externo (Dimensión Socio-Cultural, Dimensión Económica, Dimensión Política-Legal, Dimensión Tecnológica)
3.- Análisis de Entorno Específico (Análisis de la Estructura de la Industria)
4.- Análisis Interno : Recursos (Recursos Tangibles, Recursos Intangibles, Recursos Humanos), Capacidades (Administración y Dirección, Investigación y Desarrollo, Marketing, Recursos Humanos). Análisis DAFO.
5.- Estratégias Competitivas de 3M.

Trabajo Final de Administración y Dirección de Empresas