Index: ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml =================================================================== diff -u -r39319 -r39324 --- ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 39319) +++ ECONimpl/PM/Maatwerk/EdiConverter/EdiNaarEcon.cls.xml (.../EdiNaarEcon.cls.xml) (revision 39324) @@ -40,6 +40,7 @@ Set Eigenschappen.Toepassing = Product.Klasse Set Eigenschappen.Variant = "TBX" + Do ..ConverteerFrontOndersteuning(Product, .Eigenschappen) Do ..ConverteerRugHoogte(Product, .Eigenschappen) Do ..ConverteerNietMeeleveren(Product, .Eigenschappen) Do ..ConverteerZijwand(Product, .Eigenschappen) @@ -48,6 +49,21 @@ ]]> + + +1 + + + 1 Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml =================================================================== diff -u -r39252 -r39324 --- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 39252) +++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 39324) @@ -14,6 +14,8 @@ Set Resultaat.CorpusBreedte = 600 Set Resultaat.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30() Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta() + Set Resultaat.FrontOndersteuningAantal = "" + Set Resultaat.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto() Set Resultaat.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion() Set Resultaat.GreepEnMeenemer = "No" Set Resultaat.HeeftDwarsverdeling = $$$False Index: ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml =================================================================== diff -u -r39317 -r39324 --- ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39317) +++ ECONimpl/PM/Maatwerk/EdiConverter/EconNaarEdi.cls.xml (.../EconNaarEdi.cls.xml) (revision 39324) @@ -41,6 +41,7 @@ Set Eigenschappen.AantalDwarsverdelingen = Product.DwarsverdelingAantal + Do ..ConverteerFrontOndersteuning(Product, .Eigenschappen) Do ..ConverteerRugHoogte(Product, .Eigenschappen) Do ..ConverteerNietMeeleveren(Product, .Eigenschappen) Do ..ConverteerZijwand(Product, .Eigenschappen) @@ -74,6 +75,15 @@ ]]> + + +1 + + + 1 Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r39219 -r39324 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39219) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39324) @@ -101,11 +101,17 @@ 1 Index: vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r39319 -r39324 --- vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39319) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 39324) @@ -16,6 +16,8 @@ Set TbxKenmerken.DwarsverdelingAantal = ##class(ECON.PM.Maatwerk.enu.TBXDwarsverdelingAantal).Zonder() Set TbxKenmerken.Familie = "Lade" Set TbxKenmerken.FrontBevestiging = ##class(ECON.PM.Maatwerk.enu.TBXFrontBevestiging).Inserta() + Set TbxKenmerken.FrontOndersteuningType = ##class(ECON.PM.Maatwerk.enu.TBXFrontOndersteuningType).Auto() + Set TbxKenmerken.FrontOndersteuningAantal = "" Set TbxKenmerken.GeleiderTechnologie = ##class(ECON.PM.Maatwerk.enu.TBXGeleiderTechnologie).Blumotion() Set TbxKenmerken.GreepEnMeenemer = ##class(ECON.PM.Maatwerk.enu.TBXGreepEnMeenemer).Zonder() Set TbxKenmerken.HeeftAfwijkendeRughoogte = $$$False Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml =================================================================== diff -u -r39217 -r39324 --- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 39217) +++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 39324) @@ -110,7 +110,11 @@ If ##class(TECH.StringUtils).Equals(Product.FrontOndersteuningAantal, 1,2,3) { Set TBXProduct.ItemFS = Product.FrontOndersteuningAantal } ElseIf (Product.FrontOndersteuningAantal="") { - Set TBXProduct.ItemFS = "A" + If Product.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto(){ + Set TBXProduct.ItemFS = "A" + } Else { + Set TBXProduct.ItemFS = "HS" + } } ]]> Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml =================================================================== diff -u -r39223 -r39324 --- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 39223) +++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 39324) @@ -86,6 +86,14 @@ } Do ..Converter.Convert(Product,Eigenschappen,..LadeEigenschappenConverteerOptiesTBX) + If ##class(TECH.StringUtils).Equals(Product.FrontOndersteuningAantal, 1,2,3) { + Set Eigenschappen.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontStabilisator() + Set Eigenschappen.FrontOndersteuningAantal = Product.FrontOndersteuningAantal + } ElseIf (Product.FrontOndersteuningAantal="") { + Set Eigenschappen.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Auto() + Set Eigenschappen.FrontOndersteuningAantal = "" + } + If (KlantId = ##class(DOM.VKP.enu.Klant).Labonorm()) && (Product.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet()) { Set Eigenschappen.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Procom() } @@ -187,6 +195,8 @@ #dim PropertyName As %String = PropertyIterator.Next() Continue:PropertyName="NietMeeleveren" Continue:PropertyName="TussenrugMateriaal" + Continue:PropertyName="FrontOndersteuningAantal" + Continue:PropertyName="FrontOndersteuningType" Do ..ConverterData.Add(PropertyName,PropertyName) }