Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r2572 -r2686
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2572)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2686)
@@ -20,46 +20,54 @@
 <FormalSpec>LeverancierID:%Integer,ProductLijst:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-		/// Waarden opzetten om oude routines te kunnen gebruiken.
-		Do ##class(vhLib.OldSchool).InitVars()
+	/// Waarden opzetten om oude routines te kunnen gebruiken.
+	Do ##class(vhLib.OldSchool).InitVars()
+
+	/// Nieuw ToeleveringID opvragen
+	Set ToeleveringID = $$GETNUM^FLOW("KTO","KTO1")	
 	
-		/// Nieuw ToeleveringID opvragen
-		Set ToeleveringID = $$GETNUM^FLOW("KTO","KTO1")	
+	/// Datum
+	Set CreatieDatum = ##class(TECH.DateTime).CurrentDate()
+	Set Datum = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
+	
+	/// Hoofding voor Toelevering aanmaken	
+	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\\\\\\\\\\\\EUR\\\\\\\\"
+	
+	/// Producten toevoegen aan toelevering 
+	Set LijnNr = 101	
+	Set UniekLijnNr = 1
+	For I=1:1:$L(ProductLijst,"\") 
+	{
+		Set ProductID = $P($P(ProductLijst,"\",I),";",1)
+		Set Aantal = $P($P(ProductLijst,"\",I),";",2)
 		
-		/// Datum
-		Set CreatieDatum = ##class(TECH.DateTime).CurrentDate()
-		Set Datum = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
+		Set ^KTO(LeverancierID,ToeleveringID,LijnNr)="\"_ProductID_"\"_Aantal_"\\\2.84\#\\284.00\284.00\\L\14\\"_(UniekLijnNr*100)_"\284.00\KTRPL\\\\E\EUR\\G\11/46\\\\11/46\\\\\\\"
 		
-		/// Hoofding voor Toelevering aanmaken	
-		Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\\\\\\\\\\\\EUR\\\\\\\\"
+		/// Index opbouwen voor deze ToeleveringLijn
+		DO BUILDTO^FLOWTOE3(LeverancierID, ToeleveringID, LijnNr)
 		
-		/// Producten toevoegen aan toelevering 
-		Set LijnNr = 101	
-		Set UniekLijnNr = 1
-		For I=1:1:$L(ProductLijst,"\") 
-		{
-			Set ProductID = $P($P(ProductLijst,"\",I),";",1)
-			Set Aantal = $P($P(ProductLijst,"\",I),";",2)
-			
-			Set ^KTO(LeverancierID,ToeleveringID,LijnNr)="\"_ProductID_"\"_Aantal_"\\\2.84\#\\284.00\284.00\\L\14\\"_(UniekLijnNr*100)_"\284.00\KTRPL\\\\E\EUR\\G\11/46\\\\11/46\\\\\\\"
-			
-			/// Index opbouwen voor deze ToeleveringLijn
-			DO BUILDTO^FLOWTOE3(LeverancierID, ToeleveringID, LijnNr)
-			
-			/// LijnNummer ophogen
-			Set LijnNr = LijnNr + 1
-			Set UniekLijnNr = UniekLijnNr + 1
-		}
-		
-		/// Volgend UniekLijnNr instellen
-		Set ^KTO(LeverancierID,ToeleveringID,4) = UniekLijnNr
-		
-		/// Index
-		Set ^KTO1(ToeleveringID)= LeverancierID_"\"
-		
-		w "Toelevering aangemaakt met ID : "_ToeleveringID,!
-		Quit ToeleveringID
+		/// LijnNummer ophogen
+		Set LijnNr = LijnNr + 1
+		Set UniekLijnNr = UniekLijnNr + 1
+	}
+	
+	/// Volgend UniekLijnNr instellen
+	Set ^KTO(LeverancierID,ToeleveringID,4) = UniekLijnNr
+	
+	/// Index
+	Set ^KTO1(ToeleveringID)= LeverancierID_"\"
+	
+	;w "Toelevering aangemaakt met ID : "_ToeleveringID,!
+	Quit ToeleveringID
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderToelevering">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringID</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	Do DELOBJ^FLOWTOE(ToeleveringID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>