WinDev : HsupprimeTout et les contraintes d'intégrité référentielle en cascade

Dans un premier billet WinDev : HsupprimeTout et les contraintes d'intégrité référentielle en cascade, nous constations avec la confirmation du support technique la non prise en charge les contraintes d'intégrité référentielle définies dans l'analyse par la fonction HsupprimteTout . 

Dans le but de palier à ce manque, ce bogue, cet oublie (chacun le qualifiera comme il le souhaite), j'ai développé une fonction qui prend en charge les contraintes d'intégrité. 

Version de WinDev : 20 et antérieures
Programmation : surcharge, exceptions. 

Jeu d'essai
Avant de mettre le code de la fonction développée, je met à disposition le jeu d'essai qui m'a permis de faire les tests. 

Commande

Nom du fichier : commande.FIC

Clé	Nom	Libellé	Type	Taille
X	ID	Identifiant de la commande	Id. automatique	4
	Date	Date de la commande	Date	8
	Client	Nom du client	Texte	50

DetailCommande

Nom du fichier : DetailCommande.FIC

Clé	Nom	Libellé	Type	Taille
X	ID	Identifiant du détail de la commande	Id. automatique	4
	IDCommande	Identifiant de la commande	Numérique	4
	IdArticle	Identifiant de l'article	Numérique   HCréationSiInexistant(Commande) HCréationSiInexistant(CommandeDetail)   WL.HSupprimeTout(Commande) WL.HSupprimeTout(CommandeDetail)   POUR li_i=1 _A_ 10 Commande.Date=DateDuJour() Commande.Numero=NumériqueVersChaîne(li_i,"010d") Commande.Client="ClientTest_"+li_i   HAjoute(Commande)   POUR li_j=li_i _A_ li_i+3 CommandeDetail.IDCommande=Commande.ID CommandeDetail.IdArticle=li_j HAjoute(CommandeDetail) FIN   FIN merciii	4