Index: FLOWORD7.mac.rou
===================================================================
diff -u -r41240 -r44496
--- FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 41240)
+++ FLOWORD7.mac.rou	(.../FLOWORD7.mac.rou)	(revision 44496)
@@ -13,7 +13,7 @@
  Set:Land="" Land=$$FADEF^vhRtn1(3)
  Set:Munt="" Munt=$$FADEF^vhRtn1()
  Set Next=""
- Set ORDNr=$$GETNUM^FLOW("KOD","KO1")
+ Set ORDNr=$$GETNUM^FLOW("KOD","KO1",OrdTyp)
  Do ADD^vhLock("^KOD(KLNr,""F"",ORDNr)")
  Set ^KOD(KLNr,"F",ORDNr,0)=101
  Set R="",$P(R,D,36)="",$P(R,D,2)=DT,$P(R,D,3)=OrdRef,$P(R,D,6)=KLNr,$P(R,D,7)=VerzW,$P(R,D,14)=$S(BtwReg:"",1:1)