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