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

TWYN#53458 conversie project EPO

Browse Source 
svn path=/Customer/trunk/; revision=38072
This commit is contained in:
Erik Groener
2018-06-05 13:36:33 +00:00
parent fd2a42edd5
commit 2329db6292
1 changed files with 18 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
TWYN/twyn.sql
View File

@@ -561,6 +561,10 @@ AS
s_groep_nr VARCHAR2 (256); --036 GRNUMMER :groep volgnummer (groep)
s_onderdeel_nr VARCHAR2 (256); --038 ONNUMMER :onderdeel nummer (soort)
v_count_contract NUMBER(3);
v_i_contract_nr NUMBER(10);
v_i_factuur_nr NUMBER(10);
v_i_grootboek_nr NUMBER(10);
v_i_iscontract NUMBER(1);
BEGIN
fac.imp_getfield (p_line, c_delim, v_contract_nr);
fac.imp_getfield (p_line, c_delim, v_contract_volgnr);
@@ -600,10 +604,15 @@ AS
p_contract_nr := fac.safe_To_Integer(v_contract_nr);
p_contract_volgnr := fac.safe_To_Integer(v_contract_volgnr);
IF ( fac.safe_To_Integer(v_is_contract) = 1
AND p_contract_nr > 0
AND fac.safe_To_Integer(s_grootboek_nr) > 0
AND fac.safe_To_Integer(s_factuur_nr) = 0
v_i_contract_nr := fac.safe_To_Integer(v_contract_nr);
v_i_factuur_nr := fac.safe_To_Integer(s_factuur_nr);
v_i_grootboek_nr := fac.safe_To_Integer(s_grootboek_nr);
v_i_iscontract := fac.safe_To_Integer(v_is_contract);
IF ( (v_i_iscontract = 1)
AND (v_i_contract_nr > 0)
AND (v_i_factuur_nr = 0)
) THEN
fac.imp_getfield_nr(v_searchline, c_delim, 3, s_project_nummer);
fac.imp_getfield_nr(v_searchline, c_delim, 14, s_subproject_code);
@@ -2170,6 +2179,11 @@ AS
AND bgt_budgetmutatie_omschrijving = l_rec.bgt_oms
AND bgt_budget_key_van = l_budget_van
AND bgt_budget_bedrag_van = l_bedrag_van;
l_budget_gegevens := 'Mutatie-key '|| l_budgetmutatie_key
||' gevonden voor budget-key '|| l_budget_van
||' ('|| l_mut_volgnr ||' '|| l_rec.bgt_datum ||' '|| l_bedrag_van ||' '|| l_rec.bgt_oms
||' )';
fac.imp_writelog ( p_import_key, 'I', l_budget_gegevens, NULL);
EXCEPTION
WHEN NO_DATA_FOUND THEN
fac.imp_writelog ( p_import_key, 'I', 'Mutatie: '||ABS(l_bedrag_van)||' van '||TO_CHAR(l_budget_van)||' naar '||TO_CHAR(l_budget_naar), NULL);