Index: vhUnitTest/APPS/HR/ProTime/Facade.cls.xml
===================================================================
diff -u -r1074 -r1675
--- vhUnitTest/APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1074)
+++ vhUnitTest/APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1675)
@@ -5,6 +5,39 @@
 <Super>APPS.HR.ProTime.Facade</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SynchroniseerNaarKlant">
+<Description>
+Werknemers vanuit ProTime synchroniseren als Klant
+Als er nieuwe werknemers zijn, deze toevoegen als klant.
+Als er gegevens gewijzigd zijn, de bestaande gegevens van de klant aanpassen.
+Do ##class(APPS.HR.ProTime.Facade).%New().SynchroniseerNaarKlant()</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set $ZTRAP = "Catch"
+	
+	TSTART
+	
+	Do ..Synchroniseer()
+	
+	TCOMMIT
+	Quit $$$OK
+	
+Catch Set $ZTRAP = ""
+	TROLLBACK	
+	w !,$C(9),"Wijzigingen NIET doorgevoerd omwille van fout."
+	w $ECODE,!
+	Quit 0
+]]></Implementation>
+</Method>
+
 <Method name="GeefProTimeWerknemers">
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
Index: APPS/HR/ProTime/Facade.cls.xml
===================================================================
diff -u -r1673 -r1675
--- APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1673)
+++ APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1675)
@@ -93,6 +93,32 @@
 	
 	TSTART
 	
+	Do ..Synchroniseer()
+	
+	Write "Wenst u de wijzigingen doorvoeren ?"
+	Read Doorvoeren,!
+	If ((Doorvoeren = "Y") || (Doorvoeren = "y")){
+		TCOMMIT
+		w !,$C(9),"Wijzigingen doorgevoerd."
+	}Else{
+		TROLLBACK	
+		w !,$C(9),"Wijzigingen NIET doorgevoerd."
+	}
+	Quit $$$OK
+	
+Catch Set $ZTRAP = ""
+	TROLLBACK	
+	w !,$C(9),"Wijzigingen NIET doorgevoerd omwille van fout."
+	w $ECODE,!
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="Synchroniseer">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
 	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 	
 	Set ProTimeWerknemers = ..GeefProTimeWerknemers()	
@@ -191,23 +217,7 @@
 			}
 		}		
 	}	
-	
-	Write "Wenst u de wijzigingen doorvoeren ?"
-	Read Doorvoeren 
-	If (Doorvoeren = "Y" || Doorvoeren = "y"){
-		TCOMMIT
-		w !,$C(9),"Wijzigingen doorgevoerd."
-	}Else{
-		TROLLBACK	
-		w !,$C(9),"Wijzigingen NIET doorgevoerd."
-	}
 	Quit $$$OK
-	
-Catch Set $ZTRAP = ""
-	TROLLBACK	
-	w !,$C(9),"Wijzigingen NIET doorgevoerd omwille van fout."
-	w $ECODE,!
-	Quit 0
 ]]></Implementation>
 </Method>