Index: vhTest/Fake/APPS/EDI/common/impl/LegacyConverter.cls.xml =================================================================== diff -u -r39497 -r54373 --- vhTest/Fake/APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 39497) +++ vhTest/Fake/APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 54373) @@ -14,6 +14,13 @@ ]]> + + +%Base + + + Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy APPS.EDI.common.dto.v001.LadeTBX Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml =================================================================== diff -u -r51801 -r54373 --- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml (.../Test.cls.xml) (revision 51801) +++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml (.../Test.cls.xml) (revision 54373) @@ -65,6 +65,7 @@ Do $$$AssertEquals(GeconverteerdProduct.MatKleur,##class(DOM.PM.enu.MATKleur).Antraciet()) Do $$$AssertEquals(GeconverteerdProduct.LadeKleur,##class(DOM.PM.enu.TBXLadeKleur).BZ()) Do $$$AssertEquals(GeconverteerdProduct.LadeHoogte,##class(DOM.PM.enu.TBXLadehoogte).M()) + Do $$$AssertEquals(GeconverteerdProduct.DesignCode,"A") ]]> Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml =================================================================== diff -u -r54227 -r54373 --- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 54227) +++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml (.../LegacyNaarEdi.cls.xml) (revision 54373) @@ -368,6 +368,7 @@ Do ConvertData.Add("ItemBM","GeleiderTechnologie", "Set Output = $Select(Input = ""I"" : ""B"", 1:Input)") Do ConvertData.Add("ItemKL","LadeKleur") Do ConvertData.Add("ItemVPK","VerpakkingType", "Set Output = $Case(Input, ""P"":""Pallet"", ""X"":""Probox"", ""Y"":""Probox"", ""S"":""V1"",""O"":""Procom"",""C"":""Procom"",""A"":""VHoss"",""B"":""VHoss"", :""V1"")") + Do ConvertData.Add("ItemDC","DesignCode") Quit ConvertData ]]> Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml =================================================================== diff -u -r46156 -r54373 --- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 46156) +++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml (.../EdiNaarLegacy.cls.xml) (revision 54373) @@ -58,9 +58,7 @@ 1 - @@ -368,6 +366,7 @@ Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""VHoss"":""B"",""Procom"":""O"", ""Probox"":""X"", ""V1"":""S"")") Do ConvertData.Add("GeleiderTechnologie","ItemBM", "Set Output = $Select(Input = ""B"" : ""I"", 1:Input)") Do ConvertData.Add("LadeKleur","ItemKL") + Do ConvertData.Add("DesignCode","ItemDC") Quit ConvertData ]]> Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml =================================================================== diff -u -r51801 -r54373 --- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 51801) +++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml (.../LadeTBX.cls.xml) (revision 54373) @@ -12,6 +12,7 @@ Set Resultaat.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder() Set Resultaat.BodemKleur = ##class(DOM.PM.enu.TBXBodemKleur).Wit() Set Resultaat.CorpusBreedte = 600 + Set Resultaat.DesignCode = ##class(DOM.PM.enu.TBXDesigncode).Antaro() Set Resultaat.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30() Set Resultaat.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta() Set Resultaat.FrontOndersteuningAantal = "" Index: vhTest/Mock/APPS/EDI/common/impl/LegacyConverter.cls.xml =================================================================== diff -u -r39497 -r54373 --- vhTest/Mock/APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 39497) +++ vhTest/Mock/APPS/EDI/common/impl/LegacyConverter.cls.xml (.../LegacyConverter.cls.xml) (revision 54373) @@ -3,12 +3,18 @@ Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. -Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt -Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur. +Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt 1 APPS.EDI.common.impl.LegacyConverter,vhTest.Mock.TECH.Object.ObjectConverter right + + +%Base + + + Product:APPS.EDI.common.dto.v001.LadeTBX APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy