CSUN#40729 -- Automatisering Facilitor koppelingen
svn path=/Customer/trunk/; revision=35324
This commit is contained in:
Arthur Egberink
@@ -1765,7 +1765,7 @@ AS
|
||||
v_accountcode VARCHAR2 (255); -- 14
|
||||
v_accountnaam VARCHAR2 (255); -- 60
|
||||
v_project VARCHAR2 (255); -- 8
|
||||
v_locatie_code VARCHAR2 (255); -- 10
|
||||
|
||||
v_locatie_omschrijving VARCHAR2 (255); -- 30
|
||||
v_locatie_adres VARCHAR2 (255); -- 35
|
||||
v_locatie_postcode VARCHAR2 (255); -- 12
|
||||
@@ -1777,6 +1777,8 @@ AS
|
||||
v_achternaam VARCHAR2 (255); -- 60
|
||||
v_bu VARCHAR2 (255);
|
||||
v_vervallen VARCHAR2 (255);
|
||||
v_rayonl_persnr VARCHAR2 (255); -- 16
|
||||
v_rayonl_naam VARCHAR2 (255); -- 60
|
||||
v_kenmerk1 VARCHAR2 (255);
|
||||
v_kenmerk2 VARCHAR2 (255);
|
||||
v_kenmerk3 VARCHAR2 (255);
|
||||
@@ -1818,29 +1820,30 @@ BEGIN
|
||||
v_aanduiding := '';
|
||||
v_error := 0;
|
||||
-- Lees alle veldwaarden
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_accountcode);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_accountnaam);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_project);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_bu);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dm);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_voorletters);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_voornaam);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_tussenvoegsels);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_achternaam);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_omschrijving);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_adres);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_postcode);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_plaats);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_vervallen);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_code);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk1);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_accountcode); -- FPACCC
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_accountnaam); -- FPACCO
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_project); -- FPPRJ#
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_bu); -- FPREGO
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_dm); -- FPDISC
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_voorletters); -- FPDIVL
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_voornaam); -- FPDIVN
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_tussenvoegsels); -- FPDIVV
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_achternaam); -- FPDINM
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_omschrijving); -- FPLOCO
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_adres); -- FPADBA
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_postcode); -- FPPKBA
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_locatie_plaats); -- FPPLBA
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_vervallen); -- FPVERV
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_rayonl_persnr); -- FPGEOK
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_rayonl_naam); -- FPRLNM
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk1);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk2);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk3);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk4);
|
||||
fac.imp_getfield (v_newline, c_fielddelimitor, v_kenmerk5);
|
||||
|
||||
v_aanduiding :=
|
||||
v_locatie_code || '|' || v_locatie_omschrijving || '| ';
|
||||
v_project || '|' || v_locatie_omschrijving || '| ';
|
||||
|
||||
IF (header_is_valid = 0)
|
||||
THEN
|
||||
@@ -1867,7 +1870,7 @@ BEGIN
|
||||
|
||||
v_error_hint :=
|
||||
'Fout bij toevoegen te impoteren locatie ['
|
||||
|| v_locatie_code
|
||||
|| v_project
|
||||
|| ']';
|
||||
|
||||
INSERT INTO csun_imp_project (accountcode,
|
||||
@@ -1885,6 +1888,8 @@ BEGIN
|
||||
adres,
|
||||
postcode,
|
||||
woonplaats,
|
||||
rayonl_persnr,
|
||||
rayonl_naam,
|
||||
kenmerk1,
|
||||
kenmerk2,
|
||||
kenmerk3,
|
||||
@@ -1900,11 +1905,13 @@ BEGIN
|
||||
SUBSTR(TRIM(v_voorletters),1,14),
|
||||
SUBSTR(TRIM(v_tussenvoegsels),1,14),
|
||||
SUBSTR(TRIM(v_achternaam),1,60),
|
||||
SUBSTR(TRIM(v_locatie_code),1,10),
|
||||
NULL, -- Wordt niet meer gebruikt.
|
||||
SUBSTR(TRIM(v_locatie_omschrijving),1,60),
|
||||
SUBSTR(TRIM(v_locatie_adres),1,35),
|
||||
SUBSTR(TRIM(v_locatie_postcode),1,9),
|
||||
SUBSTR(TRIM(v_locatie_plaats),1,35),
|
||||
SUBSTR(TRIM(v_rayonl_persnr),1,16),
|
||||
SUBSTR(TRIM(v_rayonl_naam),1,60),
|
||||
v_kenmerk1,
|
||||
v_kenmerk2,
|
||||
v_kenmerk3,
|
||||
@@ -1962,7 +1969,6 @@ IS
|
||||
v_bud_key NUMBER (10);
|
||||
v_account_key NUMBER (10);
|
||||
v_district_key NUMBER (10);
|
||||
v_locatie_code VARCHAR2 (10);
|
||||
|
||||
CURSOR c_account
|
||||
IS
|
||||
@@ -2115,13 +2121,9 @@ BEGIN
|
||||
AND alg_locatie_verwijder IS NULL;
|
||||
|
||||
IF v_count = 0 THEN
|
||||
IF rec.code IS NULL THEN
|
||||
v_locatie_code := rec.project;
|
||||
ELSE
|
||||
v_locatie_code := rec.code;
|
||||
END IF;
|
||||
|
||||
INSERT INTO alg_locatie (alg_district_key, alg_locatie_code, alg_locatie_omschrijving)
|
||||
VALUES (v_district_key, 'P' || v_locatie_code, SUBSTR(rec.omschrijving,1,50))
|
||||
VALUES (v_district_key, 'P' || rec.project, SUBSTR(rec.omschrijving,1,50))
|
||||
RETURNING alg_locatie_key
|
||||
INTO v_locatie_key;
|
||||
ELSE
|
||||
|
||||
Reference in New Issue
Block a user