SI PAS HExécuteRequête(REQ_patienten_medar,hRequêteDéfaut,Param4) Alors
 Erreur("Erreur d'initialisation de la requête"+RC+HErreurInfo())
 RETOUR
FIN

FEN_search_patienten..CurseurSouris=curFlèche

HLitPremier(REQ_patienen_medar)
SI PAS HEndehors(REQ_patienen_medar) Alors
 NbEnrClient est un numérique
 NbEnrClient = HNbEnr(REQ_patienten_medar)
FIN