Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml =================================================================== diff -u -r40901 -r40906 --- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml (.../Lbx.cls.xml) (revision 40901) +++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml (.../Lbx.cls.xml) (revision 40906) @@ -32,9 +32,12 @@ #dim Property As %String = "" For { set Property = $order(Properties(Property)) quit:Property="" - If '(Property["UitsparingData.")&&'(Property="Familie")&&'(Property="Variant")&&'(Property["NietMeeleveren.")&&'(Property["NietIngegeven.")&&'(Property["DwarsverdelingAantal")&&'(##class(TECH.StringUtils).StartsWith(Property,"Mat")&&'(##class(TECH.StringUtils).StartsWith(Property,"Heeft"))&&'(##class(TECH.StringUtils).StartsWith(Property,"IsBinnen"))){ - Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property) - } + + continue:##class(TECH.StringUtils).Contains(Property,"UitsparingData.","NietMeeleveren.","NietIngegeven.","DwarsverdelingAantal") + continue:##class(TECH.StringUtils).Equals(Property,"Familie","Variant") + continue:##class(TECH.StringUtils).StartsWith(Property,"Mat","Heeft","IsBinnen") + + Do %code.WriteLine($$$TAB_"Set LbxKenmerken."_Property_" = Kenmerken."_Property) } Do %code.WriteLine($$$TAB_"Quit LbxKenmerken")