Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml =================================================================== diff -u -r60228 -r60237 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml (.../Test.cls.xml) (revision 60228) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml (.../Test.cls.xml) (revision 60237) @@ -21,8 +21,8 @@ ]]> - - + Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml =================================================================== diff -u -r60228 -r60237 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 60228) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 60237) @@ -21,8 +21,8 @@ ]]> - - + @@ -44,7 +44,7 @@ Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "3", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Drie()) Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "4", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).Vier()) Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "2x2", "Data.Kenmerken.Dwarsverdelingaantal", ##class(DOM.PM.enu.TBXDwarsverdeling).TweeMaalTwee()) - Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "RandomWaarde", "Data.Kenmerken.Dwarsverdelingaantal", "", "Onbekende waarde resulteert in leeg") + Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Lateral divider", "RandomWaarde", "Data.Kenmerken.Dwarsverdelingaantal", ..#OnvertaalbaarKenmerk, "Onbekende waarde resulteert in 'Onvertaalbaar kenmerk'") ]]> Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml =================================================================== diff -u -r60228 -r60237 --- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 60228) +++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 60237) @@ -42,11 +42,7 @@ } If ($$$Not($$$HasLength(EconKenmerk.Name))) { - #dim EconKenmerkName As %String = ..ConvertKenmerkNameBlumNaarEconKenmerk(BlumKenmerk.Name) - If ($$$Not($$$HasLength(EconKenmerkName))) { - Set EconKenmerkName = ..#OnvertaalbaarKenmerk - } - Set EconKenmerk.Name = EconKenmerkName + Set EconKenmerk.Name = ..ConvertKenmerkNameBlumNaarEconKenmerk(BlumKenmerk.Name) } Quit EconKenmerk @@ -98,7 +94,7 @@ Quit:(KenmerkNameBlumKenmerk="version of front") "Data.Kenmerken.VoorWandTypeVanMBinnenlade" Quit:(KenmerkNameBlumKenmerk="type of back") "Data.Kenmerken.Rugwandmateriaal" - Quit "" + Quit ..#OnvertaalbaarKenmerk ]]> @@ -116,7 +112,7 @@ -KenmerkValueBlumKenmerk:%String="" +KenmerkValueBlumKenmerk:%String 1 %String -KenmerkValueBlumKenmerk:%String="" +KenmerkValueBlumKenmerk:%String 1 %String @@ -270,7 +266,7 @@ If ($IsValidNum(KenmerkValueBlumKenmerkMetPunt)) { Set KenmerkValueBlumKenmerk = KenmerkValueBlumKenmerkMetPunt } Else { - Set KenmerkValueBlumKenmerk = "" + Set KenmerkValueBlumKenmerk = ..#OnvertaalbaarKenmerk } Quit KenmerkValueBlumKenmerk