Index: vhUnitTest/TECH/TestChangeInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestChangeInfo.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestChangeInfo.cls.xml	(revision 1147)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.TestChangeInfo">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.TestChangeInfo")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestChangeInfo">
+<Implementation><![CDATA[
+	Set ChangeInfo = ##class(vhUnitTest.TECH.UTChangeInfo).%New()
+	Set ChangeInfo.TestProp = "x"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktOp()'="","De aangemaakt op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktDoor()'="","De aangemaakt door werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'="","De gewijzigd op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdDoor()'="","De gewijzigd door werd ingevuld")
+	
+	Set AangemaaktOp = ChangeInfo.GeefAangemaaktOp()
+	Set AangemaaktDoor = ChangeInfo.GeefAangemaaktDoor()
+	Set GewijzigdOp = ChangeInfo.GeefGewijzigdOp()
+	Set GewijzigdDoor = ChangeInfo.GeefGewijzigdDoor()
+	
+	H 1 // Hang nodig zodat gewijzigd op tijd verschilt
+	
+	Set ChangeInfo.TestProp = "y"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktOp(),AangemaaktOp,"Aangemaakt op werd niet gewijzigd")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktDoor(),AangemaaktDoor,"Aangemaakt door werd niet gewijzigd")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'=GewijzigdOp,"Gewijzigd op werd gewijzigd")
+
+	&SQL(DELETE FROM vhUnitTest_TECH.UTChangeInfo)
+]]></Implementation>
+</Method>
+
+<Method name="TestVhChangeInfo">
+<Implementation><![CDATA[
+	Set ChangeInfo = ##class(vhUnitTest.TECH.UTVhChangeInfo).%New()
+	Set ChangeInfo.TestProp = "x"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktOp()'="","De aangemaakt op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefAangemaaktDoor()'="","De aangemaakt door werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'="","De gewijzigd op werd ingevuld")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdDoor()'="","De gewijzigd door werd ingevuld")
+	Do $$$AssertEquals(ChangeInfo.InstanceVersion,1,"Eerste versie")
+	
+	Set AangemaaktOp = ChangeInfo.GeefAangemaaktOp()
+	Set AangemaaktDoor = ChangeInfo.GeefAangemaaktDoor()
+	Set GewijzigdOp = ChangeInfo.GeefGewijzigdOp()
+	Set GewijzigdDoor = ChangeInfo.GeefGewijzigdDoor()
+	
+	H 1 // Hang nodig zodat gewijzigd op tijd verschilt
+	
+	Set ChangeInfo.TestProp = "y"
+	Set Status = ChangeInfo.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(Status),"Het object is opgeslagen")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktOp(),AangemaaktOp,"Aangemaakt op werd niet gewijzigd")
+	Do $$$AssertEquals(ChangeInfo.GeefAangemaaktDoor(),AangemaaktDoor,"Aangemaakt door werd niet gewijzigd")
+	Do $$$AssertTrue(ChangeInfo.GeefGewijzigdOp()'=GewijzigdOp,"Gewijzigd op werd gewijzigd")
+	Do $$$AssertEquals(ChangeInfo.InstanceVersion,2,"Tweede versie")
+
+	&SQL(DELETE FROM vhUnitTest_TECH.UTVhChangeInfo)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r1133 -r1147
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1133)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 1147)
@@ -306,15 +306,15 @@
 	
 	Do $$$AssertTrue($IsObject(Instellingen),"De instellingen zijn een object")
 	
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Maandag")),"De resourcedrempels zijn gezet")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Dinsdag")),"De resourcedrempels zijn gezet")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Woensdag")),"De resourcedrempels zijn gezet")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Donderdag")),"De resourcedrempels zijn gezet")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Vrijdag")),"De resourcedrempels zijn gezet")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Zaterdag")),"De resourcedrempels zijn gezet")
-	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt("Zondag")),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(1)),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(2)),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(3)),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(4)),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(5)),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(6)),"De resourcedrempels zijn gezet")
+	Do $$$AssertTrue($IsObject(Instellingen.ResourceDrempels.GetAt(7)),"De resourcedrempels zijn gezet")
 	
