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

FSN#39055 BCS/2000 functionaliteit in FACILITOR - customization

Browse Source 
svn path=/Customer/; revision=33708
This commit is contained in:
Erik Groener
2017-05-05 12:16:55 +00:00
parent 441c5c068c
commit 8e424f8e3b
2 changed files with 61 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
TWYN/twyn.sql
View File

@@ -335,6 +335,8 @@ AS
s_subproject_code VARCHAR2 (256); --014 SPNUMMER :code subproject
s_rubriek_nr VARCHAR2 (256); --034 RUNUMMER :rubriek volgnummer
s_groep_nr VARCHAR2 (256); --036 GRNUMMER :groep volgnummer
s_btw_code VARCHAR2 (256); --094 COBTCODE :btw code
s_btw_waarde VARCHAR2 (256); --095 COBTBTW :btw waarde
v_count_onderdeel NUMBER (3);
BEGIN
fac.imp_getfield (p_line, c_delim, v_onderdeel_nr);
@@ -349,6 +351,9 @@ AS
fac.imp_getfield_nr(v_searchline, c_delim, 14, s_subproject_code);
fac.imp_getfield_nr(v_searchline, c_delim, 34, s_rubriek_nr);
fac.imp_getfield_nr(v_searchline, c_delim, 36, s_groep_nr);
fac.imp_getfield_nr(v_searchline, c_delim, 94, s_btw_code);
fac.imp_getfield_nr(v_searchline, c_delim, 95, s_btw_waarde);
SELECT COUNT(*)
INTO v_count_onderdeel
FROM twyn_imp_kostensoort
@@ -364,6 +369,8 @@ AS
, prs_kostensoortgrp_altcode
, prs_kostensoort_oms
, prs_kostensoort_opmerking
, bgt_btw_code
, bgt_btw_waarde
)
VALUES
( s_subproject_code
@@ -371,6 +378,8 @@ AS
, s_groep_nr
, v_onderdeel_nr
, TRIM(v_onderdeel_omschr)
, s_btw_code
, fac.safe_To_Integer(s_btw_waarde)
);
END IF;
p_onderdeel_nr := v_onderdeel_nr;
@@ -525,8 +534,8 @@ AS
v_nn_091 VARCHAR2 (256); --091 COBEDRDEF
v_contract_status VARCHAR2 (256); --092 COSTATUS :contractstatus key
v_nn_093 VARCHAR2 (256); --093 COWITHFA
v_nn_094 VARCHAR2 (256); --094 COBTCODE
v_nn_095 VARCHAR2 (256); --095 COBTBTW
v_nn_094 VARCHAR2 (256); --094 COBTCODE :btw code
v_nn_095 VARCHAR2 (256); --095 COBTBTW :btw waarde
v_nn_096 VARCHAR2 (256); --096 CSSTATUS :contractstatus omschrijving
v_nn_097 VARCHAR2 (256); --097 COISCONTR
s_grootboek_nr VARCHAR2 (256); --121 GRB :grootboek nummer
@@ -1048,13 +1057,14 @@ AS
RETURN a_opdr_key;
END;
FUNCTION get_btw_key( p_excl IN NUMBER
, p_btw IN NUMBER
) RETURN NUMBER
FUNCTION get_btw_perc( p_excl IN NUMBER
, p_btw IN NUMBER
) RETURN NUMBER
IS
a_perc NUMBER (3);
a_btw_key fin_btwtabelwaarde.fin_btwtabelwaarde_key%TYPE;
BEGIN
-- Bepaal de btw-key door het percentage te berekenen
IF ((p_excl = p_btw) OR (NVL(p_btw, 0) = 0) OR (NVL(p_excl, 0) = 0)) THEN
a_perc := 0;
ELSE
@@ -1074,6 +1084,36 @@ AS
RETURN a_btw_key;
END; --get_btw_perc
FUNCTION get_btw_key( p_code IN VARCHAR2
, p_perc IN NUMBER
) RETURN NUMBER
IS
a_btw_key fin_btwtabelwaarde.fin_btwtabelwaarde_key%TYPE;
BEGIN
BEGIN
SELECT fin_btwtabelwaarde_key
INTO a_btw_key
FROM fin_btwtabelwaarde
WHERE fin_btwtabelwaarde_perc = p_perc;
EXCEPTION
WHEN NO_DATA_FOUND THEN
INSERT INTO fin_btwtabelwaarde
( fin_btwtabelwaarde_code
, fin_btwtabelwaarde_oms
, fin_btwtabelwaarde_perc
, fin_btwtabel_key
)
VALUES
( SUBSTR(p_code,1,1) || TO_CHAR(p_perc)
, p_code
, p_perc
, (SELECT MAX(fin_btwtabel_key) FROM fin_btwtabel)
)
RETURNING fin_btwtabelwaarde_key INTO a_btw_key;
END;
RETURN a_btw_key;
END; -- get_btw_key
PROCEDURE update_discipline(p_import_key IN NUMBER)
AS
@@ -1377,12 +1417,15 @@ AS
, prs_kostensoortgrp_altcode
, prs_kostensoort_oms
, prs_kostensoort_opmerking
, bgt_btw_code
, bgt_btw_waarde
FROM twyn_imp_kostensoort
ORDER BY prs_kostensoort_oms;
l_groep_key prs_kostensoortgrp.prs_kostensoortgrp_key%TYPE;
l_soort_key prs_kostensoort.prs_kostensoort_key%TYPE;
l_groep_code prs_kostensoortgrp.prs_kostensoortgrp_altcode%TYPE;
l_soort_code prs_kostensoort.prs_kostensoort_oms%TYPE;
l_btw_key fin_btwtabelwaarde.fin_btwtabelwaarde_key%TYPE;
l_count NUMBER(3) := 0;
BEGIN
g_errormsg := NULL;
@@ -1419,15 +1462,20 @@ AS
EXCEPTION
WHEN NO_DATA_FOUND THEN
g_errorhint := 'Toevoegen soort';
l_btw_key := get_btw_key(l_rec.bgt_btw_code, l_rec.bgt_btw_waarde);
INSERT INTO prs_kostensoort
( prs_kostensoort_oms
, prs_kostensoort_altcode
, prs_kostensoort_opmerking
, prs_kostensoortgrp_key
, fin_btwtabelwaarde_key
)
VALUES
( l_soort_code ||' '|| l_rec.prs_kostensoort_opmerking
, l_soort_code
, l_soort_code
, l_groep_key
, l_btw_key
)
RETURNING prs_kostensoort_key INTO l_soort_key;
--
@@ -1913,7 +1961,7 @@ AS
, prs_kostenplaats_omschrijving
, prs_kostenplaats_upper
, prs_kostenplaats_module
, prs_ksotenplaatsgrp_key
, prs_kostenplaatsgrp_key
)
VALUES
( l_rec.prs_kostenplaats_nr
@@ -1934,7 +1982,7 @@ AS
-- overige codes: 2 Niet akkoord
INSERT INTO mld_opdr
( mld_opdr_id
, mld_opdr_ordernr,
, mld_opdr_ordernr
, mld_opdr_bedrijfopdr_volgnr
, mld_uitvoerende_keys
, mld_opdr_omschrijving

7
onces/TWYN/twyn0.sql
View File

@@ -71,6 +71,8 @@ CREATE TABLE twyn_imp_kostensoort
prs_kostensoortgrp_altcode VARCHAR2(60)
prs_kostensoort_oms VARCHAR2(5),
prs_kostensoort_opmerking VARCHAR2(60),
bgt_btw_code VARCHAR2(20),
bgt_btw_waarde NUMBER(2)
);
CREATE TABLE twyn_imp_budget
@@ -116,11 +118,14 @@ CREATE TABLE twyn_imp_contract
bgt_contract_bedrag_btw NUMBER(12,2),
bgt_contract_bedrag_incl NUMBER(12,2),
bgt_contract_status NUMBER(2),
bgt_contract_referentie VARCHAR2(20),
bgt_discipline_code VARCHAR2(20),
bgt_project_code VARCHAR2(20),
bgt_kostenrubriek_code VARCHAR2(20),
prs_kostensoortgrp_code VARCHAR2(60),
prs_kostensoort_code VARCHAR2(5)
prs_kostensoort_code VARCHAR2(5),
prs_kostenplaats_nr NUMBER(10),
prs_kostenplaats_oms VARCHAR2(60)
);
CREATE TABLE twyn_imp_factuur