Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r57446 -r58984
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 58984)
@@ -72,9 +72,10 @@
 	#Dim PRNr, AxProductID as %String
 	Set TOENr=..ProductieOrderLijn.ToeleveringNr
 	Set TLUNr=..ProductieOrderLijn.UniekLijnNr\100*100
-	Set ResourceID=""
-	&SQL(select top 1 ID into :ResourceID from APPS_Halux_Planning_Resource_dto.ResourceLijn where ToeleveringNr=:TOENr and UniekLijnNr=:TLUNr)
-	Quit $L(ResourceID)
+	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)
+	Quit ResPRNr=PRNr
 ]]></Implementation>
 </Method>
 
@@ -97,6 +98,7 @@
 <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),"\")
@@ -106,36 +108,46 @@
 		;w GenTyp," ",PRNr,!
 		If GenTyp="TBX"
 		{   
-			Do ##class(ConvertTBX).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertTBX).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="LBX"
 		{	
-			Do ##class(ConvertLBX).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertLBX).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="TAO"
 		{
-			Do ##class(ConvertTAX).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertTAX).%New(..ProductieOrderLijn)
 		}
 		ElseIf (GenTyp="KAD")||(GenTyp="PRF")||(GenTyp="GLA")
 		{
-			Do ##class(ConvertKAD).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertKAD).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp2="DIV\ASM"
 		{
-			Do ##class(ConvertASM).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertASM).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="DIV\ZSN"
 		{
-			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
 		}
 		ElseIf GenTyp="DIV"
 		{
-			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
 		}
 		Else
 		{
-			Do ##class(ConvertDIV).%New(..ProductieOrderLijn).Converteer()
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
 		}
+
+		If '$isObject(Convertor)&&("DIV"'[GenTyp)
+		{ ;fallback naar DIV indien Convertor niet geinitialiseerd is
+			Set Convertor=##class(ConvertDIV).%New(..ProductieOrderLijn)
+		}
+		
+		If $isObject(Convertor)
+		{ ; uitvoeren convertor
+			Do Convertor.Converteer()
+		}
 ]]></Implementation>
 </Method>
 </Class>