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=59314
This commit is contained in:
Norbert Wassink
2023-02-24 12:28:55 +00:00
parent e4edbbc0b6
commit 8a2fa261b3
1 changed files with 22 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
PIVP/PIVP.sql
View File

@@ -2809,7 +2809,7 @@ AS
AND d.fac_usrdata_key = fac.safe_to_number(mkm1.mld_kenmerkmelding_waarde)) dienstencode,
(SElECT mkm1.MLD_KENMERKMELDING_WAARDE
FROM mld_kenmerk mk1, mld_kenmerkmelding mkm1
WHERE UPPER(mk1.mld_kenmerk_omschrijving)='PO NUMMER'
WHERE UPPER(mk1.mld_kenmerk_omschrijving)='UW REFERENTIE'
AND mkm1.mld_kenmerk_key = mk1.MLD_KENMERK_KEY
AND mkm1.mld_melding_key = m.mld_melding_key) ponummer,
(SElECT mkm1.MLD_KENMERKMELDING_WAARDE
@@ -2907,51 +2907,53 @@ AS
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='CXO'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','1','','0') CxO,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') CxO,
DECODE((SELECT mkm.MLD_KENMERKMELDING_WAARDE
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='EHS'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','1','','0') EHS,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') EHS,
DECODE((SELECT mkm.MLD_KENMERKMELDING_WAARDE
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='OPERATIONS'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','1','','0') operations,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') operations,
DECODE((SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='SECRETARIAAT'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','1','','0') Secr,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') Secr,
DECODE((SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='MEDEWERKER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','1','','0') medw,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),'1','Yes','','No') medw,
DECODE((SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='COMMUNITY NEWSLETTER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'1','0') comm_letter,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') comm_letter,
DECODE((SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='CORPORATE NEWSLETTER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'1','0') corp_letter,
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') corp_letter,
DECODE((SELECT mkm.mld_kenmerkmelding_waarde
FROM mld_kenmerkmelding mkm, mld_kenmerk mk
WHERE mkm.mld_melding_key=m.mld_melding_key
AND mkm.mld_kenmerk_key=mk.mld_kenmerk_key
AND UPPER(mk.mld_kenmerk_omschrijving)='ACTIVITEITEN NEWSLETTER'
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'1','0') act_letter
FROM mld_melding m, prs_perslid p, prs_afdeling pa
WHERE m.mld_stdmelding_key=1421 -- A=1421 O/P=87
AND mk.mld_stdmelding_key=m.mld_stdmelding_key),61,'Yes','No') act_letter
FROM mld_melding m, mld_stdmelding msm, prs_perslid p, prs_afdeling pa
WHERE m.mld_stdmelding_key= msm.mld_stdmelding_key
AND UPPER(msm.mld_stdmelding_omschrijving)='TOEGANGSPAS VOOR BEWONER'
---m.mld_stdmelding_key=1421 -- A=1421 O/P=87
AND m.mld_melding_status=5 -- Melding moet afgemeld zijn
AND m.mld_melding_externsyncdate IS NULl
AND p.prs_perslid_key=m.prs_perslid_key
@@ -3608,10 +3610,12 @@ BEGIN
IF v_sub_count=1 THEN
pivp.add_xml_row (v_bestand, '<Invoice type="V" code="00">');
pivp.add_xml_element (v_bestand, 'Description', 'Geleverde diensten van '||TO_CHAR(v_startDate,'DD-MM-YYYY')||' tot '||TO_CHAR(v_endDate,'DD-MM-YYYY')||'.');
pivp.add_xml_element (v_bestand, 'Description', 'Geleverde diensten.');
IF LENGTH(rec_regel.ponummer)>1 THEN
pivp.add_xml_element(v_bestand, 'YourRef',rec_regel.ponummer);
END IF;
pivp.add_xml_row (v_bestand, '<Order type="V"/>'); -- vaste waarde
pivp.add_xml_row (v_bestand, '<Resource number="2"/>'); -- vaste waarde
pivp.add_xml_row (v_bestand, '<Resource number="1"/>'); -- persoon waarop geboekt wordt in Exact
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
@@ -3621,20 +3625,7 @@ BEGIN
pivp.add_xml_element (v_bestand, 'Date', v_factuurdatum );
pivp.add_xml_row (v_bestand, '</OrderedBy>');
/*
pivp.add_xml_element (v_bestand, 'Description', 'Geleverder diensten van '||TO_CHAR(v_startDate,'DD-MM-YYYY')||' tot '||TO_CHAR(v_endDate,'DD-MM-YYYY')||'.');
pivp.add_xml_element (v_bestand, 'Date', SYSDATE);
pivp.add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
pivp.add_xml_row (v_bestand, '<Division code="003"/>');
pivp.add_xml_row (v_bestand, '<Journal code="' || v_dagboek || '" type="V"/>');
pivp.add_xml_row (v_bestand, '<Amount>');
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
pivp.add_xml_element (v_bestand, 'Value', '0');
pivp.add_xml_row (v_bestand, '</Amount>');
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>'); */
END IF;
pivp.add_xml_row (v_bestand, '<InvoiceLine lineNo="' || v_sub_count || '" type="N" subtype="N">');
IF LENGTH(rec_regel.ponummer)>0 THEN
@@ -3669,23 +3660,6 @@ BEGIN
pivp.add_xml_row (v_bestand, '</Delivery>');
pivp.add_xml_row (v_bestand, '</InvoiceLine>');
/* pivp.add_xml_row (v_bestand, '<FinEntryLine number="' || v_sub_count || '" type="N" subtype="N">');
pivp.add_xml_row (v_bestand, '<GLAccount code="' || SUBSTR(rec_regel.dienstencode,3) || '"/>');
pivp.add_xml_element (v_bestand, 'Description', rec_regel.melding_key||' - '||rec_regel.onderwerp);
pivp.add_xml_row (v_bestand, '<Costcenter code="' || xml.char_to_html('003.OPS') || '"/>');
-- pivp.add_xml_row (v_bestand, '<Costunit code="' || xml.char_to_html('999999') || '"/>');
pivp.add_xml_row (v_bestand, '<Debtor number="' || xml.char_to_html(rec_regel.debiteurnr) || '"/>');
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', '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>');
pivp.add_xml_element (v_bestand, 'YourRef', 'PO Nummer klant');
pivp.add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(rec_regel.afmelddatum, 'YYYY-MM-DD') );
pivp.add_xml_row (v_bestand, '</FinReferences>'); */
END LOOP;
@@ -3810,10 +3784,10 @@ BEGIN
v_sub_count:=v_sub_count+1;
IF v_sub_count=1 THEN
pivp.add_xml_row (v_bestand, '<Invoice type="V" code="00">');
pivp.add_xml_element (v_bestand, 'Description', 'Zaalreserveringen van '||TO_CHAR(v_startDate,'DD-MM-YYYY')||' tot '||TO_CHAR(v_endDate,'DD-MM-YYYY')||'.');
pivp.add_xml_element(v_bestand, 'YourRef','Uwe referentie');
pivp.add_xml_element (v_bestand, 'Description', 'Zaalreserveringen');
-- pivp.add_xml_element(v_bestand, 'YourRef','Uwe referentie');
pivp.add_xml_row (v_bestand, '<Order type="V"/>');
pivp.add_xml_row (v_bestand, '<Resource number="2"/>'); -- vaste waarde
pivp.add_xml_row (v_bestand, '<Resource number="1"/>'); -- persoon waarop geboekt wordt in Exact
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
pivp.add_xml_element (v_bestand, 'CalcIncludeVAT', 'N');
@@ -3822,18 +3796,6 @@ BEGIN
pivp.add_xml_element (v_bestand, 'Date', v_factuurdatum );
pivp.add_xml_row (v_bestand, '</OrderedBy>');
/* pivp.add_xml_element (v_bestand, 'Date', 'N');
pivp.add_xml_element (v_bestand, 'DocumentDate', v_factuurdatum );
pivp.add_xml_row (v_bestand, '<Division code="003"/>');
pivp.add_xml_row (v_bestand, '<Journal code="' || v_dagboek || '" type="V"/>');
pivp.add_xml_row (v_bestand, '<Amount>');
pivp.add_xml_row (v_bestand, '<Currency code="EUR"/>');
pivp.add_xml_element (v_bestand, 'Value', '0');
pivp.add_xml_row (v_bestand, '</Amount>');
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>'); */