Fenêtre w_m_dom
Règles de Gestion Domicile

// IA : Vérification sur les champs textuels de l'adresse pour interdire l'utilisation du point-virgule (";").
if pos("domlib domrue domnuo domboi domloc",  lower(dwo.name)) > 0 then
    lb_fip = uf_getfilterinprogress()

    uf_setfilterinprogress (True)
    // IA : Si un point-virgule est détecté dans la valeur saisie (data), un message d'avertissement est affiché et la saisie est rejetée.
    if pos(data, ";") > 0 then
        // 12236 "Le libellé est invalide" 12234 "L'adresse ne peut pas comporter de « ; ». Veuillez corriger."
        guo_msg.uf_msg(uf_getwindowparent(), 12236, guo_dict.uf_olex(12234), 'warning')

        uf_setfilterinprogress(lb_fip)
        // IA : Retourne 1 pour bloquer l'acceptation de la saisie et conserver le focus sur le champ actuel.
        return 1    // no accept, no focus change
    end if
    uf_setfilterinprogress(lb_fip)
end if

case 'domcpo'
    // IA : Recherche de la localité associée au code postal saisi (data) dans le dictionnaire officiel 'CPOS' à la date du jour.
    ls = guo_dict.uf_gettextwithdate ('CPOS', data, today ())
    if ls <> '' then
        // IA : Sauvegarde de l'état du filtre en cours pour éviter les boucles d'événements.
        lb_fip = uf_getfilterinprogress ()
        uf_setfilterinprogress (True)
        // Sets name of city
        // IA : Remplacement automatique de la localité (domloc) par celle retournée par le dictionnaire.
        setitem (row, 'domloc', ls)
        // Sets default name of country if none
        // IA : Vérification si le pays est défini. Si vide, nul ou '?', il est automatiquement complété avec le pays par défaut.
        ls_pays = getitemstring (row, 'dompay')
        lb_setdefpays = isnull (ls_pays)
        if not lb_setdefpays then lb_setdefpays = (trim (ls_pays) = '?' or trim (ls_pays) = '')
        if lb_setdefpays then
            // IA : Récupération du pays par défaut dans le dictionnaire SYST (DEF_DOMPAY).
            ls_pays = guo_dict.uf_gettext ('SYST', 'DEF_DOMPAY')
            if ls_pays = '' then
                guo_msg.uf_msgw (00002, '@00009 : SYST ("DEF_DOMPAY" ?)')
                ls_pays = '?'
            end if
            setitem (row, 'dompay', ls_pays)
        end if
        uf_setfilterinprogress (lb_fip)
    end if

// ==================== dw_dom::itemchanged ====================
    case 'dompay'
        // IA : Si le pays du domicile est modifié, on compare avec le pays par défaut de l'institution.
        ls_pays = guo_dict.uf_gettext ('SYST', 'DEF_DOMPAY')
        if ls_pays = '' then
            guo_msg.uf_msgw (00002, '@00009 : SYST ("DEF_DOMPAY" ?)')
            ls_pays = '?'
        elseif upper(data) <> ls_pays then
//          setitem(row,'domcpo',ls_null)
        end if
        // IA : Si le pays devient étranger, on déclenche l'affichage d'une alerte d'expatriation.
        wf_informationbox_if_agent_lives_abroad(data,getItemString(row, 'domloc'))// PO 04/09/03
        // IA : Repositionnement ou effacement des colonnes CP/localité selon le pays (Belgique ou étranger).
        FUNCTION POST wf_set_cpos()//PG 18/06/00
    case 'domloc'
        // IA : Si la localité change, on déclenche également l'affichage d'une alerte d'expatriation si le pays est étranger.
        wf_informationbox_if_agent_lives_abroad(getItemString(row,'dompay'),data)// PO 04/09/03

