Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r2686 -r2783
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2686)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2783)
@@ -17,7 +17,7 @@
 Return : ToeleveringID
 </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LeverancierID:%Integer,ProductLijst:%String</FormalSpec>
+<FormalSpec>LeverancierID:%Integer,ProductLijst:%String,OrderID:%String=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	/// Waarden opzetten om oude routines te kunnen gebruiken.
@@ -31,7 +31,7 @@
 	Set Datum = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
 	
 	/// Hoofding voor Toelevering aanmaken	
-	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\\\\\\\\\\\\EUR\\\\\\\\"
+	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\"_OrderID_"\\\\\\\\\\\EUR\\\\\\\\"
 	
 	/// Producten toevoegen aan toelevering 
 	Set LijnNr = 101	
@@ -57,7 +57,7 @@
 	/// Index
 	Set ^KTO1(ToeleveringID)= LeverancierID_"\"
 	
-	;w "Toelevering aangemaakt met ID : "_ToeleveringID,!
+	D WLIP^vhDBG(127,"Toelevering aangemaakt met ID : "_ToeleveringID)
 	Quit ToeleveringID
 ]]></Implementation>
 </Method>