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 + + + + + +