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=38315
This commit is contained in:
Arthur Egberink
2018-06-22 09:21:11 +00:00
parent c41e2551ce
commit 1a0828faa1
1 changed files with 227 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

233
KFST/kfst.sql
View File

@@ -854,7 +854,8 @@ CREATE OR REPLACE VIEW kfst_v_bron_export_exact_xml
kstplcode,
kstdrcode,
btw_code,
lev_kpn
lev_kpn,
boekstuknr
)
AS
SELECT fin_factuur_key,
@@ -878,7 +879,8 @@ AS
kpcode kstplcode,
kdcode kstdrcode,
fin_btwtabelwaarde_code btw_code,
lev_kpn
lev_kpn,
(SELECT fin_kenmerkfactuur_waarde FROM fin_kenmerkfactuur kf WHERE fin_kenmerk_key = 1 AND kf.fin_factuur_key = fg.fin_factuur_key) boekstuknr
FROM ( SELECT g.fin_factuur_key,
opdracht_id,
fin_factuur_datum,
@@ -920,6 +922,197 @@ AS
AND k.mld_srtkenmerk_key = 81
AND fac.safe_to_number(ko.mld_kenmerkopdr_waarde) = ud.fac_usrdata_key;
CREATE OR REPLACE VIEW kfst_v_export_exact_t (
result,
result_order
)
AS
SELECT REPLACE(REPLACE( regelnummer
|| ','
|| dagb_type
|| ','
|| dagbknr
|| ','
|| periode
|| ','
|| bkjcode
|| ','
|| boekstuknr
|| ','
|| oms25
|| ','
|| datum
|| ','
|| empty9
|| ','
|| debnr
|| ','
|| crdnr
|| ','
|| empty12
|| ','
|| bedrag
|| ','
|| drbk_in_val
|| ','
|| valcode
|| ','
|| koers
|| ','
|| kredbep
|| ','
|| bdrkredbep
|| ','
|| vervdatfak
|| ','
|| vervdatkrd
|| ','
|| empty21
|| ','
|| empty22
|| ','
|| weeknummer
|| ','
|| betaalref
|| ','
|| betwijze
|| ','
|| grek_bdr
|| ','
|| empty27
|| ','
|| empty28
|| ','
|| empty29
|| ','
|| empty30
|| ','
|| empty31
|| ','
|| transsubtype
|| ','
|| empty33
|| ','
|| empty34
|| ','
|| empty35
|| ','
|| empty36
|| ','
|| empty37
|| ','
|| empty38
|| ','
|| projectnr
|| ','
|| empty40,CHR (13), ''), CHR (10), '<ret>'),
boekstuknr * 100 + regelnummer
FROM (
SELECT 0 regelnummer,
'I' dagb_type,
'60' dagbknr,
'' periode,
'' bkjcode,
boekstuknr,
oms25,
TO_CHAR (TO_DATE(datum, 'yyyy-mm-dd'), 'ddmmyyyy') datum,
'' empty9,
'' debnr,
crdnr,
'' empty12,
REPLACE (TO_CHAR (bedrag), ',', '.') bedrag,
'' drbk_in_val,
'' valcode,
'' koers,
'' kredbep,
'' bdrkredbep,
'' vervdatfak,
'' vervdatkrd,
'' empty21,
'' empty22,
'' weeknummer,
betaalref,
'' betwijze,
'' grek_bdr,
'' empty27,
'' empty28,
'' empty29,
'' empty30,
'' empty31,
'' transsubtype,
'' empty33,
'' empty34,
'' empty35,
'' empty36,
'' empty37,
'' empty38,
'' projectnr,
'!' empty40
FROM (SELECT fin_factuur_key,
opdracht_id,
datum,
factuur_nr,
betaalref,
crdnr,
oms25,
boekstuknr,
SUM (bedrag_incl)
bedrag
FROM kfst_v_bron_export_exact_xml
GROUP BY fin_factuur_key,
opdracht_id,
datum,
factuur_nr,
betaalref,
crdnr,
oms25,
boekstuknr) fg
UNION ALL
SELECT 1 regelnummer,
'I' dagb_type,
'60' dagbknr,
'' periode,
'' bkjcode,
boekstuknr,
betaalref,
TO_CHAR (TO_DATE(datum, 'yyyy-mm-dd'), 'ddmmyyyy') datum,
reknr,
'' debnr,
crdnr,
'' empty12,
REPLACE (TO_CHAR (bedrag_incl), ',', '.') bedrag,
'' drbk_in_val,
'' val_code,
'' koers,
'' kredbep,
'' bdrkredbep,
'' vervdatfak,
'' vervdatkrd,
btw_code,
REPLACE (TO_CHAR (bedrag_incl - bedrag), ',', '.') btw_bdr,
'' weeknummer,
'' empty24,
'' empty25,
'' empty26,
kstplcode,
kstdrcode,
'' empty29,
'' empty30,
'' empty31,
'' transsubtype,
'' empty33,
'' empty34,
'' emtpy35,
'' empty36,
'' empty37,
'' empty38,
'' projectnr,
'!' empty40
FROM kfst_v_bron_export_exact_xml fg
ORDER BY boekstuknr, regelnummer);
CREATE OR REPLACE VIEW kfst_v_export_exact (
result,
result_order
@@ -1080,12 +1273,22 @@ END;
/
CREATE OR REPLACE VIEW ykpn_v_export_verwerk_exact (
result,
result_order
)
AS
SELECT 'Lijst met bevroren facturen:' fac_rapport_regel, 0 fac_rapport_volgnr
FROM DUAL
UNION ALL
SELECT fac_rapport_regel, fac_rapport_volgnr
FROM fac_rapport
WHERE fac_rapport_node = 'VW_EXACT';
-- Procedure om alle geexporteerde facturen naar status verwerkt te zetten.
CREATE OR REPLACE PROCEDURE kfst_export_verwerk_exact (
CREATE OR REPLACE PROCEDURE kfst_select_verwerk_exact (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
p_applrun IN VARCHAR2
)
AS
CURSOR c_fact
@@ -1101,7 +1304,9 @@ AS
oracle_err_mes VARCHAR2 (200);
v_aanvrager NUMBER;
v_bestelling_key NUMBER;
v_bestand VARCHAR2(12);
v_logdate DATE;
v_volgnr NUMBER;
BEGIN
v_errormsg := 'Geen akties';
@@ -1110,6 +1315,12 @@ BEGIN
v_logdate := SYSDATE;
v_bestand := 'VW_EXACT';
v_volgnr := 1;
-- Eerst opruiming
DELETE fac_rapport
WHERE fac_rapport_node = v_bestand;
FOR rec1 IN c_fact
LOOP
BEGIN
@@ -1118,11 +1329,21 @@ BEGIN
WHERE f.fin_factuur_key = rec1.fin_factuur_key;
fac.trackaction ('FINVER', rec1.fin_factuur_key, v_aanvrager, NULL, NULL);
INSERT INTO fac_rapport (fac_rapport_node,
fac_rapport_volgnr,
fac_rapport_regel)
VALUES (v_bestand,
v_volgnr,
rec1.fin_factuur_key);
v_volgnr := v_volgnr + 1;
END;
END LOOP;
DELETE kfst_exp_factuur;
END;
/
------ payload end ------
SET DEFINE OFF