Index: BL/Legacy/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u
--- BL/Legacy/LeverbonHoofdingBepaler.cls.xml	(revision 0)
+++ BL/Legacy/LeverbonHoofdingBepaler.cls.xml	(revision 51049)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Legacy.LeverbonHoofdingBepaler">
+<Super>TECH.RegisteredObject,DOM.common.PersonalityVisitor</Super>
+
+<Property name="LeverbonHoofding">
+<Type>BL.FOP.Derde.pxAfzenderHoofding</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalLeverbonHoofding">
+<FormalSpec>Personality:DOM.common.Personality</FormalSpec>
+<ReturnType>BL.FOP.Derde.pxAfzenderHoofding</ReturnType>
+<Implementation><![CDATA[
+	Set ..LeverbonHoofding = ##class(BL.FOP.Derde.pxAfzenderHoofding).%New()
+	Do Personality.Accept($This)
+	Quit ..LeverbonHoofding
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoecke">
+<FormalSpec>VanHoeckePersonality:DOM.common.VanHoeckePersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkDestil">
+<FormalSpec>DestilPersonality:DOM.common.DestilPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDupont">
+<FormalSpec>DupontPersonality:DOM.common.DupontPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleBE">
+<FormalSpec>HaefeleBEPersonality:DOM.common.HaefeleBEPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkHaefeleNL">
+<FormalSpec>HaefeleNLPersonality:DOM.common.HaefeleNLPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkKisch">
+<FormalSpec>KischPersonality:DOM.common.KischPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkNoteborn">
+<FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
+<Implementation><![CDATA[
+	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
+    Set ..LeverbonHoofding.ColRightWidth = "73mm"
+    
+	#dim URL As %String = ""
+	#dim Klant As DOM.VKP.VanHoeckeKlant = NotebornPersonality.GeefKlant()	
+	If Klant.HeeftEigenLogo(){
+    	Set URL = "\\fop\Resources\Media\KlantLogos\"
+		#dim Bestand As %String = Klant.GeefLogo()
+		#dim Extensie As %String = ##class(TECH.StringUtils).GetLastPart(Bestand,".")
+    	Set URL = ##class(TECH.Files).AppendFile(URL,Bestand)
+    	Set ..LeverbonHoofding.LOGO = ##class(BL.FOP.Basis.pxAttribType).Create(URL,##class(TECH.StringUtils).ToUpper(Extensie),,)
+	}	    
+    Set ..LeverbonHoofding.NAAM = "TA'OR by NOTEBORN"
+    Set ..LeverbonHoofding.STRAATNRBUS = "www.noteborn.taor.com"    
+    Set ..LeverbonHoofding.WOONPLAATS = "www.noteborn.com"
+	Set ..LeverbonHoofding.TELEFOON = "+31(0) 45 535 77 77"	
+	Set ..LeverbonHoofding.EMAIL = "taor@noteborn.nl"
+	Do ..VoegToeAfhandelaar()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSFS">
+<FormalSpec>SFSPersonality:DOM.common.SFSPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanHoeckeVoorHalux">
+<FormalSpec>VanHoeckVoorHaluxPersonality:DOM.common.VanHoeckeVoorHaluxPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkVanRaemdonck">
+<FormalSpec>VanRaemdonckPersonality:DOM.common.VanRaemdonckPersonality</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkDaro">
+<FormalSpec>DaroPersonality:DOM.common.DaroPersonality</FormalSpec>
+</Method>
+
+<Method name="VerwerkHein">
+<FormalSpec>HeinPersonality:DOM.common.HeinPersonality</FormalSpec>
+</Method>
+
+<Method name="VoegToeAfhandelaar">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LeverbonHoofding.T1 = "Afhandeling door Van Hoecke nv"
+	Set ..LeverbonHoofding.T2 = "Europark-Noord 9"
+	Set ..LeverbonHoofding.T3 = "B-9100 Sint-Niklaas"
+	Set ..LeverbonHoofding.T4 = "BTW: BE 0440.085.040"
+	Set ..LeverbonHoofding.T5 = "RPR: Dendermonde"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>