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

YASK#85687 -- Kolom voor contactpersonen toevoegen aan de koppeling

Browse Source 
svn path=/Customer/trunk/; revision=68639
This commit is contained in:
Arthur Egberink
2025-04-03 07:28:16 +00:00
parent a8c4e9c555
commit 9c72d32ee4
1 changed files with 20 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
YASK/yask.sql
View File

@@ -5389,6 +5389,7 @@ AS
v_gebouw_code VARCHAR2 (1000);
v_gebouw_key NUMBER(10);
v_leverancier VARCHAR2 (1000);
v_contactpersoon VARCHAR2 (1000);
BEGIN
-- Eerst opruiming
@@ -5414,6 +5415,7 @@ BEGIN
fac.imp_getfield (v_newline, v_fielddelimitor, v_bedrag_nul_txt);
fac.imp_getfield (v_newline, v_fielddelimitor, v_gebouw_code);
fac.imp_getfield (v_newline, v_fielddelimitor, v_leverancier);
fac.imp_getfield (v_newline, v_fielddelimitor, v_contactpersoon);
-- voeg nieuwe records toe
-- en wijzig bestaande records
@@ -5435,7 +5437,9 @@ BEGIN
|| ' | '
|| v_gebouw_code
|| ' | '
|| v_leverancier;
|| v_leverancier
|| ' | '
|| v_contactpersoon;
v_errorhint := 'Controleer datum';
@@ -5457,6 +5461,7 @@ BEGIN
v_kostenplaats_id := SUBSTR(v_kostenplaats_id, 1, 30);
v_kostenplaats_oms := SUBSTR(v_kostenplaats_oms, 1, 60);
v_leverancier := SUBSTR(v_leverancier, 1, 100);
v_contactpersoon := SUBSTR(v_contactpersoon, 1, 100);
v_bedrag_hoog := FAC.safe_to_number(REPLACE(v_bedrag_hoog_txt, ',', '.'));
IF v_bedrag_hoog_txt IS NOT NULL AND v_bedrag_hoog IS NULL
@@ -5507,7 +5512,8 @@ BEGIN
bedrag_laag,
bedrag_nul,
gebouw_key,
leverancier)
leverancier,
contactpersoon)
VALUES (v_startdatum,
v_einddatum,
v_id,
@@ -5518,7 +5524,8 @@ BEGIN
v_bedrag_laag,
v_bedrag_nul,
v_gebouw_key,
v_leverancier);
v_leverancier,
v_contactpersoon);
END IF;
END;
END LOOP;
@@ -5814,6 +5821,16 @@ BEGIN
v_errorhint := 'Zet het kenmerk SUPPLIER';
FLX.setflex ('RES', v_kenmerk_key, v_rsv_ruimte_key, NULL, rec.leverancier);
-- Kenmerk toevoegen met contactpersoon
v_errorhint := 'Zoek het kenmerk CONTACTPERSOON';
SELECT res_kenmerk_key
INTO v_kenmerk_key
FROM res_kenmerk
WHERE res_kenmerk_code = 'CONTACTPERSOON';
v_errorhint := 'Zet het kenmerk CONTACTPERSOON';
FLX.setflex ('RES', v_kenmerk_key, v_rsv_ruimte_key, NULL, rec.contactpersoon);
-- Nu nog de catering toevoegen
v_errorhint := 'Voeg de catering toe';