Index: KLANT.mac.rou
===================================================================
diff -u -r40408 -r48394
--- KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 40408)
+++ KLANT.mac.rou	(.../KLANT.mac.rou)	(revision 48394)
@@ -62,13 +62,14 @@
  If '$D(Piece) Set Piece=2
  Quit $P($P($T(@("T"_Ref)),U,Piece),D,$F("NFDE",Taal)-1)
  ;
-RAADPL(KLNr,Screen,NoMod) 
+RAADPL(KLNr,Screen,NoMod,OrderNummer) 
  Set:'$D(Screen) Screen=""
- New (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io,QP,QD,%Q1,KLNr,Screen,NoMod,sJC,sScr,sProgLog,RK,CUserId)
+ New (%ZR,%ZM,Q,QL,QM,QN,QO,QRVG,QT,QTU,QU,QW,QZ,D,DT,TD,DD,DM,DJ,F70,F71,U,boot,cs,master,workst,io,QP,QD,%Q1,KLNr,Screen,NoMod,sJC,sScr,sProgLog,RK,CUserId,OrderNummer)
  Xecute F71
  Set LScreen=Screen,Aktie=""
  If '$D(^KK1(KLNr)) Quit LScreen_D_Aktie
  Set EXTERN=1,PARAM=KLNr_D_Screen
+ Set:($$$Not(""=$Get(OrderNummer))) $Piece(PARAM, D, 7) = "ORD;"_OrderNummer, OrderNummer=""
  Do ^RPLKL
  Set Aktie=$G(Aktie),LScreen=$G(LScreen)
  Set Aktie=$S(Aktie="(":"P",Aktie=")":"N",1:"")