Index: EWORDSM.mac.rou
===================================================================
diff -u -r948 -r1023
--- EWORDSM.mac.rou	(.../EWORDSM.mac.rou)	(revision 948)
+++ EWORDSM.mac.rou	(.../EWORDSM.mac.rou)	(revision 1023)
@@ -128,24 +128,32 @@
  
  ; Controle of alle magazijnen voor een order beschikbaar zijn
 MagazijnBeschikbaar(ORDNr,AutoSend)
- New Context,OrderAPI,Order,Iterator,OrderLijn,KLNr,PRNr,Aantal,Magazijn,MagazijnBeschikbaar,Automatisch,Manueel
+ New Context,OrderAPI,Order,Iterator,OrderLijn,KLNr,PRNr,Aantal,MagazijnBeschikbaar
  Set AutoSend=$G(AutoSend)
  Set Context = ##class(DOM.DomeinContext).Instance()
  Set OrderAPI = Context.GeefOrderAPI()
  Set Order=OrderAPI.GeefOrder(ORDNr)
  Set KLNr=Order.GeefKlantNr()
- Set Iterator = Order.GeefTypeOrderlijnIterator(##class(DOM.OV.enu.OrderlijnType).Product())
+ Set Iterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderLijnType).Product())
  Set MagazijnBeschikbaar=1
  While Iterator.HasNext(),MagazijnBeschikbaar {
 	 Set OrderLijn=Iterator.Next()
 	 Set PRNr=OrderLijn.GeefPRNr()
 	 Set Aantal=OrderLijn.GeefAantal()
-	 Set Magazijn=$$SOFTV^EWORDSW(PRNr,KLNr,Aantal,"")
-	 Continue:Magazijn=""
-	 Continue:'$D(^EWREC("MAGAZIJN",Magazijn))
+	 Set MagazijnBeschikbaar=$$MagazijnBeschikbaarVoorProduct(PRNr,KLNr,Aantal,AutoSend)
+ }
+ Quit MagazijnBeschikbaar
+ 
+ ; 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
+ 	 If MagazijnBeschikbaar,AutoSend Set MagazijnBeschikbaar=Automatisch
  }
  Quit MagazijnBeschikbaar
\ No newline at end of file