bulkmail readonly if sent

entity/BulkMail_entity/BulkMail_entity.aod

@@ -5,6 +5,7 @@
   <documentation>%aditoprj%/entity/BulkMail_entity/documentation.adoc</documentation>
   <icon>VAADIN:AT</icon>
   <title>Bulk mail</title>
+  <grantUpdateProcess>%aditoprj%/entity/BulkMail_entity/grantUpdateProcess.js</grantUpdateProcess>
   <contentTitleProcess>%aditoprj%/entity/BulkMail_entity/contentTitleProcess.js</contentTitleProcess>
   <iconId>VAADIN:AT</iconId>
   <titlePlural>Bulk mails</titlePlural>
@@ -52,6 +53,7 @@
     </entityField>
     <entityConsumer>
       <name>Recipients</name>
+      <stateProcess>%aditoprj%/entity/BulkMail_entity/entityfields/recipients/stateProcess.js</stateProcess>
       <dependency>
         <name>dependency</name>
         <entityName>BulkMailRecipient_entity</entityName>

entity/BulkMail_entity/entityfields/recipients/stateProcess.js

+import("system.vars");
+import("Bulkmail_lib");
+import("system.result");
+import("system.neon");
+
+if (BulkMailUtils.isStatusSendingOrSent(vars.get("$field.STATUS")))
+    result.string(neon.COMPONENTSTATE_READONLY);
\ No newline at end of file

entity/BulkMail_entity/entityfields/sendmail/stateProcess.js

@@ -4,6 +4,6 @@ import("system.vars");
 import("system.neon");
 
 var state = neon.COMPONENTSTATE_EDITABLE;
-if (vars.get("$field.STATUS") == $KeywordRegistry.bulkMailStatus$beingSent())
+if (vars.get("$field.STATUS") == $KeywordRegistry.bulkMailStatus$beingSent() || vars.get("$field.STATUS") != $KeywordRegistry.bulkMailStatus$sent())
     state = neon.COMPONENTSTATE_DISABLED;
 result.string(state);
\ No newline at end of file

entity/BulkMail_entity/grantUpdateProcess.js

+import("Bulkmail_lib");
+import("system.vars");
+import("system.result");
+
+result.object(!BulkMailUtils.isStatusSendingOrSent);
\ No newline at end of file

process/Bulkmail_lib/process.js

@@ -326,6 +326,15 @@ BulkMailUtils.isValidTemplateType = function (pTemplateType)
     }
 }
 
+/**
+ * @param {String} pStatus the keyid of the current status
+ * @return {Boolean} true if the status is "sent" or "sending" 
+ */
+BulkMailUtils.isStatusSendingOrSent = function (pStatus)
+{
+    return pStatus == $KeywordRegistry.bulkMailStatus$sent() || pStatus == $KeywordRegistry.bulkMailStatus$beingSent()
+}
+
 function SerialLetterUtils () {}
 
 /**