PROCEDURE PhaseDeTests(n)
o est un entier
nbTestsInstallation est un entier = Dimension(XML_Produits[n]:tTestsInstallation)
nbTestsUtilisation est un entier = Dimension(XML_Produits[n]:tTestsUtilisation)
// TestsInstallation
POUR o = 1 A nbTestsInstallation
SELON XML_Produits[n]:tTestsInstallation[o]
CAS XML_Produits[n]:tTestsInstallation[o]
EffectuerTestInstalle(Tab_TestsTypesInstallation[o])
FIN
FIN
// TestsUtilisation
POUR o = 1 A nbTestsUtilisation
SELON XML_Produits[n]:tTestsUtilisation[o]
CAS XML_Produits[n]:tTestsUtilisation[o]
EffectuerTestUtilise(Tab_TestsTypesUtilisation[o])
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=5169&post_id=21347