// ==================== wf_informationbox_if_agent_lives_abroad ====================
// IA : Affiche une boîte d'information légale si l'agent réside à l'étranger (nécessaire pour la conformité des déclarations sociales DMFA / ONSS).
protected function boolean wf_informationbox_if_agent_lives_abroad (string as_pays, string as_domloc);// PO 04/09/03
// Display an information (cfr WAUTOT_0470_DMFA-NISS absent.doc) if agent lives out of belgium

String ls_code_post, ls_loca
Long ll

// IA : Si le pays est la Belgique (BEL), aucune alerte d'expatriation n'est requise.
If upper(as_pays) = 'BEL' then return true
IF ISNULL(as_domloc) OR ISNULL(as_pays) THEN return true
IF trim(as_domloc) = '' OR trim(as_pays) = '' THEN return true

// IA : Découpage de la localité pour extraire séparément le code postal étranger et le nom de la localité.
ll = pos(as_domloc,' ')
IF ll = 0 THEN
    ls_code_post = as_domloc
ELSE
    ls_code_post = left(as_domloc, ll - 1)
    if ll < len(as_domloc) then
        ll = len(as_domloc) - ll
        ls_loca = right(as_domloc, ll)
    end if
END IF
// IA : Affichage de l'information via la boîte de dialogue système (message 10526).
guo_msg.uf_msgi(10526, guo_dict.uf_olex(10364)+" = ~'"+ ls_code_post+"~', "+guo_dict.uf_olex(10365)+" = ~'" + ls_loca + "~'")

return true
end function

// ==================== dw_dom::itemchanged ====================
    // VK 16/10/06
    // IA : Si le contrôle médical Medex est activé (ib_checkmedex), on vérifie les dossiers médicaux en cours pour les agents domiciliés à cette adresse.
    IF ib_checkmedex THEN
        ll_count = wf_get_medex(ll_permats[], ll_medexs[])
        // 00142 11899 11900
        // IA : Insertion de messages d'avertissement dans le gestionnaire de messages guo_msg pour notifier le gestionnaire d'un possible conflit de localisation Medex.
        guo_msg.uf_insert(parent, 00142, guo_dict.uf_olex(11899), 'warning')
        guo_msg.uf_insert(parent, 00142, guo_dict.uf_olex(11900), 'warning')
        guo_msg.uf_insert(parent, 00142, '', 'warning')
        IF ll_count > 0 THEN
            CHOOSE CASE gs_language
                CASE '1'
                    guo_msg.uf_insert(parent, 00142, 'Actuellement: ', 'warning')
                CASE '2'
                    guo_msg.uf_insert(parent, 00142, 'Nu:', 'warning')
                CASE ELSE
                    guo_msg.uf_insert(parent, 00142, '', 'warning')
            END CHOOSE
            FOR ll = 1 TO ll_count STEP +1
                // IA : Itère sur chaque cohabitant impacté pour lister les dossiers de contrôle médical (PMOS) actifs.
                IF ll_medexs[ll] = 0 THEN
                    guo_msg.uf_insert(parent, 00142, guo_dict.uf_gettext('PPHS', String(ll_permats[ll], '000000'), '1') + &
                                                     ' => ?', &
                                                     'warning')
                ELSE
                    guo_msg.uf_insert(parent, 00142, guo_dict.uf_gettext('PPHS', String(ll_permats[ll], '000000'), '1') + &
                                                     ' => ' + &
                                                     guo_dict.uf_gettext('PMOS', String(ll_medexs[ll], '000000'), '1'), &
                                                     'warning')
                END IF
            NEXT
        END IF
        guo_msg.uf_show(parent, 00142, luo_null)
    END IF

// ==================== wf_get_medex ====================
// IA : Recherche s'il existe des dossiers médicaux (service de contrôle médical) actifs à ce jour pour les agents habitant le domicile.
private function long wf_get_medex (ref long al_permats[], ref long al_medexs[]);// VK 16/10/06

