Index: vhTest/Mock/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml =================================================================== diff -u -r64604 -r73425 --- vhTest/Mock/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 64604) +++ vhTest/Mock/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 73425) @@ -59,6 +59,13 @@ ]]> + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +%Boolean + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean Index: APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketSpaceStep.cls.xml =================================================================== diff -u -r62050 -r73425 --- APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketSpaceStep.cls.xml (.../KlantEtiketSpaceStep.cls.xml) (revision 62050) +++ APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketSpaceStep.cls.xml (.../KlantEtiketSpaceStep.cls.xml) (revision 73425) @@ -40,27 +40,39 @@ -UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem 1 %Boolean -UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem 1 %Boolean + + +TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor + + +%Boolean +1 + + + +%Integer +1 + + + +1 +1 +%Status +1 + + + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken + + + + +LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken + + + + +TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + +KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken + + + + +OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken + + + + +TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken + + + + +MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken + + + + +MVXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken + + + + + + Index: DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml =================================================================== diff -u -r64604 -r73425 --- DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 64604) +++ DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI.cls.xml (.../IngegevenKenmerkenTypeAPI.cls.xml) (revision 73425) @@ -64,6 +64,12 @@ %Boolean + +1 +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +%Boolean + + 1 IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml =================================================================== diff -u -r72039 -r73425 --- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 72039) +++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml (.../EtiketPrinter.cls.xml) (revision 73425) @@ -110,33 +110,31 @@ Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New() Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New() - If (..MagUitgevoerdWorden(Batch)) { - If ($$$Not($IsObject(DnaCodeIterator))) { - Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal()) - Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten() - - If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) { - Do ..VoegToeTussenEtiketVoorBewerkingsCenter() - Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True) - } - - } Else { - Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters) - - If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) { - Do ..VoegToeTussenEtiketVoorBewerkingsCenter() - Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True) - } + If ($$$Not($IsObject(DnaCodeIterator))) { + Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal()) + Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten() + + If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) { + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() + Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal(), $$$True) } - Do ..VoegToeEtiketten() - Do ..blLabelPrinter.Print2Bartender() + } Else { + Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters) + + If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) { + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() + Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator, Parameters, $$$True) + } } + + Do ..VoegToeEtiketten() + Do ..blLabelPrinter.Print2Bartender() ]]> -Batch:APPS.Halux.common.Batch +Batch:APPS.Halux.common.Batch,IsProductieWijzeVolledig:%Boolean 1 %Boolean 0) && ..IsPrintenNodig(ToeleveringLijn) { - If (IsExtraEtiketVoorLadeBewerkingcenter) { - #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken() - If (..IsLadeVoorBewerkingcenter(Ingegevenkenmerken)) { - #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket() - #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.SequenceNr) - - Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) + #dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken() + If (..MagUitgevoerdWorden(Batch, ..IngegevenKenmerkenTypeAPI.IsProductieWijzeVolledig(Ingegevenkenmerken))) { + If (IsExtraEtiketVoorLadeBewerkingcenter) { + If (..IsLadeVoorBewerkingcenter(Ingegevenkenmerken)) { + #dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket() + #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchID, SequenceInfo.SequenceNr) + + Do ..GenereerExtraEtiketBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) + } + } Else { + Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn) + Do ..CheckBevatBatchLadeVoorBewerkingcenter(ToeleveringLijn.GeefProductID()) } - } Else { - Do ..GenereerStandaardEtiket(SequenceInfo, Batch, AantalEtiketten, VoorkeurPrinter, ToeleveringLijn) - Do ..CheckBevatBatchLadeVoorBewerkingcenter(ToeleveringLijn.GeefProductID()) } } } Index: APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketten.cls.xml =================================================================== diff -u -r30095 -r73425 --- APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 30095) +++ APPS/Halux/PPS/Activiteit/impl/LBX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 73425) @@ -40,27 +40,39 @@ -UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem 1 %Boolean -UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem 1 %Boolean + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +%Boolean + + + IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel Index: APPS/Halux/PPS/Activiteit/impl/MVX/KlantEtiketten.cls.xml =================================================================== diff -u -r63745 -r73425 --- APPS/Halux/PPS/Activiteit/impl/MVX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 63745) +++ APPS/Halux/PPS/Activiteit/impl/MVX/KlantEtiketten.cls.xml (.../KlantEtiketten.cls.xml) (revision 73425) @@ -40,7 +40,7 @@ -UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.ProductieSequentieItem 1 %Boolean -UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo,Item:APPS.Halux.common.VHOSSProductieSequentieItem 1 %Boolean %ListOfObjects 0) && (..AantalLadesVoorBewerkingCenter <=10)) { - Do ..VoegToeTussenEtiketVoorBewerkingsCenter() - Do ..VoegToeExtraEtikettenLadesBewerkingCenterVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) - } + Do ..VoegToeEtikettenVoorUitvoeringInfoLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) + Do ..ZetAantalLijnenOpTussenEtiket() + + If ((..AantalLadesVoorBewerkingCenter > 0) && (..AantalLadesVoorBewerkingCenter <=10)) { + Do ..VoegToeTussenEtiketVoorBewerkingsCenter() + Do ..VoegToeExtraEtikettenLadesBewerkingCenterVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep) } Quit ..Etiketten @@ -119,8 +117,10 @@ While UitvoeringInfoIt.HasNext(){ #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo = UitvoeringInfoIt.Next() Try { - Do ..VoegToeEtiketVoorUitvoeringInfo(UitvoeringInfo, IsKlantEtiketSpaceStep) - Do ..CheckIsLadeVoorBewerkingcenter(UitvoeringInfo.ProductID) + If ..MagUitgevoerdWorden(UitvoeringInfo) { + Do ..VoegToeEtiketVoorUitvoeringInfo(UitvoeringInfo, IsKlantEtiketSpaceStep) + Do ..CheckIsLadeVoorBewerkingcenter(UitvoeringInfo.ProductID) + } } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() @@ -132,20 +132,22 @@ -UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst +UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo 1 %Boolean 0) { - #dim BatchId As %String = UitvoeringInfoLijst.GetAt(1).BatchID - #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) + #dim BatchId As %String = UitvoeringInfo.BatchID + #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) + + If ((..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) && IsActiefKlantEtikettenMes) { + Set MagUitgevoerdWorden = $$$False - If ((..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) && IsActiefKlantEtikettenMes) { - Set MagUitgevoerdWorden = $$$False + If (UitvoeringInfo.MagEtiketGemaaktWordenopBasisVanProductieWijze) { + Set MagUitgevoerdWorden = $$$True } } @@ -170,7 +172,10 @@ #dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer) #dim Etiket As BL.Etiket.LadeKlantEtiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenter(DnaCode, Product.GeefID(), LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device) - Do ..Etiketten.Insert(Etiket) + + If ..MagUitgevoerdWorden(UitvoeringInfo) { + Do ..Etiketten.Insert(Etiket) + } } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Set UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout() @@ -188,7 +193,7 @@ #dim Etiket As APPS.common.Print.AbstractLabel If $Length(UitvoeringInfo.VHOSSID) { Set Etiket = ..EtiketBuilder.MaakMaatwerkProductInVHossViaVHossProdSeqItem(UitvoeringInfo) - }Else{ + } Else{ #dim ToeleveringID As %String = UitvoeringInfo.ToeleveringID If ..VorigeToeleveringID '= ToeleveringID { Do ..ZetAantalLijnenOpTussenEtiket() @@ -198,6 +203,7 @@ Set ..AantalEtikettenInToelevering = ..AantalEtikettenInToelevering + 1 Set Etiket = ..EtiketBuilder.MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,UitvoeringInfo.ToeleveringLijnID,1,UitvoeringInfo.PrinterID,UitvoeringInfo.SequentieNummer,,,IsKlantEtiketSpaceStep) } + Do ..Etiketten.Insert(Etiket) ]]> Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketUitvoeringInfo.cls.xml =================================================================== diff -u -r29059 -r73425 --- APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketUitvoeringInfo.cls.xml (.../KlantEtiketUitvoeringInfo.cls.xml) (revision 29059) +++ APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketUitvoeringInfo.cls.xml (.../KlantEtiketUitvoeringInfo.cls.xml) (revision 73425) @@ -5,11 +5,15 @@ 1 APPS.Halux.PPS.Activiteit.impl.common.dto.VHossUitvoeringInfo + +%Boolean +1 + + %Library.CacheStorage KlantEtiketUitvoeringInfoDefaultData -listnode "KlantEtiketUitvoeringInfo" KlantSequentieNummer @@ -32,6 +36,9 @@ PrinterID + +MagEtiketGemaaktWordenopBasisVanProductieWijze +