Index: vhTest/Mock/APPS/TRANSP/Transsmart/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/TRANSP/Transsmart/VerzendWijzeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/TRANSP/Transsmart/VerzendWijzeBepaler.cls.xml	(revision 59726)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.TRANSP.Transsmart.VerzendWijzeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Transsmart.VerzendWijzeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<ReturnType>APPS.TRANSP.Transsmart.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVerzendWijze",LeveringInfo)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/enu/VerzendWijze/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/enu/VerzendWijze/Verwerker.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/enu/VerzendWijze/Verwerker.cls.xml	(revision 59726)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.enu.VerzendWijze.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>VerzendWijze:APPS.TRANSP.Transsmart.enu.VerzendWijze</FormalSpec>
+<Implementation><![CDATA[
+	If VerzendWijze = "Freight" {
+		Do ..VerwerkFreight()
+	} ElseIf VerzendWijze = "Parcel" {
+		Do ..VerwerkParcel()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(VerzendWijze,"APPS.TRANSP.Transsmart.enu.VerzendWijze",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFreight">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkParcel">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/enu/VerzendWijze/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/enu/VerzendWijze/AutoComplete.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/enu/VerzendWijze/AutoComplete.cls.xml	(revision 59726)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.enu.VerzendWijze.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="Freight">
+<Type>%String</Type>
+<InitialExpression>"Freight"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Parcel">
+<Type>%String</Type>
+<InitialExpression>"Parcel"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/enu/VerzendWijze.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/enu/VerzendWijze.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/enu/VerzendWijze.cls.xml	(revision 59726)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.enu.VerzendWijze">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Type>%String</Type>
+<Default>;Parcel;Freight</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Type>%String</Type>
+<Default>;Parcel;Freight</Default>
+</Parameter>
+
+<Method name="Parcel">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Transsmart.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[	Quit "Parcel"
+]]></Implementation>
+</Method>
+
+<Method name="Freight">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Transsmart.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[	Quit "Freight"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/VerzendWijzeBepaler.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/VerzendWijzeBepaler.cls.xml	(revision 59726)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.VerzendWijzeBepaler">
+<Super>TECH.RegisteredObject,APPS.TRANSP.Transsmart.VerzendWijzeBepaler</Super>
+
+<Method name="GeefVerzendWijze">
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<ReturnType>APPS.TRANSP.Transsmart.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[
+	#dim VerzendWijze As APPS.TRANSP.Transsmart.enu.VerzendWijze = ""
+	Set VerpakkingEenheidIt = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
+	While (VerpakkingEenheidIt.HasNext() && $$$Not($Length(VerzendWijze)))
+	{
+		#dim VerpakkingEenheid As APPS.TRANSP.dto.VerpakkingEenheid = VerpakkingEenheidIt.Next()
+		/*
+		#dim TotaalGewicht As %Decimal = LeveringInfo.Gewicht
+		Try {
+			#dim GemiddeldGewicht As %Decimal = (TotaalGewicht/LeveringInfo.AantalVerpakkingEenhedenTotaal)
+		} Catch {
+			Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Kon gemiddeld gewicht niet berekenen voor levering '"_LeveringInfo.Referentie_"' aan klant '"_LeveringInfo.GeleverdAanKlantNummer_"'.")
+			do Exception.VoegToeExtraInfo($$ObjToText^vhLib(LeveringInfo))
+			Do Exception.VoegToeInnerExceptie(##class(TECH.ExceptionHandler).Catch())
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+		*/		
+		If ( VerpakkingEenheid.%ClassName() = "Europallet" ) || ( VerpakkingEenheid.%ClassName() = "Langgoed" ) || 
+		 	( VerpakkingEenheid.%ClassName() = "HalveEuropallet" ) || ( VerpakkingEenheid.%ClassName() = "BuitenmaatsPallet" ) {
+				Set VerzendWijze = ##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Freight()		
+		}Elseif VerpakkingEenheid.%ClassName()="Colli" {				
+				Set VerzendWijze = ##class(APPS.TRANSP.Transsmart.enu.VerzendWijze).Parcel()	
+		} else {
+			set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(VerpakkingEenheid.%ClassName()_"is niet ondersteund")
+			do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}	
+	}
+	If $$$Not($Length(VerzendWijze)) {
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(VerpakkingEenheid.%ClassName()_"is niet ondersteund")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	Quit VerzendWijze
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/VerzendWijzeBepaler.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/VerzendWijzeBepaler.cls.xml	(revision 59726)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.VerzendWijzeBepaler">
+<Abstract>1</Abstract>
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefVerzendWijze">
+<Abstract>1</Abstract>
+<FormalSpec>LeveringInfo:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<ReturnType>APPS.TRANSP.Transsmart.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>