Index: APPS/PM/Maatwerk/dto/VhConfig/TbxKenmerken.cls.xml =================================================================== diff -u -r74924 -r75118 --- APPS/PM/Maatwerk/dto/VhConfig/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 74924) +++ APPS/PM/Maatwerk/dto/VhConfig/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 75118) @@ -27,6 +27,10 @@ %String + +%String + + %String @@ -107,7 +111,7 @@ %String - + %String Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/TbxKenmerken.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/TbxKenmerken.cls.xml (revision 0) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/TbxKenmerken.cls.xml (revision 75118) @@ -0,0 +1,158 @@ + + + +DOM.PM.Maatwerk.TBX.impl.Base + + +VhConfig:APPS.PM.Maatwerk.dto.VhConfig +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + ...?? + //frontbevestiging leeg naar enum .Zonder() + + Do ..ConverteerStandaardProperties(.TbxKenmerken, VhConfig) + //Do ..ConverteerUitsparingData(.TbxKenmerken, VhConfig) + Set TbxKenmerken.ProductieWijze = ..GeefProductieWijze(VhConfig.Characteristics.GetAt("ProductionMode")) + Set TbxKenmerken.GUIKenmerken = ..GeefGUIKenmerken(VhConfig) + Set TbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(VhConfig) + + #dim HeeftMat As %Boolean = VhConfig.Characteristics.GetAt("HasCustomMat") + If (HeeftMat = "true") { + #dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ..ConverteerMatKenmerken(.TbxKenmerken, VhConfig) + Do TbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(MatKenmerken, ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) + } + + Quit TbxKenmerken +]]> + + + + +1 + + + + + +1 + + + + +VhConfigProductieWijze:%String +1 +DOM.PM.enu.LBXProductieWijze + + + + +VhConfig:APPS.PM.Maatwerk.dto.VhConfig +1 +DOM.PM.Maatwerk.Calc.Common.impl.TBXGUIKenmerken + + + + +VhConfig:APPS.PM.Maatwerk.dto.VhConfig + + + + + +DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken + + + + + + Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml =================================================================== diff -u -r74916 -r75118 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml (.../PpsKenmerken.cls.xml) (revision 74916) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml (.../PpsKenmerken.cls.xml) (revision 75118) @@ -36,6 +36,8 @@ ElseIf (CharacteristicKey = "GrossDimensionDepth") { Do PpsKenmerken.SetAt(CharacteristicValue, "OrigineleMatDiepte") } ElseIf (CharacteristicKey = "BackHeight") { Do PpsKenmerken.SetAt(CharacteristicValue, "RugHoogte") } ElseIf (CharacteristicKey = "CoverCapsIncluded") { Do PpsKenmerken.SetAt(CharacteristicValue, "AfdekkappenInbegrepen") } + ElseIf (CharacteristicKey = "FrontFixingsIncluded") { } //Nothing + ElseIf (CharacteristicKey = "BottomDeductionForBoxSystemDepth") { } //Nothing Else { do ##class(vhLib.Logger).%New("VhConfig.Converter").Error("EncowayNaarDom", "Geen vertaling gevonden voor PpsKenmerk '" _ CharacteristicKey _ "'.") } Index: DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml =================================================================== diff -u -r74924 -r75118 --- DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml (.../DataMTBXLadeCreator.cls.xml) (revision 74924) +++ DOM/PM/impl/DataM/DataMTBXLadeCreator.cls.xml (.../DataMTBXLadeCreator.cls.xml) (revision 75118) @@ -37,7 +37,7 @@ If (IngegevenKenmerkenAPI.IsSpaceStep(..ProductSpecificatie.GeefIngegevenKenmerken())) { Set Korttekst = ##class(TECH.StringUtils).Replace(..VhConfig.CalculatedCharacteristics.DescriptionShort, "%1", $J(..DossierNummer,4)) } Else { - Set Korttekst = ##class(TECH.StringUtils).Replace(..VhConfig.CalculatedCharacteristics.DescriptionShort, "%1", $J(..DossierNummer,5)) + Set Korttekst = ##class(TECH.StringUtils).Replace(..VhConfig.CalculatedCharacteristics.DescriptionShort, "%1", $J(..DossierNummer,4)) } } Else { Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladBuilder.cls.xml =================================================================== diff -u -r66582 -r75118 --- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladBuilder.cls.xml (.../BladBuilder.cls.xml) (revision 66582) +++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/TBX/BladBuilder.cls.xml (.../BladBuilder.cls.xml) (revision 75118) @@ -6,12 +6,7 @@ 1 APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.BladInhoudBuilderTemplate - Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml =================================================================== diff -u -r72682 -r75118 --- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (.../DataMBouwsteenCreator.cls.xml) (revision 72682) +++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (.../DataMBouwsteenCreator.cls.xml) (revision 75118) @@ -286,7 +286,12 @@ // Iets met sorteren en groeperen //Set GroepAndSort=$$kpcGetDispGroepSort(DItem) // Soms uit fabrtekst, anders uit fabrgroep Set $P(Rec,"\",18) = "FabrGroep1" //$P(GroepAndSort,";",1) ; DItem.EvalTemplAuto("FabrGroep") - Set $P(Rec,"\",19) = ..GeefFabrPrep($Piece(##class(TECH.StringUtils).StripFirstPart(HalffabItem.GeefVolledigeRolNaam(),"."),".",1)) //DItem.EvalTemplAuto("FabrPrep") // -> Deze is zeker nodig + If ((##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarEncoway())) { + Set $P(Rec,"\",19) = ..GeefFabrPrep($Piece(HalffabItem.GeefVolledigeRolNaam(),".",1)) + } Else { + Set $P(Rec,"\",19) = ..GeefFabrPrep($Piece(##class(TECH.StringUtils).StripFirstPart(HalffabItem.GeefVolledigeRolNaam(),"."),".",1)) //DItem.EvalTemplAuto("FabrPrep") // -> Deze is zeker nodig + } + Set $P(Rec,"\",21) = "FabrGroep2" //$P(GroepAndSort,";",2) set $P(Rec,"\",$$$IsMeeTeRekenenInPrijs) = $$$Not(HalffabItem.IsMeeTeRekenenInPrijs) @@ -313,7 +318,7 @@ DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken APPS.PM.Maatwerk.dto.VhConfig.TbxKenmerken 1 0: DomKenmerken.GUIKenmerken.CorpusWandDikte, 1: 0) - Set Kenmerken.IsInnerCabinetWidth = $Select(DomKenmerken.GUIKenmerken.IsBinnenbreedte: "true", 1: "false") + Set Kenmerken.CabinetWallThickness = $Select((DomKenmerken.GUIKenmerken.CorpusWandDikte>0): DomKenmerken.GUIKenmerken.CorpusWandDikte, 1: 0) + Set Kenmerken.IsInnerCabinetWidth = $Select(((DomKenmerken.GUIKenmerken.IsBinnenbreedte = $$$False) && DomKenmerken.GUIKenmerken.CorpusWandDikte>0): "false", 1: "true") ]]> 1 Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml =================================================================== diff -u -r74603 -r75118 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 74603) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 75118) @@ -62,7 +62,7 @@ Set Halffabrikaat = HalffabrikatenListIterator.Next() If ($$$Not(Halffabrikaat.Type = "Included")) { Set Rol = HalffabrikatenListIterator.Key() - Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat) + Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat, ..VhConfigHelper.GeefIngegevenKenmerken().GeefVariant()) } } @@ -72,7 +72,7 @@ Set Halffabrikaat = HalffabrikatenListIterator.Next() If (Halffabrikaat.Type = "Included") { Set Rol = HalffabrikatenListIterator.Key() - Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat) + Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat, ..VhConfigHelper.GeefIngegevenKenmerken().GeefVariant()) } } @@ -81,15 +81,16 @@ -RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat +RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat,Variant:%String +1 -RolnaamVoorCache:%String,RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat +RolnaamVoorCache:%String,RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat,Variant:%String 1 DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem ") #dim ReferentieHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(RolnaamParent)