Index: EWORDSW.mac.rou
===================================================================
diff -u -r59321 -r59835
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59321)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59835)
@@ -299,10 +299,7 @@
  .. Set $P(SubRec,D,11)=$G(C("SORTKODE"))
  . Set:OLSoftV'[SOLSoftV OLSoftV=OLSoftV_SOLSoftV ; Lijn
  . Set:SoftV'[SOLSoftV SoftV=SoftV_SOLSoftV ; Consolidatie
- . If ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(ORDNr).GeefOrderType()="T" Do
- . . Set $P(SubRec,D,13)="A" 	
- . Else  Do		
- . . Set $P(SubRec,D,13)=SOLSoftV ;Verwerking Software												
+ . Set $P(SubRec,D,13)=SOLSoftV ;Verwerking Software
  . Set $P(SubRec,D,2)="W" ; Status = WMS
  . Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SubOLNr)=SubRec
  . Kill Txt