Index: APPS/VKP/impl/OfferteService.cls.xml =================================================================== diff -u -r37506 -r37513 --- APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 37506) +++ APPS/VKP/impl/OfferteService.cls.xml (.../OfferteService.cls.xml) (revision 37513) @@ -285,14 +285,42 @@ #dim MaatwerkLijnIterator As TECH.Iterator = ..GeefMaatwerkLijnenIterator(..OfferteRepository.GeefViaID(OfferteID)) While (MaatwerkLijnIterator.HasNext()) { #dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next() - #dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting()) - #dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting ,Lijn.GeefTotaalGewicht(),Lijn.GeefTotaalPrijs(),Lijn.GeefProductID(),Lijn.GeefAantal(),Lijn.GeefVolumeAandeel()) + #dim Verpakking As APPS.VKP.Offerte.dto.Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New() + Set Verpakking.Afmeting = ..ConverteerVerpakteAfmeting(Lijn.GeefVerpakteAfmeting()) + Set Verpakking.Gewicht = Lijn.GeefTotaalGewicht() + Set Verpakking.WaardeGoederen = Lijn.GeefTotaalPrijs() + Set Verpakking.ProductID = Lijn.GeefProductID() + Set Verpakking.Aantal = Lijn.GeefAantal() + Set Verpakking.VolumeAandeel = Lijn.GeefVolumeAandeel() + Set Verpakking.InProbox = ..InProbox(Lijn.GeefIngegevenKenmerken()) Do VerpakkingList.Insert(Verpakking) } Quit VerpakkingList ]]> + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +1 +%Boolean + + + VerpakteAfmeting:APPS.Halux.common.impl.VerpakteAfmeting="" APPS.TRANSP.OfferteService.dto.Afmeting