Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r56983 -r57301
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 56983)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 57301)
@@ -41,9 +41,10 @@
 </Method>
 
 <Method name="Verwerk">
+<FormalSpec>DeleteAll:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Lock +ProductieResource:0 Else  Quit
-	;Do ..VerwijderAlles()
+	Do:DeleteAll ..VerwijderAlles()
 	Set ..itProductieOrder=##class(ProductieOrderIterator).%New()
 	
 	#dim PRNr as %String
@@ -102,6 +103,7 @@
 		Set GenTyp2=$P($$GENTYP^HAD(PRNr),"\",1,2)
 			;quit:'("DIV"[GenTyp&&(GenTyp2=""))
 		Set ..Cnt=..Cnt+1
+		;w GenTyp," ",PRNr,!
 		If GenTyp="TBX"
 		{   
 			Do ##class(ConvertTBX).%New(..ProductieOrderLijn).Converteer()