Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r734 -r909
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 734)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 909)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-03 15:16:29">
 <Class name="vhLib.Logging">
 <ClassType>persistent</ClassType>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Persistent</Super>
-<TimeChanged>62082,43099.586734</TimeChanged>
+<TimeChanged>62153,55057.7159</TimeChanged>
 <TimeCreated>61769,47367.516692</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -72,6 +72,18 @@
 <Parameter name="TRUNCATE" value="0"/>
 </Property>
 
+<Property name="DetailTrunc">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=$E({Detail},1,10000)</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="Info">
+<Type>%Stream</Type>
+<Collection>characterstream</Collection>
+</Property>
+
 <Property name="JobID">
 <Type>%String</Type>
 </Property>
@@ -172,7 +184,7 @@
 	If ( scSave ) && ( SendMail ) & ( Niveau '= "D" ) Do
 	. Set Body = oLog.GenMailBody()
 	. Do oLogger.GetMailFields(.From,.lbTo,.Subject,)
-	. Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,,,,,)
+	. Do SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body,1,,,,)
 	
 	If Niveau="D" Do oLog.DebugWindow()
 	
@@ -183,14 +195,16 @@
 <Method name="GenMailBody">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	set Body = ##class(%GlobalCharacterStream).%New()
+	do Body.WriteLine(..Detail)
 	Set Body = ""
 	Set Body = Body_ ..Detail _ $$$CRLF
 	Quit Body
 ]]></Implementation>
 </Method>
 
 <Method name="Init">
-<FormalSpec>Datum,Tijd,Niveau:%String,Groep:%String="",Actie:%String,Detail:%String,ProgLabel:%String</FormalSpec>
+<FormalSpec>Datum,Tijd,Niveau:%String,Groep:%String="",Actie:%String,Detail:%CacheString="",ProgLabel:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Datum = $S($G(Datum)="":+$H,1:Datum)
 	Set ..Tijd = $S($G(Tijd)="":$P($H,",",2),1:Tijd)
@@ -202,8 +216,13 @@
 	Set ..Niveau = $G(Niveau)
 	Set ..JobID = $Job
 	Set ..Actie = $G(Actie)
-	Set ..Detail = $G(Detail)
-	Set ..LessDetail = $extract($translate(..Detail,$$$CRLF,""),1,250)
+
+	if $IsObject(Detail) { set ..Info = Detail }
+	else  {	
+		Set ..Detail = Detail	
+		do ..Info.WriteLine(Detail)
+	}
+	//Set ..LessDetail = $extract($translate(..Detail,$$$CRLF,""),1,250)
 	Set ..ProgLabel = $G(ProgLabel)
 	
 	if ($IsObject($get(%request)))&&(%request.%IsA("%CSP.Request")) {
@@ -384,6 +403,9 @@
 <Value name="12">
 <Value>LessDetail</Value>
 </Value>
+<Value name="13">
+<Value>Info</Value>
+</Value>
 </Data>
 </Storage>
 
@@ -428,5 +450,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="938027189"/>
+<Checksum value="3887527475"/>
 </Export>
Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r734 -r909
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 734)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 909)
@@ -1,10 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-16 13:28:34">
 <Class name="vhLib.Logger">
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62018,32105.307261</TimeChanged>
+<TimeChanged>62138,48570.379282</TimeChanged>
+<TimeCreated>62137,61022.12517</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Groep">
@@ -107,7 +108,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	quit:$$$Not(##class(%Dictionary.CompiledMethod).%ExistsId(ClassName_"||"_Method))
-	new CompiledMethod , ctrParams
+	new CompiledMethod , ctrParams , Param , Values
 	
 	set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method)
 	for ctrParams = 1 : 1 : $listlength(CompiledMethod.FormalSpecParsed) do
@@ -150,6 +151,40 @@
 	quit
 ]]></Implementation>
 </Method>
