Index: FLOWTOE.mac.rou
===================================================================
diff -u -r1079 -r3289
--- FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 1079)
+++ FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 3289)
@@ -495,6 +495,13 @@
  Set ^KTO(LEVNr,TOENr,4)=TLUNr+1
  Quit TLUNr*100
  ;
+ ; Geef het unieke lijnnummer van een toeleveringlijn
+GeefToeleveringLijnCode(LeverancierID,ToeleveringID,ToeleveringLijnID)
+ New Rec,ToeleveringLijnCode
+ Set Rec=^KTO(LeverancierID,ToeleveringID,ToeleveringLijnID),ToeleveringLijnCode=$P(Rec,D,15)
+ If 'ToeleveringLijnCode Set ToeleveringLijnCode=$$UNIEKLNR(LeverancierID,ToeleveringID),$P(Rec,D,15)=ToeleveringLijnCode,^KTO(LeverancierID,ToeleveringID,ToeleveringLijnID)=Rec
+ Quit ToeleveringLijnCode
+ ;
  ; Markeer de toeleveringlijn als urgent
 MarkUrgent(TOENr,TLUNr)
  New LEVNr,TLNr,RCPNr