Index: APPS/HR/WerknemersLijstBijBrand/dto/Werknemer.cls.xml
===================================================================
diff -u -r29059 -r64547
--- APPS/HR/WerknemersLijstBijBrand/dto/Werknemer.cls.xml	(.../Werknemer.cls.xml)	(revision 29059)
+++ APPS/HR/WerknemersLijstBijBrand/dto/Werknemer.cls.xml	(.../Werknemer.cls.xml)	(revision 64547)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.HR.WerknemersLijstBijBrand.dto.Werknemer">
 <ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>0</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <Inheritance>right</Inheritance>
@@ -20,6 +21,42 @@
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
+
+<Method name="AfwezighedenGet">
+<Description>
+De Getter() methode wordt ook opgeroepen bij het ProxyToXMLStream() </Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAfwezighedenOutput(i%Afwezigheden, i%GSMNr)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfwezighedenOutput">
+<FormalSpec>AfwezighedenStatus="",GsmNummer=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Try {
+
+		#dim AfwezighedenOutput As %String = AfwezighedenStatus
+	
+		If $$$Trim(AfwezighedenStatus) = "AANWEZIG" {
+			#dim StatusIngeboekt As %String = $$$UCase($$$Trim($Piece(GsmNummer, ",", 1) ))
+			If (StatusIngeboekt = "OUT") {
+				Set AfwezighedenOutput = AfwezighedenStatus _ " (uitgeboekt)"
+			}
+			ElseIf ($$$Not(StatusIngeboekt = "IN")) {
+				Set AfwezighedenOutput = AfwezighedenStatus _ " (niet ingeboekt)"
+			}
+		}
+	}
+	Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		// TODO : Error loggen in vhLib.Logging 
+		Set AfwezighedenOutput = AfwezighedenStatus _ " (Error!)"
+	}
+	Quit AfwezighedenOutput
+]]></Implementation>
+</Method>
 </Class>