Index: AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml
===================================================================
diff -u -r47987 -r48002
--- AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 47987)
+++ AX/Uitgaand/PM/PakketReferenties/impl/PakketReferentiesDixfGenerator.cls.xml	(.../PakketReferentiesDixfGenerator.cls.xml)	(revision 48002)
@@ -98,7 +98,7 @@
 </Method>
 
 <Method name="MaakHeaders">
-<CodeMode>objectgenerator</CodeMode>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set EntiteitLijst = ##class(%ListOfDataTypes).%New()
 	
@@ -121,7 +121,7 @@
 		#dim UitTeVoerenLijn, Property As %String = ""
 		#dim UnderscoreBehoefteGevonden As %Boolean
 		Do arrProperties^vhLib.Class(DtoPad,.Properties,"A","A","A",1)
-		Set UitTeVoerenLijn = "Do .."_EntiteitNaam_"Stream.WriteLine("""
+		Set UitTeVoerenLijn = ""
 		For { Set Property = $Order(Properties(Property)) Quit:Property=""
 			#dim Toevoeging As %String = Property
 			#dim UnderscoreLijst As %String = "Name,Description,LanguageId,MandatoryInventLocation,HighestQty,InventSiteDefault,LeadTime,LowestQty,MultipleQty,StandardQty,Stopped,MandatoryInventSite,Override,InterCompanyBlocked,EndDisc,PriceUnit,UnitId,OverDeliveryPct,TaxItemGroupId,UnderDeliveryPct,DeliveryDateControlType,ATPTimeFence,CalendarDays"
@@ -137,8 +137,9 @@
 			Set UitTeVoerenLijn = UitTeVoerenLijn_Toevoeging_";"
 		}
 		Set UitTeVoerenLijn = ##class(TECH.StringUtils).RightTrim(UitTeVoerenLijn,";")
-		Set UitTeVoerenLijn = UitTeVoerenLijn_""")"
-		Do %code.WriteLine($$$TAB_UitTeVoerenLijn)
+		
+		#dim Stream As %Stream.Object = $property($this,EntiteitNaam_"Stream")
+		Do Stream.WriteLine(UitTeVoerenLijn)
 	}
 	
 	Quit $$$OK