S BL=##class(BL.Blum.LogSteuer).%New() D BL.Initialize(19134) s Ok=BL.Store("1500;;1000",$H) w $$ParseStatus^vhLib(Ok) S BL=##class(BL.Blum.LogSteuer).%New() D BL.Initialize(3551) s Ok=BL.Store("1500;1000",$H) w $$ParseStatus^vhLib(Ok) S BL=##class(BL.Blum.LogSteuer).%New() D BL.Initialize(3551) s Ok=BL.StoreUitzondering(2000,$H) w $$ParseStatus^vhLib(Ok) S BL=##class(BL.Blum.LogSteuer).%New() D BL.Initialize(3551) s Ok=BL.Remove() w $$ParseStatus^vhLib(Ok) S BL=##class(BL.Blum.LogSteuer).%New() D BL.Initialize(3551) s Ok=BL.RemoveUitzondering($H) w $$ParseStatus^vhLib(Ok) S List=##class(BL.Blum.LogSteuer).%AantallenScan(3551,$H,10,1) w $$ListToPieces^vhLib(List,",") S RS=##class(%ResultSet).%New("BL.Blum.LogSteuer:Scan") D RS.Execute() d RS.Next() m Data=RS.Data zw Data d RS.Next() m Data=RS.Data zw Data Prod.Product 1 %RegisteredObject 0 Blum.LogSteuer d ##class(BL.Blum.LogSteuer).Start() 1 De initialisatie opent het Prod.Product object Het BlumLogSteuer object wordt niet geopend bij initializatie Product 1)&&(..oLogSteuer.StartWeek="") ..oLogSteuer.StartWeek=$$CALCDATE^vhDTyp($H,"W","MD") ; defaulten Set ..oLogSteuer.WijzigTijdStip=$ZDT($H,3) Set Status= ..oLogSteuer.%Save() Do $$$ProductSet(..oLogSteuer.Product.%Id(),$$$ScanType,"L") ; Opzetten van ScanType="L" Quit Status ]]> Verwijderen van de ganse logsteuer terug op simulatie Do:$$$PRExist $$$PRSet($$$MaxLogSteuer,"") ; Wissen van de maxlogsteuer Set ..oLogSteuer="" Set Status=##class(Blum.LogSteuer).%DeleteId(PRNr) Quit Status ]]> 1 PRNr Bouwt een $LB met de LogSteuer-aantallen vertrekkend van Week Week wordt gedefault naar de huidige week RefWeek:%Date="",AantalWeken:%Integer=1,MarkUitz:%Boolean=0 Bouwt een $LB met de LogSteuer-aantallen vertrekkend van Week Week wordt gedefault naar de huidige week 1 PRNr:%Integer,RefWeek:%Date="",AantalWeken:%Integer=1,MarkUitz:%Boolean=0 %String LogSteuerScan 1 Berekent het LogSteuerAantal voor een bepaalde week rekeninghoudend met de periodiciteit 1 Week,Aantallen,StartWeek,Periodiciteit,UitzAantal,MarkUitz:%Boolean=0 %Integer Aantallen,StartWeek Wijzigen of toevoegen van een uitzondering Aantal,Week Verwijderen van een uitzondering Week Uitzondering voor een verlof week op 0 zetten Week %Query Week:%Date,MarkUitz:%Boolean=0 Onderdeel van Query Scan 1 0 %Status KortTekst,Aantallen,StartWeek,BL_Blum.LogSteuerScan(Product,:Week,12,:MarkUitz) INTO :PRNr,:KortTekst,:Aantallen,:StartWeek,:Scan FROM Blum.LogSteuer ORDER BY Product->SortKey) &sql(OPEN BLSScan) Quit $$$OK ]]> Onderdeel van Query Scan 1 ScanExecute 0 %Status Onderdeel van Query Scan 1 ScanExecute 0 %Status