Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r64585 -r65360 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 64585) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 65360) @@ -70,6 +70,10 @@ Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct) Do ..ConvertDraagKracht(Product,TBXProduct) Do ..ConverteerProductieWijze(Product,TBXProduct) + + If TBXProduct.Klasse = ##class(DOM.PM.enu.TBXToepassing).Lade() { + Set TBXProduct.RugwandMateriaal = Product.ItemRugwandMateriaal + } Quit TBXProduct ]]> @@ -298,17 +302,17 @@ Set TBXProduct.UitsparingDataBreedteX = 143 Set TBXProduct.UitsparingDataBreedteY = 143 Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 143 - 143 - Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() + //Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() } ElseIf $Piece(Product.ItemSPZK,";",1)="S2" { Set TBXProduct.UitsparingDataBreedteX = 147 Set TBXProduct.UitsparingDataBreedteY = 147 Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 147 - 147 - Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() + //Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() } ElseIf $Piece(Product.ItemSPZK,";",1)="B2" { Set TBXProduct.UitsparingDataBreedteX = 197 Set TBXProduct.UitsparingDataBreedteY = 197 Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 197 - 197 - Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() + //Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() } Else { Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2) Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)