Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r69428 -r69441 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69428) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69441) @@ -96,7 +96,7 @@ If ($$$Not(BlumKenmerk.Name = "name")) { - Set AxKenmerk.Value = ..ConverteerKenmerkValueBlumNaarAxKenmerk(BlumKenmerk.Value) + Set AxKenmerk.Value = ..ConverteerKenmerkValueBlumNaarAxKenmerk(BlumKenmerk.Value, BlumKenmerk.Name) Set AxKenmerk.Name = ..ConverteerKenmerkNameBlumNaarAxKenmerk(BlumKenmerk.Name) } @@ -161,13 +161,13 @@ Quit:(KenmerkNameBlum="scuff guard") GeconverteerdeKenmerkName_"Krasbescherming" Quit:(KenmerkNameBlum="exact nominal length, left") GeconverteerdeKenmerkName_"Nominalelengtelinksexact" Quit:(KenmerkNameBlum="exact nominal length, right") GeconverteerdeKenmerkName_"Nominalelengterechtsexact" - - Quit ..#OnvertaalbaarKenmerk_" '" _ KenmerkNameBlum _ "'" + + Do ##class(vhLib.Logger).%New("BlumNaarAXKenmerkenConvertor").ErrorMail("Kon RVG BlumKenmerk '"_ KenmerkNameBlum _"' niet vertalen.") ]]> -KenmerkValueBlum:%String +KenmerkValueBlum:%String,KenmerkNameBlum:%String 1 %String -KenmerkValueBlum:%String +KenmerkValueBlum:%String,MaakLeeg:%Boolean 1 %String @@ -233,6 +235,14 @@ Quit AxKenmerk ]]> + + +KenmerkNameBlum:%String +1 +%Boolean + +