Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/StatusControleurDistributeurDataVisitor/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/StatusControleurDistributeurDataVisitor/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/StatusControleurDistributeurDataVisitor/Test.cls.xml	(revision 60433)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test geen verzenddata">
+<Implementation><![CDATA[
+	set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+	#dim VerzendDataList = ..GeefVerzendDataLijst(0)
+	
+	Set DistributeurDataIt = ##class(TECH.ListIterator).%New(VerzendDataList)
+	While DistributeurDataIt.HasNext(){
+		#dim VerzendData  As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+		Do VerzendData.Accept(StatusControleur)	
+	}
+	Do $$$AssertTrue(StatusControleur.ZijnAlleStatussenInOrde)
+]]></Implementation>
+</Method>
+
+<Method name="Test een verzenddata finished">
+<Implementation><![CDATA[
+	set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+	#dim VerzendDataList = ..GeefVerzendDataLijst(1,1)
+	
+	Set DistributeurDataIt = ##class(TECH.ListIterator).%New(VerzendDataList)
+	While DistributeurDataIt.HasNext(){
+		#dim VerzendData  As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+		Do VerzendData.Accept(StatusControleur)	
+	}
+	Do $$$AssertTrue(StatusControleur.ZijnAlleStatussenInOrde)
+]]></Implementation>
+</Method>
+
+<Method name="Test een verzenddata niet finished">
+<Implementation><![CDATA[
+	set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+	#dim VerzendDataList = ..GeefVerzendDataLijst(1,0)
+	
+	Set DistributeurDataIt = ##class(TECH.ListIterator).%New(VerzendDataList)
+	While DistributeurDataIt.HasNext(){
+		#dim VerzendData  As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+		Do VerzendData.Accept(StatusControleur)	
+	}
+	Do $$$AssertFalse(StatusControleur.ZijnAlleStatussenInOrde)
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 verzenddata  finished">
+<Implementation><![CDATA[
+	set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+	#dim VerzendDataList = ..GeefVerzendDataLijst(2,2)
+	
+	Set DistributeurDataIt = ##class(TECH.ListIterator).%New(VerzendDataList)
+	While DistributeurDataIt.HasNext(){
+		#dim VerzendData  As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+		Do VerzendData.Accept(StatusControleur)	
+	}
+	Do $$$AssertTrue(StatusControleur.ZijnAlleStatussenInOrde)
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 verzenddata waarvan een finished">
+<Implementation><![CDATA[
+	set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+	#dim VerzendDataList = ..GeefVerzendDataLijst(2,1)
+	
+	Set DistributeurDataIt = ##class(TECH.ListIterator).%New(VerzendDataList)
+	While DistributeurDataIt.HasNext(){
+		#dim VerzendData  As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+		Do VerzendData.Accept(StatusControleur)	
+	}
+	Do $$$AssertFalse(StatusControleur.ZijnAlleStatussenInOrde)
+]]></Implementation>
+</Method>
+
+<Method name="Test 2 verzenddata waarvan geen finished">
+<Implementation><![CDATA[
+	set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+	#dim VerzendDataList = ..GeefVerzendDataLijst(2,1)
+	
+	Set DistributeurDataIt = ##class(TECH.ListIterator).%New(VerzendDataList)
+	While DistributeurDataIt.HasNext(){
+		#dim VerzendData  As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
+		Do VerzendData.Accept(StatusControleur)	
+	}
+	Do $$$AssertFalse(StatusControleur.ZijnAlleStatussenInOrde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendDataLijst">
+<FormalSpec>TotaalAantal:%Integer=1,AantalFinished:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendStatus = ##class(APPS.TRANSP.Transsmart.enu.VerzendStatus.AutoComplete).%New()
+	Set VerzendDataList = ##class(%ListOfObjects).%New()
+	#dim Counter as %Integer
+	For Counter=1:1:TotaalAantal {
+		Set VerzendData = ##class(APPS.TRANSP.Transsmart.data.VerzendData).%New()
+		Set VerzendData.Status = VerzendStatus.Started
+		Set:(Counter<=AantalFinished) VerzendData.Status = VerzendStatus.Finished
+		
+		Do VerzendDataList.Insert(VerzendData)
+  	}
+  	Quit VerzendDataList
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>