Implementatie voor LBX. Merk op dat dit geen aparte werkpost is, het is dezelfde werkpost van de Hoffmannzaag voor het geval deze in MVX-mode staat. Dit loopt dan over een MVX- specifieke web service. er staat TBX in packagenaam maar er wordt HoffmannZaag bedoeld. TECH.Error 1 %RegisteredObject,APPS.Halux.PPS.TBXZaag.IWerkpost right APPS.Halux.common.enu.Werkpost 1 %String %String %String vhLib.Logger 1 Halux.MVX.ZAAG Werkpost:%String 1 %Status Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn="",All:%Boolean=0 %XML.DataSet L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String %XML.DataSet BatchKey:%String,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn %XML.DataSet BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug %XML.DataSet %XML.DataSet %XML.DataSet WerklijstItemID:%Integer,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice BL.Sys.LabelPrinter Titel:%String,BodemKleur:%String,BodemHoogte:%Integer,BodemLengte:%Float,BodemBewerking:DOM.PM.enu.TBXBodemBewerking,RugKleur:%String,RugHoogte:%Integer,RugLengte:%Float,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice BL.Sys.LabelPrinter Reden:%String,Duur:%Integer,ZaagID:%String="" d ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostVoorMVX).%New().ZetStatus("Z1",711,"F","L1") WerkPost:APPS.Halux.common.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.PPS.TBXZaag.enu.Status,Output2Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn WerkPost:APPS.Halux.common.enu.Werkpost,ZaagID:%Integer,Motor:APPS.Halux.Opvolging.enu.Motor,Stroom:%Integer 1000 { If (ZaagID = "") { Set ProductID = "" } Else { #dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).OpenId(ZaagID) Set ProductID = WerklijstItem.UitvoeringInfo.ProductID } Do ##class(APPS.Halux.Opvolging.impl.MotorStroom).Registreer(WerkPost,ProductID,Motor,Stroom) } ]]> ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn="" LadePRNr:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String PlaatPRNr:%Integer,Lengte:%Integer,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String QueueID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,HerwerkNaarLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn="" ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float ZaagID:%Integer %String