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

CARG#85884 Factuurschema ontbreekt in contract-XML, graag toevoegen

Browse Source 
svn path=/Database/trunk/; revision=67572
This commit is contained in:
Erik Groener
2025-01-13 10:15:39 +00:00
parent 6a37c41460
commit 5bdcb65027
1 changed files with 30 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
FAC/FAC_PACX.SRC
View File

@@ -9856,8 +9856,7 @@ AS
createopentag ('note');
createxmltagvalue ('key', rec1.cnt_contract_note_key);
mydatetochar ('aanmaak', rec1.cnt_contract_note_aanmaak);
createxmltagvalue ('omschrijving',
rec1.cnt_contract_note_omschrijving);
createxmltagvalue ('omschrijving', rec1.cnt_contract_note_omschrijving);
create_attachments_node ('#donotsuppress#Rx=' || TO_CHAR(rec1.cnt_contract_note_key) || '#Kx=-1#Mx=CNTN#'); -- notities hebben kenmerk_key -1
create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
createclosetag ('note');
@@ -9867,6 +9866,34 @@ AS
END IF;
END;
PROCEDURE create_cnt_factuurschema_node (p_key IN NUMBER)
AS
CURSOR c1
IS
SELECT cnt_factuurschema_key,
cnt_factuurschema_bedrag,
cnt_factuurschema_boekmaand,
cnt_factuurschema_opmerking
FROM cnt_factuurschema
WHERE cnt_contract_key = p_key
ORDER BY cnt_factuurschema_boekmaand;
BEGIN
IF p_key IS NOT NULL
THEN
createopentag ('factuurschemas');
FOR rec1 in c1
LOOP
createopentag ('factuurschema');
createxmltagvalue ('key', rec1.cnt_factuurschema_key);
createxmltagvalue ('bedrag', rec1.cnt_factuurschema_bedrag);
createxmltagvalue ('boekmaand', rec1.cnt_factuurschema_boekmaand);
createxmltagvalue ('omschrijving', rec1.cnt_factuurschema_opmerking);
createclosetag ('factuurschema');
END LOOP;
createclosetag ('factuurschemas');
END IF;
END;
PROCEDURE create_cnt_kenmerken (p_key IN NUMBER)
AS
CURSOR c1
@@ -10217,6 +10244,7 @@ AS
END LOOP;
END IF;
create_cnt_contract_note_node (p_key);
create_cnt_factuurschema_node (p_key);
createclosetag ('contract');
END IF;
END;