Index: DOM/HR/Protime/Werknemer.cls.xml
===================================================================
diff -u -r1075 -r1684
--- DOM/HR/Protime/Werknemer.cls.xml	(.../Werknemer.cls.xml)	(revision 1075)
+++ DOM/HR/Protime/Werknemer.cls.xml	(.../Werknemer.cls.xml)	(revision 1684)
@@ -159,6 +159,7 @@
 	Set Klant.Adres.Straat = ..CleanUp(..Adres)
 	Set Klant.Adres.Postcode = ..CleanUp(..Postcode)
 	Set Klant.Adres.Woonplaats = ..CleanUp(..Woonplaats)
+	Set Klant.Adres.Taal = "N"
 	If ..Land = 2 {
 		Set Klant.Adres.LandNr = $$LAND^vhRtn1("NL","I")
 		If (Klant.Adres.Postcode [ "NL"){
@@ -178,8 +179,10 @@
 </Method>
 
 <Method name="CleanUp">
+<ClassMethod>1</ClassMethod>
 <FormalSpec>Waarde:%String</FormalSpec>
-<Implementation><![CDATA[	Quit $TR($TR(Waarde,$c(0)),"\")
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$$Strip($TR($TR(Waarde,$c(0)),"\"))
 ]]></Implementation>
 </Method>
 
Index: APPS/HR/ProTime/Facade.cls.xml
===================================================================
diff -u -r1675 -r1684
--- APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1675)
+++ APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1684)
@@ -3,7 +3,7 @@
 <Class name="APPS.HR.ProTime.Facade">
 <Description>
 Do ##class(APPS.HR.ProTime.Facade).%New().SynchroniseerNaarKlant()</Description>
-<IncludeCode>%VHMacro</IncludeCode>
+<IncludeCode>%VHMacro,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -161,7 +161,7 @@
 			}
 			/// De medewerker bestaat reeds als klant, dus wijzigingen doorvoeren
 			If (Klant.GeefNaam() '= $$$UCase(dtoKlant.KlantNaam)){
-				w Klant.GeefNummer(), " : ", Klant.GeefNaam(), $C(9)," => Naam wijziging : ",$C(9),"'"_Klant.GeefNaam() _"' != '"_$$$UCase(dtoKlant.KlantNaam),"'",!
+				w Klant.GeefNummer(), " : ", Klant.GeefNaam(), $C(9)," => Naam wijziging : ",$C(9),"'"_$$LCVT^vhLib(Klant.GeefNaam()) _"' != '"_$$LCVT^vhLib($$$UCase(dtoKlant.KlantNaam)),"'",!
 				Do Klant.ZetNaam(dtoKlant.KlantNaam)
 				Do Persoon.ZetNaam(..CleanUp(ProTimeWerknemer.Naam))
 				Do Persoon.ZetVoornaam(..CleanUp(ProTimeWerknemer.Voornaam))
@@ -176,8 +176,8 @@
 			Set IsAdresGewijzigd = ..IsAdresGewijzigd(Klant.GeefAdres(),dtoKlantAdres)
 			If (IsAdresGewijzigd = 1) {
 					w Klant.GeefNummer(), " : ", Klant.GeefNaam(), $C(9)," => Adres wijziging : ",!
-					w $C(9),"Oud : '",$C(9),Klant.GeefAdres().GeefStraat(),"', '",Klant.GeefAdres().GeefPostcode(), "' '",Klant.GeefAdres().GeefGemeente(),"'",!
-					w $C(9),"Nieuw : '",$C(9),dtoKlantAdres.Straat, "', '",dtoKlantAdres.Postcode,"' '",dtoKlantAdres.Woonplaats,"'",!
+					w $C(9),"Oud : ",$C(9),"'",Klant.GeefAdres().GeefStraat(),"', '",Klant.GeefAdres().GeefPostcode(), "' '",Klant.GeefAdres().GeefGemeente(),"'",!
+					w $C(9),"Nieuw : ",$C(9),"'",dtoKlantAdres.Straat, "', '",dtoKlantAdres.Postcode,"' '",dtoKlantAdres.Woonplaats,"'",!
 					Do Klant.ZetAdres(dtoKlantAdres)
 			}ElseIf (IsAdresGewijzigd = -1){
 				w Klant.GeefNummer(), " : ",Klant.GeefNaam(), $C(9), " => Adres in ProTime is leeg !",!