-	Set ResourceDrempels = Instellingen.ResourceDrempels.GetAt("Maandag")
+	Set ResourceDrempels = Instellingen.ResourceDrempels.GetAt(1)
 	
 	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUFrees),"De drempel is ingesteld")
 	Do $$$AssertTrue($IsObject(ResourceDrempels.ALUTeam),"De drempel is ingesteld")
Index: CSC ChangeInfo.prj.xml
===================================================================
diff -u -r1133 -r1147
--- CSC ChangeInfo.prj.xml	(.../CSC ChangeInfo.prj.xml)	(revision 1133)
+++ CSC ChangeInfo.prj.xml	(.../CSC ChangeInfo.prj.xml)	(revision 1147)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC ChangeInfo" LastModified="2011-05-16 16:40:02">
+<Project name="CSC ChangeInfo" LastModified="2011-05-17 08:27:35">
   <Items>
     <ProjectItem name="TECH.ChangeInfo" type="CLS"/>
     <ProjectItem name="TECH.VhChangeInfo" type="CLS"/>
-    <ProjectItem name="zTryout.CSC.ChangePackage.Change2" type="CLS"/>
-    <ProjectItem name="zTryout.CSC.ChangePackage.ChangeInfo" type="CLS"/>
-    <ProjectItem name="zTryout.CSC.ChangePackage.PersKlasse" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.TestChangeInfo" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.UTChangeInfo" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.UTVhChangeInfo" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r1133 -r1147
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 1133)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 1147)
@@ -36,7 +36,7 @@
 
 <Method name="GeefGebruikerInitialen">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "CSC"
+<Implementation><![CDATA[	Quit $$USERNAME^vhUSER(,-1)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/dto/ApplicatieInstellingen.cls.xml
===================================================================
diff -u -r1133 -r1147
--- APPS/Halux/Planning/dto/ApplicatieInstellingen.cls.xml	(.../ApplicatieInstellingen.cls.xml)	(revision 1133)
+++ APPS/Halux/Planning/dto/ApplicatieInstellingen.cls.xml	(.../ApplicatieInstellingen.cls.xml)	(revision 1147)
@@ -18,6 +18,8 @@
 </Property>
 
 <Property name="ResourceDrempels">
+<Description>
+Een lijst van drempels, eentje voor elke dag. Zondag = 1, Maandag = 2, etc...</Description>
 <Type>APPS.Halux.Planning.dto.ResourceDrempels</Type>
 <Collection>list</Collection>
 </Property>
Index: vhUnitTest/TECH/UTChangeInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/UTChangeInfo.cls.xml	(revision 0)
+++ vhUnitTest/TECH/UTChangeInfo.cls.xml	(revision 1147)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.UTChangeInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.ChangeInfo</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="TestProp">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.TECH.UTChangeInfoD</DataLocation>
+<DefaultData>UTChangeInfoDefaultData</DefaultData>
+<IdLocation>^vhUnitTest.TECH.UTChangeInfoD</IdLocation>
+<IndexLocation>^vhUnitTest.TECH.UTChangeInfoI</IndexLocation>
+<StreamLocation>^vhUnitTest.TECH.UTChangeInfoS</StreamLocation>
+<Data name="UTChangeInfoDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AangemaaktDoor</Value>
+</Value>
+<Value name="3">
+<Value>AangemaaktOp</Value>
+</Value>
+<Value name="4">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdOp</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/TECH/UTVhChangeInfo.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/UTVhChangeInfo.cls.xml	(revision 0)
+++ vhUnitTest/TECH/UTVhChangeInfo.cls.xml	(revision 1147)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.UTVhChangeInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.VhChangeInfo</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="TestProp">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^vhUnitTest.T570.UTVhChangeInfoD</DataLocation>
+<DefaultData>UTVhChangeInfoDefaultData</DefaultData>
+<IdLocation>^vhUnitTest.T570.UTVhChangeInfoD</IdLocation>
+<IndexLocation>^vhUnitTest.T570.UTVhChangeInfoI</IndexLocation>
+<StreamLocation>^vhUnitTest.T570.UTVhChangeInfoS</StreamLocation>
+<Data name="UTVhChangeInfoDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AangemaaktDoor</Value>
+</Value>
+<Value name="3">
+<Value>AangemaaktOp</Value>
+</Value>
+<Value name="4">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdOp</Value>
+</Value>
+<Value name="6">
+<Value>InstanceVersion</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: TECH/VhChangeInfo.cls.xml
===================================================================
diff -u -r1133 -r1147
--- TECH/VhChangeInfo.cls.xml	(.../VhChangeInfo.cls.xml)	(revision 1133)
+++ TECH/VhChangeInfo.cls.xml	(.../VhChangeInfo.cls.xml)	(revision 1147)
@@ -11,10 +11,10 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = ##class(TECH.Concurrency.VhPersistent).%OnBeforeSave(insert)
+	Set Status = ##class(TECH.Concurrency.VhPersistent)##this.%OnBeforeSave(insert)
 	If ($$$ISOK(Status))
 	{
-		Set Status = ##class(TECH.ChangeInfo).%OnBeforeSave(insert)
+		Set Status = ##class(TECH.ChangeInfo)##this.%OnBeforeSave(insert)
 	}
 	Quit Status
 ]]></Implementation>
