Index: OBJTimpl/Bewaker/PrioriteitControleur.cls.xml
===================================================================
diff -u -r71215 -r71354
--- OBJTimpl/Bewaker/PrioriteitControleur.cls.xml	(.../PrioriteitControleur.cls.xml)	(revision 71215)
+++ OBJTimpl/Bewaker/PrioriteitControleur.cls.xml	(.../PrioriteitControleur.cls.xml)	(revision 71354)
@@ -83,11 +83,9 @@
 	While it.HasNext()
 	{
 		Set ..ORDWHoofding=it.Next()
-		w !,..ORDWHoofding.ConsolidatieNr, " ",..ORDWHoofding.Straat
-		
 		If ..Valid()
 		{
-			w !,"CONTROLE ",..ORDWHoofding.ConsolidatieNr, " ",..ORDWHoofding.StatusWMS
+			;w !,"CONTROLE ",..ORDWHoofding.ConsolidatieNr, " ",..ORDWHoofding.StatusWMS
 			Set:..ORDWHoofding.StatusWMS?1(1"P",1"A",1"C",1"B") ..isGestart=1
 		}
 	}
@@ -153,6 +151,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+		Quit:('($e(..ORDWHoofding.DueOutTimeTxt,10)= ..DueoutDatum)) 0 ; vanuit de query in cache werkt where op DueOutTimeTxt blijkbaar niet... er komen ook records door met niet gevraagde datums (in squirrel wel in orde)
 		Set ORDWStraat=$S(..ORDWHoofding.Straat="":..ORDWHoofding.Klant.StraatNrBus,1:..ORDWHoofding.Straat)
 		Quit:$ZCVT(ORDWStraat,"U")'=..Straat 0
 		Set IsOrgalux=$$ORGALBON^FLOWCHK(..ORDWHoofding.ConsolidatieNr)
Index: OBJTimpl/Bewaker/ORDWIterator.cls.xml
===================================================================
diff -u -r71215 -r71354
--- OBJTimpl/Bewaker/ORDWIterator.cls.xml	(.../ORDWIterator.cls.xml)	(revision 71215)
+++ OBJTimpl/Bewaker/ORDWIterator.cls.xml	(.../ORDWIterator.cls.xml)	(revision 71354)
@@ -23,16 +23,16 @@
 	Set result=##class(%ResultSet).%New("%DynamicQuery:SQL")
 	Set sc=result.Prepare(..GeefSQL())
 	If $$$ISERR(sc) Quit sc
-	Set sc=result.Execute(KlantNr,DueOutDatum) If $$$ISERR(sc) Quit sc
+	Set sc=result.Execute(KlantNr,DueOutDatum) 
+	if $$$ISERR(sc) Quit sc
 	Set ..Iterator=##class(TECH.ResultSetIterator).%New(result)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefSQL">
 <Implementation><![CDATA[
-	Set SQL="select "
-	_ "   ConsolidatieNr"
+	Set SQL="select ConsolidatieNr,DueOutTimeTxt"
 	_ " from flow_orderwms.Hoofding"
 	_ " where isnull(StatusWMS,'')<>'' --in ('W','P','A','C','B')"
 	_ " and Klant=?"
Index: WS/OBJT/WMSBewakerService.cls.xml
===================================================================
diff -u -r71215 -r71354
--- WS/OBJT/WMSBewakerService.cls.xml	(.../WMSBewakerService.cls.xml)	(revision 71215)
+++ WS/OBJT/WMSBewakerService.cls.xml	(.../WMSBewakerService.cls.xml)	(revision 71354)
@@ -28,7 +28,7 @@
 <ReturnType>%Boolean</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	Set Controleur = ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(KlantNr,Straat,DueoutDatum,VerzendWijze,OrgaluxOnly)
+	Set Controleur = ##class(OBJTimpl.Bewaker.PrioriteitControleur).%New(KlantNr,Straat,$P(DueoutDatum,"T",1),VerzendWijze,OrgaluxOnly)
 	Quit Controleur.Controle()
 ]]></Implementation>
 </Method>