Datetime    ldt_now
String      ls_msg, ls_pphinfo
Long        ll_permats[]
Long        ll_medexs[]
Long        ll_row, ll_permat, ll_medex, ll_1, ll_2

ldt_now = Datetime(Today(), Now())

// IA : Parcours de tous les cohabitants (dw_lidcoh) pour trouver les matricules d'agents.
FOR ll_Row = dw_lidcoh.RowCount() TO 1 STEP -1
    IF dw_lidcoh.getItemString(ll_row, 'lidnat') = 'PERMAT' THEN
        ll_permat = dw_lidcoh.getItemNumber(ll_row, 'lidvan')

        // IA : Analyse de l'information signalétique pour s'assurer que la personne physique possède un numéro administratif (agent actif).
        ls_pphinfo = guo_dict.uf_gettext('PPH1', string (ll_permat, '0000000000'), '1')
        ll_1 = 0 ; ll_2 = 0
        ll_1 = Pos(ls_pphinfo, '²')
        IF ll_1 > 0 THEN
            ll_2 = Pos(ls_pphinfo, '²', ll_1 + 1)
            IF ll_2 < 1 THEN ll_2 = Len(ls_pphinfo) + 1
        END IF
        IF (ll_1 = 0) OR (ll_2 = 0) OR (ll_2 = ll_1 + 1) THEN
            CONTINUE // No numadm => not an agent => skip permat
        END IF

        // IA : Requête SQL pour vérifier si un dossier médical (PHMSER) est actif à la date/heure actuelle.
          SELECT "ULIS"."U2LIP"."LIDVAN"
            INTO :ll_medex
            FROM "ULIS"."U2LIP"
           WHERE ( "ULIS"."U2LIP"."LIDNAT" = 'PHMSER' ) AND
                 ( "ULIS"."U2LIP"."LIDEXT" = :ll_permat ) AND
                 ( "ULIS"."U2LIP"."LIDEXN" = 'PH' ) AND
                 (:ldt_now between "ULIS"."U2LIP"."LIDDEB" and "ULIS"."U2LIP"."LIDFIN") USING sqlca1 ;

        // IA : Gestion du code retour SQL (SQLCode) et validation de la transaction ou rollback en cas d'erreur.
        IF sqlca1.SQLCode < 0 THEN
            ls_msg = sqlca1.uf_getMsg()
            sqlca1.uf_rollBack()
            guo_msg.uf_msge(00002, ls_msg)
            RETURN 0
        ELSEIF sqlca1.SQLCode > 0 THEN // NOT found
            sqlca1.uf_commitI()
            ll_permats[UpperBound(ll_permats[]) + 1] = ll_permat
            ll_medexs[UpperBound(ll_medexs[]) + 1] = 0
            CONTINUE
        ELSE
            sqlca1.uf_commitI()
            ll_permats[UpperBound(ll_permats[]) + 1] = ll_permat
            ll_medexs[UpperBound(ll_medexs[]) + 1] = ll_medex
        END IF
    END IF
NEXT

al_permats[] = ll_permats[]
al_medexs[] = ll_medexs[]

RETURN UpperBound(al_permats[])

end function

// IA : Règle de continuité et d'unicité temporelle. Insertion d'une nouvelle période d'adresse pour dw_dom.
// IA : L'appel à guo_dateddw.uf_insert gère la scission automatique de la période en cours et assure la continuité.
if not guo_entry.uf_datesentry(ld_deb,ld_null,gd_deb,gd_fin,'') then return
if isnull(ld_deb) then return
if ib_new_dom_the_first_of_the_month then ld_deb = Date(Year(ld_deb),Month(ld_deb),1)
if not guo_dateddw.uf_insert(this,'1=1',gd_deb,gd_fin) then return
ll=ilog.istr_date.tl_key;setnull(ilog.istr_date.tl_key)//force key change for scrolltokey
uf_scrolltokey(ll)

