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)