TECH.RegisteredObject APPS.Halux.Docs.EtiketPrinterBepaler 1 DOM.VKP.OrderAPI 1 DOM.PARTIJ.PartijAPI 1 DOM.AKP.ToeleveringAPI 1 APPS.Halux.Docs.impl.LadeKlantEtiketBuilder 1 BL.PPS.TBX.VHossHelper 1 APPS.Halux.common.impl.VHossService 1 APPS.Halux.AAP.DnaCodeService 1 OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI="" 1 1 %Status 1 OrderID:%String,OrderLijnVolgummer:%String,Aantal:%Integer,VoorkeurPrinter:%String="" BL.Etiket.LadeKlantEtiket ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String="",DnaCode:%String="" BL.Etiket.LadeKlantEtiket kijken of daar ook de if DnaCode = leeg nodig is If DnaCode="" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){ Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, QueueID) Set Aantal = 1 } #dim Etiket As BL.Etiket.LadeKlantEtiket = ..MaatwerkProductEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal, DnaCode) Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij) Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime()) Do ..PrinterInstellen(Etiket,VoorkeurPrinter) Quit Etiket ]]> ToeleveringID:%String,ToeleveringLijnVolgNr:%String,Aantal:%Integer,VoorkeurPrinter:%String="",DnaCode:%String="" BL.Etiket.LadeKlantEtiket ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,BatchID:%String,WPVerpak:DS.PPS.TBX.sub.emWPVerpak,VoorkeurPrinter:%String="",DnaCode:%String="" BL.Etiket.LadeKlantEtiket VHossItem:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo APPS.common.Print.AbstractLabel ProductieInformatie:APPS.Halux.PPS.Activiteit.impl.common.dto.ProductieUitvoeringInfo,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice,Locatie:APPS.Halux.common.enu.Locatie APPS.common.Print.AbstractLabel Etiket:BL.Etiket.LadeKlantEtiket,VoorkeurPrinter:%String 1