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

NFIT#13892

Browse Source 
svn path=/Customer/trunk/; revision=13601
This commit is contained in:
Maykel Geerdink
2008-05-19 14:59:24 +00:00
parent 4b83e351aa
commit bf315f5556
1 changed files with 17 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
NFIT/nfit.sql
View File

@@ -1,7 +1,7 @@
-- Script containing customer specific configuration sql statements for NFIT Nefit Buderus Deventer
-- (c) 2006 Facilitor/Dijkoraad IT bv
-- $Revision: 13 $
-- $Modtime: 21-12-07 14:51 $
-- $Revision: 14 $
-- $Modtime: 19-05-08 16:54 $
--
-- Support: +31 53 4800700
@@ -712,7 +712,7 @@ BEGIN
INTO currentversion
FROM fac_module;
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Crediteuren import version ' || currentversion, '$Revision: 13 $');
fac.imp_writelog (p_applname, p_applrun, 'I', 'Facilitor Crediteuren import version ' || currentversion, '$Revision: 14 $');
-- #Import
SELECT DECODE (COUNT (*), 0, 1, COUNT (*)) -- DECODE ivm vermijden deling door 0
@@ -927,7 +927,7 @@ BEGIN
BEGIN
v_bedrijf_key := rec_bedr_del.prs_bedrijf_key;
v_errormsg := 'Inactiveren van het bedrijf is NIET gelukt';
v_errorhint := 'Bedrijf met prs_bedrijf_key ' || TO_CHAR (v_bedrijf_key);
v_errorhint := 'Inactiveren van het bedrijf is NIET gelukt. Bedrijf met bedrijfsnaam ' || rec_bedr_del.prs_bedrijf_naam;
UPDATE prs_bedrijf
SET prs_bedrijf_naam = SUBSTR ('INACTIEF: ' || prs_bedrijf_naam, 1, 60)
@@ -986,7 +986,10 @@ BEGIN
-- Controle: PRS_BEDRIJF_NAAM
IF rec_bedr_upd.prs_bedrijf_naam IS NULL
THEN
v_errorhint := 'Bedrijf heeft geen bedrijfsnaam; leveranciersnummer: ' || rec_bedr_upd.prs_leverancier_nr;
v_errorhint := 'Bedrijf heeft geen bedrijfsnaam; bedrijfsnaam/leveranciersnummer: '
|| rec_bedr_upd.prs_bedrijf_naam
|| '/'
|| rec_bedr_upd.prs_leverancier_nr;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
v_update := FALSE;
END IF;
@@ -1124,7 +1127,10 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; leveranciersnummer: ' || rec_bedr_upd.prs_leverancier_nr;
v_errorhint := ' {' || v_errormsg || '}; bedrijfsnaam/leveranciersnummer: '
|| rec_bedr_upd.prs_bedrijf_naam
|| '/'
|| rec_bedr_upd.prs_leverancier_nr;
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;
@@ -1382,7 +1388,11 @@ BEGIN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := '(ORACLE error ' || oracle_err_num || '/' || oracle_err_mes || ')';
v_errorhint := ' {' || v_errormsg || '}; leveranciersnummer: ' || rec_bedr_upd.prs_leverancier_nr;
v_errorhint := ' {' || v_errormsg || '}; bedrijfsnaam/leveranciersnummer: '
|| rec_bedr_upd.prs_bedrijf_naam
|| '/'
|| rec_bedr_upd.prs_leverancier_nr;
v_update := FALSE;
fac.imp_writelog (p_applname, p_applrun, 'E', v_errormsg, v_errorhint);
END;