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

YASK#91322 Bevindingen bij livegang offerte traject.

Browse Source 
svn path=/Customer/trunk/; revision=70823
This commit is contained in:
Arthur Egberink
2025-11-05 08:45:33 +00:00
parent 6d058deb9c
commit 3db0ef7855
1 changed files with 28 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
VBXX/vbxx.sql
View File

@@ -134,6 +134,11 @@ AS
OR (k.mld_kenmerk_niveau = 'D' AND k.mld_stdmelding_key = d.ins_discipline_key)
OR (k.mld_kenmerk_niveau = 'S' AND k.mld_stdmelding_key = std.mld_stdmelding_key)
);
IF kkey IS NOT NULL
THEN
RETURN kkey;
END IF;
SELECT MAX(mld_kenmerk_key)
INTO kkey
@@ -1649,6 +1654,8 @@ AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
-- Ten behoeve van het offerte traject richting de opdrachtgever
-- Hierbij worden gegevens in de melding aangepast op basis van de opdracht
-- Controleer of de status van de offerteaanvraag afgemeld is
v_errorhint := 'Controleer of de status van de offerteaanvraag afgemeld is';
SELECT ot.mld_typeopdr_code, ot.mld_typeopdr_key, o.mld_statusopdr_key, o.mld_melding_key, d.alg_regio_key
@@ -1692,6 +1699,7 @@ AS
AND d.ins_srtdiscipline_key = k.mld_stdmelding_key
AND k.mld_kenmerk_niveau = 'T' -- Vakgroeptype
AND k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND k.mld_kenmerk_verwijder IS NULL
AND sk.mld_srtkenmerk_code LIKE 'KG_TOTAALEENMALIGEKOSTEN';
dbms_output.put_line ('v_kenmerk_key eenmalige kosten:' || v_kenmerk_key);
@@ -1731,17 +1739,27 @@ AS
IF v_typeopdr_code LIKE 'OFFERTEOPDRACHT%' AND v_statusopdr_key IN (5,8) -- Toegekend, Geaccepteerd
THEN
v_kenmerk_key := VBXX.get_kenmerk_key('MLD', v_melding_key, 'KLANTINKOOPNR');
dbms_output.put_line ('v_kenmerk_key KLANTINKOOPNR:' || v_kenmerk_key);
v_inkoopnummer_melding := FLX.getflex('MLD', v_kenmerk_key, v_melding_key, 1);
dbms_output.put_line ('v_inkoopnummer_melding:' || v_inkoopnummer_melding);
v_kenmerk_key := VBXX.get_kenmerk_key('OPD', p_opdr_key, 'KLANTINKOOPNR');
dbms_output.put_line ('v_kenmerk_key KLANTINKOOPNR:' || v_kenmerk_key);
v_inkoopnummer_opdracht := FLX.getflex('OPD', v_kenmerk_key, p_opdr_key, 1);
IF v_inkoopnummer_opdracht IS NULL
IF v_kenmerk_key IS NULL
THEN
FLX.setflex('OPD', v_kenmerk_key, p_opdr_key, v_inkoopnummer_melding);
fac.writelog ('VBXX.checkopdracht', 'E', 'Melding kenmerk KLANTINKOOPNR niet gevonden', 'melding_key:' || v_melding_key);
ELSE
dbms_output.put_line ('v_kenmerk_key KLANTINKOOPNR:' || v_kenmerk_key);
v_inkoopnummer_melding := FLX.getflex('MLD', v_kenmerk_key, v_melding_key, 1);
dbms_output.put_line ('v_inkoopnummer_melding:' || v_inkoopnummer_melding);
v_kenmerk_key := VBXX.get_kenmerk_key('OPD', p_opdr_key, 'KLANTINKOOPNR');
IF v_kenmerk_key IS NULL
THEN
fac.writelog ('VBXX.checkopdracht', 'E', 'Opdracht kenmerk KLANTINKOOPNR niet gevonden', 'opdracht_key:' || p_opdr_key);
ELSE
dbms_output.put_line ('v_kenmerk_key KLANTINKOOPNR:' || v_kenmerk_key);
v_inkoopnummer_opdracht := FLX.getflex('OPD', v_kenmerk_key, p_opdr_key, 1);
IF v_inkoopnummer_opdracht IS NULL
THEN
FLX.setflex('OPD', v_kenmerk_key, p_opdr_key, v_inkoopnummer_melding);
END IF;
END IF;
END IF;
END IF;
EXCEPTION