TECH.RegisteredObject APPS.Verpakking.DoosFactory 1 APPS.Verpakking.Optimizer 1 APPS.Verpakking.DoosAanvuller 1 APPS.Verpakking.KartonRepository 1 WS.APPS.Verpakking.SnijDoosService 1 WS.APPS.Verpakking.Service.MaakSnijRequest 1 vhLib.Logger 1 TECH.DateTime.impl.DateTimeAPI 1 DOM.PM.ProductAPI 1 DOM.PM.ProductTypeAPI 1 DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",SnijDoosService:WS.APPS.Verpakking.SnijDoosService="",SnijRequestMaker:WS.APPS.Verpakking.Service.MaakSnijRequest="",ProductAPI:DOM.PM.ProductAPI="",ProductTypeAPI:DOM.PM.ProductTypeAPI="" 1 1 %Status 1 SnijDoos If ($Length(CallBack) || IsDoorgegevenHerberekenVerpakkingInAdmin) { Do ..MaakEnUpdateDataVoorSnijOpdracht(.SnijData, Doos, ProductId, Aantal, BaseRef, MachineID, Prioriteit, CallBack, IsDoorgegevenHerberekenVerpakkingInAdmin) } If $$$Not(IsDoorgegevenHerberekenVerpakkingInAdmin) { #dim Referentie As %String = $Select($$$Not(SnijData = ""): SnijData.Reference, 1: BaseRef) #dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, Referentie) Do ..LogXmlObject(SnijRequest, "GeefDoos OUT") #dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest) Do ..LogXmlObject(SnijResponse, "GeefDoos IN") #dim RequestXml as %String Do SnijRequest.XMLExportToString(.RequestXml) } } } } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ..Logger.ErrorMail("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos voor product '"_ ProductId _"'. "_Exception.GeefOmschrijving()) } ]]> MachineID:APPS.Verpakking.enu.MachineID 1 APPS.Verpakking.enu.MachineTechnologie MachineID:APPS.Verpakking.enu.MachineID 1 APPS.Verpakking.enu.MachineTechnologie XmlObject:%XML.Adaptor,Actie:%String 1 Doos:APPS.Verpakking.dto.Doos 1 DS.Prod.OptiBox.sub.emSnijDef Doos:APPS.Verpakking.dto.Doos,BaseRef:%String,OptiData:DS.Prod.OptiBox.OptiData,Product:DOM.PM.Product,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,IsHerberekenVerpakkingInAdmin:%Boolean 1 DS.Prod.OptiBox.SnijData Doos:APPS.Verpakking.dto.Doos,BaseRef:%String,Aantal:%Integer,Product:DOM.PM.Product,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String 1 DS.Prod.OptiBox.OptiData 0:ProdQty,1:1) //TBD, wss hardcoderen op 1 Set OptiData.DoosAantal = Aantal #dim SaveStatus As %Status = OptiData.%Save() Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SaveStatus,"Het bewaren van OptiData is niet gelukt.") Quit OptiData ]]> SnijData:DS.Prod.OptiBox.SnijData,Prioriteit:%String,CallBack:%List,OptiData:DS.Prod.OptiBox.OptiData 1 1 %TimeStamp ProductGroep:%String,BoxDataID:%String 1 %Boolean ProductGroep:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,ProductId:%String,Prioriteit:%String,BaseRef:%String,CallBack:%List,IsHerberekenVerpakkingInAdmin:%Boolean 1 1 1