Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r37086 -r37087
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 37086)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 37087)
@@ -29,61 +29,60 @@
 <FormalSpec>Product:EXT.Unishop.PurchaseOrder001.CreateOrder.ProductEigenschappen</FormalSpec>
 <Implementation><![CDATA[
 	If Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTAX).%ClassName($$$True)) {
-		Set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTAX).%New()
-		If Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("FrontBevestiging")
-		If Product.NietMeeleveren.Glijder do LadeEigenschappen.NietMeeleveren.Insert("Glijder")
-		If Product.NietMeeleveren.GlijderType do LadeEigenschappen.NietMeeleveren.Insert("Glijder")
-		If Product.NietMeeleveren.BodemOndersteuning do LadeEigenschappen.NietMeeleveren.Insert("BodemOndersteuning")
-		If Product.NietMeeleveren.Koppeling do LadeEigenschappen.NietMeeleveren.Insert("Koppeling")
-		If Product.NietMeeleveren.Opvullijst do LadeEigenschappen.NietMeeleveren.Insert("Opvullijst")
-		If Product.NietMeeleveren.AfdekkapBoven do LadeEigenschappen.NietMeeleveren.Insert("AfdekkapBoven")
-		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
-		If Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter")
-		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSetEenhedenEnMeenemers")
+		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTAX).%New()
+		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.Insert("FrontBevestiging")
+		If Product.NietMeeleveren.Glijder do Eigenschappen.NietMeeleveren.Insert("Glijder")
+		If Product.NietMeeleveren.GlijderType do Eigenschappen.NietMeeleveren.Insert("Glijder")
+		If Product.NietMeeleveren.BodemOndersteuning do Eigenschappen.NietMeeleveren.Insert("BodemOndersteuning")
+		If Product.NietMeeleveren.Koppeling do Eigenschappen.NietMeeleveren.Insert("Koppeling")
+		If Product.NietMeeleveren.Opvullijst do Eigenschappen.NietMeeleveren.Insert("Opvullijst")
+		If Product.NietMeeleveren.AfdekkapBoven do Eigenschappen.NietMeeleveren.Insert("AfdekkapBoven")
+		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
+		If Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter")
+		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSetEenhedenEnMeenemers")
 		If Product.NietMeeleveren.TIPONComponents {
-			Do LadeEigenschappen.NietMeeleveren.Insert("TiponSynchronisatieStang")
-			Do LadeEigenschappen.NietMeeleveren.Insert("TiponSynchronisatieTandwiel")			
+			Do Eigenschappen.NietMeeleveren.Insert("TiponSynchronisatieStang")
+			Do Eigenschappen.NietMeeleveren.Insert("TiponSynchronisatieTandwiel")			
 		}
