Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1327 -r1734
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1327)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1734)
@@ -3,7 +3,9 @@
 <Class name="vhConsistency.ConsistencyCheck">
 <Description>
 JBL + 2011-05-05 
-Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0)</Description>
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0)
+Of één test uitvoeren via 
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.Index.KlantIndex")</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -14,17 +16,22 @@
 </Property>
 
 <Method name="VoerUit">
+<Description>
+VoerUit
+ToonAlles : toon zowel goede als negatieve resultaten in consistency check.
+StuurMail : Stuurt email als met resultaat in (in te stellen via ConfigMgr).
+CheckName : indien één specifieke test uitgevoerd moet worden.</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean=1</FormalSpec>
+<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean=1,CheckName:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ConsistencyCheck = ..%New()
-	Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles,StuurMail)
+	Do ConsistencyCheck.VoerAlleChecksUit(ToonAlles,StuurMail,CheckName)
 ]]></Implementation>
 </Method>
 
 <Method name="VoerAlleChecksUit">
-<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean</FormalSpec>
+<FormalSpec>ToonAlles:%Boolean=0,StuurMail:%Boolean,CheckName:%String</FormalSpec>
 <Implementation><![CDATA[
 		
 		Do ..Meldingen.WriteLine("Consistency Checks :")
@@ -35,14 +42,16 @@
 		set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
 		do rs.Execute("vhConsistency.Check")
 		while rs.Next() {
-			set Classname = rs.Data("Name")
-			Set $ZTRAP = "ErrHandling"
-			If ('..VoerEenCheckUit(Classname, ToonAlles)){
-				Set CheckGefaald = 1
+			set ClassName = rs.Data("Name")
+			If (CheckName = "") || $$$StartsWithVar(ClassName,CheckName) {
+				Set $ZTRAP = "ErrHandling"
+				If ('..VoerEenCheckUit(ClassName, ToonAlles)){
+					Set CheckGefaald = 1
+				}
+				Set $ZTRAP = ""
 			}
-			Set $ZTRAP = ""
 			Continue
-ErrHandling Set CheckGefaald = 1 Do ..Meldingen.Write(Classname_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10))
+ErrHandling Set CheckGefaald = 1 Do ..Meldingen.Write(ClassName_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10))
 		}		
 		
 		If (CheckGefaald || ToonAlles)
@@ -72,22 +81,22 @@
 </Method>
 
 <Method name="VoerEenCheckUit">
-<FormalSpec>Classname:%String,ToonAlles:%Boolean=0</FormalSpec>
+<FormalSpec>ClassName:%String,ToonAlles:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-		Set Check = $zobjclassmethod(Classname,"%New")
+		Set Check = $zobjclassmethod(ClassName,"%New")
 		
 		Set Resultaat = Check.VoerUit()
 		
 		If ('Check.SkipCheck){
 			If (Resultaat '= $$$OK){
 				Do ..Meldingen.CopyFrom(Check.GeefMelding())
 			}ElseIf(ToonAlles && Resultaat){
-				Do ..Meldingen.WriteLine(Classname_" : OK")
+				Do ..Meldingen.WriteLine(ClassName_" : OK")
 			}
 		}Else{
-			Do ..Meldingen.WriteLine(Classname_" : SKIPPED")
+			Do ..Meldingen.WriteLine(ClassName_" : SKIPPED")
 		}
 		Quit Resultaat
 ]]></Implementation>
Index: APPS/HR/ProTime/Facade.cls.xml
===================================================================
diff -u -r1684 -r1734
--- APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1684)
+++ APPS/HR/ProTime/Facade.cls.xml	(.../Facade.cls.xml)	(revision 1734)
@@ -86,37 +86,56 @@
 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>
