Index: BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml
===================================================================
diff -u -r51076 -r51077
--- BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 51076)
+++ BL/Flow/Proxy/impl/LeverbonHoofdingBepaler.cls.xml	(.../LeverbonHoofdingBepaler.cls.xml)	(revision 51077)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HeaderType">
+<Type>BL.FOP.Proxy.enu.HoofdingType</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -21,9 +26,12 @@
 <FormalSpec>Personality:DOM.common.Personality</FormalSpec>
 <ReturnType>BL.FOP.Derde.pxAfzenderHoofding</ReturnType>
 <Implementation><![CDATA[
+	Set HoofdingDto = ##class(BL.Flow.Proxy.dto.AfzenderHoofdingDto).%New()
 	Set ..LeverbonHoofding = ##class(BL.FOP.Derde.pxAfzenderHoofding).%New()
 	Do Personality.Accept($This)
-	Quit ..LeverbonHoofding
+	Set HoofdingDto.AfzenderHoofding = HoofdingDto
+	Set HoofdingDto.HeaderType = ..HeaderType
+	Quit HoofdingDto
 ]]></Implementation>
 </Method>
 
@@ -60,6 +68,8 @@
 <Method name="VerwerkNoteborn">
 <FormalSpec>NotebornPersonality:DOM.common.NotebornPersonality</FormalSpec>
 <Implementation><![CDATA[
+	Set ..HeaderType = ##class(BL.FOP.Proxy.enu.HoofdingType).Custom()
+	
 	Set ..LeverbonHoofding.ColLeftWidth = "40mm"
     Set ..LeverbonHoofding.ColRightWidth = "73mm"