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

AAIT#67042 -- Factuurverwerking via Mareonplatform - Cust factuurimport herzien ivm debiteurnr

Browse Source 
svn path=/Customer/trunk/; revision=53118
This commit is contained in:
Jos Migo
2021-09-22 16:16:26 +00:00
parent 8407e071e8
commit 38a08bbdcb
1 changed files with 39 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
AA/aaxx.sql
View File

@@ -11890,6 +11890,10 @@ IS
v_ordersoort VARCHAR2 (200);
v_contractsoort VARCHAR2 (200);
v_bestelsoort VARCHAR2 (200);
v_klantnummer_key NUMBER(10);
v_klantnummer VARCHAR2 (200);
v_prs_bedrijf_key NUMBER(10);
v_opdracht_key NUMBER(10);
@@ -11933,7 +11937,14 @@ BEGIN
INTO c_kenmerk_key_bijlage
FROM fin_kenmerk
WHERE fin_kenmerk_type = 'F' -- niveau kenmerk op Factuurniveau en niet op R-regel
AND fin_kenmerk_kenmerktype = c_kenmerk_key_soort;
AND fin_kenmerk_kenmerktype = c_kenmerk_key_soort;
-- Klantnummer - Kenmerk_key ophalen
SELECT MIN (prs_kenmerk_key)
INTO v_klantnummer_key
FROM prs_kenmerk
WHERE prs_kenmerk_niveau = 'B' AND prs_kenmerk_upper = 'KLANTNUMMER' AND prs_kenmerk_verwijder IS NULL;
FOR rec IN cfactuur
LOOP
@@ -11984,8 +11995,8 @@ BEGIN
-- Voor Opdracht..
IF rec.mld_opdr_key IS NOT NULL
THEN
SELECT o.mld_opdr_kosten, ot.mld_typeopdr_omschrijving
INTO v_bedrag_totaal, v_ordersoort
SELECT o.mld_opdr_kosten, ot.mld_typeopdr_omschrijving, o.mld_uitvoerende_keys
INTO v_bedrag_totaal, v_ordersoort, v_prs_bedrijf_key
FROM mld_opdr o, mld_typeopdr ot
WHERE o.mld_opdr_key = rec.mld_opdr_key
AND o.mld_typeopdr_key = ot.mld_typeopdr_key;
@@ -12013,8 +12024,8 @@ BEGIN
-- Voor Bestelopdracht..
IF rec.bes_bestelopdr_key IS NOT NULL
THEN
SELECT SUM (br.bes_bestelopdr_item_aantal * br.bes_bestelopdr_item_prijs) bedrag_totaal -- LETOP! Bedragen & BTW - check inclusief of Exclusief bij AAIT (via bes_bestelling_item)!!!
INTO v_bedrag_totaal
SELECT SUM (br.bes_bestelopdr_item_aantal * br.bes_bestelopdr_item_prijs) bedrag_totaal, b.prs_bedrijf_key -- LETOP! Bedragen & BTW - check inclusief of Exclusief bij AAIT (via bes_bestelling_item)!!!
INTO v_bedrag_totaal, v_prs_bedrijf_key
FROM bes_bestelopdr b, bes_bestelopdr_item br
WHERE b.bes_bestelopdr_key = br.bes_bestelopdr_key
AND b.bes_bestelopdr_key = rec.bes_bestelopdr_key
@@ -12039,8 +12050,8 @@ BEGIN
-- Voor Contract..
IF rec.cnt_contract_key IS NOT NULL
THEN
SELECT c.cnt_contract_kosten, c.cnt_contract_termijnkosten, cs.ins_discipline_omschrijving -- NOG IETS DOEN MET TERMIJNBEDRAG ?
INTO v_bedrag_totaal, v_bedrag_termijn, v_contractsoort
SELECT c.cnt_contract_kosten, c.cnt_contract_termijnkosten, cs.ins_discipline_omschrijving, c.cnt_prs_bedrijf_key -- NOG IETS DOEN MET TERMIJNBEDRAG ?
INTO v_bedrag_totaal, v_bedrag_termijn, v_contractsoort, v_prs_bedrijf_key
FROM cnt_contract c, ins_tab_discipline cs
WHERE c.cnt_contract_key = rec.cnt_contract_key
AND c.ins_discipline_key = cs.ins_discipline_key AND cs.ins_discipline_module = 'CNT';
@@ -12084,6 +12095,27 @@ BEGIN
VALUES (rec.fin_factuur_key, 2, DECODE(aaxx_get_user, 'SABIC', 25, 2));
END IF;
-- Veld debiteurnummer nog vullen indien gevuld bij relatie
IF v_klantnummer_key IS NOT NULL
THEN
-- Waarde ophalen met v_prs_bedrijf_key en vullen in v_klantnummer
SELECT MAX(prs_kenmerklink_waarde)
INTO v_klantnummer
FROM prs_kenmerklink
WHERE prs_kenmerk_key = v_klantnummer_key AND prs_link_key = v_prs_bedrijf_key AND prs_kenmerklink_verwijder IS NULL;
-- Indien waarde dan vullen in inkoopfactuur veld debiteurnummer
IF v_klantnummer IS NOT NULL
THEN
UPDATE fin_factuur
SET fin_factuur_debiteur_nr = v_klantnummer
WHERE fin_factuur_key = rec.fin_factuur_key ;
END IF;
END IF;
-- tot slot nog nette logging
v_aanduiding := 'Mareon-factuurimport: Voor deze verplichting de ' || TO_CHAR(v_count_gefactureerd) || 'e factuur.' ;