Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r58984 -r65692
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 58984)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 65692)
@@ -36,6 +36,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..UpdateOnly=UpdateOnly
+	Kill ^||ExistToelev
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -62,6 +63,7 @@
 		}
 		;Quit:..Cnt>10000
 	}
+	Do ..DeleteWezen()
 	Lock -ProductieResource
 ]]></Implementation>
 </Method>
@@ -72,6 +74,7 @@
 	#Dim PRNr, AxProductID as %String
 	Set TOENr=..ProductieOrderLijn.ToeleveringNr
 	Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100
+	Set ^||ExistToelev(TOENr,TLUNr)=""
 	Set PRNr=..ProductieOrderLijn.ProductGetObjectId()
 	Set ResPRNr=""
 	&SQL(select top 1 Product into :ResPRNr from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
@@ -89,20 +92,37 @@
 		select ID into :ResourceID from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
    	&sql(OPEN DELRES)
    	   	
- 	For  &sql(FETCH DELRES) Quit:SQLCODE  Do  
+ 	For  &sql(FETCH DELRES) Quit:SQLCODE  Do
 	. Do ##class(APPS.Halux.Planning.Resource.dto.ResourceLijn).%DeleteId(ResourceID)
  	&sql(CLOSE DELRES)
 ]]></Implementation>
 </Method>
 
+<Method name="DeleteWezen">
+<Implementation><![CDATA[
+	#Dim PRNr, AxProductID as %String
+	&sql(DECLARE DELWEZEN CURSOR FOR
+		select ID,ToeleveringNr,UniekLijnNr into :ResourceID,:TOENr,:TLUNr from APPS_Halux_Planning_Resource_dto.ResourceLijn)
+   	&sql(OPEN DELWEZEN)
+   	
+   	;TLUNr is per 100 geen backorderlijnen   	
+ 	For  &sql(FETCH DELWEZEN) Quit:SQLCODE  Do  
+	. If '$D(^||ExistToelev(TOENr,TLUNr)) Do
+	. . Do ##class(APPS.Halux.Planning.Resource.dto.ResourceLijn).%DeleteId(ResourceID)
+	. . ;Write "NOT Exist Toelev ",TOENr,":",TLUNr,!
+ 	&sql(CLOSE DELWEZEN)
+ 	Kill ^||ExistToelev
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerOne">
 <Implementation><![CDATA[
 		#Dim PRNr,GenTyp,GenTyp2 as %String
 		#dim Convertor as ConvertProductAbstract
 		Set PRNr=..ProductieOrderLijn.ProductGetObjectId()
 		Quit:'PRNr
-		Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
 		Set GenTyp2=$P($$GENTYP^HAD(PRNr),"\",1,2)
+		Set GenTyp=$P(GenTyp2,"\")
 			;quit:'("DIV"[GenTyp&&(GenTyp2=""))
 		Set ..Cnt=..Cnt+1
 		;w GenTyp," ",PRNr,!