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

AAIT#38880 -- Bevindingen inlezen facturen.

Browse Source 
svn path=/Customer/trunk/; revision=32254
This commit is contained in:
Arthur Egberink
2017-01-06 14:07:57 +00:00
parent b7d69d501d
commit fa285e5065
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
AA/aaxx.sql
View File

@@ -15056,6 +15056,7 @@ AS
v_pos NUMBER; v_pos NUMBER;
v_result NUMBER; v_result NUMBER;
v_factuur_key fin_factuur.fin_factuur_key%TYPE; v_factuur_key fin_factuur.fin_factuur_key%TYPE;
v_kenmerk_key fin_kenmerk.fin_kenmerk_key%TYPE;
BEGIN BEGIN
errormsg := '(0x143)'; errormsg := '(0x143)';
@@ -15084,6 +15085,7 @@ BEGIN
-- DBMS_OUTPUT.PUT_LINE('v_from: '||v_from); -- DBMS_OUTPUT.PUT_LINE('v_from: '||v_from);
errormsg := '(0x143a)';
-- Valideer de sender in pfrom: kennen we deze? -- Valideer de sender in pfrom: kennen we deze?
SELECT MIN (prs_perslid_key), MIN (d.prs_kostenplaats_key) SELECT MIN (prs_perslid_key), MIN (d.prs_kostenplaats_key)
INTO sender_key, kostenplaats_key INTO sender_key, kostenplaats_key
@@ -15092,6 +15094,7 @@ BEGIN
AND prs_perslid_verwijder IS NULL AND prs_perslid_verwijder IS NULL
AND UPPER (prs_perslid_email) = UPPER (v_from); AND UPPER (prs_perslid_email) = UPPER (v_from);
errormsg := '(0x143b)';
IF sender_key IS NULL IF sender_key IS NULL
THEN THEN
sender_key := 11; -- prs_perslid_key onbekend mail adres. sender_key := 11; -- prs_perslid_key onbekend mail adres.
@@ -15107,6 +15110,7 @@ BEGIN
CASE CASE
WHEN UPPER (pto) LIKE 'INVOICES@%' WHEN UPPER (pto) LIKE 'INVOICES@%'
THEN THEN
errormsg := '(0x143c)';
INSERT INTO fin_factuur (fin_factuur_statuses_key, INSERT INTO fin_factuur (fin_factuur_statuses_key,
fin_factuur_datum, fin_factuur_datum,
fin_factuur_totaal_btw, fin_factuur_totaal_btw,
@@ -15121,9 +15125,19 @@ BEGIN
INTO v_factuur_key; INTO v_factuur_key;
-- Zet kenmerk laatste factuur op Ja -- Zet kenmerk laatste factuur op Ja
errormsg := '(0x143d)';
INSERT INTO fin_kenmerkfactuur (fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_waarde) INSERT INTO fin_kenmerkfactuur (fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_waarde)
VALUES (v_factuur_key, 2, 1); VALUES (v_factuur_key, 2, 1);
-- Bepaal de key van de bijlages
errormsg := '(0x143e)';
SELECT fin_kenmerk_key
INTO v_kenmerk_key
FROM fin_kenmerk
WHERE fin_kenmerk_verwijder IS NULL
AND UPPER(fin_kenmerk_omschrijving) = 'BIJLAGES';
errormsg := '(0x143f)';
INSERT INTO fac_result (fac_result_sessionid, INSERT INTO fac_result (fac_result_sessionid,
fac_result_naam, fac_result_naam,
fac_result_waarde) fac_result_waarde)
@@ -15134,7 +15148,7 @@ BEGIN
|| '___\F' || '___\F'
|| v_factuur_key || v_factuur_key
|| '\' || '\'
|| 1 || v_kenmerk_key
|| '\'); || '\');
WHEN UPPER (pto) LIKE 'SERVICEDESK@%' WHEN UPPER (pto) LIKE 'SERVICEDESK@%'
THEN THEN