Index: EWORDSW.mac.rou
===================================================================
diff -u -r59134 -r59321
--- EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59134)
+++ EWORDSW.mac.rou	(.../EWORDSW.mac.rou)	(revision 59321)
@@ -299,7 +299,10 @@
  .. Set $P(SubRec,D,11)=$G(C("SORTKODE"))
  . Set:OLSoftV'[SOLSoftV OLSoftV=OLSoftV_SOLSoftV ; Lijn
  . Set:SoftV'[SOLSoftV SoftV=SoftV_SOLSoftV ; Consolidatie
- . Set $P(SubRec,D,13)=SOLSoftV ;Verwerking Software
+ . 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,2)="W" ; Status = WMS
  . Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SubOLNr)=SubRec
  . Kill Txt