PROR#74299 -- Inrichten Prorail omgeving, Eurest export aanpassing

svn path=/Customer/trunk/; revision=62197
This commit is contained in:
Norbert Wassink
2023-10-13 14:01:47 +00:00
parent abbfc57455
commit b58b69fdf2

View File

@@ -1695,7 +1695,13 @@ AS
ra.res_artikel_btw btw,
rra.res_rsv_artikel_prijs totprijs,
ra.res_artikel_prijs prijs,
rd.ins_discipline_omschrijving catalogus
rd.ins_discipline_omschrijving catalogus,
(SELECT rka.res_kenmerkartikel_waarde
from res_kenmerkartikel rka, res_kenmerk rk, res_srtkenmerk rsk
where rka.res_rsv_artikel_key=rra.res_rsv_artikel_key
AND rk.res_kenmerk_key=rka.res_kenmerk_key
AND rsk.res_srtkenmerk_key = rk.res_srtkenmerk_key
AND rsk.res_srtkenmerk_upper='MAATWERK OPMERKING') opmerking
FROM res_rsv_artikel rra,
res_artikel ra,
res_discipline rd
@@ -1780,7 +1786,11 @@ BEGIN
pror.add_xml_row(v_bestand, '<OrderLine>');
pror.add_xml_element (v_bestand, 'Start',TO_CHAR(rec_art.van,'HH24:MI'));
pror.add_xml_row(v_bestand, '<Item>');
pror.add_xml_element (v_bestand, 'Description',rec_art.artikel_omschrijving);
IF UPPER(rec_art.catalogus) LIKE 'MAATWERK%' THEN
pror.add_xml_element (v_bestand, 'Description',SUBSTR(rec_art.artikel_omschrijving||', '||rec_art.opmerking,1,100));
ELSE
pror.add_xml_element (v_bestand, 'Description',rec_art.artikel_omschrijving);
END IF;
pror.add_xml_element (v_bestand, 'Reference',rec_art.artikelnr);
pror.add_xml_row(v_bestand, '</Item>');
@@ -1796,9 +1806,10 @@ BEGIN
END IF;
pror.add_xml_element (v_bestand, 'QuantityOrdered',rec_art.aantal);
pror.add_xml_row(v_bestand, '<Price>');
pror.add_xml_element (v_bestand, 'NetPrice',v_artikelprijs);
pror.add_xml_element (v_bestand, 'BrtPrice',ROUND(v_artikelPrijs*(1+rec_art.btw/100),2));
pror.add_xml_element (v_bestand, 'NetPrice',ROUND(v_artikelPrijs/(1+rec_art.btw/100),2));
pror.add_xml_element (v_bestand, 'BrtPrice',v_artikelprijs);
pror.add_xml_element (v_bestand, 'Currency','EUR');
pror.add_xml_element (v_bestand, 'VatPercentage',rec_art.btw);
pror.add_xml_row(v_bestand, '</Price>');