admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FSN#31643 Handmatig bestelopdracht versturen tracken

Browse Source 
svn path=/Database/trunk/; revision=24043
This commit is contained in:
Jos Groot Lipman
2015-02-04 15:45:35 +00:00
parent 8f37115861
commit 61e5df5cea
1 changed files with 17 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
FAC/FAC_PAC.SRC
View File

@@ -109,7 +109,7 @@ CREATE OR REPLACE PACKAGE fac AS
PROCEDURE putjobnotifications (pviewname VARCHAR2, pmode NUMBER, pflags NUMBER); PROCEDURE putjobnotifications (pviewname VARCHAR2, pmode NUMBER, pflags NUMBER);
FUNCTION getMobile ( pkey IN NUMBER ) RETURN VARCHAR2; FUNCTION getMobile ( pkey IN NUMBER ) RETURN VARCHAR2;
PROCEDURE executeschedules; PROCEDURE executeschedules;
PROCEDURE markorderassent(pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2); PROCEDURE markorderassent(pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2, pperslid_key NUMBER DEFAULT NULL);
FUNCTION getSetting (pname IN VARCHAR2 ) RETURN VARCHAR2; FUNCTION getSetting (pname IN VARCHAR2 ) RETURN VARCHAR2;
PROCEDURE trackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE, poms VARCHAR2); PROCEDURE trackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE, poms VARCHAR2);
PROCEDURE backtrackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE); PROCEDURE backtrackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE);
@@ -2634,7 +2634,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
-- Voor customer-orderqueues dient overeenkomstige CUST.markorderassent() te worden gedefinieerd. -- Voor customer-orderqueues dient overeenkomstige CUST.markorderassent() te worden gedefinieerd.
-- Bij presult=2 weet je niet zeker wat de leverancier heeft gedaan, bij mail veronderstel je ontvangst, maar weet je -- Bij presult=2 weet je niet zeker wat de leverancier heeft gedaan, bij mail veronderstel je ontvangst, maar weet je
-- het niet zeker. Met 5.1.2 (UWVA#21074) is daarvoor de status 4 tussengevoegd -- het niet zeker. Met 5.1.2 (UWVA#21074) is daarvoor de status 4 tussengevoegd
PROCEDURE markorderassent (pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2) PROCEDURE markorderassent (pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2, pperslid_key NUMBER DEFAULT NULL)
AS AS
order_confirm prs_bedrijf.prs_bedrijf_order_confirm%TYPE; order_confirm prs_bedrijf.prs_bedrijf_order_confirm%TYPE;
melding_key mld_opdr.mld_melding_key%TYPE; melding_key mld_opdr.mld_melding_key%TYPE;
@@ -2648,7 +2648,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
SET mld_opdr_verzonden = SYSDATE SET mld_opdr_verzonden = SYSDATE
WHERE mld_opdr_key = pkey; WHERE mld_opdr_key = pkey;
fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext); fac.trackaction ('ORDSNT', pkey, pperslid_key, NULL, presulttext);
mld.setopdrachtstatus (pkey, 5, NULL); mld.setopdrachtstatus (pkey, 5, NULL);
ELSIF presult = 1 -- (Logische) fout ELSIF presult = 1 -- (Logische) fout
THEN THEN
@@ -2656,12 +2656,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
SET mld_opdr_verzonden = SYSDATE SET mld_opdr_verzonden = SYSDATE
WHERE mld_opdr_key = pkey; WHERE mld_opdr_key = pkey;
fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext); fac.trackaction ('ORDSNT', pkey, pperslid_key, NULL, presulttext);
-- status van de opdracht wordt afgewezen. -- status van de opdracht wordt afgewezen.
mld.setopdrachtstatus (pkey, 1, NULL); mld.setopdrachtstatus (pkey, 1, NULL);
ELSIF presult = 2 ELSIF presult = 2
THEN THEN
fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext); fac.trackaction ('ORDSNT', pkey, pperslid_key, NULL, presulttext);
-- De leverancier heeft geen feedback gegeven, wat is het gedrag dan voor deze leverancier? -- De leverancier heeft geen feedback gegeven, wat is het gedrag dan voor deze leverancier?
SELECT b.prs_bedrijf_order_confirm SELECT b.prs_bedrijf_order_confirm
INTO order_confirm INTO order_confirm
@@ -2678,17 +2678,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
UPDATE mld_opdr UPDATE mld_opdr
SET mld_opdr_verzonden = SYSDATE SET mld_opdr_verzonden = SYSDATE
WHERE mld_opdr_key = pkey; WHERE mld_opdr_key = pkey;
mld.setopdrachtstatus (pkey, 5, NULL); mld.setopdrachtstatus (pkey, 5, pperslid_key);
ELSE ELSE
UPDATE mld_opdr UPDATE mld_opdr
SET mld_opdr_verzonden = SYSDATE SET mld_opdr_verzonden = SYSDATE
WHERE mld_opdr_key = pkey; WHERE mld_opdr_key = pkey;
mld.setopdrachtstatus (pkey, 8, NULL); mld.setopdrachtstatus (pkey, 8, pperslid_key);
END IF; END IF;
ELSIF presult < 0 ELSIF presult < 0
THEN THEN
-- just track, nothing changes really -- just track, nothing changes really
fac.trackaction ('ORDSNX', pkey, NULL, NULL, presulttext); fac.trackaction ('ORDSNX', pkey, pperslid_key, NULL, presulttext);
END IF; END IF;
SELECT mld_melding_key SELECT mld_melding_key
@@ -2697,17 +2697,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
WHERE o.mld_opdr_key = pkey; WHERE o.mld_opdr_key = pkey;
-- als laatste de status van de melding aanpassen. -- als laatste de status van de melding aanpassen.
mld.updatemeldingstatus (melding_key, 0, NULL); mld.updatemeldingstatus (melding_key, 0, pperslid_key);
WHEN 'bestelopdr' WHEN 'bestelopdr'
THEN THEN
IF presult = 0 IF presult = 0
THEN THEN
-- Succesvol -- Succesvol
fac.trackaction ('BES2SN', pkey, NULL, NULL, presulttext); fac.trackaction ('BES2SN', pkey, pperslid_key, NULL, presulttext);
bes.acceptopdracht(pkey, NULL, presulttext); bes.acceptopdracht(pkey, NULL, presulttext);
ELSIF presult = 1 -- (Logische) fout ELSIF presult = 1 -- (Logische) fout
THEN THEN
fac.trackaction ('BES2SX', pkey, NULL, NULL, presulttext); fac.trackaction ('BES2SX', pkey, pperslid_key, NULL, presulttext);
bes.rejectopdracht(pkey, NULL, presulttext); bes.rejectopdracht(pkey, NULL, presulttext);
ELSIF presult = 2 ELSIF presult = 2
THEN THEN
@@ -2717,7 +2717,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
FROM prs_bedrijf b, bes_bestelopdr o FROM prs_bedrijf b, bes_bestelopdr o
WHERE b.prs_bedrijf_key = o.prs_bedrijf_key WHERE b.prs_bedrijf_key = o.prs_bedrijf_key
AND o.bes_bestelopdr_key = pkey; AND o.bes_bestelopdr_key = pkey;
fac.trackaction ('BES2SN', pkey, NULL, NULL, presulttext); fac.trackaction ('BES2SN', pkey, pperslid_key, NULL, presulttext);
IF order_confirm = 1 IF order_confirm = 1
THEN THEN
@@ -2725,23 +2725,23 @@ CREATE OR REPLACE PACKAGE BODY fac AS
UPDATE bes_bestelopdr UPDATE bes_bestelopdr
SET bes_bestelopdr_status = 5 SET bes_bestelopdr_status = 5
WHERE bes_bestelopdr_key = pkey; WHERE bes_bestelopdr_key = pkey;
fac.trackaction ('BES2BE', pkey, NULL, NULL, presulttext); fac.trackaction ('BES2BE', pkey, pperslid_key, NULL, presulttext);
ELSE ELSE
bes.acceptopdracht(pkey, NULL, presulttext); bes.acceptopdracht(pkey, pperslid_key, presulttext);
END IF; END IF;
ELSIF presult < 0 ELSIF presult < 0
THEN THEN
-- just track, nothing changes really -- just track, nothing changes really
fac.trackaction ('BES2SX', pkey, NULL, NULL, presulttext); fac.trackaction ('BES2SX', pkey, pperslid_key, NULL, presulttext);
END IF; END IF;
WHEN 'contract' WHEN 'contract'
THEN THEN
IF presult = 1 IF presult = 1
THEN -- (Logische) fout; kan nog niet voorkomen voorlopig, maar toch THEN -- (Logische) fout; kan nog niet voorkomen voorlopig, maar toch
fac.trackaction ('CNTSNX', pkey, NULL, NULL, presulttext); fac.trackaction ('CNTSNX', pkey, pperslid_key, NULL, presulttext);
ELSE ELSE
-- Succesvol -- Succesvol
fac.trackaction ('CNTSNT', pkey, NULL, NULL, presulttext); fac.trackaction ('CNTSNT', pkey, pperslid_key, NULL, presulttext);
END IF; END IF;
-- reset -- reset
UPDATE cnt_contract UPDATE cnt_contract