Index: BL/Flow/Offerte/Build.cls.xml
===================================================================
diff -u -r787 -r1074
--- BL/Flow/Offerte/Build.cls.xml	(.../Build.cls.xml)	(revision 787)
+++ BL/Flow/Offerte/Build.cls.xml	(.../Build.cls.xml)	(revision 1074)
@@ -1,11 +1,9 @@
 <?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-04 10:44:00">
+<Export generator="Cache" version="9">
 <Class name="BL.Flow.Offerte.Build">
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62126,38686.150422</TimeChanged>
-<TimeCreated>60207,60266.267121</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="oOfferte">
@@ -337,11 +335,13 @@
 	For  Set oLijn=..oOfferte.Lijnen.GetNext(.Key) Quit:Key=""  Do 
 	. Quit:'$isObject(oLijn)
 	. Set lbTermijn=oLijn.MinLeverTermijn() ; format $LB(aantal,dagofweek)
-	. ;d WLIP^vhDBG(15,"lbTermijn:"_$$LCVT^vhLib(lbTermijn))
+	. ;d WLIP^vhDBG(195,"lbTermijn:"_$$LCVT^vhLib(lbTermijn))
 	. Set Datum=%blLeverTermijn.GetVroegsteDatumFromTermijn(lbTermijn) ; exclusief transport
-	. ;d WLIP^vhDBG(15,"Vroegstebeschikbaar:"_$$EXTDATE^vhDTyp(Datum,"DKP"))
+	. ;d WLIP^vhDBG(195,"Vroegstebeschikbaar:"_$$EXTDATE^vhDTyp(Datum,"DKP")_" "_Datum)
+	. Set Datum=%blLeverTermijn.GetPickDatumMagazijnGesloten(Datum)
+	. ;d WLIP^vhDBG(195,"Aangepaste Pickdatum"_$$EXTDATE^vhDTyp(Datum,"DKP")_" "_Datum)
 	. Set Datum=%blLeverTermijn.GetVroegsteLevering(Datum) ; inclusief transport
-	. ;d WLIP^vhDBG(15,"Vroegstelevering:"_$$EXTDATE^vhDTyp(Datum,"DKP"))
+	. ;d WLIP^vhDBG(195,"Vroegstelevering:"_$$EXTDATE^vhDTyp(Datum,"DKP"))
 	. Set:Datum>MinDatum MinDatum=Datum
 	
 	; afronden op verzendingswijze
@@ -786,5 +786,4 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2770190508"/>
 </Export>