HMOD#88835 -- AFAS-online koppeling voor productie

svn path=/Customer/trunk/; revision=70276

HMOD/hmod.sql

@@ -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;
 /