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

FCLT#73968 PROCEDURE bes.upsert_srtdeel de bes_srtdeel_key laten opleveren

Browse Source 
svn path=/Database/trunk/; revision=58084
This commit is contained in:
Erik Groener
2022-11-22 11:02:10 +00:00
parent cfc4a24aa5
commit e30f9203ca
1 changed files with 12 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
BES/BES_PAC.SRC
View File

@@ -52,7 +52,8 @@ AS
p_bes_srtdeel_image IN VARCHAR2,
p_bes_srtdeel_veelvoud IN NUMBER,
p_bes_srtdeel_opmerking IN VARCHAR2,
p_bes_srtdeel_details_loc IN VARCHAR2 DEFAULT NULL
p_bes_srtdeel_details_loc IN VARCHAR2,
new_bes_srtdeel_key OUT NUMBER
);
PROCEDURE makeorders (i_userkey IN NUMBER, bes_key IN NUMBER);
@@ -631,7 +632,8 @@ AS
p_bes_srtdeel_image IN VARCHAR2, -- VARCHAR2 (255)
p_bes_srtdeel_veelvoud IN NUMBER, -- NUMBER (6)
p_bes_srtdeel_opmerking IN VARCHAR2, -- VARCHAR2 (2000)
p_bes_srtdeel_details_loc IN VARCHAR2 DEFAULT NULL -- VARCHAR2 (255)
p_bes_srtdeel_details_loc IN VARCHAR2, -- VARCHAR2 (255)
new_bes_srtdeel_key OUT NUMBER -- NUMBER (10)
)
AS
v_bes_srtgroep_key NUMBER (10);
@@ -652,16 +654,10 @@ AS
IF v_bes_srtgroep_key = -1
THEN
INSERT INTO bes_srtgroep (ins_discipline_key, bes_srtgroep_omschrijving
)
VALUES (p_ins_discipline_key, p_bes_srtgroep_omschrijving
);
SELECT bes_srtgroep_key
INTO v_bes_srtgroep_key
FROM bes_srtgroep
WHERE ins_discipline_key = p_ins_discipline_key
AND UPPER (bes_srtgroep_omschrijving) = UPPER (p_bes_srtgroep_omschrijving);
INSERT INTO bes_srtgroep (ins_discipline_key, bes_srtgroep_omschrijving )
VALUES (p_ins_discipline_key, p_bes_srtgroep_omschrijving )
RETURNING bes_srtgroep_key
INTO v_bes_srtgroep_key;
END IF;
IF p_prs_bedrijf_key = -1
@@ -715,8 +711,8 @@ AS
bes_srtdeel_verwijder,
bes_srtdeel_opmerking,
bes_srtdeel_details_loc
)
VALUES (
)
VALUES (
v_bes_srtdeel_key,
v_bes_srtgroep_key,
p_bes_srtdeel_omschrijving,
@@ -730,7 +726,7 @@ AS
SYSDATE,
p_bes_srtdeel_opmerking,
p_bes_srtdeel_details_loc
);
);
ELSE
-- Bestaand artikel, maar de verwijdatum moet wel ververst worden
-- Anders gaat de prijsbepaling niet goed
@@ -738,6 +734,7 @@ AS
SET bes_srtdeel_verwijder = SYSDATE
WHERE bes_srtdeel_key = v_bes_srtdeel_key;
END IF;
new_bes_srtdeel_key := v_bes_srtdeel_key;
-- Verwerk de prijs
bes.upsert_srtdeel_prijs (v_bes_srtdeel_key, p_bes_srtdeel_prijs, NULL); -- TODO: waar komt die inkoopprijs vandaan?