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

KFST#52897 -- Koppeling met Exact

Browse Source 
svn path=/Customer/trunk/; revision=38584
This commit is contained in:
Arthur Egberink
2018-07-19 11:37:54 +00:00
parent 260510a5b5
commit c33cbcb7aa
1 changed files with 24 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
KFST/kfst.sql
View File

@@ -689,6 +689,7 @@ CREATE OR REPLACE VIEW kfst_v_factuur_gegevens
fin_factuur_datum,
fin_factuur_nr,
prs_bedrijf_key,
fin_factuurregel_omschrijving,
fin_factuurregel_totaal,
fin_factuurregel_btw,
fin_btwtabelwaarde_code,
@@ -741,6 +742,7 @@ AS
COALESCE (b_c.prs_bedrijf_key,
COALESCE (b_o.prs_bedrijf_key, b_b.prs_bedrijf_key))
prs_bedrijf_key,
fr.fin_factuurregel_omschrijving,
fr.fin_factuurregel_totaal,
ROUND (
fr.fin_factuurregel_totaal
@@ -804,7 +806,7 @@ AS
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_alg_onroerendgoed_keys =
g.alg_onroerendgoed_keys),
(SELECT SUBSTR (alg_plaatsaanduiding, 5, 100)
(SELECT alg_gebouw_code
FROM alg_v_allonrgoed_gegevens g, mld_melding m
WHERE o.mld_melding_key = m.mld_melding_key
AND m.mld_alg_onroerendgoed_keys =
@@ -840,7 +842,8 @@ AS
CREATE OR REPLACE VIEW kfst_v_bron_export_exact_xml
(
fin_factuur_key,
oms25,
oms_kop,
oms_detail,
opdracht_id,
factuur_nr,
datum,
@@ -859,17 +862,13 @@ CREATE OR REPLACE VIEW kfst_v_bron_export_exact_xml
)
AS
SELECT fin_factuur_key,
fin_factuur_nr
|| ' - '
|| REPLACE (SUBSTR (fin_factuur_opmerking, 1, 30), ',', '')
oms25,
SUBSTR(b.prs_bedrijf_naam, 1,30) oms_kop,
REPLACE (SUBSTR (fin_factuurregel_omschrijving, 1, 60), ',', '')
oms_detail,
opdracht_id,
fin_factuur_nr,
TO_CHAR (fin_factuur_datum, 'yyyy-mm-dd') datum,
(SELECT prs_leverancier_nr
FROM prs_bedrijf b
WHERE b.prs_bedrijf_key = fg.prs_bedrijf_key)
crdnr,
b.prs_leverancier_nr crdnr,
REPLACE (TO_CHAR (bedrag), ',', '.') bedrag_txt,
bedrag,
bedrag_incl,
@@ -888,6 +887,7 @@ AS
prs_bedrijf_key,
fin_factuur_debiteur_nr,
fin_factuur_opmerking,
fin_factuurregel_omschrijving,
SUM (fin_factuurregel_totaal) bedrag,
SUM (fin_factuurregel_totaal + fin_factuurregel_btw) bedrag_incl,
fin_btwtabelwaarde_code,
@@ -908,6 +908,7 @@ AS
fin_factuur_debiteur_nr,
fin_factuur_opmerking,
fin_btwtabelwaarde_code,
fin_factuurregel_omschrijving,
mld_opdr_key,
cnt_contract_key,
prs_kostenplaats_key,
@@ -916,11 +917,13 @@ AS
kdcode) fg,
mld_kenmerk k,
mld_kenmerkopdr ko,
fac_usrdata ud
fac_usrdata ud,
prs_bedrijf b
WHERE fg.mld_opdr_key = ko.mld_opdr_key
AND ko.mld_kenmerk_key = k.mld_kenmerk_key
AND k.mld_srtkenmerk_key = 81
AND fac.safe_to_number(ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key;
AND fac.safe_to_number(ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key
AND fg.prs_bedrijf_key = b.prs_bedrijf_key;
CREATE OR REPLACE VIEW kfst_v_export_exact_t (
@@ -1011,11 +1014,11 @@ AS
FROM (
SELECT 0 regelnummer,
'I' dagb_type,
'60' dagbknr,
'61' dagbknr,
'' periode,
'' bkjcode,
boekstuknr,
oms25,
oms_kop oms25,
TO_CHAR (TO_DATE(datum, 'yyyy-mm-dd'), 'ddmmyyyy') datum,
'' empty9,
'' debnr,
@@ -1055,7 +1058,7 @@ AS
factuur_nr,
betaalref,
crdnr,
oms25,
oms_kop,
boekstuknr,
SUM (bedrag_incl)
bedrag
@@ -1066,16 +1069,16 @@ AS
factuur_nr,
betaalref,
crdnr,
oms25,
oms_kop,
boekstuknr) fg
UNION ALL
SELECT 1 regelnummer,
'I' dagb_type,
'60' dagbknr,
'61' dagbknr,
'' periode,
'' bkjcode,
boekstuknr,
betaalref,
oms_detail,
TO_CHAR (TO_DATE(datum, 'yyyy-mm-dd'), 'ddmmyyyy') datum,
reknr,
'' debnr,
@@ -1198,7 +1201,7 @@ BEGIN
IF v_boekstuknummer IS NULL
THEN
v_boekstuknummer := FAC.safe_to_number(TO_CHAR(SYSDATE, 'YY') || '600000');
v_boekstuknummer := FAC.safe_to_number(TO_CHAR(SYSDATE, 'YY') || '610000');
END IF;
-- header
@@ -1221,7 +1224,7 @@ BEGIN
kfst.add_xml_element (v_bestand, 'Description', rec.factuur_nr);
kfst.add_xml_element (v_bestand, 'Date', rec.datum);
kfst.add_xml_element (v_bestand, 'DocumentDate', TO_CHAR(SYSDATE, 'YYYY-MM-DD') );
kfst.add_xml_row (v_bestand, '<Journal type="I" code="60"/>');
kfst.add_xml_row (v_bestand, '<Journal type="I" code="61"/>');
v_sub_count := 1;
FOR rec1 IN c_sub (v_crdnr, v_factuur_nr)
LOOP
@@ -1346,7 +1349,7 @@ BEGIN
IF v_boekstuknummer IS NULL
THEN
v_boekstuknummer := FAC.safe_to_number(TO_CHAR(SYSDATE, 'YY') || '600000');
v_boekstuknummer := FAC.safe_to_number(TO_CHAR(SYSDATE, 'YY') || '610000');
END IF;
-- nu gaan we de boekstuknummer invullen