+Do ##class(APPS.HR.ProTime.Facade).%New().SynchroniseerNaarKlant(0)
+
+Instellen mail adres waarnaar feedback wordt gestuurd.
+Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.HR.ProTime.FeedbackMailTo","jbl@vanhoecke.be")</Description>
+<FormalSpec>AutomatischDoorvoeren:%Boolean=1</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set $ZTRAP = "Catch"
+	Set From = $$$SystemMail($$$Server_" - ProTime")
+	Set MailTo = $LB(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.HR.ProTime.FeedbackMailTo"))
 	
 	TSTART
 	
-	Do ..Synchroniseer()
+	Set Feedback = ..Synchroniseer()
 	
-	Write "Wenst u de wijzigingen doorvoeren ?"
-	Read Doorvoeren,!
-	If ((Doorvoeren = "Y") || (Doorvoeren = "y")){
-		TCOMMIT
-		w !,$C(9),"Wijzigingen doorgevoerd."
+	If ('AutomatischDoorvoeren){
+		Write Feedback,!
+		Write "Wenst u de wijzigingen doorvoeren (Y/N) ?"
+		Read Doorvoeren,!
+		If ((Doorvoeren = "Y") || (Doorvoeren = "y")){
+			TCOMMIT
+			w !,$C(9),"Wijzigingen doorgevoerd."
+		}Else{
+			TROLLBACK	
+			w !,$C(9),"Wijzigingen NIET doorgevoerd."
+		}
 	}Else{
-		TROLLBACK	
-		w !,$C(9),"Wijzigingen NIET doorgevoerd."
+		TCOMMIT	
+		If Feedback '= "" {
+			 Do SendMiniMail^vhLib(From,MailTo,"ProTime synchronisatie ["_$$$Server_"]",Feedback,0) 
+		}
 	}
 	Quit $$$OK
 	
 Catch Set $ZTRAP = ""
 	TROLLBACK	
-	w !,$C(9),"Wijzigingen NIET doorgevoerd omwille van fout."
-	w $ECODE,!
+	Set Feedback = $C(9)_"Wijzigingen NIET doorgevoerd omwille van fout."_$C(13,10)
+	Set Feedback = Feedback_$ECODE
+	If 'AutomatischDoorvoeren {
+		Write Feedback	
+	}Else{
+		Do SendMiniMail^vhLib(From,MailTo,"ProTime synchronisatie ["_$$$Server_"]",Feedback,0) 
+	}
 	Quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="Synchroniseer">
 <Private>1</Private>
-<ReturnType>%Status</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	
 	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
@@ -125,6 +144,8 @@
 	
 	Set ProTimeWerknemersIt = ##class(TECH.ListIterator).%New(ProTimeWerknemers)
 	
+	Set Feedback = ""
+	
 	While (ProTimeWerknemersIt.HasNext())
 	{
 		Set ProTimeWerknemer = ProTimeWerknemersIt.Next()
@@ -151,7 +172,7 @@
 				If ((Klant.GeefCommercieleStatus() '= ##class(DOM.CRM.enu.CommercieleStatus).NietActief()) ||
 					(Klant.GeefActiefStatus() '= ##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()))
 				{
-					w Klant.GeefNummer(), " : ", Klant.GeefNaam(), $C(9)," => UIT dienst",!
+					Set Feedback = Feedback _ Klant.GeefNummer()_ " : "_ Klant.GeefNaam()_ $C(9)_" => UIT dienst"_$C(13,10)
 					Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).NietActief())
 					Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik())	
 				
@@ -161,26 +182,26 @@
 			}
 			/// 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),"'"_$$LCVT^vhLib(Klant.GeefNaam()) _"' != '"_$$LCVT^vhLib($$$UCase(dtoKlant.KlantNaam)),"'",!
+				Set Feedback = Feedback _ Klant.GeefNummer()_ " : "_ Klant.GeefNaam()_ $C(9)_" => Naam wijziging : "_$C(9)_"'"_$$LCVT^vhLib(Klant.GeefNaam()) _"' != '"_$$LCVT^vhLib($$$UCase(dtoKlant.KlantNaam))_"'"_$C(13,10)
 				Do Klant.ZetNaam(dtoKlant.KlantNaam)
 				Do Persoon.ZetNaam(..CleanUp(ProTimeWerknemer.Naam))
 				Do Persoon.ZetVoornaam(..CleanUp(ProTimeWerknemer.Voornaam))
 			}
 			
 			If ((Klant.GeefTelefoon1() '= dtoKlant.Telefoon1) && (dtoKlant.Telefoon1 '= "") && (dtoKlant.Telefoon1 '= " ")){
-				w Klant.GeefNummer(), " : ", Klant.GeefNaam(), $C(9)," => Telefoon wijziging : ",$C(9),"'"_Klant.GeefTelefoon1() _"' != '"_ dtoKlant.Telefoon1,"'",!
+				Set Feedback = Feedback _ Klant.GeefNummer()_ " : "_ Klant.GeefNaam()_ $C(9)_" => Telefoon wijziging : "_$C(9)_"'"_Klant.GeefTelefoon1() _"' != '"_ dtoKlant.Telefoon1_"'"_$C(13,10)
 				Do Klant.ZetTelefoon1(dtoKlant.Telefoon1)
 				Do Persoon.ZetGSM(dtoKlant.Telefoon1)
 			}	
 			Set dtoKlantAdres = dtoKlant.Adres
 			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,"'",!
+					Set Feedback = Feedback _ Klant.GeefNummer()_ " : "_ Klant.GeefNaam()_$C(9)_" => Adres wijziging : "_$C(13,10)
+					Set Feedback = Feedback _ $C(9)_"Oud : "_$C(9)_"'"_Klant.GeefAdres().GeefStraat()_"', '"_Klant.GeefAdres().GeefPostcode()_"' '"_Klant.GeefAdres().GeefGemeente()_"'"_$C(13,10)
+					Set Feedback = Feedback _ $C(9)_"Nieuw : "_$C(9)_"'"_dtoKlantAdres.Straat_"', '"_dtoKlantAdres.Postcode_"' '"_dtoKlantAdres.Woonplaats_"'"_$C(13,10)
 					Do Klant.ZetAdres(dtoKlantAdres)
 			}ElseIf (IsAdresGewijzigd = -1){
-				w Klant.GeefNummer(), " : ",Klant.GeefNaam(), $C(9), " => Adres in ProTime is leeg !",!	
+				///Set Feedback = Feedback _ Klant.GeefNummer()_ " : "_Klant.GeefNaam()_ $C(9)_ " => Adres in ProTime is leeg !"_$C(13,10)	
 			}
 			Do Klant.Save()
 			Do Persoon.Save()	
