Contrôle de saisie des champs obligatoires d'une fenêtre.

Bonjour tous !
Je partage cette fonction que je trouve très pratique pour contrôler la saisie des champs obligatoires d'une fenêtre ou d'une page.
Le principe est le suivant :

1. Ajouter tous les champs obligatoires dans un groupe (ex: GR_SaisieObligatoire)
2. Lors de la validation appeler la fonction SaisieValidee avec les paramètres : Nom de la fenêtre et Nom du groupe
3. Si tous les champs sont validée la fonction retourne vrai sinon un message est affiché et une RepriseSaisie est appelée sur le premier champ non validé rencontré.

Toute amélioration ou proposition en vue d'optimiser cette fonction sera la bienvenue.

voici la fonction :

Code (Text):

PROCEDURE SaisieValidee(ChampParent,Ensemble)

//Recupérer le contenu du groupe (Liste des champs obligatoires à vérifier)
TabChamp est un tableau de chaînes
sGroupeChamp est une chaîne
i est un entier = 1
ResChamp est une chaîne

sGroupeChamp = ChampParent+"."+Ensemble
ResChamp = EnumèreChamp({sGroupeChamp}, i)
TANTQUE ResChamp<>""
    i++
    TableauAjoute(TabChamp, ResChamp)
    ResChamp = EnumèreChamp({sGroupeChamp}, i)
FIN

//Validation en fonction du type de contenu
sChamp est une chaîne
sType est une chaîne
bErreurTrouvee est un booléen = Faux


POUR TOUT ELEMENT sChamp DE TabChamp
    SI {ChampParent+"."+sChamp}..Etat = Actif ALORS // Le champ doit être obligatoire et actif
        sType = {ChampParent+"."+sChamp}..Type

        SELON sType
            CAS typComboSNS, typComboAVS
                SI {ChampParent+"."+sChamp}..ValeurAffichée ~= "" ALORS bErreurTrouvee = Vrai
            CAS typSélect, typInterr
                SI {ChampParent+"."+sChamp} < 0 ALORS bErreurTrouvee = Vrai
            CAS typDate, typTexte //,wlCaractère,  wlDate, wlDateHeure
                SI SansEspace({ChampParent+"."+sChamp}) ~= "" ALORS bErreurTrouvee = Vrai
            CAS typNum, typMonétaire, typDurée //, wlDurée, wlEntier, wlHeure, wlMonétaire, wlNumérique, wlRéel
                SI Val({ChampParent+"."+sChamp}) <= 0 ALORS bErreurTrouvee = Vrai
            AUTRE CAS
             
        FIN
        SI bErreurTrouvee ALORS
            Erreur("Vous devez renseigner tous les champs obligatoires. Y compris le champ ["+ {ChampParent+"."+sChamp}..Libellé +"]")
            RepriseSaisie({ChampParent+"."+sChamp})
        FIN
    FIN
FIN

// Comme tout se passe bien alors renvoyer vrai
RENVOYER Vrai