Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml =================================================================== diff -u -r60095 -r60228 --- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 60095) +++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 60228) @@ -20,9 +20,9 @@ side stabiliser - + %String -Onvertaalbare BlumKenmerkName +Onvertaalbaar kenmerk @@ -44,7 +44,7 @@ If ($$$Not($$$HasLength(EconKenmerk.Name))) { #dim EconKenmerkName As %String = ..ConvertKenmerkNameBlumNaarEconKenmerk(BlumKenmerk.Name) If ($$$Not($$$HasLength(EconKenmerkName))) { - Set EconKenmerkName = ..#OnvertaalbareBlumKenmerkName + Set EconKenmerkName = ..#OnvertaalbaarKenmerk } Set EconKenmerk.Name = EconKenmerkName } @@ -233,7 +233,7 @@ Set EconKenmerk.Value = ##class(APPS.PM.enu.LBXMeenemerSet).VolledigeSet() } } ElseIf (LadeType = "TBX") { - Do ##class(TECH.ExceptionHandler).%New().Throw(##class(TECH.Exceptions.UnimplementedException).%New("Het BlumKenmerk '"_BlumKenmerk.Name_"', zijnde 'MeenemerSet' in Caché, is voor TBX nog niet voorzien. ")) + Set EconKenmerk.Value = ..#OnvertaalbaarKenmerk } ]]> Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml =================================================================== diff -u -r60077 -r60228 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 60077) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Tbx/Test.cls.xml (.../Test.cls.xml) (revision 60228) @@ -3,9 +3,9 @@ vhUnitTest.TestCase - + %String -Onvertaalbare BlumKenmerkName +Onvertaalbaar kenmerk @@ -21,11 +21,16 @@ ]]> - - + + + + + Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml =================================================================== diff -u -r60214 -r60228 --- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml (.../OCCKenmerkenConverter.cls.xml) (revision 60214) +++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter.cls.xml (.../OCCKenmerkenConverter.cls.xml) (revision 60228) @@ -3,9 +3,9 @@ TECH.Mockable - + %String -Onvertaalbare BlumKenmerkName +Onvertaalbaar kenmerk @@ -59,7 +59,7 @@ } Else { Set EconKenmerk = ..BlumNaarEconKenmerkenConverter.ConvertBlumNaarEconKenmerk(BlumKenmerk, LadeType) Do EconConfiguratieArray.SetAt(EconKenmerk.Value, EconKenmerk.Name) - If (EconKenmerk.Name = ..#OnvertaalbareBlumKenmerkName) { + If (EconKenmerk.Name = ..#OnvertaalbaarKenmerk) { Do ..MeldingenAanGebruiker.Insert("Conversie mislukt voor BlumKenmerk: '"_BlumKenmerk.Name_"' met Waarde: '"_BlumKenmerk.Value_"'. ") } } Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml =================================================================== diff -u -r59932 -r60228 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml (.../Test.cls.xml) (revision 59932) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Lbx/Test.cls.xml (.../Test.cls.xml) (revision 60228) @@ -3,9 +3,9 @@ vhUnitTest.TestCase - + %String -Onvertaalbare BlumKenmerkName +Onvertaalbaar kenmerk @@ -21,8 +21,8 @@ ]]> - - + Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml =================================================================== diff -u -r60214 -r60228 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 60214) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 60228) @@ -13,9 +13,9 @@ RandomKenmerkValue - + %String -Onvertaalbare BlumKenmerkName +Onvertaalbaar kenmerk @@ -209,7 +209,7 @@ #dim OnbekendBlumKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue("Unknown", "DoetErNietToe") Do ..SluitInBlumKenmerkInRequest(OCCKenmerkenRequest, OnbekendBlumKenmerk) - #dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue(..#OnvertaalbareBlumKenmerkName, "") + #dim OnbekendEconKenmerk As WS.Vhisie4.OCC.dto.Kenmerk = ..GeefBlumKenmerkMetValue(..#OnvertaalbaarKenmerk, "") Do ..BlumNaarEconKenmerkenConverterMock.IndienMethodCall("ConvertBlumNaarEconKenmerk", OnbekendBlumKenmerk, "LBX").DanReturn(OnbekendEconKenmerk)