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

UWVA#17646

Browse Source 
svn path=/Database/trunk/; revision=10696
This commit is contained in:
Maykel Geerdink
2011-05-18 09:17:52 +00:00
parent 1b3171ed13
commit 4c876c8586
1 changed files with 65 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
FAC/FAC_PAC.SRC
View File

@@ -1,5 +1,5 @@
/* $Revision: 210 $
* $Modtime: 5-05-11 13:25 $
/* $Revision: 211 $
* $Modtime: 18-05-11 11:17 $
*/
/*
@@ -2288,7 +2288,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
PROCEDURE executeactiviteit (pxmlnode VARCHAR2, pactkey NUMBER)
AS
lkey NUMBER (10);
lkey_m NUMBER (10);
lkey_new NUMBER (10);
luserkey NUMBER (10);
lvolgnr mld_opdr.mld_opdr_bedrijfopdr_volgnr%TYPE;
BEGIN
BEGIN
@@ -2336,12 +2338,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
WHEN 'opdracht'
THEN
SELECT MAX (mld_opdr_key)
INTO lkey
SELECT MAX (mld_opdr_key),
MAX (mld_melding_key)
INTO lkey,
lkey_m
FROM mld_opdr
WHERE fac_activiteit_key = pactkey;
SELECT mld.bepaalopdrmeldingvolgnr (lkey)
SELECT mld.bepaalopdrmeldingvolgnr (lkey_m)
INTO lvolgnr
FROM DUAL;
@@ -2374,8 +2378,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
WHEN 'bestelling'
THEN
SELECT MAX (bes_bestelling_key)
INTO lkey
SELECT MAX (bes_bestelling_key),
MAX (prs_perslid_key)
INTO lkey,
luserkey
FROM bes_bestelling
WHERE fac_activiteit_key = pactkey;
@@ -2383,12 +2389,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
INTO lkey_new
FROM DUAL;
-- Bestelling kopi<70>ren.
INSERT INTO bes_bestelling (
bes_bestelling_key,
bes_bestelling_module,
bes_bestelling_status,
bes_bestelling_datum,
prs_perslid_key,
prs_perslid_key_voor,
bes_bestelling_opmerking,
bes_bestelling_ordernr,
bes_bestelling_plaats,
@@ -2403,6 +2411,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
bes_bestelling_status,
SYSDATE,
prs_perslid_key,
prs_perslid_key_voor,
'Automatisch gegenereerd door activiteit ' || pactkey || '. ' || bes_bestelling_opmerking,
bes_bestelling_ordernr,
bes_bestelling_plaats,
@@ -2414,14 +2423,61 @@ CREATE OR REPLACE PACKAGE BODY fac AS
FROM bes_bestelling
WHERE bes_bestelling_key = lkey;
-- Kenmerken van bestelling kopi<70>ren.
INSERT INTO bes_kenmerkbestell
(bes_bestelling_key, bes_kenmerk_key, bes_kenmerkbestell_waarde)
SELECT lkey_new, bes_kenmerk_key, bes_kenmerkbestell_waarde
FROM bes_kenmerkbestell
WHERE bes_kenmerkbestell_verwijder IS NULL AND bes_bestelling_key = lkey;
bes.setbestellingstatus(lkey_new, 2, NULL);
-- Bestelregels kopi<70>ren.
INSERT INTO bes_bestelling_item (bes_bestelling_key,
bes_bestelling_item_aantal,
bes_bestelling_item_aantalontv,
bes_bestelling_item_brutoprijs,
bes_bestelling_item_prijs,
bes_srtdeel_key)
SELECT lkey_new,
bes_bestelling_item_aantal,
bes_bestelling_item_aantalontv,
(SELECT isd.bes_srtdeel_prijs
FROM bes_srtdeel isd
WHERE isd.bes_srtdeel_key = bi.bes_srtdeel_key) bes_bestelling_item_brutoprijs,
(SELECT isd.bes_srtdeel_prijs
FROM bes_srtdeel isd
WHERE isd.bes_srtdeel_key = bi.bes_srtdeel_key) bes_bestelling_item_prijs,
bes_srtdeel_key
FROM bes_bestelling_item bi
WHERE bes_bestelling_key = lkey;
-- Kenmerken van bestelregels kopi<70>ren.
INSERT INTO bes_kenmerkbesteli (bes_bestelling_item_key,
bes_kenmerk_key,
bes_kenmerkbesteli_waarde,
bes_kenmerkbesteli_aanmaak)
SELECT tab1.bes_bestelling_item_key_new,
kbi.bes_kenmerk_key,
kbi.bes_kenmerkbesteli_waarde,
SYSDATE
FROM bes_kenmerkbesteli kbi,
(SELECT (SELECT bi1.bes_bestelling_item_key
FROM bes_bestelling_item bi1
WHERE bi1.bes_srtdeel_key = bi.bes_srtdeel_key
AND bi1.bes_bestelling_key = lkey_new)
bes_bestelling_item_key_new,
bi.bes_bestelling_item_key,
bi.bes_srtdeel_key
FROM bes_bestelling_item bi
WHERE bi.bes_bestelling_key = lkey) tab1
WHERE kbi.bes_bestelling_item_key = tab1.bes_bestelling_item_key
AND kbi.bes_bestelling_item_key IN (SELECT bes_bestelling_item_key
FROM bes_bestelling_item bi
WHERE bi.bes_bestelling_key = lkey);
-- Het gaat hier om een geplande actie. Je mag er van uit gaan dat deze goed gekeurd is voordat deze is aangemaakt.
-- Daarom bestellingstatus op 4 zetten (Geaccepteerd) en bestelopdracht automatisch aanmaken.
bes.setbestellingstatus(lkey_new, 4, luserkey); -- Geaccepteerd
bes_makeorders(luserkey, lkey_new); -- bes_makeorders notificeert zelf de leveranciers.
END CASE;
EXCEPTION
WHEN OTHERS
@@ -3250,4 +3306,4 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END fac;
/
REGISTERRUN('$Workfile: FAC_PAC.SRC $','$Revision: 210 $')
REGISTERRUN('$Workfile: FAC_PAC.SRC $','$Revision: 211 $')