Index: TECH/ChangeInfo.cls.xml
===================================================================
diff -u -r1133 -r1147
--- TECH/ChangeInfo.cls.xml	(.../ChangeInfo.cls.xml)	(revision 1133)
+++ TECH/ChangeInfo.cls.xml	(.../ChangeInfo.cls.xml)	(revision 1147)
@@ -26,19 +26,46 @@
 <Private>1</Private>
 </Property>
 
+<Method name="GeefAangemaaktDoor">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AangemaaktDoor
+]]></Implementation>
+</Method>
+
+<Method name="GeefAangemaaktOp">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..AangemaaktOp
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewijzigdDoor">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GewijzigdDoor
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewijzigdOp">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..GewijzigdOp
+]]></Implementation>
+</Method>
+
 <Method name="%OnBeforeSave">
 <FormalSpec>insert:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	If (insert)
 	{
-		Set AangemaaktDoor = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
-		Set AangemaaktOp = ##class(TECH.DateTime).CurrentTimeStamp()
+		Set ..AangemaaktDoor = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
+		Set ..AangemaaktOp = ##class(TECH.DateTime).CurrentTimeStamp()
 	}
 	
-	Set GewijzigdDoor = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
-	Set GewijzigdOp = ##class(TECH.DateTime).CurrentTimeStamp()
+	If (..%IsModified())
+	{
+		Set ..GewijzigdDoor = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
+		Set ..GewijzigdOp = ##class(TECH.DateTime).CurrentTimeStamp()
+	}
 	
 	Quit $$$OK
 ]]></Implementation>
Index: BL/Derde/Kennis/MailDoelstelling.cls.xml
===================================================================
diff -u -r1133 -r1147
--- BL/Derde/Kennis/MailDoelstelling.cls.xml	(.../MailDoelstelling.cls.xml)	(revision 1133)
+++ BL/Derde/Kennis/MailDoelstelling.cls.xml	(.../MailDoelstelling.cls.xml)	(revision 1147)
@@ -253,9 +253,9 @@
 	Set Txt=$$$fmtBeginRow
 	Set Txt=Txt_Domein
 	If IntExt ="I" Do ; Intern
