Index: BL/Flow/Offerte/Build.cls.xml
===================================================================
diff -u -r771 -r787
--- BL/Flow/Offerte/Build.cls.xml	(.../Build.cls.xml)	(revision 771)
+++ BL/Flow/Offerte/Build.cls.xml	(.../Build.cls.xml)	(revision 787)
@@ -1,10 +1,10 @@
 <?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-02-02 15:25:49">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-04 10:44:00">
 <Class name="BL.Flow.Offerte.Build">
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62124,55592.964908</TimeChanged>
+<TimeChanged>62126,38686.150422</TimeChanged>
 <TimeCreated>60207,60266.267121</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -712,11 +712,8 @@
 	. If InsertWijze="IA" Set Sub=$O(..SortCache(Grp,Ln,Sub)),InsertWijze="IB" ; InsertAfter herleiden naar InsertBefore van de volgende
 	. If Sub="" Set InsertWijze="AP", Sub=$O(..SortCache(Grp,Ln,""),-1) ; als Lijn="" dan herleiden naar Append
 	. If InsertWijze="AP" Do ; Append
-	. . Write "before",Sub
 	. . Set Sub=$O(..SortCache(Grp,Ln,""),-1)
-	. . Write " after",Sub
 	. . Set Result=..BuildGroepKey(Grp,Ln,$S(Sub="":0,1:Sub+1),0)
-	. . Write " result",Result,!
 	. Else  Do  ;InsertWijze="IB"
 	. . Set Result=..BuildGroepKey(Grp,Ln,Sub,0)
 	. . ; plaats vrijmaken door move van de achterste
@@ -789,5 +786,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1605122664"/>
+<Checksum value="2770190508"/>
 </Export>