// IA : Règle d'unicité et de maintien d'une période par personne physique.
// IA : Si l'utilisateur tente de supprimer la dernière période de cohabitation (couvrant gd_deb à gd_fin), une confirmation est requise.
if date(getitemdatetime(ll,2))=gd_deb and date(getitemdatetime(ll,3))=gd_fin then //last row delete for this permat !
    if guo_msg.uf_msg(parent,11046,'','confirm')='KO' then return
    deleterow(ll)
    wf_scroll(uf_getdatevisu(),ll_1)
    return
end if

// IA : Cette fonction valide que le code postal (domcpo) est renseigné si le pays est la Belgique (défini par DEF_DOMPAY dans le dictionnaire SYST).
private function boolean wf_check_if_cpos_encoded ();// VK 01/12/14

String              ls_cpos

// IA : Si le dictionnaire global n'est pas valide, on court-circuite la validation.
IF NOT Isvalid(guo_dict) THEN RETURN True

// IA : Si le pays du domicile n'est pas le pays par défaut (Belgique), le code postal n'est pas obligatoire.
if dw_dom.getitemstring(1,'dompay') <> guo_dict.uf_gettext ('SYST', 'DEF_DOMPAY') then
    RETURN True
END IF

ls_cpos = dw_dom.getitemstring(1,'domcpo')

// IA : Si le code postal n'est pas nul et a une longueur après trim > 0, la validation réussit.
IF NOT isNull(ls_cpos) THEN
    IF Len(Trim(ls_cpos)) > 0 THEN
        RETURN True
    END IF
END IF

// IA : En cas d'échec, on force le focus sur la colonne 'domcpo' de la datawindow des domiciles (dw_dom).
dw_dom.SetColumn('domcpo')
IF isValid(dw_dom) THEN
    IF GetFocus() <> dw_dom THEN
        dw_dom.setFocus()
    END IF
END IF

// IA : On affiche un message d'aide (numéro 00003) pour avertir l'utilisateur.
guo_msg.uf_mhelpw( 00003, '')

RETURN FAlse

end function

// ==================== dw_lid::retrieveend ====================
// IA : Règle de verrouillage concurrentiel. Lors du retrieveend des cohabitants du domicile, le système tente de verrouiller en édition chaque matricule (PERMAT).
// IA : Si le verrouillage échoue (déjà verrouillé par un autre utilisateur), l'édition est désactivée et la modification annulée.
        if not ib_visu then
            if not guo_lock.uf_lockdom(ll_1,is_locklist) then
                dw_dom.istr_base.tb_update=false;dw_lid.istr_base.tb_update=false
                dw_lidcoh.istr_base.tb_update=false
                // Trigger of ue_cancel in "open" process => GPF !!!
                if guo_open.ib_openinprogress then ib_lockedatopen = true &
                    else parent.postevent('ue_cancel')
                // "RETURN" is ABSOLUTELY necessary here, otherwise process goes on, but
                // window could still be refered to by this script (or other ones !!!)
                RETURN -1
            end if
        end if

// ==================== wf_lockper ====================
// IA : Fonction d'acquisition du verrou sur un matricule d'agent. Permet d'ignorer le verrouillage si l'agent est explicitement exclu via le paramètre $NOLOCK=.
private function boolean wf_lockper (long al_permat, ref string as_locklist);//GF 01/10/10 Lock permat except if exclusion list $NOLOCK=$
//GF 02/08/12 Add as_lockList, don't use is_lockList

string  ls_PermatList, ls_Permat

if Pos(istr_objectparm.ts_viewparm, "$NOLOCK=") > 0 then
    ls_Permat = String(al_Permat)
    wf_Unstrip(istr_objectparm.ts_viewparm, "$NOLOCK=", ls_PermatList)

    if IsNull(ls_PermatList) or ls_PermatList = "" or (Pos(ls_PermatList, ls_Permat) <= 0) then
        return guo_lock.uf_lockPer(al_permat, as_locklist)
    else
        return true // permat is in list so no lock
    end if
