Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml
===================================================================
diff -u -r34600 -r34667
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml	(.../AifGenerator.cls.xml)	(revision 34600)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifGenerator.cls.xml	(.../AifGenerator.cls.xml)	(revision 34667)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,FileAPI:AX.common.impl.FileAPI</FormalSpec>
 <Private>1</Private>
@@ -32,6 +37,7 @@
 	set ..FileAPI = $$$Inject(FileAPI,##class(AX.common.impl.FileAPI).%New())
 	
 	set ..Converter = ##class(AX.Uitgaand.VKP.VanHoeckeKlant.impl.AifConverter).%New()
+	set ..FirmaBepaler = ##class(AX.common.impl.FirmaBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,14 +60,14 @@
 	set Message = ##class(AXaif.Message.Envelope).%New()
 	set Message.Header = ##class(AXaif.Message.Header).%New()
 	set Message.Header.MessageId = "{"_$system.Util.CreateGUID()_"}"
-	set Message.Header.Company = "PRBE"
+	set Message.Header.Company = ..FirmaBepaler.GeefInitialen()
 	set Message.Header.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/create"
 	set Message.Body = ##class(AXaif.Message.Body).%New()
 	set Message.Body.MessageParts = ##class(AXaif.Message.MessageParts).%New()
 	set Message.Body.MessageParts.Customer = ..Converter.Convert(Partij,Klant)
 		
 	#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"AIF\Incomming")
-	#dim Filename As %String = PartijId_" "_##class(TECH.Files).GeefCurrentTimeStamp()_" .xml"
+	#dim Filename As %String = PartijId_" "_" - "_..FirmaBepaler.GeefInitialen()_##class(TECH.Files).GeefCurrentTimeStamp()_" .xml"
 	#dim FullFilename As %String = ##class(TECH.Files).AppendFile(Path,Filename)
 		
 	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()