TECH.RegisteredObject MaatwerkLijnIterator:TECH.Iterator APPS.VKP.Offerte.dto.VerpakkingList IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 APPS.VKP.Offerte.enu.VerpakkingType IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 APPS.VKP.Offerte.enu.LadeType VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting="" 1 APPS.TRANSP.OfferteService.dto.Afmeting LadeVerpakkingList:APPS.VKP.Offerte.dto.VerpakkingList 1 APPS.VKP.Offerte.dto.VerpakkingList 0) { #dim ProboxVerpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New() Set ProboxVerpakking.VerpakkingType = ##class(APPS.VKP.Offerte.enu.VerpakkingType).Probox() Set ProboxVerpakking.LadeType = LadeType Set ProboxVerpakking.ProductID = ProboxVerpakkingList.GeefSamengesteldeProductID() Set ProboxVerpakking.WaardeGoederen = ProboxVerpakkingList.GeefTotaalWaardeGoederen() Set ProboxVerpakking.Gewicht = ProboxVerpakkingList.GeefTotaalGewicht() Set ProboxVerpakking.VolumeAandeel = 1 Set ProboxVerpakking.Aantal = ##class(TECH.Math).Ceil(ProboxVerpakkingList.GeefTotaalVolumeAandeel()) Set ProboxVerpakking.Afmeting = ..GeefProboxAfmeting() Do VerzendVerpakkingList.Insert(ProboxVerpakking) } } Quit VerzendVerpakkingList ]]> 1 APPS.TRANSP.OfferteService.dto.Afmeting