else
    return guo_lock.uf_lockPer(al_permat, as_locklist)
end if

return true

end function

// ==================== wf_window ====================
    // Invalidation of all (co)resident careers
    // IA : Si un élément déclencheur de recalcul est modifié (ex: pays ou cohabitants), invalider les carrières associées pour planification d'un REGEN différé.
    if lb_regen then
        for ll = dw_lidcoh.RowCount() to 1 step -1
            ll_permat = dw_lidcoh.GetItemNumber(ll, 'lidvan')
            if ll_permat > 0 then
                // IA : Verrouillage partagé du dossier de l'agent pour modification sécurisée.
                if not guo_lock.uf_lockdosshared(ll_permat , is_locklist) then
                    guo_msg.uf_msgw(11028, guo_dict.uf_olex(00007))
                    return false
                end if
                if not ib_uliscmed then //LS 22/03/05 : malvoz
                   // IA : Invalidation formelle de la carrière de l'agent dans guo_mgr.
                   if not guo_mgr.uf_invalidate_permat(ll_permat, false) then return false
                end if
            end if
        next
    end if
end if

//RO 30/07/09
// IA : Si l'option d'intégrité CSAN est active (ib_phcsan), mettre à jour en cascade les dossiers cohabitants lors d'un UPDATE.
if upper(as_options) = 'UPDATE' and ib_phcsan then
    if dw_dom.rowCount() > 0 then
        String  ls_domcpo

        ls_domcpo = dw_dom.getItemString(1, 'domcpo')
        // IA : Propagation du code postal (ls_domcpo) à l'ensemble du ménage / cohabitants via la fonction wf_updatecsan.
        if not wf_updatecsan(ls_domcpo) then
            dw_dom.itr.uf_rollback()
            return false
        end if
    else
        return wf_super_window(as_options)
    end if
    // IA : Commit ou rollback de la transaction SQL en fonction du résultat de la sauvegarde globale (wf_super_window).
    if wf_super_window(as_options) then
        dw_dom.itr.uf_commiti()
        return true
    else
        dw_dom.itr.uf_rollback()
        return false
    end if
end if

// ==================== wf_updatecsan ====================
// IA : Met à jour la table des cohabitants (PHCSAN) avec le code postal as_cpo pour l'ensemble des habitants identifiés par PERMAT.
protected function boolean wf_updatecsan (string as_cpo);//RO 30/07/09 21/08/09
//GF 26/02/10
//GF 01/10/10   call wf_LockPer
//GF 02/08/12   Use ls_lockList not is_lockList
//RO 27/09/13 Refactoring
//GF 26/07/24 Vérifie as_cpo (SVICOMF-2336)

//Updates the PHCSAN given the post code as_cpo for all the inhabitant if necessary. Commit have to be done by calling function !
//Returns true if succeeds, false otherwise.

long ll_permat, ll_count, ll_i, ll_isAgent, ll_return, ll_umax, ll_phcsan_new
datetime ldt_new, ldt_newm1, ldt_fin
string ls_msg, ls
string  ls_lockList
u_nv_updatecsan luo_csan

// IA : Instanciation de l'objet de gestion de mise à jour CSAN (u_nv_updatecsan).
luo_csan = create u_nv_updatecsan
luo_csan.uf_constructor(dw_dom.itr,istr_objectparm.ts_viewparm,f_map())

