WEHK#57307 -- Views en procedure t.b.v. inkoopcontracten workflow
svn path=/Customer/trunk/; revision=43037
This commit is contained in:
Robin Stoker
204
WEHK/WEHK.sql
204
WEHK/WEHK.sql
@@ -1256,6 +1256,22 @@ BEGIN
|
||||
END wehk_update_prs;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE wehk_import_leverancier (p_import_key IN NUMBER
|
||||
)
|
||||
AS
|
||||
BEGIN
|
||||
fac_import_ext_bedrijf(p_import_key);
|
||||
END;
|
||||
/
|
||||
|
||||
CREATE OR REPLACE PROCEDURE wehk_update_leverancier (p_import_key IN NUMBER
|
||||
)
|
||||
AS
|
||||
BEGIN
|
||||
fac_update_bedrijf_body(p_import_key, 1);
|
||||
END;
|
||||
/
|
||||
|
||||
/* Formatted on 2008/07/31 14:25 (Formatter Plus v4.8.7) */
|
||||
CREATE OR REPLACE VIEW wehk_v_rap_ruimteoverzicht (fclt_f_locatie,
|
||||
fclt_f_gebouw,
|
||||
@@ -1675,6 +1691,62 @@ AS
|
||||
END;
|
||||
/
|
||||
|
||||
-- Contractkenmerken vullen met waarden uit Coversheet meldingen
|
||||
CREATE OR REPLACE PROCEDURE wehk_export_contractopvoer (
|
||||
p_applname IN VARCHAR2,
|
||||
p_applrun IN VARCHAR2,
|
||||
p_filedir IN VARCHAR2,
|
||||
p_filename IN VARCHAR2)
|
||||
AS
|
||||
CURSOR wehk_c_opvoer -- Contracten die het meldingnummer van een coversheetmelding hebben in het kenmerkveld, conform kenmerkkeys op PRODUCTIE!!!
|
||||
IS
|
||||
SELECT DISTINCT *
|
||||
FROM (SELECT c.cnt_contract_key,
|
||||
m.mld_melding_key,
|
||||
mk.mld_kenmerk_key,
|
||||
mk.mld_kenmerkmelding_waarde,
|
||||
DECODE (mk.mld_kenmerk_key,
|
||||
2565, 1200,
|
||||
2531, 1401,
|
||||
2594, 1402,
|
||||
2534, 1403,
|
||||
2598, 1184,
|
||||
2587, 1194,
|
||||
2521, 1178)
|
||||
cntkenmerkkey
|
||||
FROM cnt_contract c,
|
||||
mld_melding m,
|
||||
mld_kenmerkmelding mk,
|
||||
cnt_kenmerkcontract ck
|
||||
WHERE m.mld_melding_start_key = ck.cnt_kenmerkcontract_waarde
|
||||
AND ck.cnt_kenmerk_key = 1482 -- meldingsnummer
|
||||
AND m.mld_melding_status = 5 -- afgemeld, dus coversheet is goedgekeurd
|
||||
AND m.mld_stdmelding_key = 1601 -- coversheet en contract
|
||||
AND ck.cnt_contract_key = c.cnt_contract_key
|
||||
AND mk.mld_melding_key = m.mld_melding_key) sub
|
||||
WHERE sub.cntkenmerkkey IS NOT NULL
|
||||
AND NOT EXISTS -- Alleen kenmerken die nog leeg zijn
|
||||
(SELECT 1
|
||||
FROM cnt_kenmerkcontract ck
|
||||
WHERE ck.cnt_contract_key = sub.cnt_contract_key
|
||||
AND ck.cnt_kenmerk_key = sub.cntkenmerkkey);
|
||||
BEGIN
|
||||
FOR rec IN wehk_c_opvoer
|
||||
LOOP
|
||||
INSERT INTO cnt_kenmerkcontract (cnt_contract_key,
|
||||
cnt_kenmerk_key,
|
||||
cnt_kenmerkcontract_waarde,
|
||||
cnt_kenmerkcontract_aanmaak,
|
||||
cnt_kenmerkcontract_wijzig)
|
||||
VALUES (rec.cnt_contract_key,
|
||||
rec.cntkenmerkkey,
|
||||
rec.mld_kenmerkmelding_waarde,
|
||||
SYSDATE,
|
||||
SYSDATE);
|
||||
END LOOP;
|
||||
END;
|
||||
/
|
||||
|
||||
/* Formatted on 17-12-2009 16:10:32 (QP5 v5.115.810.9015) */
|
||||
CREATE OR REPLACE VIEW wehk_v_rap_mld_schade
|
||||
(
|
||||
@@ -3394,6 +3466,77 @@ AS
|
||||
AND TO_CHAR (t.fac_tracking_datum, 'HH24') =
|
||||
TO_CHAR (SYSDATE - 1 / 24, 'HH24')
|
||||
AND TO_CHAR (SYSDATE - 1 / 24, 'HH24') = 23);
|
||||
|
||||
|
||||
-- Rapportage t.b.v. facturatieschema
|
||||
CREATE OR REPLACE VIEW WEHK_V_RAP_FACTUURSCHEMA
|
||||
(
|
||||
CONTRACTKEY,
|
||||
CONTRACT_NUMMER,
|
||||
CONTRACTSOORT,
|
||||
INKOOPCATEGORIE_1E_LEVEL,
|
||||
INKOOPSCATEGORIE_2E_LEVEL,
|
||||
AFDELING_LEVEL1_AANVRAGER,
|
||||
AFDELING_LEVEL2_AANVRAGER,
|
||||
BEDRIJFSNAAM,
|
||||
CONTRACT_OMSCHRIJVING,
|
||||
FACTUURMAAND,
|
||||
BEDRAG,
|
||||
OPMERKING
|
||||
)
|
||||
AS
|
||||
SELECT c.cnt_contract_key,
|
||||
c.cnt_contract_nummer_intern,
|
||||
cd.ins_discipline_omschrijving,
|
||||
(SELECT fac_usrdata_omschr
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrdata_key =
|
||||
(SELECT ckc.cnt_kenmerkcontract_waarde
|
||||
FROM cnt_kenmerkcontract ckc, cnt_kenmerk ck
|
||||
WHERE ckc.cnt_contract_key = c.cnt_contract_key
|
||||
AND ckc.cnt_kenmerk_key = ck.cnt_kenmerk_key
|
||||
AND ck.cnt_srtkenmerk_key = 319))
|
||||
inkoop1,
|
||||
(SELECT fac_usrdata_omschr
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrdata_key =
|
||||
(SELECT ckc.cnt_kenmerkcontract_waarde
|
||||
FROM cnt_kenmerkcontract ckc, cnt_kenmerk ck
|
||||
WHERE ckc.cnt_contract_key = c.cnt_contract_key
|
||||
AND ckc.cnt_kenmerk_key = ck.cnt_kenmerk_key
|
||||
AND ck.cnt_srtkenmerk_key = 320))
|
||||
inkoop2,
|
||||
(SELECT fac_usrdata_omschr
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrdata_key =
|
||||
(SELECT ckc.cnt_kenmerkcontract_waarde
|
||||
FROM cnt_kenmerkcontract ckc, cnt_kenmerk ck
|
||||
WHERE ckc.cnt_contract_key = c.cnt_contract_key
|
||||
AND ckc.cnt_kenmerk_key = ck.cnt_kenmerk_key
|
||||
AND ck.cnt_srtkenmerk_key = 288))
|
||||
afdeling1,
|
||||
(SELECT fac_usrdata_omschr
|
||||
FROM fac_usrdata
|
||||
WHERE fac_usrdata_key =
|
||||
(SELECT ckc.cnt_kenmerkcontract_waarde
|
||||
FROM cnt_kenmerkcontract ckc, cnt_kenmerk ck
|
||||
WHERE ckc.cnt_contract_key = c.cnt_contract_key
|
||||
AND ckc.cnt_kenmerk_key = ck.cnt_kenmerk_key
|
||||
AND ck.cnt_srtkenmerk_key = 289))
|
||||
afdeling2,
|
||||
pb.prs_bedrijf_naam,
|
||||
c.cnt_contract_omschrijving,
|
||||
cf.cnt_factuurschema_boekmaand,
|
||||
cf.cnt_factuurschema_bedrag,
|
||||
cf.cnt_factuurschema_opmerking
|
||||
FROM cnt_factuurschema cf,
|
||||
cnt_contract c,
|
||||
cnt_v_aanwezigdiscipline cd,
|
||||
prs_bedrijf pb
|
||||
WHERE c.cnt_contract_key = cf.cnt_contract_key
|
||||
AND c.cnt_contract_verwijder IS NULL -- niet verwijderd
|
||||
AND c.ins_discipline_key = cd.ins_discipline_key
|
||||
AND c.cnt_prs_bedrijf_key = pb.prs_bedrijf_key;
|
||||
|
||||
-- WEHK#53429: Notificatiejob nieuwe ongevalsmeldingen:
|
||||
CREATE OR REPLACE VIEW WEHK_V_NOTI_NEWMLDONGEVAL
|
||||
@@ -3421,6 +3564,67 @@ AS
|
||||
NULL,
|
||||
NULL
|
||||
FROM WEHK_V_RAP_NEWMLDONGEVAL mldv;
|
||||
|
||||
CREATE OR REPLACE VIEW WEHK_V_NOTI_OPVOERENCONTRACT
|
||||
(
|
||||
CODE,
|
||||
SENDER,
|
||||
RECEIVER,
|
||||
TEXT,
|
||||
KEY,
|
||||
XKEY,
|
||||
XEMAIL,
|
||||
XMOBILE
|
||||
)
|
||||
AS
|
||||
-- Bij nieuwe "opvoeren contract" meldingen moet er een mail gaan naar
|
||||
-- de verzamelbox van de contractafdeling, voor nu even mijn eigen ter test.
|
||||
-- Flag = 1 instellen bij de notificatiejob! (i.v.m. xemail)
|
||||
SELECT 'CUST06',
|
||||
NULL,
|
||||
NULL,
|
||||
( 'Er staat een nieuwe melding voor opvoeren contract voor u klaar ('
|
||||
|| 'i /'
|
||||
|| m.mld_melding_key)
|
||||
|| ')',
|
||||
m.mld_melding_key,
|
||||
NULL,
|
||||
'generiek contractemaildress van wehkamp',
|
||||
NULL
|
||||
FROM mld_melding m
|
||||
WHERE m.mld_stdmelding_key = 1641
|
||||
AND m.mld_melding_status = 2;
|
||||
|
||||
-- Melding naar de in de coversheet melding geselecteerde goedkeurder.
|
||||
CREATE OR REPLACE VIEW WEHK_V_NOTI_GOEDKEURDER
|
||||
(
|
||||
CODE,
|
||||
SENDER,
|
||||
RECEIVER,
|
||||
TEXT,
|
||||
KEY,
|
||||
XKEY,
|
||||
XEMAIL,
|
||||
XMOBILE
|
||||
)
|
||||
AS
|
||||
SELECT 'CUST07',
|
||||
NULL,
|
||||
mkm.mld_kenmerkmelding_waarde,
|
||||
( 'Er staat een coversheet voor u klaar ter goedkeuring ('
|
||||
|| 'i /'
|
||||
|| m.mld_melding_key)
|
||||
|| ')',
|
||||
m.mld_melding_key,
|
||||
NULL,
|
||||
NULL,
|
||||
NULL
|
||||
FROM mld_melding m, mld_kenmerkmelding mkm, mld_kenmerk mk
|
||||
WHERE m.mld_stdmelding_key IN (1621, 1622, 1623, 1624, 1625) -- een van de goedkeuringsmeldingen
|
||||
AND m.mld_melding_status IN (2, 3) -- nieuwe en te accepteren
|
||||
AND mkm.mld_kenmerk_key = mk.mld_kenmerk_key
|
||||
AND mkm.mld_melding_key = m.mld_melding_key
|
||||
AND mk.mld_srtkenmerk_key = 1847;
|
||||
|
||||
|
||||
------ payload end ------
|
||||
|
||||
Reference in New Issue
Block a user