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
-