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

WZUV#85525 Stopzetten WZUV per 1 april 2025

Browse Source 
svn path=/Customer/; revision=69037
This commit is contained in:
Jos Groot Lipman
2025-05-15 14:57:42 +00:00
parent b1fcb46add
commit 7a2d8889a2
10 changed files with 0 additions and 6205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4333
WZUV/WZUV.SQL
View File

File diff suppressed because it is too large Load Diff

48
onces/WZUV/FSN#38836.sql
View File

@@ -1,48 +0,0 @@
/* Formatted on 12-12-2016 11:16:30 (QP5 v5.136.908.31019) */
--
-- $Id$
--
-- Aanmaken import persoonsgegevens
DEFINE thisfile = 'FSN#38836.SQL'
DEFINE dbuser = '^QUAW'
DEFINE custid = 'QUAW'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile ('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
UPDATE fac_import_app i
SET fac_import_app_folder = 'D:Apps\Facilitor\Fplace5i\CUST\WZUV\import',
fac_import_app_files = 'import medewerkers WZUV*.csv',
fac_import_app_charset = 'utf-8'
WHERE fac_import_app_code = 'PRS';
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
@@ &custid

38
onces/WZUV/FSN#38836_2.sql
View File

@@ -1,38 +0,0 @@
--
-- $Id$
--
-- Scriptje om de tabs uit de personeelsnummer te verwijderen
DEFINE thisfile = 'FSN#3886_2.SQL'
DEFINE dbuser = '^WZUV'
DEFINE custid = 'WZUV'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
UPDATE PRS_PERSLID
set prs_perslid_nr = REPLACE (prs_perslid_nr, chr(9) );
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
@@ &custid

46
onces/WZUV/WZUV#52805.sql
View File

@@ -1,46 +0,0 @@
--
-- $Id$
--
-- opschonen gebruikers die door de persimport onterecht meerdere malen zijn aangemaakt
DEFINE thisfile = 'WZUV#52805.SQL'
DEFINE dbuser = '^WZUV'
SET ECHO ON
SET DEFINE ON
COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
WHENEVER SQLERROR EXIT;
SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
WHENEVER SQLERROR CONTINUE;
SPOOL &fcltlogfile
SET DEFINE OFF
------ payload begin ------
-- bedrijfskey 41= WZUV, om cli<6C>nten uit te sluiten
-- alleen cli<6C>nten na 28 maart 20189 aangemaakt zijn, de dag daarvoor zijn de dubbele afdelingen aangemaakt
-- alleen medewerkers zonder login zijn foutief
DELETE prs_perslid
WHERE prs_perslid_key IN
(SELECT p.prs_perslid_key
FROM prs_perslid p, prs_v_afdeling a
WHERE prs_perslid_oslogin IS NULL
AND p.prs_afdeling_key = a.prs_afdeling_key
AND prs_perslid_verwijder IS NULL
AND prs_perslid_login IS NULL
AND a.prs_bedrijf_key = 41
AND prs_perslid_ingangsdatum >
TO_DATE ('28-3-2018', 'dd-mm-yyyy'));
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

54
onces/WZUV/WZUV#57078.sql
View File

@@ -1,54 +0,0 @@
/* Formatted on 15-5-2019 11:14:53 (QP5 v5.336) */
--
-- $Id$
--
-- Door foutieve import zijn dubbele medewerkers, zonder login, aangemaakt. Deze moeten verwijderd worden
DEFINE thisfile = 'WZUV#57078.SQL'
DEFINE dbuser = '^WZUV'
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;
SET DEFINE OFF
------ payload begin ------
UPDATE prs_perslid p
SET p.PRS_PERSLID_NR = '',
p.PRS_PERSLID_VERWIJDER = TO_DATE ('1-1-1900', 'dd-mm-yyyy')
WHERE prs_srtperslid_key <> 8561 -- geen clienten
AND prs_perslid_oslogin IS NULL
-- AND UPPER (prs_perslid_email) LIKE '%WZUVELUWE.NL%'
AND prs_perslid_upper NOT LIKE '%INACTIEF%'
AND prs_perslid_verwijder IS NULL;
------ 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

1456
onces/WZUV/WZUV#57521.sql
View File

File diff suppressed because it is too large Load Diff

57
onces/WZUV/WZUV#57812.sql
View File

@@ -1,57 +0,0 @@
--
-- $Id$
--
-- Door foutieve import hebben mdw een einddatum gekregen, deze moet weer verwijderd worden>
DEFINE thisfile = 'WZUV#57812.SQL'
DEFINE dbuser = '^WZUV'
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;
SET DEFINE OFF
------ payload begin ------
-- alles zonder persnr en geen login mag een einddatum krijgen
UPDATE prs_perslid p
set p.prs_perslid_verwijder = to_date ('14-5-2019', 'dd-mm-yyyy')
WHERE prs_srtperslid_key <> 8561
AND prs_perslid_oslogin IS NULL
AND p.prs_perslid_nr IS NULL;
-- Inactief halen we ook allemaal weg,
-- dat komt indien dat toch nodig is vanzelf weer goed na de volgende import
UPDATE prs_perslid p
SET p.prs_perslid_naam = replace (p.prs_perslid_naam , 'INACTIEF:')
WHERE prs_srtperslid_key <> 8561
AND prs_perslid_oslogin IS NULL;;
-- alles wat vandaag een einddatum heeft gekregen, moet weer terug gedraaid worden
UPDATE prs_perslid p
SET p.prs_perslid_verwijder = ''
WHERE prs_srtperslid_key <> 8561
AND prs_perslid_oslogin IS NULL
AND TRUNC (p.prs_perslid_verwijder) = TRUNC (SYSDATE);
------ 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

43
onces/WZUV/WZUV#57812_2.sql
View File

@@ -1,43 +0,0 @@
--
-- $Id$
--
-- Foutieve import clienten
DEFINE thisfile = 'WZUV#57812_2.SQL'
DEFINE dbuser = '^WZUV'
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;
SET DEFINE OFF
------ payload begin ------
-- alle clienten die vandaag zijn ingelezen via de verkeerde import moeten weer verwijderd worden
DELETE PRS_PERSLID
WHERE PRS_PERSLID_KEY IN
(SELECT prs_perslid_key
FROM prs_perslid
WHERE prs_srtperslid_key = 8561
AND TRUNC (prs_perslid_aanmaak) = TRUNC (SYSDATE));
------ 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

51
onces/WZUV/WZUV#63962.sql
View File

@@ -1,51 +0,0 @@
--
-- $Id$
--
-- WZUV#63962: WZUV ongebruikte imports
-- Inkoopfacturen worden niet in Facilitor gezet maar gaan rechtstreeks naar Exact
--
DEFINE thisfile = 'WZUV#63962.SQL'
DEFINE dbuser = '^WZUV'
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 ------
DROP PROCEDURE wzuv_import_fin_fact_liander;
DROP PROCEDURE wzuv_update_fin_fact_liander;
DROP PROCEDURE wzuv_import_fin_fact_tu;
DROP PROCEDURE wzuv_update_fin_fact_tu;
DROP PROCEDURE wzuv_import_fin_fact_kenter;
DROP PROCEDURE wzuv_update_fin_fact_kenter;
DROP PROCEDURE wzuv_import_fin_fact_care4flex;
DROP PROCEDURE wzuv_update_fin_fact_care4flex;
DROP PROCEDURE wzuv_import_fin_fact_randstad;
DROP PROCEDURE wzuv_update_fin_fact_randstad;
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

79
onces/WZUV/WZUV#65709.sql
View File

@@ -1,79 +0,0 @@
--
-- $Id$
--
-- Correctie accounts na foute import
-- WZUV#65709 Notificatie bij uitdiensttreding voor inleveren pers. objecten
--
DEFINE thisfile = 'WZUV#65709.SQL'
DEFINE dbuser = '^WZUV'
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 ------
UPDATE prs_perslid p
SET p.prs_perslid_oslogin =
(TRIM (
SUBSTR (p.prs_perslid_email,
1,
INSTR (p.prs_perslid_email, '@', 1) - 1)))
WHERE p.prs_perslid_key IN
(SELECT p.prs_perslid_key
FROM prs_perslid p,
( SELECT (TRIM (
SUBSTR (
p.prs_perslid_email,
1,
INSTR (p.prs_perslid_email, '@', 1) - 1)))
inlognaam,
COUNT (prs_perslid_key)
AS aant
FROM prs_perslid p
WHERE p.prs_perslid_verwijder IS NULL
GROUP BY (
TRIM (
SUBSTR (p.prs_perslid_email,
1,
INSTR (p.prs_perslid_email, '@', 1) - 1))))
aant
WHERE p.prs_perslid_oslogin IS NULL
AND p.prs_perslid_verwijder IS NULL
AND p.prs_perslid_email LIKE '%wzuveluwe%'
AND aant.aant = 1
AND aant.inlognaam =
(TRIM (
SUBSTR (p.prs_perslid_email,
1,
INSTR (p.prs_perslid_email, '@', 1) - 1))));
------ 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