Index: APPS/Halux/Docs/EtiketBuilder.cls.xml =================================================================== diff -u -r71677 -r71681 --- APPS/Halux/Docs/EtiketBuilder.cls.xml (.../EtiketBuilder.cls.xml) (revision 71677) +++ APPS/Halux/Docs/EtiketBuilder.cls.xml (.../EtiketBuilder.cls.xml) (revision 71681) @@ -48,8 +48,13 @@ 1 + +APPS.algemeen.BarcodeService +1 + + -OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI="" +OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI="",BarcodeService:APPS.algemeen.BarcodeService="" 1 1 %Status @@ -65,6 +70,7 @@ Set ..VHossService = ##class(APPS.Halux.common.impl.VHossService).%New() Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService") Set ..ProjectSettingsAPI = ##class(DOM.common.impl.ProjectSettingsAPI).%New() + Set ..BarcodeService = $$$Inject(BarcodeService, ##class(APPS.algemeen.BarcodeService).%New()) Quit $$$OK ]]> @@ -125,7 +131,7 @@ -DnaCode:%String="",LadeCode:%String="",Layout:%String,Device:%String +DnaCode:%String="",ProductId:%String,Layout:%String,Device:%String BL.Etiket.LadeKlantEtiket Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml =================================================================== diff -u -r71677 -r71681 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 71677) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 71681) @@ -190,7 +190,7 @@ #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket() #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.SequenceNr) - Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefLadeCode(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) + Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) } } Else { Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn) @@ -217,9 +217,9 @@ -DnaCode:%String,LadeCode:%String,Layout:%String,Device:%String +DnaCode:%String,ProductId:%String,Layout:%String,Device:%String - -DnaCode:DOM.Halux.AAP.DnaCode,LadeCode:%String,Layout:%String,Device:%String -1 - - - Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie 1 Index: vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml =================================================================== diff -u -r71677 -r71681 --- vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml (.../TestEtiketBuilder.cls.xml) (revision 71677) +++ vhUnitTest/APPS/Halux/Docs/TestEtiketBuilder.cls.xml (.../TestEtiketBuilder.cls.xml) (revision 71681) @@ -262,24 +262,29 @@ Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml =================================================================== diff -u -r71677 -r71681 --- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71677) +++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71681) @@ -133,7 +133,7 @@ Try { #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer) - #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, Product.GeefLadeCode(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) + #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) Do ..Etiketten.Insert(Etiket) } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()