Index: BL/Legacy/EWORDS6.cls.xml
===================================================================
diff -u -r49998 -r54519
--- BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 49998)
+++ BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 54519)
@@ -11,14 +11,14 @@
  1 -> vandaag
  2 -> morgen (volgende arbeidsdag)]]></Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ORDNr:%String</FormalSpec>
+<FormalSpec>ORDNr:%String,OLNr:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#define AndereDag	0
 	#define Vandaag		1
 	#define Morgen      2
 	
- 	#dim PickDatum As %Date =..GetPickDatum(ORDNr)
+ 	#dim PickDatum As %Date =..GetPickDatum(ORDNr,$G(OLNr))
  	#dim VandaagOfMorgen As %Integer =$$$AndereDag
  	if ##class(TECH.DateTime).IsVandaag(PickDatum) { 
  		set VandaagOfMorgen=$select( ##class(TECH.DateTime).HorologToTime($Horolog) < ..GeefKantelPuntDoorsturenPicking(ORDNr):$$$Vandaag, 1:$$$Morgen)
@@ -29,13 +29,13 @@
 
 <Method name="GetPickDatum">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ORDNr:%String</FormalSpec>
+<FormalSpec>ORDNr:%String,OLNr:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
 	New D,Q,U
 	Set D="\",Q="K",U=";"
-	Quit $$GetPickDatum^EWORDS6(ORDNr)
+	Quit $$GetPickDatum^EWORDS6(ORDNr,$G(OLNr))
 ]]></Implementation>
 </Method>