Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r33369 -r37688
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 33369)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 37688)
@@ -70,6 +70,7 @@
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+	New LeverancierID
 	If $Data(^KTO1(ToeleveringID)){
 		Set LeverancierID = $Piece(^KTO1(ToeleveringID),"\",1)
 		If ($Data(^KTO(LeverancierID,ToeleveringID))){