Index: vhUnitTest/DOM/VKP/impl/TransportWaarborgTypeBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/TransportWaarborgTypeBepaler/Bepaal/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/TransportWaarborgTypeBepaler/Bepaal/Test.cls.xml	(revision 37946)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.TransportWaarborgTypeBepaler.Bepaal.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Verzendingwijze DHL E01 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E01"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E02 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E02"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E03 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E03"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E04 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E04"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E05 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E05"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E06 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E06"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E07 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E07"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E08 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E08"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E09 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E09"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E10 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E10"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E11 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E11"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze DHL E12 geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("E12"),##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze EX geeft standaard transport met waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("EX"),##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendingwijze EXU geeft standaard transport met waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal("EXU"),##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft standaard transport met waarborg">
+<Implementation><![CDATA[
+	#dim TransportWaarborgType As DOM.VKP.impl.TransportWaarborgTypeBepaler = ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Do $$$AssertEquals(TransportWaarborgType.Bepaal(""),##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(revision 0)
+++ DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(revision 37946)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.TransportWaarborgTypeBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Bepaal">
+<FormalSpec>VerzendingWijze:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
+<Implementation><![CDATA[
+	If ..GeefVerzendingWijzenZonderWaarborg().Find(VerzendingWijze) {
+		Quit ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg()
+	}
+	Quit ##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendingWijzenZonderWaarborg">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendingWijzenZonderWaarborg As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	Do VerzendingWijzenZonderWaarborg.Insert("E01")
+	Do VerzendingWijzenZonderWaarborg.Insert("E02")
+	Do VerzendingWijzenZonderWaarborg.Insert("E03")
+	Do VerzendingWijzenZonderWaarborg.Insert("E04")
+	Do VerzendingWijzenZonderWaarborg.Insert("E05")
+	Do VerzendingWijzenZonderWaarborg.Insert("E06")
+	Do VerzendingWijzenZonderWaarborg.Insert("E07")
+	Do VerzendingWijzenZonderWaarborg.Insert("E08")
+	Do VerzendingWijzenZonderWaarborg.Insert("E09")
+	Do VerzendingWijzenZonderWaarborg.Insert("E10")
+	Do VerzendingWijzenZonderWaarborg.Insert("E11")
+	Do VerzendingWijzenZonderWaarborg.Insert("E12")
+	Quit VerzendingWijzenZonderWaarborg
+]]></Implementation>
+</Method>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefTransportWaarborgType/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefTransportWaarborgType/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefTransportWaarborgType/Test.cls.xml	(revision 37946)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.GeefTransportWaarborgType.Test">
+<Super>vhUnitTest.TestCase,DOM.AKP.impl.ToeleveringService</Super>
+
+<Property name="ToeleveringStub">
+<Type>vhTest.Fake.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPI">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>vhTest.Mock.DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderStub">
+<Type>vhTest.Mock.DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringService">
+<Type>DOM.AKP.impl.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductIDIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ToeleveringID = 222222
+	Set ..OrderID = 333333
+	
+	Set ..ToeleveringStub = ##class(vhTest.Fake.DOM.AKP.Toelevering).%New(..ToeleveringID, $$$DummyInteger, ..OrderID)
+	Set ..ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	Do ..ToeleveringAPI.IndienMethodCall("GeefToelevering",..ToeleveringID).DanReturn(..ToeleveringStub)
+
+	Set ..OrderStub = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Set ..OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+	Do ..OrderAPI.IndienMethodCall("GeefOrder", ..OrderID).DanReturn(..OrderStub)
+	
+	Set ..ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verzendwijze DHL geeft transport zonder waarborg">
+<Implementation><![CDATA[
+	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn("E01")
+	do $$$AssertEquals(..ToeleveringService.GeefTransportWaarborgType(..ToeleveringID), ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft standaard transport met waarborg">
+<Implementation><![CDATA[
+	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
+	do $$$AssertEquals(..ToeleveringService.GeefTransportWaarborgType(..ToeleveringID), ##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/enu/TransportWaarborgType/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/TransportWaarborgType/Verwerker.cls.xml	(revision 0)
+++ DOM/VKP/enu/TransportWaarborgType/Verwerker.cls.xml	(revision 37946)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.TransportWaarborgType.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>TransportWaarborgType:DOM.VKP.enu.TransportWaarborgType</FormalSpec>
+<Implementation><![CDATA[
+	If TransportWaarborgType = "1" {
+		Do ..VerwerkMetWaarborg()
+	} ElseIf TransportWaarborgType = "0" {
+		Do ..VerwerkZonderWaarborg()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TransportWaarborgType,"DOM.VKP.enu.TransportWaarborgType",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMetWaarborg">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkZonderWaarborg">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/enu/TransportWaarborgType/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/TransportWaarborgType/AutoComplete.cls.xml	(revision 0)
+++ DOM/VKP/enu/TransportWaarborgType/AutoComplete.cls.xml	(revision 37946)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.TransportWaarborgType.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="MetWaarborg">
+<Type>%String</Type>
+<InitialExpression>"1"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ZonderWaarborg">
+<Type>%String</Type>
+<InitialExpression>"0"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/VKP/enu/TransportWaarborgType.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/TransportWaarborgType.cls.xml	(revision 0)
+++ DOM/VKP/enu/TransportWaarborgType.cls.xml	(revision 37946)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.enu.TransportWaarborgType">
+<ClassType>datatype</ClassType>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;0;1</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;ZonderWaarborg;MetWaarborg</Default>
+</Parameter>
+
+<Method name="ZonderWaarborg">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
+<Implementation><![CDATA[	Quit "0"
+]]></Implementation>
+</Method>
+
+<Method name="MetWaarborg">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
+<Implementation><![CDATA[	Quit "1"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>