-		Do ..Converter.Convert(Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesTAX)
+		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTAX)
 	}
 	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenLBX).%ClassName($$$True)) {
-		Set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeLBX).%New()
-		If Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("FrontBevestiging")
-		If Product.NietMeeleveren.Geleider do LadeEigenschappen.NietMeeleveren.Insert("Geleider")
-		If Product.NietMeeleveren.AfdekkapBinnen do LadeEigenschappen.NietMeeleveren.Insert("AfdekkapBinnen")
-		If Product.NietMeeleveren.AfdekkapBuiten do LadeEigenschappen.NietMeeleveren.Insert("AfdekkapBuiten")
-		If Product.NietMeeleveren.BevestigingBodemFront do LadeEigenschappen.NietMeeleveren.Insert("BevestigingBodemFront")
-		If Product.NietMeeleveren.InschuifElementVoor do LadeEigenschappen.NietMeeleveren.Insert("InschuifElementVoor")
-		If Product.NietMeeleveren.InschuifElementZijkant do LadeEigenschappen.NietMeeleveren.Insert("InschuifElementZijkant")
-		If Product.NietMeeleveren.Opvullijst do LadeEigenschappen.NietMeeleveren.Insert("Opvullijst")
-		If Product.NietMeeleveren.Zijstabilisering do LadeEigenschappen.NietMeeleveren.Insert("Zijstabilisering")
-		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSetEenhedenEnMeenemers")
-		If Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter")
-		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do LadeEigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
-		If Product.NietMeeleveren.TIPONComponents do LadeEigenschappen.NietMeeleveren.Insert("TiponSynchronisatieSet"_"TiponSynchronisatieStang")
-		Do ..Converter.Convert(Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesLBX)
+		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.LadeLBX).%New()
+		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.Insert("FrontBevestiging")
+		If Product.NietMeeleveren.Geleider do Eigenschappen.NietMeeleveren.Insert("Geleider")
+		If Product.NietMeeleveren.AfdekkapBinnen do Eigenschappen.NietMeeleveren.Insert("AfdekkapBinnen")
+		If Product.NietMeeleveren.AfdekkapBuiten do Eigenschappen.NietMeeleveren.Insert("AfdekkapBuiten")
+		If Product.NietMeeleveren.BevestigingBodemFront do Eigenschappen.NietMeeleveren.Insert("BevestigingBodemFront")
+		If Product.NietMeeleveren.InschuifElementVoor do Eigenschappen.NietMeeleveren.Insert("InschuifElementVoor")
+		If Product.NietMeeleveren.InschuifElementZijkant do Eigenschappen.NietMeeleveren.Insert("InschuifElementZijkant")
+		If Product.NietMeeleveren.Opvullijst do Eigenschappen.NietMeeleveren.Insert("Opvullijst")
+		If Product.NietMeeleveren.Zijstabilisering do Eigenschappen.NietMeeleveren.Insert("Zijstabilisering")
+		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSetEenhedenEnMeenemers")
+		If Product.NietMeeleveren.TiponBlumotionSynchronisatieAdapter do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieAdapter")
+		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.Insert("TiponBlumotionSynchronisatieStang")
+		If Product.NietMeeleveren.TIPONComponents do Eigenschappen.NietMeeleveren.Insert("TiponSynchronisatieSet"_"TiponSynchronisatieStang")
+		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesLBX)
 	}
 	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%ClassName($$$True)) {
-		Set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-		If Product.NietMeeleveren.FrontBevestiging do LadeEigenschappen.NietMeeleveren.Insert("NMFS")
-		If Product.NietMeeleveren.Geleider do LadeEigenschappen.NietMeeleveren.Insert("NMCP")
-		If Product.NietMeeleveren.Reling do LadeEigenschappen.NietMeeleveren.Insert("NMRL")
-		If Product.NietMeeleveren.Afdekkappen do LadeEigenschappen.NietMeeleveren.Insert("NMAK")
-		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSET")
-		If Product.NietMeeleveren.TOBSynchronisatieToebehoren do LadeEigenschappen.NietMeeleveren.Insert("NMTOBTOEB")
-		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do LadeEigenschappen.NietMeeleveren.Insert("NMTOBSTG")
-		If Product.NietMeeleveren.Bodemsteun do LadeEigenschappen.NietMeeleveren.Insert("NMBDS")
-		If Product.NietMeeleveren.Opvullijst do LadeEigenschappen.NietMeeleveren.Insert("NMOVL")
-		If Product.NietMeeleveren.LadeZijkant do LadeEigenschappen.NietMeeleveren.Insert("NMBS")
-		Do ..Converter.Convert(Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesTBX)
+		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
+		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.Insert("NMFS")
+		If Product.NietMeeleveren.Geleider do Eigenschappen.NietMeeleveren.Insert("NMCP")
+		If Product.NietMeeleveren.Reling do Eigenschappen.NietMeeleveren.Insert("NMRL")
+		If Product.NietMeeleveren.Afdekkappen do Eigenschappen.NietMeeleveren.Insert("NMAK")
+		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do Eigenschappen.NietMeeleveren.Insert("NMTOBSET")
+		If Product.NietMeeleveren.TOBSynchronisatieToebehoren do Eigenschappen.NietMeeleveren.Insert("NMTOBTOEB")
+		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.Insert("NMTOBSTG")
+		If Product.NietMeeleveren.Bodemsteun do Eigenschappen.NietMeeleveren.Insert("NMBDS")
+		If Product.NietMeeleveren.Opvullijst do Eigenschappen.NietMeeleveren.Insert("NMOVL")
+		If Product.NietMeeleveren.LadeZijkant do Eigenschappen.NietMeeleveren.Insert("NMBS")
+		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX)
 	}
 	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.VoorgedefinieerdProduct).%ClassName($$$True)) {
-		Set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
-		Do ..Converter.Convert(Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct)
-	}
+		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+		Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct)
+	}	
 	
-	
-	Quit LadeEigenschappen
+	Quit Eigenschappen
 ]]></Implementation>
 </Method>