Index: Flow/OrderWMS/Hoofding.cls.xml
===================================================================
diff -u -r1074 -r57981
--- Flow/OrderWMS/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 1074)
+++ Flow/OrderWMS/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 57981)
@@ -372,11 +372,31 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
  Set Tijd=$P(..DueOutTime,",",2)
- If (Tijd<3000)||(Tijd>(19*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010
+ If (Tijd<3000)||(Tijd>(22*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010
  Quit $ZT(Tijd,2)
 ]]></Implementation>
 </Method>
 
+<Method name="GetDueOutSmallOrderLijst">
+<Language>cache</Language>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.String</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
+  ;Indien in het verleden, woordje "NU" ipv de tijd. JoW, ICT-609
+ If ($Piece(..DueOutTime,",",1) < $Piece($H,",",1)){
+	Quit "NU"
+ } elseif (($Piece(DueOutTime,",",1)=  $Piece($H,",",1)) && ($P(..DueOutTime,",",2) <= $P($H,",",2)) ) {
+	Quit "NU"
+ } else {
+ 	Set Tijd=$P(..DueOutTime,",",2)
+ 	;If (Tijd<3000)||(Tijd>(22*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010
+ 	Quit $ZT($Select(Tijd<0 : 0 , Tijd > 86399:86399, 1:Tijd),2) 
+ }
+]]></Implementation>
+</Method>
+
 <Method name="PalletEtiket">
 <FormalSpec>Dev:%Library.String,Magazijn:%Library.String</FormalSpec>
 <Language>cache</Language>