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

CONN#20185

Browse Source 
svn path=/Customer/trunk/; revision=14708
This commit is contained in:
Arthur Egberink
2011-03-28 07:17:34 +00:00
parent 27b092f41d
commit 88f3dd0365
1 changed files with 140 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

145
CONN/conn.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for CONN: Connexxion
-- (c) 2005-2010 SG|facilitor bv
-- $Revision: 161 $
-- $Modtime: 12-01-11 9:05 $
-- $Revision: 162 $
-- $Modtime: 28-03-11 9:14 $
--
-- Support: +31 53 4800710
@@ -5741,7 +5741,7 @@ AS
'U wordt verzocht uw bestelling met nummer '
|| bo.bes_bestelopdr_id
|| ' af te melden in Facilitor.',
b.bes_bestelling_key,
bo.bes_bestelopdr_key,
NULL
FROM bes_bestelling b,
bes_bestelling_item bi,
@@ -7164,10 +7164,145 @@ AS
AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
AND c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+);
BEGIN fac.registercustversion('CONN', 42); END;
/*
-- Functionaliteit tbv de locatieoverzichten
-- Budget
-- Uitnutting
-- Xelion informatie
CREATE OR REPLACE PROCEDURE conn_import_budget (
p_applname IN VARCHAR2,
p_applrun IN VARCHAR2,
p_filedir IN VARCHAR2,
p_filename IN VARCHAR2
)
AS
v_newline fac_imp_file.fac_imp_file_line%TYPE; -- Input line
v_field VARCHAR2 (100);
v_fielddelimitor VARCHAR2 (1);
v_errormsg VARCHAR2 (200);
v_errorhint VARCHAR2 (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
header_is_valid NUMBER;
-- De importvelden
v_empty VARCHAR2 (100);
v_locatie VARCHAR2 (100);
v_adres VARCHAR2 (100);
v_divisie VARCHAR2 (30);
v_budget VARCHAR2 (30);
v_district VARCHAR2 (30);
v_periode VARCHAR2 (10);
v_huur VARCHAR2 (30);
v_afschrijving VARCHAR2 (30);
v_servicekosten VARCHAR2 (30);
v_eindtotaal VARCHAR2 (30);
v_vorige_locatie VARCHAR2 (10);
v_vorige_divisie VARCHAR2 (10);
CURSOR c
IS
SELECT *
FROM fac_imp_file
WHERE fac_imp_file_applicatie = p_applname
ORDER BY FAC_IMP_FILE_INDEX;
BEGIN
-- Init
v_fielddelimitor := ';';
header_is_valid := 0;
DELETE imp_log
WHERE imp_log_applicatie = p_applname;
FOR rec IN c
LOOP
BEGIN
v_errorhint := 'Inlezen regel';
v_newline := rec.fac_imp_file_line;
v_errorhint := 'Inlezen velden' || v_newline;
fac.imp_getfield (v_newline, v_fielddelimitor, v_locatie);
IF v_locatie IS NULL THEN
v_locatie := v_vorige_locatie;
END IF;
fac.imp_getfield (v_newline, v_fielddelimitor, v_adres);
fac.imp_getfield (v_newline, v_fielddelimitor, v_divisie);
IF v_divisie IS NULL THEN
v_divisie := v_vorige_divisie;
END IF;
fac.imp_getfield (v_newline, v_fielddelimitor, v_budget);
fac.imp_getfield (v_newline, v_fielddelimitor, v_district);
fac.imp_getfield (v_newline, v_fielddelimitor, v_periode);
fac.imp_getfield (v_newline, v_fielddelimitor, v_huur);
fac.imp_getfield (v_newline, v_fielddelimitor, v_afschrijving);
fac.imp_getfield (v_newline, v_fielddelimitor, v_servicekosten);
fac.imp_getfield (v_newline, v_fielddelimitor, v_eindtotaal);
IF header_is_valid = 0 THEN
IF upper(v_locatie) = 'LOCATIE'
THEN
header_is_valid := 1;
END IF;
ELSE
v_errorhint := 'Toevoegen record: ' || v_newline;
INSERT INTO conn_imp_budget
(locatie,
adres,
divisie,
budget,
district,
periode,
huur,
afschrijving,
servicekosten,
eindtotaal,
importrun
)
VALUES (v_locatie,
v_adres,
v_divisie,
v_budget,
v_district,
v_periode,
fac.safe_to_number(v_huur),
fac.safe_to_number(v_afschrijving),
fac.safe_to_number(v_servicekosten),
fac.safe_to_number(v_eindtotaal),
p_applrun
);
v_vorige_locatie := v_locatie;
v_vorige_divisie := v_divisie;
end if;
COMMIT;
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg :=
'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;
/
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 161 $', 0); END;
CREATE OR REPLACE PROCEDURE conn_update_budget (p_applname IN VARCHAR2, p_applrun IN VARCHAR2)
AS
BEGIN
NULL;
END;
/
*/
BEGIN fac.registercustversion('CONN', 43); END;
/
BEGIN adm.systrackscript('$Workfile: conn.sql $', '$Revision: 162 $', 0); END;
/
COMMIT;