Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml =================================================================== diff -u -r67957 -r75118 --- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml (.../Tbx.cls.xml) (revision 67957) +++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Tbx.cls.xml (.../Tbx.cls.xml) (revision 75118) @@ -53,24 +53,22 @@ #dim TbxKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerken = ##class(APPS.PM.Maatwerk.dto.TBXKenmerken).%New() Set ..LegacyKenmerken = ..LegacyConverter.ConverteerEdiNaarLegacy(..EdiConverter.ConverteerEconNaarEdi(Kenmerken)) - If ((##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefBomBolOmleidingTbxNaarDotNet()) || (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefSchaduwBomBolOmleidingTbxNaarDotNet())) { - Set TbxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken) - - If (TbxKenmerken.LadeKleur = "MG-GMA") { - Set TbxKenmerken.LadeKleur = "MG" ; LET OP! LadeKleur "MG" bestaat bij Antaro en bij Mengvorm-A-design. Zie ook EdiKenmerken.DesignCode - } + Set TbxKenmerken = ..ConverteerGegenereerdeProperties(Kenmerken) - Set TbxKenmerken.FrontOndersteuningAantal = Kenmerken.FrontStabilisatorAantal - Set TbxKenmerken.LadeHoogte = Kenmerken.ZijwandHoogte - Set TbxKenmerken.ProductieWijze = ..GeefProductieWijze(Kenmerken) - Set TbxKenmerken.VoorwandVerhogingType = ..GeefVoorwandVerhogingType(Kenmerken) - - Set TbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(Kenmerken) - - Do ..ConverteerUitsparingData(Kenmerken, TbxKenmerken) - Do ..ConverteerMatKenmerken(Kenmerken, TbxKenmerken) + If (TbxKenmerken.LadeKleur = "MG-GMA") { + Set TbxKenmerken.LadeKleur = "MG" ; LET OP! LadeKleur "MG" bestaat bij Antaro en bij Mengvorm-A-design. Zie ook EdiKenmerken.DesignCode } + + Set TbxKenmerken.FrontOndersteuningAantal = Kenmerken.FrontStabilisatorAantal + Set TbxKenmerken.LadeHoogte = Kenmerken.ZijwandHoogte + Set TbxKenmerken.ProductieWijze = ..GeefProductieWijze(Kenmerken) + Set TbxKenmerken.VoorwandVerhogingType = ..GeefVoorwandVerhogingType(Kenmerken) + Set TbxKenmerken.NietMeeleveren = ..GeefNietMeeleveren(Kenmerken) + + Do ..ConverteerUitsparingData(Kenmerken, TbxKenmerken) + Do ..ConverteerMatKenmerken(Kenmerken, TbxKenmerken) + Set TbxKenmerken.LegacyKenmerken = ..LegacyKenmerken Set TbxKenmerken.LadeVariant = "TBX_Antaro" Set TbxKenmerken.VerpakkingType = Kenmerken.VerpakkingType