Index: EWORDST2.mac.rou
===================================================================
diff -u -r29059 -r67289
--- EWORDST2.mac.rou	(.../EWORDST2.mac.rou)	(revision 29059)
+++ EWORDST2.mac.rou	(.../EWORDST2.mac.rou)	(revision 67289)
@@ -139,3 +139,18 @@
  Quit
  
 
+ShowObjtLPN(CONSNr) 
+ New R,KLNr,VerzW,DOutTime,VerzZ,Aanmaak,OpBon,WMSStat,ToWMS,Picked,Node,Controled
+ New Klant,Bon,Verz,SoftV,SoftVRec,First,Txt,Cnt,VolgNr,OBJTRec
+ Quit:'CONSNr
+ Quit:'$D(^ORDW("D",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")
+ Quit
+