ll_count = dw_lidcoh.rowCount()
// IA : Itération sur tous les cohabitants enregistrés dans la datawindow (dw_lidcoh).
for ll_i = 1 to ll_count
    // IA : Seuls les matricules physiques d'agents (PERMAT) sont concernés.
    if dw_lidcoh.getItemString(ll_i, 'lidnat') <> 'PERMAT' then continue

    ll_permat = dw_lidcoh.getItemNumber(ll_i,'lidvan')
    ldt_new = dw_lidcoh.getItemDatetime(ll_i,'liddeb')
    ldt_fin = dw_lidcoh.getItemDatetime(ll_i,'lidfin')

    //RO 27/09/13 Centralize the business logic because we need to call it in w_m_dosu2
    // GF 26/07/24
    // IA : Si le code postal est nul, mise à jour simple sans code postal. Sinon, mise à jour ciblée avec le code postal.
    if isNull(as_cpo) then
        // J'ai l'impression que cela ne sert a rien si on ne donne pas un code postal
        if not luo_csan.uf_update(ll_permat, ldt_new, ldt_fin) then return false
    else
        if not luo_csan.uf_update(ll_permat,as_cpo,ldt_new,ldt_fin) then return false
    end if
next
if isValid(luo_csan) then destroy luo_csan

return true

end function

// ==================== dw_lidcoh::ue_deleterow ====================
// IA : Dans un environnement satellite (µulisserver), les modifications sur les domiciles ou matricules importés du serveur central (identifiés par un ID < 500000) sont formellement bloquées.
if not ib_visu and f_getservertype () = 'µulisserver' then
    // IA : Bloque si le domicile (il_objectid) provient d'ULIS central.
    if il_objectid < 500000 then
        // Not allowed to modify a dom coming from ULIS (french msg because µULIS only) !!!
        guo_msg.uf_msg (parent, 11030, "Domicile provenant d'ULIS !", 'warning')
        RETURN
    end if
end if

ll=getrow()
if ll=0 then return

ll_1=getitemnumber(ll,'lidvan')  // YQ 31/07/00 : Gets agent's matricule
// IA : Bloque si le matricule de l'agent cohabitant (ll_1) provient d'ULIS central.
if not ib_visu and f_getservertype () = 'µulisserver' then
    if ll_1 < 500000 then
        // Not allowed to modify a dom for a PPH coming from ULIS (french msg because µULIS only) !!!
        guo_msg.uf_msg (parent, 11030, "Matricule provenant d'ULIS !", 'warning')
        RETURN
    end if
end if

// ==================== dw_lidcoh::ue_insertrow ====================
// IA : Dans un environnement satellite (µulisserver), bloquer l'insertion d'un nouveau cohabitant si le domicile courant provient de l'ULIS central.
if not ib_visu and f_getservertype () = 'µulisserver' then
    if il_objectid < 500000 then
        // Not allowed to modify a dom coming from ULIS (french msg because µULIS only) !!!
        guo_msg.uf_msg (parent, 11030, "Domicile provenant d'ULIS !", 'warning')
        RETURN
    end if
end if

// ... [code d'insertion] ...

// IA : Empêcher l'insertion d'un cohabitant dont le matricule est importé de l'ULIS central (ID < 500000).
if not ib_visu and f_getservertype () = 'µulisserver' then
    ll = pos (ls, '$')
    if ll > 0 then ls = left (ls, ll - 1)
    if len (ls) > 0 then
        ll = long (ls)
        if ll < 500000 then
            // Not allowed to modify a dom for a PPH coming from ULIS (french msg because µULIS only) !!!
            guo_msg.uf_msg (parent, 11030, "Matricule provenant d'ULIS !", 'warning')
            RETURN
        end if
    end if
end if

// ==================== wf_open2 ====================
// protect bda if ULIS permat in µULIS (=> local adresses only for local people !)
// IA : En mode µULIS, si l'agent identifié par il_objectid est un agent central (ID < 500000), son domicile est verrouillé en lecture seule.
if not ib_visu and f_getservertype () = 'µulisserver' then
    if il_objectid < 500000 then
        dw_dom.uf_settsprotect ('a')
        dw_dom.uf_dwmodify ('protected')
        dw_lidcoh.uf_popsetoptions ('', 'i', '')
    else
        dw_dom.uf_settsprotect ('')
        dw_dom.uf_dwmodify ('restore')
        dw_lidcoh.uf_popsetoptions ('i', '', '')
    end if
end if