Index: vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r55951 -r59014
--- vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 55951)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 59014)
@@ -25,10 +25,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VhossKastMockNummer">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..OpkuisenTestbon()
+	Do ..OpkuisenORDW()
 	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
@@ -197,6 +203,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakTestLeveringVhossKast">
+<FormalSpec>KLNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+ Set ..KlantNr = KLNr
+ #dim BONNr As %String = $o(^KU1("A"),-1)+1
+ If BONNr<900000 Set BONNr=900000
+ Set ..BonID = BONNr
+ Set ^KU1(BONNr,"F")=KLNr
+ Set ^KUL(KLNr,"F",BONNr,0)=102
+ Set ^KUL(KLNr,"F",BONNr,1)="\23.09.19\\\\17604\DI1 #Distributeur - GLS\23822;300056;6612\\\\\11.66##5.5109\1\\\\EUR\\\00\1\\###\\\\M\\\\\\1259#65276,33538\\\\TP23822\\\\\\\65247,55525\\\0\65275,25885\\\\\\\\3500336\VO2003132334"
+ Set ^KUL(KLNr,"F",BONNr,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+ Set ^KUL(KLNr,"F",BONNr,3)="\MAVEN EZ\\\VERLENGDE ZUIDERLOSWAL 6\NL-1216-BX\HILVERSUM\1147\\\\\\\\\\\\\\\\\\DI1\\\000020739\\"
+ Set ^KUL(KLNr,"F",BONNr,4)=5
+ Set ^KUL(KLNr,"F",BONNr,101)="703002 \482258\1\\\25.27\0#0\8\25.27\25.27\703002 \\\\300\25.27\KF6\\\\E1\EUR\\1\65279\\\\\\\\\\\\\\\\1\1\\\\1\\\\\\\\\023308554\"
+ 
+ Set ..VhossKastMockNummer = "O1234567"
+ 
+ Set ^ORDW("D",BONNr,"D",999999,100)="482258\B\\1\1\\\U\\300"
+ Set ^ORDW("D",BONNr,"D",999999,100,100)="482258\A\1\1\\65276,24134\\\\"_..VhossKastMockNummer_"\\JRU\U\U"
+ Quit BONNr
+]]></Implementation>
+</Method>
+
 <Method name="OpkuisenTestbon">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -207,5 +238,14 @@
    Kill ^KUL(KLNr,"F",BONNr)
 ]]></Implementation>
 </Method>
+
+<Method name="OpkuisenORDW">
+<Private>1</Private>
+<Implementation><![CDATA[
+   Set BONNr = ..BonID
+   Quit:BONNr<900000
+   Kill ^ORDW("D",BONNr,"D")
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/BL/Flow/Proxy/pxLevering/Test.cls.xml
===================================================================
diff -u -r30565 -r59014
--- vhUnitTest/BL/Flow/Proxy/pxLevering/Test.cls.xml	(.../Test.cls.xml)	(revision 30565)
+++ vhUnitTest/BL/Flow/Proxy/pxLevering/Test.cls.xml	(.../Test.cls.xml)	(revision 59014)
@@ -17,7 +17,7 @@
 <Default>1000</Default>
 </Parameter>
 
-<Method name="TestConsumentNettoPrijzen">
+<Method name="Test Consument Netto Prijzen">
 <Implementation><![CDATA[
 	do ..MaakConsument()
 	do ..Consument.ZetPrijsAffichering(##class(DOM.VKP.enu.PrijsAffichering).NettoPrijzen())
@@ -28,7 +28,7 @@
 	
 	set pxLevering = ##class(BL.Flow.Proxy.pxLevering).%New()
 	do pxLevering.FillViaBonNr(..Bon.GeefID())
-	
+
 	try{
 		Do $$$AssertEquals("Test cw - a", pxLevering.ORDERS.GetAt(1).ORDERREF, "Indien de klant ' - ' in zijn referentie zet, moet die ook op de PDF te zien zijn!")
 		
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>