Script header/footer formaat
svn path=/Customer/trunk/; revision=57204
This commit is contained in:
Maarten van der Heide
128
DVON/dvon.sql
128
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,
|
||||
|
||||
Reference in New Issue
Block a user