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