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