Index: APPS/Halux/Docs/EtiketBuilder.cls.xml =================================================================== diff -u -r71630 -r71633 --- APPS/Halux/Docs/EtiketBuilder.cls.xml (.../EtiketBuilder.cls.xml) (revision 71630) +++ APPS/Halux/Docs/EtiketBuilder.cls.xml (.../EtiketBuilder.cls.xml) (revision 71633) @@ -124,7 +124,7 @@ ]]> - + DnaCode:%String="",Layout:%String,Device:%String BL.Etiket.LadeKlantEtiket 1 + +APPS.Halux.AAP.DnaCodeService +1 + + + +APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler +1 +1 + + + +APPS.Halux.Docs.EtiketBuilder +1 + + 1 1 @@ -65,6 +81,9 @@ Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() Set ..ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New() Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New() + Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService") + Set ..TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New("") + Set ..EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New() Quit $$$OK ]]> @@ -81,15 +100,15 @@ Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten() If (..BevatBatchSpecialeLade) { - Do ..VoegToeLeegTussenEtiket() + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True) } } Else { Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters) If (..BevatBatchSpecialeLade) { - Do ..VoegToeLeegTussenEtiket() + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True) } } @@ -168,7 +187,9 @@ If (IsExtraEtiketVoorSpecialLades) { #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken() If (..IsSpecialeLade(Ingegevenkenmerken)) { - Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn) + #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket() + #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.QueueID) + Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) } } Else { Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn) @@ -181,10 +202,10 @@ -SequenceInfo:APPS.Halux.common.dto.ProductieSequentie,Batch:APPS.Halux.common.Batch,AantalEtiketten:%Integer,VoorkeurPrinter:%String,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn +SequenceInfo:APPS.Halux.common.dto.ProductieSequentie,Batch:APPS.Halux.common.Batch,AantalEtiketten:%Integer,VoorkeurPrinter:%String,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,DnaCode:%String="" 1 + +DnaCode:%String,Layout:%String,Device:%String + + + DnaCodeIterator:TECH.Iterator,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,IsExtraEtiketVoorSpecialLades:%Boolean=0 1 @@ -211,7 +244,8 @@ #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken() If (..IsSpecialeLade(Ingegevenkenmerken)) { - Do ..GenereerStandaardEtiketMetDnaCode(DnaCode, AantalEtiketten, VoorkeurPrinter, Parameters) + #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket() + Do ..GenereerStandaardEtiketMetDnaCode(DnaCode.DnaCode, LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) } } Else { Do ..GenereerStandaardEtiketMetDnaCode(DnaCode, AantalEtiketten, VoorkeurPrinter, Parameters) @@ -232,6 +266,18 @@ ]]> + +DnaCode:DOM.Halux.AAP.DnaCode,Layout:%String,Device:%String +1 + + + Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie 1 @@ -326,20 +372,14 @@ ]]> - + 1 @@ -380,6 +420,19 @@ %Library.CacheStorage +EtiketPrinterDefaultData + +"EtiketPrinter" + +DnaCodeService + + +TussenEtiketVoorToeleveringBepaler + + +EtiketBuilder + + Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml =================================================================== diff -u -r71632 -r71633 --- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71632) +++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml (.../MaatwerkProductEtiketten.cls.xml) (revision 71633) @@ -138,7 +138,7 @@ } Else { #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer) - Set Etiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenterViaToeleveringEnLijnID(DnaCode, LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) + Set Etiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) } Do ..Etiketten.Insert(Etiket) } Catch { Index: vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml =================================================================== diff -u -r61973 -r71633 --- vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 61973) +++ vhTest/Fake/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71633) @@ -21,6 +21,11 @@ ]]> + + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean