Index: vhUnitTest/APPS/PM/OL/OrgaluxGammaExporter/Test.cls.xml
===================================================================
diff -u -r29059 -r31429
--- vhUnitTest/APPS/PM/OL/OrgaluxGammaExporter/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/OL/OrgaluxGammaExporter/Test.cls.xml	(.../Test.cls.xml)	(revision 31429)
@@ -98,11 +98,50 @@
 	
 	Do $$$AssertTrue( $Data(LadeFamilieWaarden) )
 	Do $$$AssertEquals( 2, LadeFamilieWaarden.Count() )
-	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.enu.LadeVariant).LBXPure()) )
+	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.OL.enu.LadeFamilie).LBXPure()) )
 	Do $$$AssertTrue( LadeFamilieWaarden.Find("NietBlumLade") )
 ]]></Implementation>
 </Method>
 
+<Method name="TestcvtLadeVariant2OLLadeFamiliexLbxFree">
+<Implementation><![CDATA[
+	#dim Exporter As APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW = ##class(APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW).%New()
+	#dim ExportFilter As DOM.PM.OL.Gamma.dto.ExportFilter = ##class(DOM.PM.OL.Gamma.dto.ExportFilter).%New()
+	Set Exporter.ExportFilter = ExportFilter
+	Set ExportFilter.LadeDesigns = $ListBuild( ##class(DOM.PM.OL.enu.LadeFamilie).LBXFree() )
+	set ExportFilter.OokBeperktActieve = 1
+	
+	Do Exporter.BepaalKenmerkQueryWaarden()
+	
+	#dim LadeFamilieWaarden As %ListOfDataTypes = ..ZoekDesignWaarden(Exporter.KenmerkQueryWaarden)
+	
+	Do $$$AssertTrue( $Data(LadeFamilieWaarden) )
+	Do $$$AssertEquals( 2, LadeFamilieWaarden.Count() )
+	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.OL.enu.LadeFamilie).LBXFree()) )
+	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.OL.enu.LadeFamilie).NietBlumLade()) )
+]]></Implementation>
+</Method>
+
+<Method name="TestcvtLadeVariant2OLLadeFamiliexLbxPureEnLbxFree">
+<Implementation><![CDATA[
+	#dim Exporter As APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW = ##class(APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW).%New()
+	#dim ExportFilter As DOM.PM.OL.Gamma.dto.ExportFilter = ##class(DOM.PM.OL.Gamma.dto.ExportFilter).%New()
+	Set Exporter.ExportFilter = ExportFilter
+	Set ExportFilter.LadeDesigns = $ListBuild( ##class(DOM.PM.enu.LadeVariant).LBXPure() , ##class(DOM.PM.OL.enu.LadeFamilie).LBXFree() )
+	set ExportFilter.OokBeperktActieve = 1
+	
+	Do Exporter.BepaalKenmerkQueryWaarden()
+	
+	#dim LadeFamilieWaarden As %ListOfDataTypes = ..ZoekDesignWaarden(Exporter.KenmerkQueryWaarden)
+	
+	Do $$$AssertTrue( $Data(LadeFamilieWaarden) )
+	Do $$$AssertEquals( 3, LadeFamilieWaarden.Count() )
+	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.OL.enu.LadeFamilie).LBXPure()) )
+	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.OL.enu.LadeFamilie).LBXFree()) )
+	Do $$$AssertTrue( LadeFamilieWaarden.Find(##class(DOM.PM.OL.enu.LadeFamilie).NietBlumLade()) )
+]]></Implementation>
+</Method>
+
 <Method name="TestcvtLadeVariant2OLLadeFamiliexTbxPlus">
 <Implementation><![CDATA[
 	#dim Exporter As APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW = ##class(APPS.PM.OL.Export.impl.OrgaluxGammaExporterKQW).%New()