Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r57072 -r57127
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 57072)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 57127)
@@ -120,7 +120,7 @@
 <Description>
 JBL opmerking : ProdIsInKOM mag weg want wordt nergens meer gebruikt, enkel doorgegeven</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[bfrRGID:%Library.String,bfrVolgNr:%Library.String,ProductNr:%Library.String,Dossier:%Library.String,Locatie:%Library.String,PalletID:%Library.String,UserID:%Library.String,&ProdIsInKOM:%Library.String,UseThisTLNr:%Library.String="",StartQty:%Library.Integer,AttachTLNrAndQuitIfLineExists:%Boolean=0,ToeleveringID:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[bfrRGID:%Library.String,bfrVolgNr:%Library.String,ProductNr:%Library.String,Dossier:%Library.String,Locatie:%Library.String,PalletID:%Library.String,UserID:%Library.String,&ProdIsInKOM:%Library.String,UseThisTLNr:%Library.String="",StartQty:%Library.Integer,AttachTLNrAndQuitIfLineExists:%Boolean=0,ToeleveringID:%String="",ToeleveringLijnID:%String=""]]></FormalSpec>
 <Language>cache</Language>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.List</ReturnType>
@@ -173,7 +173,7 @@
  ;Indien AttachTLNrAndQuitIfLineExists=1 en de bufferlijn bestaat reeds, dan koppelen we het toeleveringsnummer
  ;aan deze lijn en laten we voor de rest de scangegevens zoals ze waren
  If AttachTLNrAndQuitIfLineExists && (ToeleveringID'="") && MagTotaalToeleveringRecepteren && (LijnNr'=0) Do  Quit $LB(4,"Product '"_ProductNr_"' gekoppeld aan toelevering '""', scanaantal ongewijzigd.")
- . Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID) 
+ . Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID,ToeleveringLijnID) 
 
  If LijnNr'=0 {
 		If (ToeleveringID="")  {   ;Bufferlijn bestaat reeds, geen assoc toeleveringsnummer meegegeven, inhoud van de lijn gewoon +1
@@ -189,12 +189,12 @@
 			New TotalQty
 			Set TotalQty=..GetTotalQtyViaProdNr(ProductNr,ToeleveringID)
 			Do ..SetBufferQtyDone(bfrRGID,bfrVolgNr,LijnNr,TotalQty)
-			Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID)
+			Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID,ToeleveringLijnID)
 			Set:($LI(Status)>0) Status=$LB(2,"Product '"_ProductNr_"' ingesteld op maximum waarde ("_TotalQty_"). "_$LI(Status,2))
 		}ElseIf (ToeleveringID'="") && 'MagTotaalToeleveringRecepteren{
 			Set Status=..INCBufferQty(bfrRGID,bfrVolgNr,LijnNr)
 			If $LI(Status)=1 {   ;Indien status=2 => dan is de toelevering reeds afgewerkt
-				Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID)
+				Do ..SetBufferAssocToelev(bfrRGID,bfrVolgNr,LijnNr,ToeleveringID,ToeleveringLijnID)
 			}
 		}
  }
@@ -1618,9 +1618,10 @@
 
 <Method name="SetBufferAssocToelev">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String,bfrLijnNr:%Library.String,TLNr:%String</FormalSpec>
+<FormalSpec>bfrRGID:%Library.String,bfrVolgNr:%Library.String,bfrLijnNr:%Library.String,TLNr:%String,ToeleveringLijnNummer:%String=""</FormalSpec>
 <Implementation><![CDATA[
  Set $P(^UPRCP("B",bfrRGID,bfrVolgNr,bfrLijnNr),..#bfrSEP,$$$bsnAssocToelev)=TLNr
+ Set $P(^UPRCP("B",bfrRGID,bfrVolgNr,bfrLijnNr),..#bfrSEP,$$$bsnAssocToelevLijn)=ToeleveringLijnNummer
  Quit
 ]]></Implementation>
 </Method>
Index: UglyPickingCNTs.inc.rou
===================================================================
diff -u -r29059 -r57127
--- UglyPickingCNTs.inc.rou	(.../UglyPickingCNTs.inc.rou)	(revision 29059)
+++ UglyPickingCNTs.inc.rou	(.../UglyPickingCNTs.inc.rou)	(revision 57127)
@@ -203,6 +203,7 @@
 	#Define bsnUserID             7
 	#Define bsnAssocToelev        8
 	#Define bsnAssocCompositeIDs  9
+	#Define bsnAssocToelevLijn   10
 	
 	//-------------------------------------------------------------------
 	// ReceptieProductie