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

Script header/footer formaat

Browse Source 
svn path=/Customer/trunk/; revision=57204
This commit is contained in:
Maarten van der Heide
2022-09-08 13:20:52 +00:00
parent 03962087d1
commit 29aa77c157
1 changed files with 67 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
DVON/dvon.sql
View File

@@ -8,10 +8,16 @@ DEFINE dbuser = '^FMD'
SET ECHO ON SET ECHO ON
SET DEFINE ON SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT; COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT; COLUMN fcltcusttxt NEW_VALUE fcltcusttxt NOPRINT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE; WHENEVER SQLERROR CONTINUE;
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
SPOOL &fcltlogfile SPOOL &fcltlogfile
WHENEVER SQLERROR EXIT;
SELECT adm.checkscriptcust('&dbuser') AS fcltcusttxt FROM DUAL;
WHENEVER SQLERROR CONTINUE;
---------------------------------------
PROMPT &fcltcusttxt
---------------------------------------
SET DEFINE OFF SET DEFINE OFF
------ payload begin ------ ------ payload begin ------
@@ -3268,7 +3274,7 @@ BEGIN
v_ongeldig := 1; v_ongeldig := 1;
END IF; END IF;
v_errormsg := 'Objectsoortomschrijving ongeldig'; v_errormsg := 'Objectsoortomschrijving ongeldig';
v_ins_srtdeel_omschrijving := TRIM (v_ins_srtdeel_omschrijving); v_ins_srtdeel_omschrijving := TRIM (v_ins_srtdeel_omschrijving);
@@ -4863,7 +4869,7 @@ IS
v_ordersoort_retour VARCHAR (255); v_ordersoort_retour VARCHAR (255);
v_ins_srtkenmerk_key1 VARCHAR2 (255); v_ins_srtkenmerk_key1 VARCHAR2 (255);
v_teller NUMBER (10); v_teller NUMBER (10);
CURSOR c1 CURSOR c1
IS IS
@@ -4871,7 +4877,7 @@ IS
FROM fac_imp_file FROM fac_imp_file
WHERE fac_import_key = p_import_key WHERE fac_import_key = p_import_key
ORDER BY fac_imp_file_index; ORDER BY fac_imp_file_index;
CURSOR c2 CURSOR c2
IS IS
SELECT SELECT
@@ -4917,7 +4923,7 @@ IS
sub.kenmerk20 sub.kenmerk20
FROM FROM
( (
SELECT SELECT
dd.ordernummer, dd.ordernummer,
d.ins_discipline_omschrijving disciplineomschrijving, d.ins_discipline_omschrijving disciplineomschrijving,
NULL disciplinekostensoort, NULL disciplinekostensoort,
@@ -4971,14 +4977,14 @@ IS
AND sd.ins_srtgroep_key = sg.ins_srtgroep_key AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
AND sg.ins_discipline_key = d.ins_discipline_key AND sg.ins_discipline_key = d.ins_discipline_key
AND dd.maat IS NOT NULL 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_srtkenmerk_key = isk.ins_srtkenmerk_key
AND ik.ins_srtdeel_upper = UPPER (sd.ins_srtdeel_omschrijving) AND ik.ins_srtdeel_upper = UPPER (sd.ins_srtdeel_omschrijving)
AND isk.fac_kenmerkdomein_key = fk.fac_kenmerkdomein_key AND isk.fac_kenmerkdomein_key = fk.fac_kenmerkdomein_key
AND UPPER (dd.regeltype) IN ('SPECIALS', 'STANDAARD ARTIKEL') AND UPPER (dd.regeltype) IN ('SPECIALS', 'STANDAARD ARTIKEL')
AND UPPER (dd.maat) IN (SELECT f.fac_usrdata_upper AND UPPER (dd.maat) IN (SELECT f.fac_usrdata_upper
FROM fac_usrdata f FROM fac_usrdata f
WHERE f.fac_usrtab_key = fk.fac_usrtab_key WHERE f.fac_usrtab_key = fk.fac_usrtab_key
AND f.fac_usrdata_verwijder IS NULL) -- alleen bestaande maten AND f.fac_usrdata_verwijder IS NULL) -- alleen bestaande maten
GROUP BY ( GROUP BY (
dd.ordernummer, dd.ordernummer,
@@ -4998,7 +5004,7 @@ GROUP BY (
FROM dvon_imp_dirksen)) FROM dvon_imp_dirksen))
WHERE n <= aantal WHERE n <= aantal
ORDER BY objectsoortcode; ORDER BY objectsoortcode;
BEGIN BEGIN
-- Eerst opruiming -- Eerst opruiming
DELETE FROM dvon_imp_dirksen; DELETE FROM dvon_imp_dirksen;
@@ -5019,7 +5025,7 @@ BEGIN
v_ongeldig := 0; v_ongeldig := 0;
v_count_tot := v_count_tot + 1; v_count_tot := v_count_tot + 1;
-- Lees alle veldwaarden -- 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_orderdatum_txt);
fac.imp_getfield (v_newline, c_delim, v_ordersoort); fac.imp_getfield (v_newline, c_delim, v_ordersoort);
fac.imp_getfield (v_newline, c_delim, v_orderstatus); fac.imp_getfield (v_newline, c_delim, v_orderstatus);
@@ -5061,52 +5067,52 @@ BEGIN
BEGIN BEGIN
v_errormsg := 'Fout bij wegschrijven importregel'; v_errormsg := 'Fout bij wegschrijven importregel';
v_orderdatum := fac.safe_to_date (v_orderdatum_txt, 'DD-MM-YYYY'); 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. -- 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 ( INSERT INTO DVON_IMP_DIRKSEN (
ordernummer, ordernummer,
orderdatum, orderdatum,
ordersoort, ordersoort,
orderstatus, orderstatus,
medewerker, medewerker,
medewerker_huidig, medewerker_huidig,
regeltype, regeltype,
artikelnummer, artikelnummer,
artikelnaam, artikelnaam,
maat, maat,
prijs_per_stuk, prijs_per_stuk,
aantal, aantal,
regeltotaal, regeltotaal,
retourtype, retourtype,
team, team,
afleveradresnaam, afleveradresnaam,
adres, adres,
postcode, postcode,
plaats, plaats,
magazijnartikel, magazijnartikel,
ordersoort_retour ordersoort_retour
) )
VALUES ( VALUES (
v_ordernummer, v_ordernummer,
v_orderdatum, v_orderdatum,
v_ordersoort, v_ordersoort,
v_orderstatus, v_orderstatus,
v_medewerker, v_medewerker,
v_medewerker_huidig, v_medewerker_huidig,
v_regeltype, v_regeltype,
v_artikelnummer, v_artikelnummer,
v_artikelnaam, v_artikelnaam,
v_maat, v_maat,
v_prijs_per_stuk, v_prijs_per_stuk,
v_aantal, v_aantal,
v_regeltotaal, v_regeltotaal,
v_retourtype, v_retourtype,
v_team, v_team,
v_afleveradresnaam, v_afleveradresnaam,
v_adres, v_adres,
v_postcode, v_postcode,
v_plaats, v_plaats,
v_magazijnartikel, v_magazijnartikel,
v_ordersoort_retour v_ordersoort_retour
); );
COMMIT; COMMIT;
@@ -5153,9 +5159,9 @@ DELETE FROM fac_imp_ins;
FOR rec IN c2 FOR rec IN c2
LOOP LOOP
BEGIN BEGIN
v_count_tot := v_count_tot + 1; v_count_tot := v_count_tot + 1;
INSERT INTO fac_imp_ins ( INSERT INTO fac_imp_ins (
ins_discipline_omschrijving, ins_discipline_omschrijving,
ins_discipline_kostensoort, ins_discipline_kostensoort,
@@ -5178,7 +5184,7 @@ DELETE FROM fac_imp_ins;
prs_perslid_matchwaarde, prs_perslid_matchwaarde,
ins_kenmerkwaarde1 ins_kenmerkwaarde1
) )
VALUES ( VALUES (
rec.disciplineomschrijving, rec.disciplineomschrijving,
rec.disciplinekostensoort, rec.disciplinekostensoort,
rec.groepsoortomschrijving, rec.groepsoortomschrijving,
@@ -5280,12 +5286,12 @@ END dvon_import_dirksen;
/ /
CREATE OR REPLACE PROCEDURE dvon_update_dirksen (p_import_key IN NUMBER) CREATE OR REPLACE PROCEDURE dvon_update_dirksen (p_import_key IN NUMBER)
AS AS
v_errormsg VARCHAR2 (1000) := '-'; v_errormsg VARCHAR2 (1000) := '-';
oracle_err_num NUMBER; oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200); oracle_err_mes VARCHAR2 (200);
v_aanduiding VARCHAR2 (200); v_aanduiding VARCHAR2 (200);
BEGIN BEGIN
dvon_update_extrains (p_import_key); dvon_update_extrains (p_import_key);
@@ -5301,8 +5307,8 @@ EXCEPTION
v_errormsg, v_errormsg,
'Importproces objecten afgebroken!'); 'Importproces objecten afgebroken!');
END dvon_update_dirksen; END dvon_update_dirksen;
/ /
-- Ingelezen objecten in bulk uitleenbaar maken via export -- Ingelezen objecten in bulk uitleenbaar maken via export
CREATE OR REPLACE PROCEDURE DVON_EXPORT_LEENMAARUIT (p_applname IN VARCHAR2, CREATE OR REPLACE PROCEDURE DVON_EXPORT_LEENMAARUIT (p_applname IN VARCHAR2,
@@ -6511,7 +6517,7 @@ AS
besupd besupd
FROM bes_bestelling b, bes_bestellingstatuses bs FROM bes_bestelling b, bes_bestellingstatuses bs
WHERE b.bes_bestelling_status = bs.bes_bestellingstatuses_key; WHERE b.bes_bestelling_status = bs.bes_bestellingstatuses_key;
CREATE OR REPLACE VIEW dvon_v_rap_bes_all CREATE OR REPLACE VIEW dvon_v_rap_bes_all
( (
bestelling_key, bestelling_key,