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