Index: EWORDST2.mac.rou
===================================================================
diff -u -r67289 -r67712
--- EWORDST2.mac.rou	(.../EWORDST2.mac.rou)	(revision 67289)
+++ EWORDST2.mac.rou	(.../EWORDST2.mac.rou)	(revision 67712)
@@ -144,13 +144,28 @@
  New Klant,Bon,Verz,SoftV,SoftVRec,First,Txt,Cnt,VolgNr,OBJTRec
  Quit:'CONSNr
  Quit:'$D(^ORDW("D",CONSNr))
+ Set OBJTStatus=##class(OBJTimpl.WMSOrder.OphalenOrderInOBJT).%New().GeefStatusVertaald(CONSNr)
  Set Txt=0
  Set VolgNr=""
  ; Aantal LPN
  For  Set VolgNr=$O(^ORDW("D",CONSNr,"OBJT",VolgNr)) Quit:VolgNr=""  Do
  . Set OBJTRec=^ORDW("D",CONSNr,"OBJT",VolgNr)
  . Set Txt=Txt+1,Txt(Txt)= $E($P(OBJTRec,"\",1)_"            ",1,14)_"| "_$E($P(OBJTRec,"\",2)_"               ",1,15)_"| "_$zdt($P(OBJTRec,"\",3),4,2)
  If Txt Do
- . Set R=$$WILD^vhTXTPOP("C;C","OBJT LPN "_CONSNr,"Txt")
+ . Set R=$$WILD^vhTXTPOP("C;C","OBJT "_CONSNr_" : "_OBJTStatus ,"Txt")
  Quit
  
+ZoekObjtLPN() 
+ New LPN,CONSNr
+ Set LPN=$$ASK^vhINP("Geef LPN nr : ",12,"")
+ Set LPN=$ZCVT(LPN,"U")
+ Quit:$L(LPN)<4 
+ Set CONSNr=""
+ Set Found=0
+ For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do  Quit:Found
+ . Set VolgNr="" 
+ . For  Set VolgNr=$O(^ORDW("D",CONSNr,"OBJT",VolgNr)) Quit:VolgNr=""  Do
+ . . Set OBJTRec=^ORDW("D",CONSNr,"OBJT",VolgNr)
+ . . Set:LPN=$REVERSE($E($REVERSE($P(OBJTRec,"\",2)),1,$L(LPN))) Found=1 
+ Do:Found ShowObjtLPN(CONSNr)
+ Quit