Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Test.cls.xml =================================================================== diff -u -r59638 -r59672 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 59638) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 59672) @@ -19,18 +19,24 @@ + + + + + + Wordt opgevangen (kan enkel daar) in bovenliggende WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter + Do ..AssertConversieBlumKenmerkenNaarEconKenmerken("Pull-out type", "Inner drawer", "Data.Kenmerken.Isbinnenlade", "true") +]]> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + BlumKenmerkName:%String,BlumKenmerkValue:%String,VerwachteEconKenmerkName:%String,VerwachteKenmerkValue:%String 1 Index: WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml =================================================================== diff -u -r59665 -r59672 --- WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 59665) +++ WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/BlumNaarEconKenmerkenConverter.cls.xml (.../BlumNaarEconKenmerkenConverter.cls.xml) (revision 59672) @@ -26,15 +26,19 @@ Set EconKenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New() - // TODO: LADETYPE-CONFORME INVULLING VAN VALUES (volgens LadeType-enumeraties) + // TODO: LADETYPE-CONFORME INVULLING VAN VALUES (volgens LadeType-enumeraties) => TBX !!! Do ..ConvertMeervoudigBlumKenmerkValueGebruik(BlumKenmerk, EconKenmerk, LadeType) + Do ..ConvertUitzonderingen(BlumKenmerk, EconKenmerk, LadeType) + If ($$$Not($$$HasLength(EconKenmerk.Value))) { Set EconKenmerk.Value = ..ConvertKenmerkValueBlumNaarEconKenmerk(BlumKenmerk.Value, LadeType) } - Set EconKenmerk.Name = ..ConvertKenmerkNameBlumNaarEconKenmerk(BlumKenmerk.Name) + If ($$$Not($$$HasLength(EconKenmerk.Name))) { + Set EconKenmerk.Name = ..ConvertKenmerkNameBlumNaarEconKenmerk(BlumKenmerk.Name) + } Quit EconKenmerk ]]> @@ -52,6 +56,17 @@ ]]> + +BlumKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,EconKenmerk:WS.Vhisie4.OCC.dto.Kenmerk,LadeType:%String +1 + + + KenmerkNameBlumKenmerk:%String 1 @@ -91,15 +106,26 @@ 1 %String @@ -123,7 +149,7 @@ 1 %Boolean + +EconConfiguratieArray:%ArrayOfDataTypes +1 + + + KenmerkenIterator:TECH.Iterator 1 Index: vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml =================================================================== diff -u -r59665 -r59672 --- vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 59665) +++ vhUnitTest/WSimpl/Vhisie4/OCC/OCCService/OCCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 59672) @@ -47,16 +47,26 @@ #dim OCCKenmerkenRequest As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(1) #dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest) - Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 1) + Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 2) ]]> + + + + @@ -170,7 +180,7 @@ Set ..OCCKenmerkenConverter = ##class(WSimpl.Vhisie4.OCC.OCCService.OCCKenmerkenConverter).%New(..BlumNaarEconKenmerkenConverterMock) #dim Resultaat As WS.Vhisie4.OCC.GeefNaarEconGeconverteerdeKenmerkenResponse = ..OCCKenmerkenConverter.ConverteerBlumKenmerkenNaarEconKenmerken(OCCKenmerkenRequest) - Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 12) + Do $$$AssertEquals(Resultaat.EconKenmerken.Count(), 13) Do ..BlumNaarEconKenmerkenConverterMock.Verifieer() ]]>