Index: FLOWORD.mac.rou
===================================================================
diff -u -r2617 -r2782
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2617)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2782)
@@ -936,6 +936,13 @@
  Set ^KOD(KLNr,"F",ORDNr,4)=OLUNr+1
  Quit 90+(OLUNr*10)
  ;
+ ; Geef het unieke lijnnummer van een orderlijn
+GeefOrderLijnCode(KlantID,OrderID,OrderLijnID)
+ New Rec,OrderLijnCode
+ Set Rec=^KOD(KlantID,"F",OrderID,OrderLijnID),OrderLijnCode=$P(Rec,D,15)
+ If 'OrderLijnCode Set OrderLijnCode=$$UNIEKLNR(KlantID,OrderID),$P(Rec,D,15)=OrderLijnCode,^KOD(KlantID,"F",OrderID,OrderLijnID)=Rec
+ Quit OrderLijnCode
+ ;
 EWMS(Prog) 
  New EwmsLink,Closed
  Set EwmsLink=0