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

PIVP#74972 -- Fase 2 implementatie

Browse Source 
svn path=/Customer/trunk/; revision=59181
This commit is contained in:
Norbert Wassink
2023-02-15 16:22:47 +00:00
parent 869d231765
commit 89b3181caf
1 changed files with 17 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
PIVP/PIVP.sql
View File

@@ -3576,9 +3576,7 @@ BEGIN
pivp.add_xml_row (v_bestand, '<ForeignAmount>');
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
pivp.add_xml_element (v_bestand, 'Value', '0');
pivp.add_xml_row (v_bestand, '</ForeignAmount>');
pivp.add_xml_row (v_bestand, '</ForeignAmount>');
END IF;
@@ -3592,8 +3590,8 @@ BEGIN
pivp.add_xml_row (v_bestand, '<Item code=""/>');
pivp.add_xml_row (v_bestand, '<Amount>');
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
pivp.add_xml_element (v_bestand, 'Debit', rec_regel.factuurbedrag);
pivp.add_xml_element (v_bestand, 'Credit', '0');
pivp.add_xml_element (v_bestand, 'Debit', '0' );
pivp.add_xml_element (v_bestand, 'Credit', rec_regel.factuurbedrag);
-- pivp.add_xml_row (v_bestand, '<VAT code="' || xml.char_to_html('21') || '"/>');
pivp.add_xml_row (v_bestand, '</Amount>');
pivp.add_xml_row (v_bestand, '<FinReferences>');
@@ -3838,8 +3836,13 @@ BEGIN
FOR rec IN contacts
LOOP
v_counter:=v_counter+1;
IF v_relatie_code != rec.debiteurnr
THEN
IF v_counter>=1 THEN
pivp.add_xml_row (v_bestand, '</Contacts>');
pivp.add_xml_row (v_bestand, '</Account>');
END IF;
pivp.add_xml_row (v_bestand, '<Account code="'||rec.debiteurnr||'">');
pivp.add_xml_row (v_bestand, '<Contacts>');
@@ -3875,20 +3878,22 @@ BEGIN
pivp.add_xml_row (v_bestand, '</FreeFields>');
pivp.add_xml_row (v_bestand, '</Contact>');
IF v_relatie_code != rec.debiteurnr
THEN
pivp.add_xml_row (v_bestand, '</Contacts>');
pivp.add_xml_row (v_bestand, '</Account>');
END IF;
v_relatie_code := rec.debiteurnr;
-- UPDATE mld_melding set MLD_MELDING_EXTERNSYNCDATE=SYSDATE WHERE mld_melding_key=rec.mld_melding_key;
END LOOP;
pivp.add_xml_row (v_bestand, '</Contacts>');
pivp.add_xml_row (v_bestand, '</Account>');
pivp.add_xml_row (v_bestand, '</Accounts>');
pivp.add_xml_row (v_bestand, '</eExact>');
IF v_counter=0 THEN
DELETE FROM fac_rapport WHERE fac_rapport_node=v_bestand;
END IF;
fac.writelog (p_applname, 'S', 'Exact contact export uitgevoerd.','Aantal geexporteerde contacten is: '||v_counter);
END;
/