vhUnitTest.TestCase APPS.Verpakking.OrgaluxBonOptimizer 1 APPS.Verpakking.SnijDataRepository 1 %String BonTestOrgaluxBonOptimizer %String KlantTestOrgaluxBonOptimizer %String TestProductOrgaluxBonOptimizer dan de toegelaten 1191. Dit dient manueel te worden nagekeken zodat dit kan worden opgelost en dit niet meer voorvalt.") Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidResponseException", Substrings)) #dim BoxDataList As DS.Prod.OptiBox.BoxDataMetID = ..GeefLijstBoxDataMetKartonMetBufferZone() #dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataList.GetAt(1) Set BoxData.Breedte = 9999999 Set BoxData.Aantal = 1 Set BoxData.ObjRef = ..#TestProductID #dim BesteStapeling As APPS.Verpakking.dto.CubeIQ.Response = ..OrgaluxBonOptimizer.BepaalMinimumAantalPallettenVoorBon(BoxDataList) ]]> 1 %ListOfObjects 1 %ListOfObjects ProductId:%Integer,Aantal:%Integer=1 1 APPS.Verpakking.dto.CubeIQ.Response 1 1