payment_mean_sepa: refuse generating file when payments are still being selected

bt5/erp5_payment_mean_sepa/SkinTemplateItem/portal_skins/erp5_payment_mean_sepa/PaymentTransactionGroup_generateSEPACreditTransferFile.py

 from Products.ERP5Type.Message import translateString
 
+# Same check as in PaymentTransactionGroup_selectPaymentTransactionLineList
+tag = 'PaymentTransactionGroup_selectPaymentTransactionList'
+context.serialize()
+if context.getPortalObject().portal_activities.countMessageWithTag(tag,):
+  return context.Base_redirect(form_id, keep_items=dict(portal_status_message=translateString(
+    "Some payments are still beeing processed in the background, please retry later")))
+
 assert version == 'pain.001.001.02', 'Unsupported version'
 
 portal = context.getPortalObject()

bt5/erp5_payment_mean_sepa/TestTemplateItem/portal_components/test.erp5.testPaymentTransactionGroupSEPA.py

@@ -198,7 +198,6 @@ class TestPaymentTransactionGroupPaymentSEPA(AccountingTestCase):
         ['PT-1', 'PT-2'],
     )
 
-
   def test_generate_sepa_credit_transfer_action(self):
     ptg = self._createPTG()
     ret = ptg.PaymentTransactionGroup_generateSEPACreditTransferFile(
@@ -224,6 +223,18 @@ class TestPaymentTransactionGroupPaymentSEPA(AccountingTestCase):
         ['300.00'],
     )
 
+  def test_generate_sepa_credit_transfer_refused_when_activities_are_pending(self):
+    ptg = self._createPTG()
+    ptg.PaymentTransactionGroup_selectPaymentTransactionLineList(
+        select_mode='stopped_or_delivered')
+    self.commit()
+    ret = ptg.PaymentTransactionGroup_generateSEPACreditTransferFile(
+        version='pain.001.001.02')
+    self.assertEqual(
+        urlparse.parse_qs(urlparse.urlparse(ret).query)['portal_status_message'],
+        ['Some payments are still beeing processed in the background, please retry later'])
+    self.tic()
+
 
 class TestSEPAConstraints(AccountingTestCase):
   def afterSetUp(self):