Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r44614 -r46156 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 44614) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 46156) @@ -275,7 +275,22 @@ Set TBXProduct.UitsparingDataAantalUitsparingen = $$$If($ListLength(UitsparingData)=6,2,1) - If ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType2() { + If ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType3() { + Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() + Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() + + If (TBXProduct.UitsparingDataAantalUitsparingen = 1) { + Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2) + Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3) + Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,4) + } Else { + Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2) + Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3) + Set TBXProduct.UitsparingDataBreedteM = $ListGet(UitsparingData,4) + Set TBXProduct.UitsparingDataBreedteZ1 = $ListGet(UitsparingData,5) + Set TBXProduct.UitsparingDataBreedteZ2 = $ListGet(UitsparingData,6) + } + } ElseIf ..Klasse = ##class(DOM.PM.enu.TBXToepassing).SifonType2() { Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() If (TBXProduct.UitsparingDataAantalUitsparingen = 1) { Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)