38 lines
1.6 KiB
SQL
38 lines
1.6 KiB
SQL
spool from_extern_to_intern.lst
|
|
|
|
-- Alle bedrijven die klant zijn (tooningid=1) en afgelopen kwartier zijn aangemaakt (ja ja, een beetje gok, maar dat zijn de net geimporteerde bedrijven als het goed is),
|
|
-- krijgen een afdeling.
|
|
INSERT INTO PRS_AFDELING (PRS_BEDRIJF_KEY, PRS_AFDELING_NAAM, PRS_AFDELING_OMSCHRIJVING, MLD_ADRES_KEY)
|
|
SELECT prs_bedrijf_key, 'Intern', prs_bedrijf_naam, NULL
|
|
FROM prs_bedrijf
|
|
WHERE prs_bedrijf_aanmaak > sysdate - 1/96
|
|
and prs_bedrijf_ingids = 1;
|
|
|
|
--INSERT INTO PRS_PERSLID(PRS_AFDELING_KEY,
|
|
-- PRS_SRTPERSLID_KEY,
|
|
-- PRS_PERSLID_MODULE,
|
|
-- PRS_PERSLID_NAAM,
|
|
-- PRS_PERSLID_OSLOGIN,
|
|
-- PRS_PERSLID_TELEFOONNR,
|
|
-- PRS_PERSLID_MOBIEL,
|
|
-- PRS_PERSLID_EMAIL
|
|
-- )
|
|
--SELECT PRS_AFDELING_KEY, 1,'PRS',
|
|
-- SUBSTR(COALESCE(prs_bedrijf_contact_persoon, prs_bedrijf_naam),1,30),
|
|
-- SUBSTR(COALESCE(SUBSTR(prs_bedrijf_email,1,30),prs_bedrijf_naam),1,30),
|
|
-- SUBSTR(prs_bedrijf_telefoon,1,15),
|
|
-- SUBSTR(prs_bedrijf_telefoon2,1,15),
|
|
-- prs_bedrijf_email
|
|
--FROM PRS_AFDELING a, PRS_BEDRIJF b
|
|
--WHERE a.prs_bedrijf_key = b.prs_bedrijf_key
|
|
--AND prs_bedrijf_contract = 1;
|
|
|
|
-- Alle bedrijven die afgelopen kwartier zijn aangemaakt van extern tot intern maken
|
|
update prs_bedrijf
|
|
set prs_bedrijf_intern=1
|
|
WHERE prs_bedrijf_aanmaak > sysdate - 1/96;
|
|
|
|
|
|
commit;
|
|
|
|
spool off |