Index: vhLib/Macro.inc.rou
===================================================================
diff -u -r1013 -r1047
--- vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 1013)
+++ vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 1047)
@@ -60,21 +60,30 @@
 #define Contains(%s,%ss)               ($F(%s,%ss)>0)
  
  
- // Arrays
-#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					
  
+ // Arrays
+#define aHasData(%v)                   $D(%v)#10
+#define aHasSubNodes(%v)               $D(%v)>1 
+#def1arg ArrayTT(%r)                   $C(13,10)_$$ArrayToText^vhLib(%r)
+#define MDToText(%o,%p)                $C(13,10)_$$ArrayToText^vhLib(%p,%o,%p)
+ 
  // ListBuilds
 #define LCVT(%v)                       $$LCVT^vhLib(%v)
 #define IsList(%v)                     $$IsList^vhLib(%v)
 #define LBDeleteAt(%lb,%i)             $LI(%lb,1,%i-1)_$LI(%lb,%i+1,-1)
 #define DoLBDeleteAt(%lb,%i)           Set $LI(%lb,%i,%i)=""
 #define DoLBDeleteAtIf(%c,%lb,%i)      Set:(%c) $LI(%lb,%i,%i)=""
+ /*
+ // Gebruik van LBDeleteAt: 
+ // =-=-=-=-=-=-=-=-=-=-=-= 
+ $$$DoLBDeleteAt(MyLB,5)           
+ $$$DoLBDeleteAtIf(Cond,MyLB,5)    
+ If (cond) $$$DoLBDeleteAt(MyLB,5) 
+ */
  
 #define ClassParameter(%v)			   ##class(%Library.CompiledParameter).%OpenId(%v).Default