Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r67007 -r67082
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 67007)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml	(.../dtoPicklijn.cls.xml)	(revision 67082)
@@ -123,7 +123,7 @@
 	;
 	Set ..KLNr=C("KLNR")
 	Set ..KLNaam=##class(TECH.StringUtils).Replace(C("KLNM"),"/","")
-	Set ..DueOutTime=$zdt(C("DUEOUTTIME"),3)
+	Set ..DueOutTime=..GeefDueOutTime(.C)
 	Set ..Verzendwijze=C("VERZENDW")
 	Set ..LevAdresNaam=C("LEVADRNM")
 	Set ..LevAdresToenaam=C("LEVADRTOENM")
@@ -135,6 +135,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDueOutTime">
+<FormalSpec><![CDATA[&C:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#define Halux 6332
+	#dim DueOut = C("DUEOUTTIME")
+	#dim DueOutTijd as %Numeric = $Piece(DueOut,",",2)
+	;indien halux && dueout != 03:00h
+	If (C("KLNr") = $$$Halux ) && (DueOutTijd '= 10800) {
+		;dan zetten we dueout 18:00h
+		Set DueOutTijd = 18*3600
+		Set $Piece(DueOut,",",2) = DueoutTijd
+	}	
+	Quit $zdt(DueOut,3)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>dtoPicklijnState</State>