Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml
===================================================================
diff -u -r36242 -r36332
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 36242)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter/ConverteerProduct/Test.cls.xml (.../Test.cls.xml) (revision 36332)
@@ -61,6 +61,7 @@
Do $$$AssertEquals(WebOrderLijn.ItemBM,"T")
Do $$$AssertEquals(WebOrderLijn.ItemKL,"MG")
Do $$$AssertEquals(WebOrderLijn.ItemRK,"MG")
+ Do $$$AssertEquals(WebOrderLijn.ItemVPK,"P")
]]>
@@ -73,7 +74,7 @@
Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Een()
Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht50()
Set TeConverterenProduct.HeeftZijstabilisering = $$$False
- Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen()
+ Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).V1()
Set TeConverterenProduct.CorpusBreedte = "800"
Set TeConverterenProduct.CorpusWandDikte = "16"
Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Drevel()
@@ -94,14 +95,14 @@
Do $$$AssertEquals(WebOrderLijn.ItemDWV,"1")
Do $$$AssertEquals(WebOrderLijn.ItemDK,"50")
Do $$$AssertFalse(WebOrderLijn.ItemSB)
- Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
Do $$$AssertEquals(WebOrderLijn.ItemCB,"800")
Do $$$AssertEquals(WebOrderLijn.ItemFB,"D")
Do $$$AssertEquals(WebOrderLijn.ItemBX,"INSCHF")
Do $$$AssertEquals(WebOrderLijn.ItemBM,"TOB")
Do $$$AssertEquals(WebOrderLijn.ItemASM,"G")
Do $$$AssertEquals(WebOrderLijn.ItemKL,"BZ")
Do $$$AssertEquals(WebOrderLijn.ItemRK,"BZ")
+ Do $$$AssertEquals(WebOrderLijn.ItemVPK,"S")
]]>
@@ -418,7 +419,7 @@
Set TeConverterenProduct.AantalDwarsverdelingen = ##class(DOM.PM.enu.TBXDwarsverdeling).Twee()
Set TeConverterenProduct.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht65()
Set TeConverterenProduct.HeeftZijstabilisering = $$$True
- Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet()
+ Set TeConverterenProduct.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakkingType).Pallet()
Set TeConverterenProduct.CorpusBreedte = 1000
Set TeConverterenProduct.CorpusWandDikte = 16
Set TeConverterenProduct.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven()
Index: DOM/PM/enu/TBXVerpakkingType/Verwerker.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXVerpakkingType/Verwerker.cls.xml (revision 0)
+++ DOM/PM/enu/TBXVerpakkingType/Verwerker.cls.xml (revision 36332)
@@ -0,0 +1,56 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration
+1
+1
+
+
+1
+TBXVerpakkingType:DOM.PM.enu.TBXVerpakkingType
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+1
+1
+
+
+
+
+
+
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml
===================================================================
diff -u -r36242 -r36332
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 36242)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller/ProductConverter.cls.xml (.../ProductConverter.cls.xml) (revision 36332)
@@ -200,7 +200,7 @@
Do ConvertData.Add("ZijwandVerhogingType","ItemBX", "Set Output = $Case(Input, ""NoGallery"":""ZR"", ""SimpleGallery"":""ER"", ""DesignElement"":""INSCHF"", :Input)")
Do ConvertData.Add("Draagkracht","ItemDK")
Do ConvertData.Add("HeeftZijstabilisering","ItemSB")
- Do ConvertData.Add("VerpakkingType","ItemVPK")
+ Do ConvertData.Add("VerpakkingType","ItemVPK", "Set Output = $Case(Input, ""Pallet"":""P"", ""Probox"":""X"", ""V1"":""S"", :""S"")")
Do ConvertData.Add("GeleiderTechnologie","ItemBM", "Set Output = $Select(Input = ""B"" : ""I"", 1:Input)")
Do ConvertData.Add("LadeKleur","ItemKL", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")
Do ConvertData.Add("LadeKleur","ItemRK", "Set Output = $Select(Input = ""TS"" : ""BZ"", 1:Input)")
Index: DOM/PM/enu/TBXVerpakkingType/AutoComplete.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXVerpakkingType/AutoComplete.cls.xml (revision 0)
+++ DOM/PM/enu/TBXVerpakkingType/AutoComplete.cls.xml (revision 36332)
@@ -0,0 +1,42 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration
+serial
+1
+%SerialObject
+
+
+%String
+"Pallet"
+1
+1
+
+
+
+%String
+"Probox"
+1
+1
+
+
+
+%String
+"V1"
+1
+1
+
+
+
+%String
+"VHoss"
+1
+1
+
+
+
+
+
Index: DOM/PM/enu/TBXVerpakkingType.cls.xml
===================================================================
diff -u
--- DOM/PM/enu/TBXVerpakkingType.cls.xml (revision 0)
+++ DOM/PM/enu/TBXVerpakkingType.cls.xml (revision 36332)
@@ -0,0 +1,48 @@
+
+
+
+
+Gegenereerde klasse via APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils
+datatype
+1
+TECH.Enumeration
+
+
+;V1;Probox;VHoss;Pallet
+
+
+
+;V1;Probox;VHoss;Pallet
+
+
+
+1
+DOM.PM.enu.TBXVerpakkingType
+
+
+
+
+1
+DOM.PM.enu.TBXVerpakkingType
+
+
+
+
+1
+DOM.PM.enu.TBXVerpakkingType
+
+
+
+
+1
+DOM.PM.enu.TBXVerpakkingType
+
+
+
+
+
+