Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml =================================================================== diff -u -r72173 -r72183 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 72173) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 72183) @@ -204,11 +204,15 @@ If (##class(TECH.StringUtils).Equals(Toepassing, ##class(DOM.PM.enu.RVGToepassing).UnoLinks(), ##class(DOM.PM.enu.RVGToepassing).UnoRechts(), ##class(DOM.PM.enu.RVGToepassing).DuoLinks(), ##class(DOM.PM.enu.RVGToepassing).DuoRechts())) { #dim Deurondersteuning As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Deurondersteuning") + #dim InstelzijdeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk If $$$Not(Deurondersteuning = "") { - If (##class(TECH.StringUtils).Equals(Deurondersteuning, ##class(DOM.PM.enu.RVGDeurOndersteuning).PartitieZijwand(), ##class(DOM.PM.enu.RVGDeurOndersteuning).DecoratiefPaneelKastZijwand())) { - #dim InstelzijdeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.GeefKenmerk("Instelzijde", "true") + If (##class(TECH.StringUtils).Equals(Deurondersteuning, ##class(DOM.PM.enu.RVGDeurOndersteuning).PartitieZijwand())) { + Set InstelzijdeKenmerk = ..BlumNaarAXKenmerkenConverter.GeefKenmerk("Instelzijde", "true") Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, InstelzijdeKenmerk) + } ElseIf (##class(TECH.StringUtils).Equals(Deurondersteuning, ##class(DOM.PM.enu.RVGDeurOndersteuning).DecoratiefPaneelKastZijwand())) { + Set InstelzijdeKenmerk = ..BlumNaarAXKenmerkenConverter.GeefKenmerk("Instelzijde", "false") + Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, InstelzijdeKenmerk) } Else { Do ..Logger.ErrorMail("Onbekende RVGDeurOndersteuning om de instelzijde te kunnen defaulten.") Set Exceptie = ##class(TECH.Exceptions.UnimplementedException).%New("Onbekende RVGDeurOndersteuning om de instelzijde te kunnen defaulten.")