Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml
===================================================================
diff -u -r51302 -r51329
--- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51302)
+++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml	(.../TestEtiketBuilder.cls.xml)	(revision 51329)
@@ -30,7 +30,7 @@
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##class(vhUnitTest.DOM.PM.Maatwerk.TestData).VerwijderData()	
-	Do ..Data.VerwijderData()
+	//Do ..Data.VerwijderData()
 	Do ##super(aTestCase)
 ]]></Implementation>
 </Method>
@@ -66,29 +66,56 @@
 
 <Method name="Test: Maak MaatwerkProduct In VHoss Via Toelevering">
 <Implementation><![CDATA[
-	Do ..Data.MaakData(..OorsprongKetting)
-	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New()
+	#dim ProductID = 1000
+	#dim Aantal = 1
+	#dim ToeleveringLijnID = 100
+	
+	#dim StandaardOrder As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",$$$ElkeWaarde).DanReturn(StandaardOrder)
+	
+	#dim ToeleveringMetLijn As DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()
+	Do ToeleveringMetLijn.IndienMethodCall("GeefDueOutTime").DanReturn($H)
+	#dim ToeleveringApiStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ToeleveringApiStub.IndienMethodCall("GeefToelevering",$$$ElkeWaarde).DanReturn(ToeleveringMetLijn)
+	
+	#dim StandaardPartij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	#dim PartijApi = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Do PartijApi.IndienMethodCall("GeefPartij",$$$ElkeWaarde).DanReturn(StandaardPartij)
+	
+	Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do Product.IndienMethodCall("GeefKleurVanKorttekst").DanReturn("Z")
+	#dim ProductApi As DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApi.IndienMethodCall("GeefProduct",ProductID).DanReturn(Product)
+	
+	#dim EtiketStub = ##class(BL.Etiket.LadeKlantEtiketVHoss).%New(StandaardPartij.GeefID())
+	#dim LadeKlantEtiketBuilderMock As APPS.Halux.Docs.impl.LadeKlantEtiketBuilder = ##class(vhTest.Mock.APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New(,ProductApi)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("MaakMaatwerkProductInVHossEtiket",ProductID,$$$ElkeWaarde,Aantal).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("VulInToeleveringInfo",EtiketStub,$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(EtiketStub)
+	Do LadeKlantEtiketBuilderMock.VerwachtMethodCall("FormateerProductieWeek",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New(OrderApiStub, ToeleveringApiStub, LadeKlantEtiketBuilderMock)
 	#dim BatchID As %String = 999999
 	Set WPVerpak = ##class(DS.PPS.TBX.sub.emWPVerpak).%New()
 	Set WPVerpak.FrameID = "O1000001"
 	Set WPVerpak.SlotNr = 1
 	Set WPVerpak.SubNr = 2
 	Set WPVerpak.UnitNr = 3
-	#dim ToeleveringID = ..Data.Order.GeefOrderLijnViaVolgnummer(101).GeefToelevering().GeefID()
-	#dim Etiket As APPS.common.Print.AbstractLabel = EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringID,100,1,BatchID,WPVerpak)
 	
+	#dim Etiket As APPS.common.Print.AbstractLabel = EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringMetLijn.GeefID(),ToeleveringLijnID,Aantal,BatchID,WPVerpak)
+	
 	If $$$AssertTrue($IsObject(Etiket),"Etiket is aangemaakt."){
 		Do $$$AssertEquals(Etiket.%ClassName(1),##class(BL.Etiket.LadeKlantEtiketVHoss).%ClassName(1))
-		Do ..ControleEtiket(Etiket)
 		#dim MaatwerkProductEtiket As BL.Etiket.LadeKlantEtiketVHoss = Etiket
-		Do $$$AssertEquals(MaatwerkProductEtiket.LadeID,"99999903200000700")
+		Do $$$AssertEquals(MaatwerkProductEtiket.LadeID,"99999903200000000")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VHossInfo,"3.B.1")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VHossSeqNr,"3")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VHossZijkant,"2")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VolgendSlotNr,"")
 		Do $$$AssertEquals(MaatwerkProductEtiket.VorigSlotNr,"+")
-		Do $$$AssertEquals(Etiket.ToeleveringID,ToeleveringID)
 	}
+	
+	Do LadeKlantEtiketBuilderMock.Verifieer()
 ]]></Implementation>
 </Method>