-	. Set Txt=Txt_$$$fmtFooter("Externe verantw: "_$$USERNAME^vhUSER(ExtVW,1)_" - "_$$EXTDATE^vhDTyp(Datum,"DK")_$S(+Datum=+OorspronkelijkeDatum:"",1:$S(OorspronkelijkeDatum:" ("_$$EXTDATE^vhDTyp(OorspronkelijkeDatum,"DK")_")",1:"")))
+	. Set Txt=Txt_$$$fmtFooter("Externe verantw: "_$$USERNAME^vhUSER(ExtVW,1)_" - "_$S(+Datum=+OorspronkelijkeDatum:"Aangemaakt: ",1:"Laatste wijziging: ")_$$EXTDATE^vhDTyp(Datum,"DK")_$S(+Datum=+OorspronkelijkeDatum:"",1:$S(OorspronkelijkeDatum:" (Aangemaakt: "_$$EXTDATE^vhDTyp(OorspronkelijkeDatum,"DK")_")",1:"")))
 	Else  If IntExt="E" Do ; extern
-	. Set Txt=Txt_$$$fmtFooter("Interne verantw: "_$$USERNAME^vhUSER(IntVW,1)_" - "_$$EXTDATE^vhDTyp(Datum,"DK")_$S(+Datum=+OorspronkelijkeDatum:"",1:$S(OorspronkelijkeDatum:" ("_$$EXTDATE^vhDTyp(OorspronkelijkeDatum,"DK")_")",1:"")))
+	. Set Txt=Txt_$$$fmtFooter("Interne verantw: "_$$USERNAME^vhUSER(IntVW,1)_" - "_$S(+Datum=+OorspronkelijkeDatum:"Aangemaakt: ",1:"Laatste wijziging: ")_$$EXTDATE^vhDTyp(Datum,"DK")_$S(+Datum=+OorspronkelijkeDatum:"",1:$S(OorspronkelijkeDatum:" (Aangemaakt: "_$$EXTDATE^vhDTyp(OorspronkelijkeDatum,"DK")_")",1:"")))
 	Else  Do ; alle
 	. Set Regio=$Piece(^HULP(..%J,"Kennis",VNR,KLID),"\",3)
 	. Set Txt=Txt_$$$fmtFooter("Regio:"_Regio_" - "_"Externe verantw: "_$$USERNAME^vhUSER(ExtVW,1)_" - "_"Interne verantw: "_$$USERNAME^vhUSER(IntVW,1)_" - "_$$EXTDATE^vhDTyp(oKennis.CreationDateAndTime,"DK"))
@@ -360,7 +360,7 @@
 	. . Set OorspronkelijkeDatum=$Piece(Rec,"\",6)
 	. .	Set Txt=$$$fmtBeginRow
 	. . Set Txt=Txt_$$$fmtBody(Domein)
-	. . Set Txt=Txt_$$$fmtFooter("Externe verantw: "_$$USERNAME^vhUSER(ExtVW,1)_" - "_"Interne verantw: "_$$USERNAME^vhUSER(IntVW,1)_" - "_$$EXTDATE^vhDTyp(Datum,"DK")_$S(+Datum=+OorspronkelijkeDatum:"",1:$S(OorspronkelijkeDatum:" ("_$$EXTDATE^vhDTyp(OorspronkelijkeDatum,"DK")_")",1:"")))
+	. . Set Txt=Txt_$$$fmtFooter("Externe verantw: "_$$USERNAME^vhUSER(ExtVW,1)_" - "_"Interne verantw: "_$$USERNAME^vhUSER(IntVW,1)_" - "_$S(+Datum=+OorspronkelijkeDatum:"Aangemaakt: ",1:"Laatste wijziging: ")_$$EXTDATE^vhDTyp(Datum,"DK")_$S(+Datum=+OorspronkelijkeDatum:"",1:$S(OorspronkelijkeDatum:" (Aangemaakt: "_$$EXTDATE^vhDTyp(OorspronkelijkeDatum,"DK")_")",1:"")))
 	. . If Opmerking'="" Set Txt=Txt_$$$fmtFooter(Opmerking)
 	. . Set Txt=Txt_$$$fmtEndRow
 	Quit Txt
FishEye: Tag 1147 refers to a dead (removed) revision in file `zTryout/CSC/ChangePackage/PersKlasse.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1147 refers to a dead (removed) revision in file `zTryout/CSC/ChangePackage/Change2.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1147 refers to a dead (removed) revision in file `zTryout/CSC/ChangePackage/ChangeInfo.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?