slapos_erp5: Add Author Role for accountant on SystemEventModule

  In case maileva is used, accountant needs access to system event module for add
  maileva exchanges. This role should be removed once Maileva integration be refactored

master/bt5/slapos_erp5/LocalRolesTemplateItem/system_event_module.xml

 <local_roles_item>
  <local_roles>
+  <role id='F-ACCOUNTING*'>
+   <item>Author</item>
+  </role>
   <role id='F-IS*'>
    <item>Auditor</item>
   </role>
@@ -9,6 +12,7 @@
  </local_roles>
  <local_role_group_ids>
   <local_role_group_id id='function'>
+    <principal id='F-ACCOUNTING*'>Author</principal>
     <principal id='F-IS*'>Auditor</principal>
   </local_role_group_id>
   <local_role_group_id id='shadow'>

master/bt5/slapos_erp5/PortalTypeRolesTemplateItem/System%20Event%20Module.xml

 <type_roles>
+  <role id='Author'>
+   <property id='title'>Accountant</property>
+   <property id='description'>FIXME: Included because Accountant needs to create Maileva Exchange.</property>
+   <multi_property id='categories'>local_role_group/function</multi_property>
+   <multi_property id='category'>function/accounting*</multi_property>
+   <multi_property id='base_category'>function</multi_property>
+  </role>
   <role id='Auditor'>
    <property id='title'>Information System</property>
    <property id='description'>XXX local role group</property>

master/bt5/slapos_erp5/TestTemplateItem/portal_components/test.erp5.testSlapOSERP5GroupRoleSecurity.py

@@ -1154,8 +1154,9 @@ class TestSystemEventModule(TestSlapOSGroupRoleSecurityMixin):
   def test_SystemEventModule(self):
     module = self.portal.system_event_module
     self.assertSecurityGroup(module,
-        ['R-SHADOW-PERSON', module.Base_getOwnerId(), 'F-IS*'], False)
+        ['R-SHADOW-PERSON', 'F-ACCOUNTING*', module.Base_getOwnerId(), 'F-IS*'], False)
     self.assertRoles(module, 'R-SHADOW-PERSON', ['Author'])
+    self.assertRoles(module, 'F-ACCOUNTING*', ['Author'])
     self.assertRoles(module, 'F-IS*', ['Auditor'])
     self.assertRoles(module, module.Base_getOwnerId(), ['Owner'])