Index: WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml
===================================================================
diff -u -r34601 -r34620
--- WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml	(.../VerzendingItem.cls.xml)	(revision 34601)
+++ WSdata/EC/ExterneVerkoop/VerzendingItem.cls.xml	(.../VerzendingItem.cls.xml)	(revision 34620)
@@ -1,15 +1,78 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSdata.EC.ExterneVerkoop.VerzendingItem">
-<Super>APPS.VKP.Offerte.VerzendingItem</Super>
+<Super>%Library.SerialObject</Super>
 
+<Property name="TransportFirma">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Code">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Duurtijd">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LeverDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="LeverTijd">
+<Type>%Time</Type>
+</Property>
+
+<Property name="LeverDag">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KostPrijs">
+<Type>TECH.Decimal</Type>
+</Property>
+
 <Property name="Optie">
 <Type>WSdata.EC.ExterneVerkoop.Optie</Type>
 </Property>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>VerzendingItemState1</State>
+<StreamLocation>^WSdata.EC.E282E.VerzendingItemS</StreamLocation>
 <Data name="VerzendingItemState">
+<Value name="1">
+<Value>TransportFirma</Value>
+</Value>
+<Value name="2">
+<Value>Code</Value>
+</Value>
+<Value name="3">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="4">
+<Value>Duurtijd</Value>
+</Value>
+<Value name="5">
+<Value>LeverDatum</Value>
+</Value>
+<Value name="6">
+<Value>LeverTijd</Value>
+</Value>
+<Value name="7">
+<Value>LeverDag</Value>
+</Value>
+<Value name="8">
+<Value>KostPrijs</Value>
+</Value>
+<Value name="9">
+<Value>Optie</Value>
+</Value>
+</Data>
+<Data name="VerzendingItemState1">
 <Structure>listnode</Structure>
 <Subscript/>
 <Value name="1">
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r34601 -r34620
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 34601)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 34620)
@@ -77,7 +77,7 @@
 <Implementation><![CDATA[
 	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
 	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingMogelijkheidRepository.GeefViaID(VerzendingMogelijkheidID) 
-	Do Offerte.ZetVerzendingItem(VerzendingMogelijkheid.Verzending)
+	Do Offerte.ZetVerzendingItem($$ConstructClone^vhLib.Class(VerzendingMogelijkheid.Verzending,##class(APPS.VKP.impl.Offerte.VerzendingItem).%ClassName(1)))
 	Do Offerte.ZetCarbonNeutral(..OptieKeuzeConverteer(OptieKeuze))
 	Do Offerte.ZetLeverDatum(VerzendingMogelijkheid.Verzending.LeverDatum)
 	#dim OfferteBewaarder As APPS.VKP.OfferteBewaarder = ..OfferteService.GeefOfferteBewaarder()
Index: APPS/VKP/impl/Offerte/VerzendingItem.cls.xml
===================================================================
diff -u -r34601 -r34620
--- APPS/VKP/impl/Offerte/VerzendingItem.cls.xml	(.../VerzendingItem.cls.xml)	(revision 34601)
+++ APPS/VKP/impl/Offerte/VerzendingItem.cls.xml	(.../VerzendingItem.cls.xml)	(revision 34620)
@@ -1,10 +1,72 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.impl.Offerte.VerzendingItem">
-<Super>APPS.VKP.Offerte.VerzendingItem</Super>
+<Super>%Library.SerialObject</Super>
 
+<Property name="TransportFirma">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Code">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Duurtijd">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LeverDatum">
+<Type>%Date</Type>
+</Property>
+
+<Property name="LeverTijd">
+<Type>%Time</Type>
+</Property>
+
+<Property name="LeverDag">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KostPrijs">
+<Type>TECH.Decimal</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
+<State>VerzendingItemState</State>
+<StreamLocation>^APPS.VKP.imD491.VerzendingItemS</StreamLocation>
+<Data name="VerzendingItemState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>TransportFirma</Value>
+</Value>
+<Value name="2">
+<Value>Code</Value>
+</Value>
+<Value name="3">
+<Value>Omschrijving</Value>
+</Value>
+<Value name="4">
+<Value>Duurtijd</Value>
+</Value>
+<Value name="5">
+<Value>LeverDatum</Value>
+</Value>
+<Value name="6">
+<Value>LeverTijd</Value>
+</Value>
+<Value name="7">
+<Value>LeverDag</Value>
+</Value>
+<Value name="8">
+<Value>KostPrijs</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
FishEye: Tag 34620 refers to a dead (removed) revision in file `APPS/VKP/Offerte/VerzendingItem.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?