@@ -191,7 +212,7 @@
 			If (ProTimeWerknemer.IsInDienst() && (ProTimeWerknemer.Nr '= 1)){
 				Set Klant = KlantAPI.MaakKlant(dtoKlant,##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker())
 				
-				w Klant.GeefNummer(), " : ", Klant.GeefNaam(), $C(9)," => IN dienst.",!
+				Set Feedback = Feedback _ Klant.GeefNummer()_ " : " _ Klant.GeefNaam()_ $C(9)_" => IN dienst."_$C(13,10)
 				
 				/// Bij de klant ook een persoon aanmaken
 				If ($IsObject(Klant)){
@@ -217,7 +238,7 @@
 			}
 		}		
 	}	
-	Quit $$$OK
+	Quit Feedback
 ]]></Implementation>
 </Method>
 
Index: vhConsistency/Checks/Index/KlantIndex.cls.xml
===================================================================
diff -u -r1306 -r1734
--- vhConsistency/Checks/Index/KlantIndex.cls.xml	(.../KlantIndex.cls.xml)	(revision 1306)
+++ vhConsistency/Checks/Index/KlantIndex.cls.xml	(.../KlantIndex.cls.xml)	(revision 1734)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="vhConsistency.Checks.Index.KlantIndex">
 <Description>
