Index: EWORDSW.mac.rou
===================================================================
diff -u -r67493 -r67712
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 67493)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 67712)
@@ -355,7 +355,7 @@
  .Set BlockId=$P(R,D,18)
  .Quit:$P(BlockId,";",2)="P"  Quit:$P(BlockId,";",4)'["W"
  .Set Txt=Txt+1,Txt(Txt)=$P(R,D,5)_"~"
- Do:KenAnk KennisAnker(KLNr,,.Txt,1)
+ ;Do:KenAnk KennisAnker(KLNr,,.Txt,1) ; OBJT PV 27/04 doorsturen crashes voor sommige producten en OBJT heeft dit niet nodig
  Merge C=ORDCache
  Set C="O01"
  Set C("ORDNR")=ORDNr
@@ -532,11 +532,12 @@
  ..Set BlockId=$P(R,D,18)
  ..Quit:$P(BlockId,";",2)'="P"  Quit:$P(BlockId,";",4)'["W"
  ..Set Cnt=Cnt+1,C("OLTEKST",Cnt)=$P(R,D,5)_"~"
- .Do KennisAnker(KLNr,PRNr,.Txt,1)
+ .;Do KennisAnker(KLNr,PRNr,.Txt,1) ; OBJT PV 27/04 doorsturen crashes voor sommige producten en OBJT heeft dit niet nodig
  .If $G(Txt) For Txt=1:1:Txt Set Cnt=Cnt+1,C("OLTEKST",Cnt)=Txt(Txt)_"~"
  Quit
  
 KennisAnker(KLNr,PRNr,Local,InclGeneral) 
+ Quit ; OBJT PV 27/04 doorsturen crashes voor sommige producten en OBJT heeft dit niet nodig
  Set lbKenAnk=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(KLNr,.varErrStr,$LB($$$adMagazijnPicking),$S($G(PRNr):$LB(PRNr),1:""),$G(CUserId,$G(QU(1))),,,$G(InclGeneral))
  If $LL(lbKenAnk) For  Kill KenAnk Set KenAnk=$LI(lbKenAnk) Quit:KenAnk=""  Do  Quit:'$LL(lbKenAnk)
  . Set lbKenAnk=$LI(lbKenAnk,2,99)