Zapytania SQL... Opcje

[funfel]

Witam,
Nie bardzo mogę sobie poradzić z kilkoma zapytaniami SQL, m.in.:

1. Wypisz jakie usługi dla kontraktów 2,3 i 4 były aktywne w 2001-07-02.
2. Dla każdego kontraktu w bazie, wypisz aktualny status usługi nr 10 i nr
20.

Zalecana postać:

ID_KONTRAKTU USL_10 USL_20
1 "Aktywna" "Aktywna"
2 "Aktywna" "Deaktywna"
3 "Deaktywna" "Deaktywna"

3. Wypisz wszystkie usługi, dla kontraktu, mającego aktualnie najwięcej
włączonych usług.

Gdyby ktoś mial jakieś pomysły, to proszę o pomoc Z gry dzięki

Zapytania dotyczą tabeli Uslugi
Dodam że atrybut data_zm określa datę zmiany stanu usługi z aktywnej na
nieaktywna i odwrotnie.

Pozdrawiam, Bartek

A oto kod generujący tabele:

[SQL] pobierz, plaintext 
CREATE TABLE USLUGI
(
  KONTRAKT_ID  NUMBER(10),
  USLUGA_ID     NUMBER(4),
  SEQNO			NUMBER(4),
  DATA_ZM		DATE,
  STATUS		VARCHAR(1)
);
 
TRUNCATE TABLE uslugi;
 
declare j number;
		k number;
		u number;
		sq number;
		d1 number;
		dt date;
		dt2 date;
		st number;
		us_n number;
 
BEGIN dt := TO_DATE ('2000-01-01', 'YYYY-MM-DD');
   FOR j IN 1 .. 10000
   LOOP
	   u:=1;
	   d1 := TRUNC (DBMS_RANDOM.VALUE (1, 1300));
	   sq := TRUNC (DBMS_RANDOM.VALUE (1, 4));
	   dt2 := dt + d1;
	   k :=0;
	   us_n := TRUNC (DBMS_RANDOM.VALUE (1, 20));
	   FOR i IN 1 .. us_n
	   LOOP
		  k := TRUNC (DBMS_RANDOM.VALUE (1, 10));
	      --sys.dbms_output.put_line(to_char(dt2,'YYYY-MM-DD'));
	      INSERT INTO uslugi VALUES (j, u , 0, dt2, 'a');
		  IF sq>1 then 
		      INSERT INTO uslugi VALUES (j, u , 1, dt2+k, 'd');
			  IF sq>2 then 
			      INSERT INTO uslugi VALUES (j, u , 2, dt2+2*k, 'a');
		      end IF;
		  end IF;
	      u:=u+k;
	   END LOOP;
   END LOOP;
   COMMIT;
END;
/
[SQL] pobierz, plaintext 

[KILIUSZKIN]

Tak na szybko (bez sprawdzania)
Ad1.)

[SQL] pobierz, plaintext 
SELECT DISTINCT (u.kontrakt_id, u.usluga_id) FROM uslugi u WHERE u.kontrakt_id BETWEEN 2 AND 4 AND u.STATUS='a' AND u.data_zm <= trunc(TO_DATE ('2001-07-02', 'YYYY-MM-DD')) AND (NOT EXISTS 
 (SELECT 1 FROM uslugi uu WHERE uu.kontrakt_id=u.kontrakt_id AND uu.usluga_id=u.usluga_id AND uu.STATUS='d' AND uu.data_zm > u.data_zm AND uu.data_zm <= trunc(TO_DATE ('2001-07-02', 'YYYY-MM-DD'))
) )
[SQL] pobierz, plaintext 

Powinno zadziałać

Pozostałe punkty w wolnej chwili (jeśli znajdę )

Znowu na szybko, bez sprawdzenia
Ad2) Powinno zadziałać, choć na pewno optymalne to nie jest

[SQL] pobierz, plaintext 
SELECT u1.kontrakt_id, decode(u1.STATUS,'a','Aktywna','Deaktywna'),
decode(u2.STATUS,'a','Aktywna','Deaktywna') 
FROM uslugi u1, 
uslugi u2 
WHERE u1.kontrakt_id=u2.kontrakt_id AND u1.usluga_id=10 AND u2.usluga=20 AND u1.data_zm=
(SELECT max(u3.data_zm) FROM uslugi u3 WHERE u3.kontrakt_id=u1.kontrakt_id) AND u2.data_zm=
(SELECT max(u4.data_zm) FROM uslugi u4 WHERE u4.kontrakt_id=u1.kontrakt_id))
[SQL] pobierz, plaintext 

Ad3)
Może zadziała a może nie, spróbuj

[SQL] pobierz, plaintext 
SELECT u0.kontrakt_id, u0.usluga_id, max(cnt) FROM ( SELECT u1.kontrakt_id, u1.usluga_id, count(u1.usluga_id) cnt
    FROM uslugi u1 WHERE u1.STATUS='a' AND data_zm=(SELECT max(u2.data_zm) 
FROM uslugi u2 WHERE u2.kontrakt_id=u1.kontrakt_id) 
GROUP BY kontrakt_id, usluga_id 
ORDER BY 3 DESC ) u0
GROUP BY kontrakt_id, usluga_id
[SQL] pobierz, plaintext