TECH.Mockable %String BasisSettings %String "Container" %String DOM.PM.ProductAPI 1 1 1 %Status 1 BoxDataLijst:%ListOfObjects,BreedteOverdoos:%Decimal,DiepteOverdoos:%Decimal,HoogteOverdoos:%Decimal,Partialloadonfloor:%Boolean=0,MinFillPercentage:%Decimal=0 APPS.Verpakking.dto.CubeIQ.Request 0) { Do ProductList.Insert(CubeIQProduct) Do ProductToLoadList.Insert(CubeIQProductToLoad) } } Set Products.product = ProductList Set ProductsToLoad.producttoload = ProductToLoadList Set CubeIQRequest.cubeiq = ##class(APPS.Verpakking.dto.CubeIQ.Request.CubeIQ).%New() Set CubeIQRequest.cubeiq.settings = ..GeefCubeIQSettings() Set CubeIQRequest.cubeiq.containers = ..GeefCubeIQContainers(BreedteOverdoos, DiepteOverdoos, HoogteOverdoos, Partialloadonfloor, MinFillPercentage) Set CubeIQRequest.cubeiq.products = Products Set CubeIQRequest.cubeiq.loads = ..GeefCubeIQLoads() Set CubeIQRequest.cubeiq.containerstoload = ..GeefCubeIQContainersToLoad() Set CubeIQRequest.cubeiq.productstoload = ProductsToLoad Quit CubeIQRequest ]]> BoxData:DS.Prod.OptiBox.BoxDataMetID 1 APPS.Verpakking.dto.CubeIQ.Request.Product BoxData:DS.Prod.OptiBox.BoxDataMetID 1 APPS.Verpakking.dto.CubeIQ.Request.ProductToLoad 1 APPS.Verpakking.dto.CubeIQ.Request.Loads 1 APPS.Verpakking.dto.CubeIQ.Request.Settings 1 APPS.Verpakking.dto.CubeIQ.Request.ContainersToLoad Breedte:%Decimal,Diepte:%Decimal,Hoogte:%Decimal,Partialloadonfloor:%Boolean,MinFillPercentage:%Decimal=0 1 APPS.Verpakking.dto.CubeIQ.Request.Containers 0) { Set Container.minfillpercentage = MinFillPercentage Set Container.hardminfillpercentage = $$$True } Do Containers.Insert(Container) Set CubeIQContainers.container = Containers Quit CubeIQContainers ]]> ObjRef:%String 1 TECH.Integer