Index: EWORDS6.mac.rou =================================================================== diff -u -r51181 -r51319 --- EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 51181) +++ EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 51319) @@ -327,6 +327,7 @@ ; Boekhoudkundige controle? CheckBoekhouding(ORDNr) + Quit:##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("BevestigdAXOrderSluitenActief") 1 ; hack PV New CheckIsOK Set CheckIsOK=$$CheckRembours(ORDNr) Set:CheckIsOK CheckIsOK=$$CheckVooruitBetaling(ORDNr) @@ -437,16 +438,16 @@ Set WVRes=$$CV2MAG^MRP(PRNr,$P($$VerkoopKinderen^PRODUKT4(PRNr,WeekDat),"\",2)) Set WVTekort=$S(WVStockPraStock) - If InStock { ; Product in voorraad, controle op gemiddelde weekverkoop - Set R=^KPR(PRNr,1),GemWVK=$P(R,D,23) - Set GemWVK=GemWVK+$P(GemWVK,"#",2) - Set:GemWVK InStock=(PraStock>(GemWVK+Aantal)) - } + ;If InStock { ; Product in voorraad, controle op gemiddelde weekverkoop + ; Set R=^KPR(PRNr,1),GemWVK=$P(R,D,23) + ; Set GemWVK=GemWVK+$P(GemWVK,"#",2) + ; Set:GemWVK InStock=(PraStock>(GemWVK+Aantal)) + ;} Quit $G(InStock,1) ; Zijn alle magazijnen beschikbaar voor alle gelinkte orders?