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:"")
Index: PROC1.mac.rou
===================================================================
diff -u -r29059 -r48394
--- PROC1.mac.rou	(.../PROC1.mac.rou)	(revision 29059)
+++ PROC1.mac.rou	(.../PROC1.mac.rou)	(revision 48394)
@@ -42,13 +42,13 @@
  I R="",$G(DLz)="" G Find3
  I '$D(DLz),$L(R) S DLz=R
  S:R'="" DLz=R
- W @F,@FMTK,$P($T(T2),U,$F("NF",DLTaal)),DLz,@FMTk,@F2
+ W @F,@FMTK,$P($T(T2),U,$F("NF",DLTaal)),DLz,@FMTk,@F2 // Gezochte tekst laten pinken: "Zoeken naar : <zoekterm>"
  S DLv=DLo I $D(DLn),DLn>DLo,DLn<(DLo+DLal) S DLv=DLn
  S:DLsl DLv=DLsl S DLn=DLv,DLv=DLv+1,DLzx=""
  Set DLzx=$$UPTRIMAN^vhRtn1(DLz)
  S:DLzx="" DLzx=DLz
  ;Find2 S:'$D(@DLt) DLv=1 S DLi=@DLt I DLv'=DLn,DLi'[DLz,$$UPTRIMAN^vhRtn1(DLi)'[DLzx S DLv=DLv+1 G Find2 ;Zoek aangepast CW 07.03.2008
-Find2 S:'$D(@DLt) DLv=1 S DLi=@DLt I '$$Compare(DLv,DLn,DLi,DLz,DLzx) S DLv=DLv+1 G Find2
+Find2 S:'$D(@DLt) DLv=1 S DLi=@DLt I '$$Compare(DLv,DLn,DLi,DLz,DLzx) S DLv=DLv+1 G Find2 // Alle lijnen in ^HULP(KLNr, ... afzoeken op match.
  G Find4:DLv'=DLn W @F,@F2,"  ",@FMTB,@FMTI,"""",DLz
  W """  ",@FMTK,$P($T(T3),U,$F("NF",DLTaal)),@FMTk,@FMTB,@FMTI,$P($T(T4),U,2),@FMTb,@FMTi
  D IK S FP=DLbl+DLal*100+1 W @F,@F2 S:R="ENTER" R=""
Index: APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml
===================================================================
diff -u -r48038 -r48394
--- APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml	(.../TaakRaadpleegKlant.cls.xml)	(revision 48038)
+++ APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml	(.../TaakRaadpleegKlant.cls.xml)	(revision 48394)
@@ -35,7 +35,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	do ##super()
-	do RAADPL^KLANT(..KlantID,..SubScherm)
+	do RAADPL^KLANT(..KlantID,..SubScherm, ,..OrderID)
 ]]></Implementation>
 </Method>