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

HMOD#88835 -- AFAS-online koppeling voor productie

Browse Source 
svn path=/Customer/trunk/; revision=70276
This commit is contained in:
Jos Migo
2025-09-10 18:57:49 +00:00
parent 2fddce9a7c
commit 0587727f0b
1 changed files with 16 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
HMOD/hmod.sql
View File

@@ -26,7 +26,7 @@ SET DEFINE OFF
--- HIERONDER NIEUWE AFAS IMPORT (2025-JULI) ----
--------------------------------------------------
CREATE OR REPLACE PROCEDURE hmod_import_afasonline_h (p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE hmod_import_afasonline (p_import_key IN NUMBER)
AS
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
@@ -81,10 +81,8 @@ BEGIN
WHERE fac_import_key = p_import_key;
v_errorhint := 'Generieke update';
-- Import AFAS_ONLINE -- csv formaat via stylesheet afas2fclt.xsl bepaald
-- EVT NOG AANVULLING VAN CLAUDIA OP:
---- DOEL: MET FORMATIEPLAATSCODE_WIJZIGINGSDATUM of AFDELINGSCODE_WIJZIGINGSDATUM DE TRIGGER MUTATIE-KOFFERSYSTEEM TE ZETTEN
v_seq_of_header := 'Personeelsnummer;Roepnaam;Voorletters;Voorvoegsel;Achternaam;Geslacht;Zakelijk mailadres;Dienstverb.;Begindatum functieregel;Einddatum functieregel;Afdelingscode;Afdeling omschrijving;Functiecode;Functieomschrijving;Formatieplaatscode;Formatieplaats omschrijving;Uren/wk;Leidinggevende persnr.;Naam Leidinggevende;Kofferletter';
-- Import AFAS_ONLINE -- csv formaat via stylesheet afas2fclt.xsl bepaald -- NOG INPASSEN --21 Datum in dienst
v_seq_of_header := 'Personeelsnummer;Roepnaam;Voorletters;Voorvoegsel;Achternaam;Geslacht;Zakelijk mailadres;Dienstverb.;Begindatum functieregel;Einddatum functieregel;Afdelingscode;Afdeling omschrijving;Functiecode;Functieomschrijving;Formatieplaatscode;Formatieplaats omschrijving;Uren/wk;Leidinggevende persnr.;Naam Leidinggevende;Kofferletter;Datum in dienst';
-- 1. Personeelsnummer
-- 2. Roepnaam
-- 3. Voorletters
@@ -105,6 +103,7 @@ BEGIN
-- 18. Leidinggevende persnr.
-- 19. Naam Leidinggevende
-- 20. Kofferletter
-- 21. Datum in dienst
-- de sequence array staat beschreven in PRS_PAC.SRC bij de prs.import_perslid procedure
v_seq_of_columns := '0;0;0;0;0;0;11;5;4;2;'
@@ -143,12 +142,12 @@ BEGIN
-- v_prs_kenmerk2 28
-- v_prs_kenmerk3 29
-- v_prs_kenmerk4 30
|| '12;13;14;15;16;17;18;19;20;0;'
|| '12;13;14;15;16;17;18;19;20;21;'
-- v_prs_kenmerk5 31
-- .t/m kenmerk15 40
-- .t/m kenmerk14 40
|| '0;0;0;0;0;0';
-- v_prs_kenmerk16 41
-- ..t/m kenmerk20 45
-- v_prs_kenmerk15 41
-- ..t/m kenmerk20 46
v_errorhint := 'Generieke update';
@@ -262,10 +261,10 @@ EXCEPTION
'E',
v_errormsg,
v_errorhint);
END hmod_import_afasonline_h;
END hmod_import_afasonline;
/
CREATE OR REPLACE PROCEDURE hmod_update_afasonline_h (p_import_key IN NUMBER)
CREATE OR REPLACE PROCEDURE hmod_update_afasonline (p_import_key IN NUMBER)
IS
-- AFAS in sync met Facilitor bedrijf c_prs_bedrijf_key_hmod
--- Alle personen verwijderen die niet meer in het import bestand voorkomen.
@@ -286,7 +285,7 @@ IS
-- HR-mutaties in Facilitor
--- Bij mutaties in AFAS moeten in Facilitor voor desbetreffende persoon ook zaken geregeld worden. Hiervoor zetten we kenmerk/trigger 'mutatie-koffersysteem'
--- Betreft 2 wijzigingen: Nieuwe medewerker EN Gewijzigde formatieplaats op bestaande medewerker
----- Werkwijz: Via een aparte notificatiejob worden de personen geinformeerd om de juiste HR-mutatie/workflow op te staten
----- Werkwijze: Via een aparte notificatiejob worden de personen geinformeerd om de juiste HR-mutatie/workflow op te staten
--- Voor de mutatie 'verwijderde medewerkers': <NOG INPASSEN / BESPREKEN MET FRANK/CLAUDIA>
----- Werkwijze: Daar voor elk medewerker een KOFFER-OBJECT koppelen zodat de medewerker bij verwijderactie uit AFAS-koppeling altijd op INACTIEF komt
@@ -349,7 +348,7 @@ IS
CURSOR c_flex -- Voor updaten van de algemene flex-kenmerkvelden op actuele medewerkers in blok AFAS_ONLINE op personenkaart
IS
SELECT p.prs_perslid_key, i.prs_perslid_nr, i.prs_perslid_naam, i.prs_perslid_email,
i.prs_kenmerk1, i.prs_kenmerk2, i.prs_kenmerk3, i.prs_kenmerk4, i.prs_kenmerk5, i.prs_kenmerk6, i.prs_kenmerk7, i.prs_kenmerk8, i.prs_kenmerk9, i.prs_kenmerk10, i.prs_kenmerk11, i.prs_kenmerk12, i.prs_kenmerk13
i.prs_kenmerk1, i.prs_kenmerk2, i.prs_kenmerk3, i.prs_kenmerk4, i.prs_kenmerk5, i.prs_kenmerk6, i.prs_kenmerk7, i.prs_kenmerk8, i.prs_kenmerk9, i.prs_kenmerk10, i.prs_kenmerk11, i.prs_kenmerk12, i.prs_kenmerk13, i.prs_kenmerk14
FROM prs_v_aanwezigperslid p, fac_imp_perslid i
WHERE p.prs_perslid_key = i.prs_perslid_key
ORDER BY 1;
@@ -570,6 +569,9 @@ BEGIN
v_errorhint:='Fout bijwerken kenmerkveld13 - Kofferletter';
PRS.upsertkenmerk (1641, rec.prs_perslid_key, rec.prs_kenmerk13);
v_errorhint:='Fout bijwerken kenmerkveld14 - Datum in Dienst';
PRS.upsertkenmerk (1780, rec.prs_perslid_key, rec.prs_kenmerk14);
END;
END LOOP;
@@ -834,7 +836,7 @@ EXCEPTION
'E',
v_errormsg,
v_errorhint);
END hmod_update_afasonline_h;
END hmod_update_afasonline;
/