94 lines
2.7 KiB
Plaintext
94 lines
2.7 KiB
Plaintext
#ifdef SCH
|
|
|
|
/* SCH_PAC.SRC
|
|
*
|
|
* Revisie:
|
|
*
|
|
* --- 04.42 --- FSN #728 Function no longer in use
|
|
* --- xx.xx ---
|
|
* --- 01.40 ---
|
|
* --- 01.39 ---
|
|
* --- 01.38 ---
|
|
* --- 01.37 ---
|
|
* --- 01.36 ---
|
|
* --- 01.35 ---
|
|
* --- 01.34 ---
|
|
* --- 01.33 ---
|
|
* --- 01.32 ---
|
|
* --- 01.31 ---
|
|
* --- 01.30 ---
|
|
* 01-07-97 AH Aangemaakt
|
|
*/
|
|
|
|
|
|
/*
|
|
CREATE OR REPLACE FUNCTION SCH_P_SCH_BepaalFrequentieCode( SrtRuimteKey IN NUMBER, SrtVloerKey IN NUMBER,
|
|
ActiviteitKey IN NUMBER, NivoKey IN NUMBER) RETURN VARCHAR2 IS
|
|
FrequentieCode sch_frequentie.sch_frequentie_code%TYPE;
|
|
BEGIN
|
|
FrequentieCode := NULL;
|
|
IF FrequentieCode IS NULL
|
|
THEN
|
|
BEGIN
|
|
SELECT SCH_F.sch_frequentie_code
|
|
INTO FrequentieCode
|
|
FROM sch_frequentie SCH_F, sch_werkzaamheden SCH_W
|
|
WHERE SCH_F.sch_frequentie_key = SCH_W.sch_frequentie_key
|
|
AND SCH_W.sch_alg_srtruimte_key = SrtRuimteKey
|
|
AND SCH_W.sch_srtvloer_key = SrtVloerKey
|
|
AND SCH_W.sch_activiteit_key = ActiviteitKey
|
|
AND SCH_W.sch_nivo_key = NivoKey;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN FrequentieCode := NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN FrequentieCode := NULL;
|
|
END;
|
|
END IF;
|
|
IF FrequentieCode IS NULL
|
|
THEN
|
|
BEGIN
|
|
SELECT SCH_F.sch_frequentie_code
|
|
INTO FrequentieCode
|
|
FROM sch_frequentie SCH_F, sch_werkzaamheden SCH_W
|
|
WHERE SCH_F.sch_frequentie_key = SCH_W.sch_frequentie_key
|
|
AND SCH_W.sch_alg_srtruimte_key = SrtRuimteKey
|
|
AND SCH_W.sch_srtvloer_key IS NULL
|
|
AND SCH_W.sch_activiteit_key = ActiviteitKey
|
|
AND SCH_W.sch_nivo_key = NivoKey;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN FrequentieCode := NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN FrequentieCode := NULL;
|
|
END;
|
|
END IF;
|
|
IF FrequentieCode IS NULL
|
|
THEN
|
|
BEGIN
|
|
SELECT SCH_F.sch_frequentie_code
|
|
INTO FrequentieCode
|
|
FROM sch_frequentie SCH_F, sch_werkzaamheden SCH_W
|
|
WHERE SCH_F.sch_frequentie_key = SCH_W.sch_frequentie_key
|
|
AND SCH_W.sch_alg_srtruimte_key IS NULL
|
|
AND SCH_W.sch_srtvloer_key = SrtVloerKey
|
|
AND SCH_W.sch_activiteit_key = ActiviteitKey
|
|
AND SCH_W.sch_nivo_key = NivoKey;
|
|
EXCEPTION
|
|
WHEN NO_DATA_FOUND
|
|
THEN FrequentieCode := NULL;
|
|
WHEN TOO_MANY_ROWS
|
|
THEN FrequentieCode := NULL;
|
|
END;
|
|
END IF;
|
|
IF FrequentieCode IS NULL
|
|
THEN
|
|
FrequentieCode := '-';
|
|
END IF;
|
|
RETURN FrequentieCode;
|
|
END;
|
|
/
|
|
*/
|
|
|
|
#endif // SCH
|