Index: EWORDS6.mac.rou
===================================================================
diff -u -r55205 -r55372
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 55205)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 55372)
@@ -26,6 +26,7 @@
 	
  	If ($$$Not(PickingDag = ##class(BL.Legacy.EWORDS6.enu.PickingDag).Andere())) {
   		#dim KlantNummer As %String = ##class(BL.Legacy.EWORDS6).GeefKlantNummer(ORDNr, D)
+  		#dim IsKlantOnderRembours As %Boolean = ##class(BL.Legacy.EWORDS6).IsKlantOnderRembours(KlantNummer)
   		
   		Set ORDNrs = $$Cumul(ORDNr)
   		Set WaitORDNrs = $$WachtendeOrders(KlantNummer)
@@ -42,22 +43,36 @@
 	 	
 	 	#dim OrderApi As DOM.VKP.impl.DataM.DataMOrderAPI = ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New()
 	 	#dim PickingOpdrachtInfoLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	 	#dim OrderPickingOpdrachtInfoLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	 	#dim OrderLijnCount, PickingVoorVandaagOrderLijnCount As %Integer
+	 	#dim IsOrderVolledigPickingVoorVandaag As %Boolean
 	 	
 	 	For I=1:1:$Length(ORDNrs,";") {
 		 	Set CumulORDNr = $Piece(ORDNrs,";",I)
 		 	Quit:$$$Not(CumulORDNr)
 
 		 	#dim OrderLijnIterator As TECH.Iterator = OrderApi.GeefOrder(CumulORDNr).GeefOrderLijnIterator()
+		 	Set IsOrderVolledigPickingVoorVandaag = $$$False
+		 	Set OrderLijnCount = 0
+		 	Set PickingVoorVandaagOrderLijnCount = 0
 		 	
 		 	While (OrderLijnIterator.HasNext()) {
 			 	#dim OrderLijn As DOM.VKP.ProductOrderlijn = OrderLijnIterator.Next()
 			 				 	
 			 	If (OrderLijn.%IsA("DOM.VKP.impl.DataM.DataMProductOrderlijn") && $$$Not(OrderLijn.GeefProductID() = "")) {
+				 	Set OrderLijnCount = OrderLijnCount + 1
 			 		If ##class(BL.Legacy.EWORDS6).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(OrderLijn.GeefOrderID(),OrderLijn.GeefLijnVolgNr()) {
-				 		Do PickingOpdrachtInfoLijst.Insert(##class(BL.Legacy.EWORDS.PickingOpdrachtInfo).%New(OrderLijn.GeefAantal(), OrderLijn.GeefLeverdag(), OrderLijn.GeefOrderID(), OrderLijn.GeefID()))
+				 		Set PickingVoorVandaagOrderLijnCount = PickingVoorVandaagOrderLijnCount + 1
+				 		Do OrderPickingOpdrachtInfoLijst.Insert(##class(BL.Legacy.EWORDS.PickingOpdrachtInfo).%New(OrderLijn.GeefAantal(), OrderLijn.GeefLeverdag(), OrderLijn.GeefOrderID(), OrderLijn.GeefID()))
 			 		}
 			 	}
 		 	}
+		 	
+		 	Set IsOrderVolledigPickingVoorVandaag = (OrderLijnCount = PickingVoorVandaagOrderLijnCount)
+		 	
+		 	If ($$$Not(IsKlantOnderRembours && $$$Not(IsOrderVolledigPickingVoorVandaag))) {
+			 	Set PickingOpdrachtInfoLijst = ##class(TECH.ListUtils).Complement(OrderPickingOpdrachtInfoLijst, PickingOpdrachtInfoLijst)
+		 	}
 		}
 		
 		#dim Filters As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
Index: BL/Legacy/EWORDS6.cls.xml
===================================================================
diff -u -r54519 -r55372
--- BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 54519)
+++ BL/Legacy/EWORDS6.cls.xml	(.../EWORDS6.cls.xml)	(revision 55372)
@@ -126,6 +126,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsKlantOnderRembours">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNummer:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.impl.DataM.DataMKlantNative = ##class(DOM.VKP.impl.VerkoopAPI).%New().GeefKlant("K||"_KlantNummer)
+	Quit (Klant.GeefBetalingwijze() = ##class(DOM.VKP.enu.Betalingwijze).Rembours())
+]]></Implementation>
+</Method>
+
 <Method name="BevatOrderOrgalux">
 <FormalSpec>OrderNummer:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>