Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml =================================================================== diff -u -r71291 -r72173 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 71291) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 72173) @@ -202,6 +202,21 @@ #dim Toepassing As %String = AXConfiguratieArray.GetAt("Data.Kenmerken.Toepassing") #dim Afbeeldingcode As %String = ..AfbeeldingcodeBepaler.BepaalViaToepassing(Toepassing) + 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") + + 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") + 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.") + Do ##class(TECH.ExceptionHandler).Throw(Exceptie) + } + } + } + #dim AfbeeldingcodeKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.GeefBerekendKenmerk("Afbeeldingcode", Afbeeldingcode) Do ..VoegToeKenmerkAanAxConfiguratieArray(AXConfiguratieArray, AfbeeldingcodeKenmerk)