Index: PRODUKT4.mac.rou =================================================================== diff -u -r1665 -r1685 --- PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 1665) +++ PRODUKT4.mac.rou (.../PRODUKT4.mac.rou) (revision 1685) @@ -38,7 +38,7 @@ Set:"SR"[Type R=$$InReceptie(PRNr),InReceptie=$LI(R),Gestockeerd=$LI(R,2) Quit $S(Type="F":FysStock,Type="P":PraStock,Type="T":TeoStock,Type="T-1":TeoM1Stock,Type="R":InReceptie,Type="S":Gestockeerd,1:FysStock_D_PraStock_D_TeoStock_D_TeoM1Stock_D_InReceptie_D_Gestockeerd) ; -xGETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl) +GETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl) ; Type = F:Fysisch; T:Theoretisch; P:Praktisch; R:Recepties; S:Gestockeerd ; Indien week is ingevuld dan $$DYNSTOCK ; WVIncl = inclusief werkvloer - default is WVIncl = 0 @@ -70,7 +70,7 @@ ; Indien Type = "" $P(,D,4) is leeg om de output gelijk te houden met DYNSTOCK Quit $S(Type="F":FysStock,Type="P":PraStock,Type="T":TeoStock,Type="R":InReceptie,Type="S":Gestockeerd,1:FysStock_D_PraStock_D_TeoStock_D_D_InReceptie_D_Gestockeerd) ; -GETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl) +xGETSTOCK(PRNr,Type,Week,WVIncl,WMSIncl) new Datum set Datum = "" set Week = $get(Week) set WMSIncl = $get(WMSIncl,1)