-JBL + 2011-05-26</Description>
+JBL + 2011-05-26
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.Index.KlantIndex")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -17,7 +18,11 @@
 
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[		Quit ..CheckIndex()
+<Implementation><![CDATA[
+	Set Status = 1
+	If ('..CheckIndex()) Set Status = 0
+	If ('..CheckKKLenDKL()) Set Status = 0
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -36,11 +41,15 @@
 		{
 			Set Index = ^INDEX("K","KL",Type,Key)
 			/// KKL
-			If ('$Data(^KKL(Index))) {
-				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " vindt geen overeekomst in KKL -> ^KKL("_Index_")"
+			If ('$Data(^KKL(Index,0))) {
+				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " vindt geen overeekomst in KKL -> ^KKL("_Index_",0)"
 				Do ..VoegMeldingToe(Bericht)
 				Set Status = $$$ERROR($$$GeneralError,Bericht)
 				Do ..KillIndex(Type,Key)
+			}ElseIf (Type = 102) && (Key '[ $Piece(^KKL(Index,0),"\",50)){
+				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " komt niet overeen met piece 50 in ^KKL("_Index_",0) = "_$Piece(^KKL(Index,0),"\",50)
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
 			}
 			
 			/// DKL
@@ -50,6 +59,10 @@
 				Do ..VoegMeldingToe(Bericht)
 				Set Status = $$$ERROR($$$GeneralError,Bericht)
 				Do ..KillIndex(Type,Key)
+			}ElseIf (Type = 102) && (Key '[ $Piece(^DKL("K","KL.A",Nr,0),"\",50)){
+				Set Bericht = $C(9)_"^INDEX(K,KL,"_Type_","_Key_")="_Index_ " komt niet overeen met piece 50 in ^DKL(""K"",""KL.A"","_Index_",0) = "_$Piece(^DKL("K","KL.A",Nr,0),"\",50)
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
 			}
 		
 			/// KK1
@@ -63,11 +76,84 @@
 			Set Key = $Order(^INDEX("K","KL",Type,Key))
 		}	
 		Set Type = $Order(^INDEX("K","KL",Type))
+	}	
+		
+	/// Index nagaan en inhoud ervan
+	Set Globals = ##class(%ListOfDataTypes).%New()
+	Do Globals.Insert("^INDEX")
+	Set itGlobals = ##class(TECH.ListIterator).%New(Globals)
+	While itGlobals.HasNext() {
+		Set Global = itGlobals.Next()
+		For  { set Global=$query(@Global) quit:Global=""  
+		 	If ((@(Global) '= $TR(@(Global),"ÄËÜÏÖÁÉÚÍÓÀÈÙÌÒÃÕÂÊÛÎÔ","")) || (Global '= $TR(Global,"ÄËÜÏÖÁÉÚÍÓÀÈÙÌÒÃÕÂÊÛÎÔ",""))){
+			 	Set Melding =  $C(9)_"Verkeerd karakter in "_Global_" = "_@(Global)
+			 	Set Status = $$$ERROR($$$GeneralError) do ..VoegMeldingToe(Melding)
+		 	}
+		}	
 	}
+	
 	Quit Status
 ]]></Implementation>
 </Method>
 
+<Method name="CheckKKLenDKL">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = 1
+	Set KlantNr = ""
+	Set KlantNr = $Order(^KK1(KlantNr))
+	While (KlantNr '= ""){
+		If ($Data(^KK1(KlantNr))'=1) {
+			Set Bericht = $C(9)_"^KK1("_KlantNr_") bevat geen data."
+			Do ..VoegMeldingToe(Bericht)
+			Set Status = $$$ERROR($$$GeneralError,Bericht)
+		}
+		Set KlantIndex = ^KK1(KlantNr)
+		
+		/// KKL
+			Set ResData = $Data(^KKL(KlantIndex))
+			If (ResData=0){
+				Set Bericht = $C(9)_"^KK1("_KlantNr_") vindt geen overeenkomst in ^KKL("_KlantIndex_")"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+			}ElseIf(ResData = 1){
+				Set Bericht = $C(9)_"^KK1("_KlantNr_") vindt geen subnodes in ^KKL("_KlantIndex_")"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+			}
+			
+			/// Nagaan of de Nul node bestaat in KKL
+			If ($Data(^KKL(KlantIndex,0)) = 0){
+				Set Bericht = $C(9)_"^KK1("_KlantNr_") vindt geen overeenkomst voor ^KKL("_KlantIndex_",0)"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+			}		
+		
+		/// DKL
+			Set ResData = $Data(^DKL("K","KL.A",KlantNr))
+			If (ResData=0){
+				Set Bericht = $C(9)_"^KK1("_KlantNr_") vindt geen overeenkomst in ^DKL(""K"",""KL.A"","_KlantNr_")"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+			}ElseIf(ResData = 1){
+				Set Bericht = $C(9)_"^KK1("_KlantNr_") vindt geen subnodes in ^DKL(""K"",""KL.A"","_KlantNr_")"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+			}
+			
+			/// Nagaan of de Nul node bestaat in KKL
+			If ($Data(^KKL(KlantIndex,0)) = 0){
+				Set Bericht = $C(9)_"^KK1("_KlantNr_") vindt geen overeenkomst voor ^DKL(""K"",""KL.A"","_KlantNr_",0)"
+				Do ..VoegMeldingToe(Bericht)
+				Set Status = $$$ERROR($$$GeneralError,Bericht)
+			}
+		
+		Set KlantNr = $Order(^KK1(KlantNr))
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
 <Method name="KillIndex">
 <Description>
 Method uitvoeren indien DoKill boolean aanstaat.</Description>
Index: vhConsistency/Checks/ControleKarakter.cls.xml
===================================================================
diff -u -r1659 -r1734
--- vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 1659)
+++ vhConsistency/Checks/ControleKarakter.cls.xml	(.../ControleKarakter.cls.xml)	(revision 1734)
@@ -2,7 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="vhConsistency.Checks.ControleKarakter">
 <Description>
-JCL + 2011-07-21</Description>
+JCL + 2011-07-21
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,0,"vhConsistency.Checks.ControleKarakter")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhConsistency.Check</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -16,6 +17,7 @@
 <Method name="VoerUit">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	
 	do ..Globals.Insert("^PERS")
 	do ..Globals.Insert("^KKL")
 	do ..Globals.Insert("^KK1")
@@ -31,7 +33,8 @@
 	do ..Globals.Insert("^KTO")
 	do ..Globals.Insert("^KOFKL")
 	do ..Globals.Insert("^KlachtD")
-	do ..Globals.Insert("^vhMAIL")
+	do ..Globals.Insert("^vhMAIL")	
+	do ..Globals.Insert("^INDEX")	
 	
 	set Status = $$$OK
 	
@@ -42,7 +45,7 @@
 			if @Global?.E1.C.E set Status = $$$ERROR($$$GeneralError) do ..VoegMeldingToe(Global)
 		}	
 	}
-		
+	
 	quit Status
 ]]></Implementation>
 </Method>
Index: vhDeploy/JBL/Deploy20110803x1044.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110803x1044.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110803x1044.cls.xml	(revision 1734)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110803x1044">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>[APPS.HR.ProTime] instellen van feedback mailadres.</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.HR.ProTime.FeedbackMailTo","jbl@vanhoecke.be")
+]]></Implementation>
+</Method>
+</Class>
+</Export>