Index: vhUnitTest/BL/Flow/Proxy/pxLevering/TestVerkoopsvoorwaarden.cls.xml
===================================================================
diff -u -r29059 -r59014
--- vhUnitTest/BL/Flow/Proxy/pxLevering/TestVerkoopsvoorwaarden.cls.xml	(.../TestVerkoopsvoorwaarden.cls.xml)	(revision 29059)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering/TestVerkoopsvoorwaarden.cls.xml	(.../TestVerkoopsvoorwaarden.cls.xml)	(revision 59014)
@@ -42,6 +42,22 @@
    Do $$$AssertEquals(URLBepaler.GeefOorsprong(),Oorsprong)
 ]]></Implementation>
 </Method>
+
+<Method name="Test Levering Vhoss Kast Met Mocked Data Voor Methode MoetVhossNummerOpLeveringBon">
+<Implementation><![CDATA[
+   Do ..MaakTestLeveringVhossKast(1000)
+	  
+   set URLBepaler = ##class(vhUnitTest.BL.Flow.Proxy.pxLevering.TestVerkoopsvoorwaarden.VerkoopsvoorwaardenURLBepalerSpy).%New()
+   Set pxLevering = ##class(BL.Flow.Proxy.pxLevering).%New(URLBepaler)
+   Do pxLevering.FillViaBonNr(..BonID,0,"F")
+   #dim Lijn As BL.Flow.Proxy.pxProductLijn = pxLevering.ORDERS.GetAt(1).LIJNEN.GetAt(1)
+   Set lijntje = Lijn.TEKST
+   
+   Set EersteLijntje = Lijn.TEKST.ITEM.GetAt(1)
+   
+   Do $$$AssertEquals(EersteLijntje,": " _..VhossKastMockNummer) // AddDragerInfo die de Lijn.Tekst gaar opvullen zet altijd een ": " voor de data die wordt toegevoegd
+]]></Implementation>
+</Method>
 </Class>