Index: KFO.mac.rou
===================================================================
diff -u -r29059 -r48360
--- KFO.mac.rou	(.../KFO.mac.rou)	(revision 29059)
+++ KFO.mac.rou	(.../KFO.mac.rou)	(revision 48360)
@@ -145,10 +145,14 @@
  ;
  ; Geef alle orders gekoppeld aan een bepaald order
 GetOrderLink(ORDNr,ORDNrs,NoCheckWMS)
- New I,KLNr,OrdRec,OrdLink,LinkORDNr
- Set ORDNrs=$G(ORDNrs),KLNr=$P($G(^KO1(ORDNr,"F")),"\")
+ New I, KLNr, OrdRec, OrdLink, LinkORDNr
+ 
+ Set ORDNrs = $Get(ORDNrs)
+ Set KLNr = $Piece($Get(^KO1(ORDNr, "F")), "\")
+ 
  Do:KLNr
- . Set OrdRec=$G(^KOD(KLNr,"F",ORDNr,1)),OrdLink=$P(OrdRec,D,41)
+ . Set OrdRec = $Get(^KOD(KLNr, "F", ORDNr, 1))
+ . Set OrdLink = $Piece(OrdRec, D, 41)
  . For I=1:1:$L(OrdLink,";") Set LinkORDNr=$P(OrdLink,";",I) Do
  . . Quit:'LinkORDNr
  . . Quit:";"_ORDNrs_";"[(";"_LinkORDNr_";")