82 lines
2.5 KiB
SQL
82 lines
2.5 KiB
SQL
-- Customer specific once-script voor WEND
|
|
|
|
-- $Id$
|
|
--
|
|
-- Oncescript om Kostensoorten in te lezen op basis 'eigen-tabel'-import
|
|
|
|
DEFINE thisfile = 'IMPU#70628_kostensoorten.SQL'
|
|
DEFINE dbuser = '^IMPU'
|
|
|
|
SET ECHO ON
|
|
SET DEFINE ON
|
|
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
|
|
COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
|
|
SPOOL &fcltlogfile
|
|
WHENEVER SQLERROR EXIT;
|
|
SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
|
|
WHENEVER SQLERROR CONTINUE;
|
|
PROMPT &fcltcusterr
|
|
SET DEFINE OFF
|
|
|
|
------ payload begin ------
|
|
|
|
-- Aanmaken nieuwe kostensoorten op basis van 'Eigen tabel'-import!
|
|
|
|
-- *** PRE-CONDITIE ***
|
|
-- Alleen inlezen (niet verwerken!) van bestand via 'FIP: Aanmaken/bijwerken
|
|
-- eigen tabel'-import!
|
|
|
|
-- Verwijder FAC_IMPORT-entry voor vandaag/zojuist door _FACILITOR ingelezen
|
|
-- bestand (om verwerken te voorkomen).
|
|
-- NB. De FAC_IMPORT_USRDATA-tabel blijft gevuld!
|
|
|
|
DELETE FROM fac_import
|
|
WHERE fac_import_app_key = 23 -- FIP: Eigen tabellen
|
|
AND TRUNC (fac_import_datum_gelezen) = TRUNC (SYSDATE)
|
|
AND fac_import_filenaam = 'IMPU_Kostensoorten.csv'
|
|
AND prs_perslid_key = 3 -- _FACILITOR
|
|
;
|
|
|
|
COMMIT;
|
|
|
|
-- Toevoegen kostensoortgroepen!
|
|
INSERT INTO prs_kostensoortgrp (prs_kostensoortgrp_oms, prs_kostensoortgrp_altcode)
|
|
SELECT DISTINCT fac_usrtab_naam, NULL FROM fac_imp_usrdata;
|
|
|
|
-- Toevoegen kostensoorten!
|
|
INSERT INTO prs_kostensoort (prs_kostensoort_oms,
|
|
prs_kostensoort_opmerking,
|
|
prs_kostensoort_refcode,
|
|
prs_kostensoort_doorbelasten,
|
|
prs_kostensoort_btw,
|
|
prs_kostensoortgrp_key,
|
|
prs_kostensoort_altcode,
|
|
fin_btwtabelwaarde_key)
|
|
SELECT ud.fac_usrdata_code,
|
|
ud.fac_usrdata_omschr,
|
|
NULL,
|
|
NULL,
|
|
NULL,
|
|
kpg.prs_kostensoortgrp_key,
|
|
NULL,
|
|
NULL
|
|
FROM fac_imp_usrdata ud, prs_kostensoortgrp kpg
|
|
WHERE ud.fac_usrtab_naam = kpg.prs_kostensoortgrp_oms;
|
|
|
|
COMMIT;
|
|
|
|
|
|
------ payload end ------
|
|
|
|
SET DEFINE OFF
|
|
BEGIN adm.systrackscriptId ('$Id$', 1); END;
|
|
/
|
|
|
|
COMMIT;
|
|
SET ECHO OFF
|
|
SPOOL OFF
|
|
SET DEFINE ON
|
|
PROMPT Logfile of this upgrade is: &fcltlogfile
|