Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r39950 -r40462 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 39950) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 40462) @@ -267,6 +267,7 @@ If ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){ Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() } + Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() } Else { Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2) Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3) @@ -276,24 +277,25 @@ If (##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ2,"150","250")) && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){ Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() } + Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() } } ElseIf ..Klasse = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() { - Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() + Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() If $Piece(Product.ItemSPZK,";",1)="SA" { Set TBXProduct.UitsparingDataBreedteX = 143 Set TBXProduct.UitsparingDataBreedteY = 143 Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 143 - 143 - Set TBXProduct.TussenrugMateriaal = ##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.TussenrugMateriaal = ##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.TussenrugMateriaal = ##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)