Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r1074 -r8193
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 1074)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 8193)
@@ -443,10 +443,19 @@
  New TLNr,TLUNr,Cnt
  Set (TLNr,TLUNr)=""
  Set Cnt=0
- For  Set TLNr=$O(@arefPT@(ProductNr,TLNr)) Quit:(TLNr="")  Do
- . For  Set TLUNr=$O(@arefPT@(ProductNr,TLNr,TLUNr)) Quit:(TLUNr="")  Do
- ..  Set Cnt=Cnt+1
-
+ Set TLNr=$O(@arefPT@(ProductNr,TLNr))
+ While TLNr'=""
+ {
+	 #dim InToeleveringVerhoogd As %Boolean = 0
+	Set TLUNr=$O(@arefPT@(ProductNr,TLNr,TLUNr))
+	While (TLUNr'="") && 'InToeleveringVerhoogd
+	{
+		Set Cnt=Cnt+1
+		Set InToeleveringVerhoogd = 1
+		Set TLUNr=$O(@arefPT@(ProductNr,TLNr,TLUNr))	
+	}
+	Set TLNr=$O(@arefPT@(ProductNr,TLNr))	 
+ }
  Quit Cnt
 ]]></Implementation>
 </Method>
@@ -559,7 +568,7 @@
  . ; --- PTSumQtyAvailable=PBSumQtyAvailable->koppelen (tenzij beiden =0)! ---
  . Set PBSumQtyAvailable=##class(BL.MB.UGLYPicking.ReceptieProductie).GETPBSumQtyAvailable(ProductNr)
  . Set PTSumQtyAvailable=##class(BL.MB.UGLYPicking.ReceptieProductie).GETPTSumQtyAvailable(ProductNr,AssocToelev)
- . If (PBSumQtyAvailable=PTSumQtyAvailable) && (PBSumQtyAvailable'=0) Do  Quit
+ . If (PBSumQtyAvailable<=PTSumQtyAvailable) && (PBSumQtyAvailable'=0) Do  Quit
  ..  Set Status=##class(BL.MB.UGLYPicking.ReceptieProductie).KoppelALACARTE(ProductNr)  ;alles maken, sum is toch identiek
  ..  If $LI(Status)>0 Do
  ...   Set KoppelStr=KoppelStr_$C(13,10)_"- Product "_ProductNr_" (gelijk aantal: "_PBSumQtyAvailable_")."