Index: EWORDSM.mac.rou
===================================================================
diff -u -r29059 -r48360
--- EWORDSM.mac.rou	(.../EWORDSM.mac.rou)	(revision 29059)
+++ EWORDSM.mac.rou	(.../EWORDSM.mac.rou)	(revision 48360)
@@ -161,15 +161,19 @@
  
  ; Controle of het magazijn voor een product beschikbaar is
 MagazijnBeschikbaarVoorProduct(PRNr,KLNr,Aantal,AutoSend)
- New Magazijn,MagazijnBeschikbaar,Automatisch,Manueel
- Set KLNr=$G(KLNr),Aantal=$G(Aantal),AutoSend=$G(AutoSend)
- Set MagazijnBeschikbaar=1
- Set Magazijn=$$SOFTV^EWORDSW(PRNr,KLNr,Aantal,"")
- If $L(Magazijn),$D(^EWREC("MAGAZIJN",Magazijn)) {
-	 Set Automatisch=$P(^EWREC("MAGAZIJN",Magazijn),D)
-	 Set Manueel=$P(^EWREC("MAGAZIJN",Magazijn),D,2)
-	 Set MagazijnBeschikbaar=Manueel
- 	 If MagazijnBeschikbaar,AutoSend Set MagazijnBeschikbaar=Automatisch
+ New Magazijn, MagazijnBeschikbaar, Automatisch, Manueel
+ 
+ Set KLNr = $Get(KLNr)
+ Set Aantal = $Get(Aantal)
+ Set AutoSend = $Get(AutoSend)
+ Set MagazijnBeschikbaar = 1
+ Set Magazijn = $$SOFTV^EWORDSW(PRNr, KLNr, Aantal, "")
+ 
+ If $Length(Magazijn), $Data(^EWREC("MAGAZIJN", Magazijn)) {
+	 Set Automatisch = $Piece(^EWREC("MAGAZIJN", Magazijn), D)
+	 Set Manueel = $Piece(^EWREC("MAGAZIJN", Magazijn), D, 2)
+	 Set MagazijnBeschikbaar = Manueel
+ 	 If MagazijnBeschikbaar, AutoSend Set MagazijnBeschikbaar = Automatisch
  }
+ 
  Quit MagazijnBeschikbaar
-
Index: KFO.mac.rou
===================================================================
diff -u -r29059 -r48360
--- KFO.mac.rou	(.../KFO.mac.rou)	(revision 29059)
+++ KFO.mac.rou	(.../KFO.mac.rou)	(revision 48360)
@@ -145,10 +145,14 @@
  ;
  ; Geef alle orders gekoppeld aan een bepaald order
 GetOrderLink(ORDNr,ORDNrs,NoCheckWMS)
- New I,KLNr,OrdRec,OrdLink,LinkORDNr
- Set ORDNrs=$G(ORDNrs),KLNr=$P($G(^KO1(ORDNr,"F")),"\")
+ New I, KLNr, OrdRec, OrdLink, LinkORDNr
+ 
+ Set ORDNrs = $Get(ORDNrs)
+ Set KLNr = $Piece($Get(^KO1(ORDNr, "F")), "\")
+ 
  Do:KLNr
- . Set OrdRec=$G(^KOD(KLNr,"F",ORDNr,1)),OrdLink=$P(OrdRec,D,41)
+ . Set OrdRec = $Get(^KOD(KLNr, "F", ORDNr, 1))
+ . Set OrdLink = $Piece(OrdRec, D, 41)
  . For I=1:1:$L(OrdLink,";") Set LinkORDNr=$P(OrdLink,";",I) Do
  . . Quit:'LinkORDNr
  . . Quit:";"_ORDNrs_";"[(";"_LinkORDNr_";")