Index: vhUnitTest/APPS/VisiDot/impl/Tech/TestLadeID.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/impl/Tech/TestLadeID.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/impl/Tech/TestLadeID.cls.xml	(revision 57605)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VisiDot.impl.Tech.TestLadeID">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="Test: BuildLadeID met 5-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim BatchId As %Integer = 98765
+	#dim ProductId As %Integer = 2000567
+	
+	#dim VhossLadeId As %String = ..BuildLadeID(BatchId,ProductId)
+	
+	Do $$$AssertEquals(VhossLadeId,"9876501102000567")
+	Do ..AssertGeldigeLadeId(VhossLadeId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BuildLadeID met 6-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim BatchId As %Integer = 100456
+	#dim ProductId As %Integer = 2000567
+	
+	#dim VhossLadeId As %String = ..BuildLadeID(BatchId,ProductId)
+	
+	Do $$$AssertEquals(VhossLadeId,"0045601112000567")
+	Do ..AssertGeldigeLadeId(VhossLadeId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BuildLadeID met 6-cijferige BatchId geeft een foutmelding">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("BatchId '1000567' mag niet groter zijn dan 999999 (i.e. max 6 cijfers)")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	#dim BatchId As %Integer = 1000567
+	#dim ProductId As %Integer = 2000567
+	
+	#dim VhossLadeId As %String = ..BuildLadeID(BatchId,ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BuildLadeID met 8-cijferige ProductId geeft een foutmelding">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("ProductId '10123123' mag niet groter zijn dan 9999999 (i.e. max 7 cijfers)")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	#dim BatchId As %Integer = 98765
+	#dim ProductId As %Integer = 10123123
+	
+	#dim VhossLadeId As %String = ..BuildLadeID(BatchId,ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefBatchVanLadeID met 5-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim VhossLadeId As %String = "9876501102000567"
+	
+	#dim BatchId As %Integer = ##class(APPS.VisiDot.impl.Tech).GeefBatchVanLadeID(VhossLadeId)
+	
+	Do $$$AssertEquals(BatchId,98765)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefBatchVanLadeID met 6-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim VhossLadeId As %String = "0045601112000567"
+	
+	#dim BatchId As %Integer = ##class(APPS.VisiDot.impl.Tech).GeefBatchVanLadeID(VhossLadeId)
+	
+	Do $$$AssertEquals(BatchId,100456)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefProductVanLadeID met 6-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim VhossLadeId As %String = "0045601112000567"
+	
+	#dim ProductId As %Integer = ##class(APPS.VisiDot.impl.Tech).GeefProductVanLadeID(VhossLadeId)
+	
+	Do $$$AssertEquals(ProductId,2000567)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefVHossVolgNrVanLadeID met 6-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim VhossLadeId As %String = "0045601112000567"
+	
+	#dim VHossVolgNr As %Integer = ##class(APPS.VisiDot.impl.Tech).GeefVHossVolgNrVanLadeID(VhossLadeId)
+	
+	Do $$$AssertEquals(VHossVolgNr,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefVHossZijkantVanLadeID met 6-cijferige BatchId">
+<Implementation><![CDATA[
+	#dim VhossLadeId As %String = "0045601112000567"
+	
+	#dim VHossZijkant As %String = ##class(APPS.VisiDot.impl.Tech).GeefVHossZijkantVanLadeID(VhossLadeId)
+	
+	Do $$$AssertEquals(VHossZijkant,##class(APPS.VisiDot.enu.Zijkant).A())
+]]></Implementation>
+</Method>
+
+<Method name="BuildLadeID">
+<FormalSpec>BatchId:%Integer,ProductId:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VHossVolgNr As %String = "01"
+	Quit ##class(APPS.VisiDot.impl.Tech).BuildLadeID(BatchId, VHossVolgNr, ##class(APPS.VisiDot.enu.Zijkant).A(), ProductId)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGeldigeLadeId">
+<FormalSpec>VhossLadeId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertTrue(##class(APPS.VisiDot.impl.Tech).IsLadeID(VhossLadeId))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>