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

PCHX#67175 - Facturen Scansys

Browse Source 
svn path=/Customer/trunk/; revision=52491
This commit is contained in:
Sander Schepers
2021-07-22 21:31:01 +00:00
parent 50a5a99537
commit badee9d981
1 changed files with 73 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

77
PCHX/pchx.sql
View File

@@ -4523,6 +4523,7 @@ AS
kenmerk6,
kenmerk12,
debiteurnr,
fac_import_key,
(SELECT DISTINCT (MAX (p.prs_perslid_key))
FROM prs_perslid p, fac_v_rap_groeprechten r
WHERE r.fclt_f_login = p.prs_perslid_oslogin
@@ -4536,7 +4537,8 @@ AS
kenmerk4,
kenmerk6,
kenmerk12,
debiteurnr
debiteurnr,
fac_import_key
FROM fac_imp_factuur
GROUP BY factuurnr,
omschrijving,
@@ -4545,7 +4547,8 @@ AS
kenmerk4,
kenmerk6,
kenmerk12,
debiteurnr);
debiteurnr,
fac_import_key);
CURSOR km_factuurregels
IS
@@ -4574,6 +4577,7 @@ AS
v_grootboekrekening VARCHAR2 (200);
v_kostendrager VARCHAR2 (200);
v_kostenplaats NUMBER;
v_referentie_key NUMBER;
v_opmerking VARCHAR2 (3000);
v_omschrijving VARCHAR2 (3000);
v_afw_boekdatum VARCHAR2 (200);
@@ -4626,11 +4630,16 @@ BEGIN
WHERE fin_factuur_key = rec.fin_factuur_key
AND rec.fin_factuur_key IS NOT NULL;
-- administratie
IF rec.kenmerk6 IS NULL
THEN
v_errorhint := 'Geen administratie';
fac.imp_writelog (
p_import_key,
'E',
v_errormsg || v_errorhint,
'Er is geen administratie gevuld bij dit boekstuknummer '
|| rec.kenmerk1);
ELSE
INSERT INTO fin_kenmerkfactuur (fin_factuur_key,
fin_kenmerk_key,
@@ -4647,6 +4656,10 @@ BEGIN
IF rec.kenmerk1 IS NULL
THEN
v_errorhint := 'Geen boekstuknummer';
fac.imp_writelog (p_import_key,
'E',
v_errormsg || v_errorhint,
'Er is geen boekstuknummer gevuld');
ELSE
INSERT INTO fin_kenmerkfactuur (fin_factuur_key,
fin_kenmerk_key,
@@ -4682,6 +4695,12 @@ BEGIN
IF rec.kenmerk4 IS NULL
THEN
v_errorhint := 'Geen grootboekrekening';
fac.imp_writelog (
p_import_key,
'E',
v_errormsg || v_errorhint,
'Er is geen grootboekrekening gevuld bij dit boekstuknummer '
|| rec.kenmerk1);
ELSE
v_errorhint := 'Fout bij inlezen grootboekrekening';
@@ -4700,6 +4719,25 @@ BEGIN
AND ut.fac_usrtab_key = ud.fac_usrtab_key
AND ud.fac_usrdata_code = rec.kenmerk4));
END IF;
v_errorhint := 'Bepalen referentie';
SELECT COALESCE (mld_opdr_key, cnt_contract_key, bes_bestelopdr_key)
INTO v_referentie_key
FROM fin_factuur
WHERE fin_factuur_key = rec.fin_factuur_key
AND rec.fac_import_key = p_import_key;
IF v_referentie_key IS NULL
THEN
v_errorhint := 'Geen referentie';
fac.imp_writelog (
p_import_key,
'E',
v_errormsg || v_errorhint,
'Er is geen referentie gevonden bij dit boekstuknummer '
|| rec.kenmerk1);
END IF;
END;
END LOOP;
@@ -4738,12 +4776,19 @@ BEGIN
v_errorhint := 'BTW bedrag overnemen';
UPDATE fin_factuurregel
SET fin_factuurregel_btw = fac.safe_to_number (replace(rec.kenmerk14, ',', '.'))
SET fin_factuurregel_btw =
fac.safe_to_number (REPLACE (rec.kenmerk14, ',', '.'))
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
IF rec.kenmerk8 IS NULL
THEN
v_errorhint := 'Geen afw. grootboekrekening factuurregel';
fac.imp_writelog (
p_import_key,
'E',
v_errormsg || v_errorhint,
'Er is geen afwijkende grootboekrekening gevuld bij een factuurregel bij dit boekstuknummer '
|| rec.kenmerk1);
ELSE
INSERT INTO fin_kenmerkfactregel (fin_factuurregel_key,
fin_kenmerk_key,
@@ -5014,6 +5059,30 @@ AS
FROM mld_v_udr_melding;
/
CREATE OR REPLACE VIEW pchx_implog_scansysxml
(
import,
import_key,
datum,
status,
omschrijving,
hint
)
AS
SELECT ia.fac_import_app_code,
LOG.fac_import_key,
LOG.imp_log_datum,
LOG.imp_log_status,
LOG.imp_log_omschrijving,
LOG.imp_log_hint
FROM imp_log LOG, fac_import i, fac_import_app ia
WHERE LOG.imp_log_status = 'E'
AND UPPER (ia.fac_import_app_code) = 'FIN_SCANSYS_XML'
AND LOG.fac_import_key = i.fac_import_key
AND i.fac_import_app_key = ia.fac_import_app_key
ORDER BY imp_log_key DESC;
/
------ payload end ------
SET DEFINE OFF