Index: PRODUKT4.mac.rou
===================================================================
diff -u -r1652 -r1654
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 1652)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 1654)
@@ -73,7 +73,7 @@
 GETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl)
 	new Datum set Datum = ""
 	set Week = $get(Week)
-	set WMSIncl = $get(WMSIncl)
+	set WMSIncl = $get(WMSIncl,1)
 	set:$length(Week) Datum = $$INTDATE^vhDTyp(Week,"DW")
 	set Type = $get(Type)
 	new StockService set StockService = ##class(APPS.common.StockNiveauService).GeefServiceViaPRNr(PRNr,Datum,,WMSIncl)