Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType/Verwerker.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType/Verwerker.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType/Verwerker.cls.xml	(revision 36391)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>ItemType:WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType</FormalSpec>
+<Implementation><![CDATA[
+	If ItemType = "Pakket" {
+		Do ..VerwerkPakket()
+	} ElseIf ItemType = "Pallet" {
+		Do ..VerwerkPallet()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ItemType,"WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkPakket">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkPallet">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendItem.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendItem.cls.xml	(revision 0)
+++ vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendItem.cls.xml	(revision 36391)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefVerzendItem">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendingItem As WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem = ##class(WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem).%New()
+	Set VerzendingItem.FactureerbaarGewicht = 85.6
+	Set VerzendingItem.VolumetrischGewicht = 85.6
+	Set VerzendingItem.WerkelijkGewicht = 47.11
+	Set VerzendingItem.ItemType = ##class(WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType).Pakket()
+	Set VerzendingItem.Afmetingen = ##class(APPS.TRANSP.dto.Afmeting).%New(70,80,90)
+	Quit VerzendingItem
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType.cls.xml	(revision 36391)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType">
+<ClassType>datatype</ClassType>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Pallet;Pakket;</Default>
+</Parameter>
+
+<Parameter name="VALUELIST">
+<Default>;Pallet;Pakket;</Default>
+</Parameter>
+
+<Method name="Pallet">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType</ReturnType>
+<Implementation><![CDATA[ Quit "Pallet"
+]]></Implementation>
+</Method>
+
+<Method name="Pakket">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType</ReturnType>
+<Implementation><![CDATA[ Quit "Pakket"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendItem.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendItem.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendItem.cls.xml	(revision 36391)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="ItemType">
+<Type>WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType</Type>
+</Property>
+
+<Property name="WerkelijkGewicht">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="VolumetrischGewicht">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="FactureerbaarGewicht">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="Afmetingen">
+<Type>APPS.TRANSP.dto.Afmeting</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^WSdata.EC.Exte36B7.VerzendItemD</DataLocation>
+<DefaultData>VerzendItemDefaultData</DefaultData>
+<IdLocation>^WSdata.EC.Exte36B7.VerzendItemD</IdLocation>
+<IndexLocation>^WSdata.EC.Exte36B7.VerzendItemI</IndexLocation>
+<StreamLocation>^WSdata.EC.Exte36B7.VerzendItemS</StreamLocation>
+<Data name="VerzendItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ItemType</Value>
+</Value>
+<Value name="3">
+<Value>WerkelijkGewicht</Value>
+</Value>
+<Value name="4">
+<Value>VolumetrischGewicht</Value>
+</Value>
+<Value name="5">
+<Value>FactureerbaarGewicht</Value>
+</Value>
+<Value name="6">
+<Value>Afmetingen</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType/AutoComplete.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType/AutoComplete.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/enu/ItemType/AutoComplete.cls.xml	(revision 36391)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.BerekeningsFouten.enu.ItemType.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Pakket">
+<Type>%String</Type>
+<InitialExpression>"Pakket"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Pallet">
+<Type>%String</Type>
+<InitialExpression>"Pallet"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/BerekeningsFouten.cls.xml
===================================================================
diff -u -r36330 -r36391
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/BerekeningsFouten.cls.xml	(.../BerekeningsFouten.cls.xml)	(revision 36330)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/BerekeningsFouten.cls.xml	(.../BerekeningsFouten.cls.xml)	(revision 36391)
@@ -5,10 +5,48 @@
 <Super>TECH.Persistent</Super>
 
 <Property name="OfferteID">
-<Type>%String</Type>
+<Type>TECH.String</Type>
 <Required>1</Required>
 </Property>
 
+<Property name="KlantNummer">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="KlantNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LeverAdres">
+<Type>APPS.TRANSP.dto.InternationaalAdres</Type>
+</Property>
+
+<Property name="BestelDatum">
+<Type>TECH.DateTime</Type>
+</Property>
+
+<Property name="VhintraLink">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AfhaalDatum">
+<Type>TECH.DateTime</Type>
+</Property>
+
+<Property name="Opmerkingen">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="VerzendingInformatie">
+<Type>WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendingInformatie</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Foutmeldingen">
+<Type>TECH.String</Type>
+<Collection>list</Collection>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^WSdata.EC36B7.Berekenings3E29D</DataLocation>
@@ -23,6 +61,33 @@
 <Value name="2">
 <Value>OfferteID</Value>
 </Value>
+<Value name="3">
+<Value>KlantNummer</Value>
+</Value>
+<Value name="4">
+<Value>KlantNaam</Value>
+</Value>
+<Value name="5">
+<Value>LeverAdres</Value>
+</Value>
+<Value name="6">
+<Value>BestelDatum</Value>
+</Value>
+<Value name="7">
+<Value>VhintraLink</Value>
+</Value>
+<Value name="8">
+<Value>AfhaalDatum</Value>
+</Value>
+<Value name="9">
+<Value>Opmerkingen</Value>
+</Value>
+<Value name="10">
+<Value>VerzendingInformatie</Value>
+</Value>
+<Value name="11">
+<Value>Foutmeldingen</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/TransportInformatie.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/TransportInformatie.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/TransportInformatie.cls.xml	(revision 36391)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.BerekeningsFouten.TransportInformatie">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="ServiceCode">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="ServiceNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TransportKost">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="TransportDuur">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^WSdata.EC36B7.TransportInF5A7D</DataLocation>
+<DefaultData>TransportInformatieDefaultData</DefaultData>
+<IdLocation>^WSdata.EC36B7.TransportInF5A7D</IdLocation>
+<IndexLocation>^WSdata.EC36B7.TransportInF5A7I</IndexLocation>
+<StreamLocation>^WSdata.EC36B7.TransportInF5A7S</StreamLocation>
+<Data name="TransportInformatieDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ServiceCode</Value>
+</Value>
+<Value name="3">
+<Value>ServiceNaam</Value>
+</Value>
+<Value name="4">
+<Value>TransportKost</Value>
+</Value>
+<Value name="5">
+<Value>TransportDuur</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendingInformatie.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendingInformatie.cls.xml	(revision 0)
+++ vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendingInformatie.cls.xml	(revision 36391)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendingInformatie">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefVerzendingInformatie">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendingInformatie</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendingInformatie As WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendingInformatie = ##class(WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendingInformatie).%New()
+	Set VerzendingInformatie.TransportFirma = ##class(APPS.TRANSP.enu.TransportFirma).UPS()
+	Set VerzendingInformatie.TotaalFactureerbaarGewicht = 85.6
+	Do VerzendingInformatie.TransportInformatie.Insert(##class(vhTest.Utils.WSdata.EC.ExterneVerkoop.BerekeningsFouten.TransportInformatie).GeefTransportInformatie())
+	Do VerzendingInformatie.VerzendItems.Insert(##class(vhTest.Utils.WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem).GeefVerzendItem())
+	Quit VerzendingInformatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendingInformatie.cls.xml
===================================================================
diff -u
--- WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendingInformatie.cls.xml	(revision 0)
+++ WSdata/EC/ExterneVerkoop/BerekeningsFouten/VerzendingInformatie.cls.xml	(revision 36391)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendingInformatie">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="TransportFirma">
+<Type>APPS.TRANSP.enu.TransportFirma</Type>
+</Property>
+
+<Property name="TotaalFactureerbaarGewicht">
+<Type>TECH.Decimal</Type>
+</Property>
+
+<Property name="VerzendItems">
+<Type>WSdata.EC.ExterneVerkoop.BerekeningsFouten.VerzendItem</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="TransportInformatie">
+<Type>WSdata.EC.ExterneVerkoop.BerekeningsFouten.TransportInformatie</Type>
+<Collection>list</Collection>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^WSdata.EC36B7.VerzendingI47E6D</DataLocation>
+<DefaultData>VerzendingInformatieDefaultData</DefaultData>
+<IdLocation>^WSdata.EC36B7.VerzendingI47E6D</IdLocation>
+<IndexLocation>^WSdata.EC36B7.VerzendingI47E6I</IndexLocation>
+<StreamLocation>^WSdata.EC36B7.VerzendingI47E6S</StreamLocation>
+<Data name="VerzendingInformatieDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>TransportFirma</Value>
+</Value>
+<Value name="3">
+<Value>TotaalFactureerbaarGewicht</Value>
+</Value>
+<Value name="4">
+<Value>VerzendItems</Value>
+</Value>
+<Value name="5">
+<Value>TransportInformatie</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/TransportInformatie.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/TransportInformatie.cls.xml	(revision 0)
+++ vhTest/Utils/WSdata/EC/ExterneVerkoop/BerekeningsFouten/TransportInformatie.cls.xml	(revision 36391)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WSdata.EC.ExterneVerkoop.BerekeningsFouten.TransportInformatie">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefTransportInformatie">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim TransportInformatie As WSdata.EC.ExterneVerkoop.BerekeningsFouten.TransportInformatie = ##class(WSdata.EC.ExterneVerkoop.BerekeningsFouten.TransportInformatie).%New()
+	Set TransportInformatie.ServiceCode = "3"
+	Set TransportInformatie.ServiceNaam = "UPS Standaard"
+	Set TransportInformatie.TransportDuur = 2
+	Set TransportInformatie.TransportKost = 80.9
+	Quit TransportInformatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>