Commando om tests uit te voeren: Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","PRAFMA.Design") zTryout.PRAFMA.Design.DOM.Verpakking,zTryout.PRAFMA.Design.DOM.Verpakking.Aventosbak 1 vhUnitTest.TestCase 0 Aventosbak met 3 zones en een koker Aventosbak met 2 Aventos-artikels in 1 order Aventosbak met 2 Aventos-artikels in 2 orders Aventosbak met zones die niet ingevuld zijn Als in de bon geen aventos staat, dan zijn de zones leeg Test: sommige artikels zijn aventosbak, andere niet vb ArProducten:
ArProducten(504299)=10
ArProducten(123456)=15]]> %Integer CONSNr Verwacht,Berekend,Tekst