From 29aa77c15769eae9c388af2b3c23d3c5bc624c21 Mon Sep 17 00:00:00 2001 From: Maarten van der Heide Date: Thu, 8 Sep 2022 13:20:52 +0000 Subject: [PATCH] Script header/footer formaat svn path=/Customer/trunk/; revision=57204 --- DVON/dvon.sql | 128 ++++++++++++++++++++++++++------------------------ 1 file changed, 67 insertions(+), 61 deletions(-) diff --git a/DVON/dvon.sql b/DVON/dvon.sql index 5ef7db02c..fdadac059 100644 --- a/DVON/dvon.sql +++ b/DVON/dvon.sql @@ -8,10 +8,16 @@ DEFINE dbuser = '^FMD' SET ECHO ON SET DEFINE ON COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT; -WHENEVER SQLERROR EXIT; -SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL; +COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT; WHENEVER SQLERROR CONTINUE; +SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL; SPOOL &fcltlogfile +WHENEVER SQLERROR EXIT; +SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL; +WHENEVER SQLERROR CONTINUE; +--------------------------------------- +PROMPT &fcltcusttxt +--------------------------------------- SET DEFINE OFF ------ payload begin ------ @@ -3268,7 +3274,7 @@ BEGIN v_ongeldig := 1; END IF; - + v_errormsg := 'Objectsoortomschrijving ongeldig'; v_ins_srtdeel_omschrijving := TRIM (v_ins_srtdeel_omschrijving); @@ -4863,7 +4869,7 @@ IS v_ordersoort_retour VARCHAR (255); v_ins_srtkenmerk_key1 VARCHAR2 (255); v_teller NUMBER (10); - + CURSOR c1 IS @@ -4871,7 +4877,7 @@ IS FROM fac_imp_file WHERE fac_import_key = p_import_key ORDER BY fac_imp_file_index; - + CURSOR c2 IS SELECT @@ -4917,7 +4923,7 @@ IS sub.kenmerk20 FROM ( - SELECT + SELECT dd.ordernummer, d.ins_discipline_omschrijving disciplineomschrijving, NULL disciplinekostensoort, @@ -4971,14 +4977,14 @@ IS AND sd.ins_srtgroep_key = sg.ins_srtgroep_key AND sg.ins_discipline_key = d.ins_discipline_key AND dd.maat IS NOT NULL - AND isk.ins_srtkenmerk_upper LIKE '%MAAT%' + AND isk.ins_srtkenmerk_upper LIKE '%MAAT%' AND ik.ins_srtkenmerk_key = isk.ins_srtkenmerk_key AND ik.ins_srtdeel_upper = UPPER (sd.ins_srtdeel_omschrijving) AND isk.fac_kenmerkdomein_key = fk.fac_kenmerkdomein_key AND UPPER (dd.regeltype) IN ('SPECIALS', 'STANDAARD ARTIKEL') - AND UPPER (dd.maat) IN (SELECT f.fac_usrdata_upper - FROM fac_usrdata f - WHERE f.fac_usrtab_key = fk.fac_usrtab_key + AND UPPER (dd.maat) IN (SELECT f.fac_usrdata_upper + FROM fac_usrdata f + WHERE f.fac_usrtab_key = fk.fac_usrtab_key AND f.fac_usrdata_verwijder IS NULL) -- alleen bestaande maten GROUP BY ( dd.ordernummer, @@ -4998,7 +5004,7 @@ GROUP BY ( FROM dvon_imp_dirksen)) WHERE n <= aantal ORDER BY objectsoortcode; - + BEGIN -- Eerst opruiming DELETE FROM dvon_imp_dirksen; @@ -5019,7 +5025,7 @@ BEGIN v_ongeldig := 0; v_count_tot := v_count_tot + 1; -- Lees alle veldwaarden - fac.imp_getfield (v_newline, c_delim, v_ordernummer); + fac.imp_getfield (v_newline, c_delim, v_ordernummer); fac.imp_getfield (v_newline, c_delim, v_orderdatum_txt); fac.imp_getfield (v_newline, c_delim, v_ordersoort); fac.imp_getfield (v_newline, c_delim, v_orderstatus); @@ -5061,52 +5067,52 @@ BEGIN BEGIN v_errormsg := 'Fout bij wegschrijven importregel'; v_orderdatum := fac.safe_to_date (v_orderdatum_txt, 'DD-MM-YYYY'); - + -- We vullen de Dirksen tabel, vanaf daar kan de data gemuteerd worden zodat deze in fac_imp_ins gezet kan worden. - INSERT INTO DVON_IMP_DIRKSEN ( - ordernummer, - orderdatum, - ordersoort, - orderstatus, - medewerker, - medewerker_huidig, - regeltype, - artikelnummer, - artikelnaam, - maat, - prijs_per_stuk, - aantal, - regeltotaal, - retourtype, - team, - afleveradresnaam, - adres, - postcode, - plaats, - magazijnartikel, + INSERT INTO DVON_IMP_DIRKSEN ( + ordernummer, + orderdatum, + ordersoort, + orderstatus, + medewerker, + medewerker_huidig, + regeltype, + artikelnummer, + artikelnaam, + maat, + prijs_per_stuk, + aantal, + regeltotaal, + retourtype, + team, + afleveradresnaam, + adres, + postcode, + plaats, + magazijnartikel, ordersoort_retour ) VALUES ( - v_ordernummer, - v_orderdatum, - v_ordersoort, - v_orderstatus, - v_medewerker, + v_ordernummer, + v_orderdatum, + v_ordersoort, + v_orderstatus, + v_medewerker, v_medewerker_huidig, - v_regeltype, - v_artikelnummer, - v_artikelnaam, - v_maat, - v_prijs_per_stuk, - v_aantal, - v_regeltotaal, - v_retourtype, - v_team, - v_afleveradresnaam, - v_adres, - v_postcode, - v_plaats, - v_magazijnartikel, + v_regeltype, + v_artikelnummer, + v_artikelnaam, + v_maat, + v_prijs_per_stuk, + v_aantal, + v_regeltotaal, + v_retourtype, + v_team, + v_afleveradresnaam, + v_adres, + v_postcode, + v_plaats, + v_magazijnartikel, v_ordersoort_retour ); COMMIT; @@ -5153,9 +5159,9 @@ DELETE FROM fac_imp_ins; FOR rec IN c2 LOOP BEGIN - + v_count_tot := v_count_tot + 1; - + INSERT INTO fac_imp_ins ( ins_discipline_omschrijving, ins_discipline_kostensoort, @@ -5178,7 +5184,7 @@ DELETE FROM fac_imp_ins; prs_perslid_matchwaarde, ins_kenmerkwaarde1 ) - VALUES ( + VALUES ( rec.disciplineomschrijving, rec.disciplinekostensoort, rec.groepsoortomschrijving, @@ -5280,12 +5286,12 @@ END dvon_import_dirksen; / CREATE OR REPLACE PROCEDURE dvon_update_dirksen (p_import_key IN NUMBER) -AS +AS v_errormsg VARCHAR2 (1000) := '-'; oracle_err_num NUMBER; oracle_err_mes VARCHAR2 (200); v_aanduiding VARCHAR2 (200); - + BEGIN dvon_update_extrains (p_import_key); @@ -5301,8 +5307,8 @@ EXCEPTION v_errormsg, 'Importproces objecten afgebroken!'); -END dvon_update_dirksen; -/ +END dvon_update_dirksen; +/ -- Ingelezen objecten in bulk uitleenbaar maken via export CREATE OR REPLACE PROCEDURE DVON_EXPORT_LEENMAARUIT (p_applname IN VARCHAR2, @@ -6511,7 +6517,7 @@ AS besupd FROM bes_bestelling b, bes_bestellingstatuses bs WHERE b.bes_bestelling_status = bs.bes_bestellingstatuses_key; - + CREATE OR REPLACE VIEW dvon_v_rap_bes_all ( bestelling_key,