Index: APPS/TRANSP/Transsmart/impl/StatusControleurDistributeurDataVisitor.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/StatusControleurDistributeurDataVisitor.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/StatusControleurDistributeurDataVisitor.cls.xml	(revision 59670)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor">
+<Super>TECH.RegisteredObject,DOM.TRANSP.DistributeurDataVisitor</Super>
+
+<Property name="ZijnAlleStatussenInOrde">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="NietInOrdeDistributeurDataIDs">
+<Type>%ListOfDataTypes</Type>
+</Property>
+
+<Method name="VerwerkTranssmartData">
+<FormalSpec>DistributeurData:APPS.TRANSP.Transsmart.data.VerzendData</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If (DistributeurData.Status '= ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus).Finished())
+	{
+		Set ..ZijnAlleStatussenInOrde = 0
+		Do ..NietInOrdeDistributeurDataIDs.Insert(DistributeurData.GeefID())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZijnAlleStatussenInOrde">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..ZijnAlleStatussenInOrde
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Volgende statussen van DistributeurData zijn niet in orde : "_##class(TECH.ListUtils).ListToPieces(..NietInOrdeDistributeurDataIDs,",")_"."
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/DienstBepaler.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/DienstBepaler.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/DienstBepaler.cls.xml	(revision 59670)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.DienstBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefDienst">
+<FormalSpec>Carrier:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Dienst as %String = ""
+	If (Carrier = "VRD") {
+		Set Dienst = "Freight"
+	} elseIf (Carrier = "DHP") {
+		Set Dienst = "Parcel"
+	}
+ 	quit Dienst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Transsmart/impl/DienstBepalerDistributeurDataVisitor.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Transsmart/impl/DienstBepalerDistributeurDataVisitor.cls.xml	(revision 0)
+++ APPS/TRANSP/Transsmart/impl/DienstBepalerDistributeurDataVisitor.cls.xml	(revision 59670)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Transsmart.impl.DienstBepalerDistributeurDataVisitor">
+<Super>TECH.RegisteredObject,DOM.TRANSP.DistributeurDataVisitor</Super>
+
+<Property name="Dienst">
+<Type>%String</Type>
+</Property>
+
+<Property name="DienstBepaler">
+<Type>APPS.TRANSP.Transsmart.impl.DienstBepaler</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..DienstBepaler = ##class(APPS.TRANSP.Transsmart.impl.DienstBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTranssmartData">
+<FormalSpec>DistributeurData:APPS.TRANSP.Transsmart.data.VerzendData</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..Dienst = ..DienstBepaler.GeefDienst(DistributeurData.Carrier)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDienst">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Dienst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/TRANSP/DistributeurDataVisitor.cls.xml
===================================================================
diff -u -r29059 -r59670
--- DOM/TRANSP/DistributeurDataVisitor.cls.xml	(.../DistributeurDataVisitor.cls.xml)	(revision 29059)
+++ DOM/TRANSP/DistributeurDataVisitor.cls.xml	(.../DistributeurDataVisitor.cls.xml)	(revision 59670)
@@ -8,6 +8,12 @@
 <FormalSpec>DistributeurData:DOM.TRANSP.DistributeurData.GLS</FormalSpec>
 <ReturnType>%Status</ReturnType>
 </Method>
+
+<Method name="VerwerkTranssmartData">
+<Abstract>1</Abstract>
+<FormalSpec>DistributeurDate:DOM.TRANSP.DistributeurData.Transsmart</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
 </Class>