+
+<Method name="ClearOldLogItems">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Days:%Integer=30</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set OldDateTime = $h-Days	
+	Set Server = $$$Server
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTime AND Server=:Server)	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitTask">
+<Description>
+Maakt de task aan voor de scheduler van caché, dit moet slechts éénmalig worden uitgevoerd
+Do ##class(vhLib.Logger).InitTask()</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Task = ##Class(%SYSTEM.Task).%New()
+	Set Task.Name = "Logging "_$zu(5)_"opkuisen"
+	Set Task.Description = "LogItems opkuisen op "_$zu(5)_" die ouder zijn dan de opgegeven aantal dagen"
+	Set Task.NameSpace = $zu(5)   ; Assign to namespace
+	Set Task.ExecuteCode = "Do ##class(vhLib.Logger).ClearOldLogItems(30)"
+	Set Task.DailyFrequency = 1			;Several times a day
+	Set Task.DailyFrequency = 0		;Once a day
+	Set Task.DailyStartTime = 82800 ; 23h00
+	Set Task.RescheduleOnStart = 1
+	Set Task.ContinueAfterError = 1
+	Set rc = Task.%Save()
+	Quit rc
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2484409336"/>
+<Checksum value="2185134709"/>
 </Export>
Index: vhLib/Class.mac.rou
===================================================================
diff -u -r762 -r909
--- vhLib/Class.mac.rou	(.../Class.mac.rou)	(revision 762)
+++ vhLib/Class.mac.rou	(.../Class.mac.rou)	(revision 909)
@@ -3,22 +3,28 @@
  
  
  
-ConstructClone(oRef,NewClass,ConstructMethod)
+ConstructClone(oRef,NewClass,ConstructMethod,lbSkip)
  
- new arrFrom , arrTo
+ new arrFrom , arrTo , arrHULP
  
  set NewClass = $get(NewClass)
  set:'$Length(NewClass) NewClass = oRef.%ClassName(1)
  
  do arrProperties^vhLib.Class(oRef.%ClassName(1),.arrFrom,"A","A","A")
  do arrProperties^vhLib.Class(NewClass,.arrTo,"A","A","A")
  
- set Property = ""
+ new Property set Property = ""
  for  set Property = $order(arrFrom(Property)) quit:Property=""  do
  . if arrFrom(Property)'=$get(arrTo(Property)) Kill arrFrom(Property)
  for  set Property = $order(arrTo(Property)) quit:Property=""  do  
- . if arrTo(Property)'=$get(arrFrom(Property)) Kill arrTo(Property)
+ . if arrTo(Property)'=$get(arrFrom(Property)) Kill arrFrom(Property)
  
+ new i
+ for i = 1 :1 : $listlength(lbSkip) {
+	set Property = $listget(lbSkip,i)
+	kill:$length(Property) arrFrom(Property) 
+ }
+ new oRefClone
  set oRefClone = $zobjClassMethod(NewClass,$get(ConstructMethod,"%New"))
  Do CopyProperties(oRef,oRefClone,.arrFrom)	
  quit oRefClone
@@ -167,6 +173,7 @@
 BuildarrEmbeddedProperties(ClassName,Property,arrEmbeddedProperties)
  new QuitFlag set QuitFlag = 0
  new Counter set Counter = 1
+ new objClass
  
  while 'QuitFlag
   { if ##class(%Library.CompiledProperty).%ExistsId(ClassName_"."_$piece(Property,".",Counter))
Index: vhLib/Macro.inc.rou
===================================================================
diff -u -r760 -r909
--- vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 760)
+++ vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 909)
@@ -63,6 +63,10 @@
 #define aHasData(%v)                   $D(%v)#10
 #define aHasSubNodes(%v)               $D(%v)>1 
  
+ //Excel format 
+#define ExcelNum(%v) 					$$ExcelNum^vhLib(%v)
+#define ExcelDat(%v) 					$$EXTDATE^vhDTyp(%v,"DK")
+#define ExcelDateAsNum(%v)				%v-21548					
  
  // ListBuilds
 #define LCVT(%v)                       $$LCVT^vhLib(%v)