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=37780
This commit is contained in:
Arthur Egberink
2018-04-26 10:56:45 +00:00
parent 25e8e717e2
commit f9c5753fb0
1 changed files with 54 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
KFST/kfst.sql
View File

@@ -698,9 +698,6 @@ CREATE OR REPLACE VIEW kfst_v_factuur_gegevens
fin_factuur_opmerking,
fin_factuur_boekmaand,
opdr_datum,
prs_kostensoort_oms,
prs_kostensoort_refcode,
prs_kostensoort_key,
prs_kostenplaats_key,
mld_opdr_key,
cnt_contract_key,
@@ -762,9 +759,6 @@ AS
o.mld_opdr_datumbegin,
COALESCE (c.cnt_contract_looptijd_tot,
bo.bes_bestelopdr_datum)),
prs_kostensoort_oms,
k.prs_kostensoort_refcode,
k.prs_kostensoort_key,
COALESCE (
o.prs_kostenplaats_key,
COALESCE (
@@ -879,8 +873,8 @@ AS
bedrag,
bedrag_incl,
fin_factuur_nr || '/' || fin_factuur_debiteur_nr betaalref,
prs_kostensoort_oms itemcode,
prs_kostensoort_refcode reknr,
fac_usrdata_omschr itemcode,
fac_usrdata_code reknr,
kpcode kstplcode,
kdcode kstdrcode,
fin_btwtabelwaarde_code btw_code,
@@ -895,8 +889,6 @@ AS
SUM (fin_factuurregel_totaal) bedrag,
SUM (fin_factuurregel_totaal + fin_factuurregel_btw) bedrag_incl,
fin_btwtabelwaarde_code,
prs_kostensoort_oms,
prs_kostensoort_refcode,
mld_opdr_key,
cnt_contract_key,
prs_kostenplaats_key,
@@ -914,14 +906,19 @@ AS
fin_factuur_debiteur_nr,
fin_factuur_opmerking,
fin_btwtabelwaarde_code,
prs_kostensoort_oms,
prs_kostensoort_refcode,
mld_opdr_key,
cnt_contract_key,
prs_kostenplaats_key,
lev_kpn,
kpcode,
kdcode) fg;
kdcode) fg,
mld_kenmerk k,
mld_kenmerkopdr ko,
fac_usrdata ud
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;
CREATE OR REPLACE PROCEDURE kfst_select_exact (p_applname IN VARCHAR2,
@@ -1074,6 +1071,50 @@ BEGIN
END;
/
-- Procedure om alle geexporteerde facturen naar status verwerkt te zetten.
CREATE OR REPLACE PROCEDURE kfst_export_verwerk_exact (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
)
AS
CURSOR c_fact
IS
SELECT f.fin_factuur_key
FROM kfst_exp_factuur f
, kfst_v_factuur_gegevens fg
WHERE f.fin_factuur_key = fg.fin_factuur_key
AND fg.fin_factuur_statuses_key = 6;
v_errormsg VARCHAR (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
v_aanvrager NUMBER;
v_bestelling_key NUMBER;
v_logdate DATE;
BEGIN
v_errormsg := 'Geen akties';
-- Facilitor user
v_aanvrager := 4;
v_logdate := SYSDATE;
FOR rec1 IN c_fact
LOOP
BEGIN
UPDATE fin_factuur f
SET fin_factuur_statuses_key = 7
WHERE f.fin_factuur_key = rec1.fin_factuur_key;
fac.trackaction ('FINVER', rec1.fin_factuur_key, v_aanvrager, NULL, NULL);
END;
END LOOP;
DELETE kfst_exp_factuur;
END;
/
------ payload end ------
SET DEFINE OFF