Added B2B support for SEPADirectDebit

nemiah · Jul 28, 2020 · a8c5c12 · a8c5c12
1 parent 54b249a
commit a8c5c12
Show file tree

Hide file tree

Showing 29 changed files with 412 additions and 56 deletions.
diff --git a/lib/Fhp/Action/GetSEPADirectDebitParameters.php b/lib/Fhp/Action/GetSEPADirectDebitParameters.php
@@ -5,16 +5,16 @@
 use Fhp\BaseAction;
 use Fhp\Protocol\BPD;
 use Fhp\Protocol\UPD;
-use Fhp\Segment\DME\HIDXES;
-use Fhp\Segment\DME\MinimaleVorlaufzeitSEPALastschrift;
+use Fhp\Segment\DSE\HIDXES;
+use Fhp\Segment\DSE\MinimaleVorlaufzeitSEPALastschrift;
 
 /**
  * Retrieves information about SEPA Direct Debit Requests
  */
 class GetSEPADirectDebitParameters extends BaseAction
 {
     const SEQUENCE_TYPES = ['FRST', 'OOFF', 'FNAL', 'RCUR'];
-    const CORE_TYPES = ['CORE', 'COR1'];
+    const CORE_TYPES = ['CORE', 'COR1', 'B2B'];
 
     /** @var string */
     private $coreType;
@@ -25,8 +25,8 @@ class GetSEPADirectDebitParameters extends BaseAction
     /** @var bool */
     private $singleDirectDebit;
 
-    /** @var MinimaleVorlaufzeitSEPALastschrift|null */
-    private $minimalLeadTime;
+    /** @var HIDXES */
+    private $hidxes;
 
     public static function create(string $seqType, bool $singleDirectDebit, string $coreType = 'CORE')
     {
@@ -40,32 +40,37 @@ public static function create(string $seqType, bool $singleDirectDebit, string $
         $result->coreType = $coreType;
         $result->seqType = $seqType;
         $result->singleDirectDebit = $singleDirectDebit;
-
         return $result;
     }
 
+    public static function getHixxesSegmentName(string $coreType, bool $singleDirectDebit): string
+    {
+        switch ($coreType) {
+            case 'CORE':
+            case 'COR1':
+                return $singleDirectDebit ? 'HIDSES' : 'HIDMES';
+            case 'B2B':
+                return $singleDirectDebit ? 'HIBSES' : 'HIBMES';
+            default:
+                throw new \InvalidArgumentException('Unknown CORE type, possible values are ' . implode(', ', self::CORE_TYPES));
+        }
+    }
+
     /** {@inheritdoc} */
     protected function createRequest(BPD $bpd, ?UPD $upd)
     {
-        $type = $this->singleDirectDebit ? 'HIDSES' : 'HIDMES';
-
-        /** @var HIDXES $hidxes */
-        $hidxes = $bpd->requireLatestSupportedParameters($type);
-
-        $this->minimalLeadTime = $hidxes->getParameter()->getMinimalLeadTime($this->seqType, $this->coreType);
-
+        $this->hidxes = $bpd->requireLatestSupportedParameters(static::getHixxesSegmentName($this->coreType, $this->singleDirectDebit));
+
         $this->isDone = true;
-
-        // No request to the bank required
-        return [];
+
+        return []; // No request to the bank required
     }
 
     /**
      * @return MinimaleVorlaufzeitSEPALastschrift|null The information about the lead time for the given Sequence Type and Core Type
      */
     public function getMinimalLeadTime(): ?MinimaleVorlaufzeitSEPALastschrift
     {
-        //$this->ensureDone();
-        return $this->minimalLeadTime;
+        return $this->hidxes->getParameter()->getMinimalLeadTime($this->seqType, $this->coreType);
     }
 }
diff --git a/lib/Fhp/Action/SendSEPADirectDebit.php b/lib/Fhp/Action/SendSEPADirectDebit.php
@@ -11,12 +11,8 @@
 use Fhp\Segment\Common\Kti;
 use Fhp\Segment\DME\HIDMESv1;
 use Fhp\Segment\DME\HIDMESv2;
-use Fhp\Segment\DME\HIDXES;
-use Fhp\Segment\DME\HKDMEv1;
-use Fhp\Segment\DME\HKDMEv2;
 use Fhp\Segment\DSE\HIDSESv2;
-use Fhp\Segment\DSE\HKDSEv1;
-use Fhp\Segment\DSE\HKDSEv2;
+use Fhp\Segment\DSE\HIDXES;
 use Fhp\Segment\SPA\HISPAS;
 use Fhp\Syntax\Bin;
 use Fhp\UnsupportedException;
@@ -44,6 +40,9 @@ class SendSEPADirectDebit extends BaseAction
     /** @var bool */
     protected $tryToUseControlSumForSingleTransactions = false;
 
+    /** @var string */
+    private $coreType;
+
     public static function create(SEPAAccount $account, string $painMessage, bool $tryToUseControlSumForSingleTransactions = false): SendSEPADirectDebit
     {
         if (preg_match('/xmlns="(?<namespace>[^"]+)"/s', $painMessage, $matches) === 1) {
@@ -56,10 +55,16 @@ public static function create(SEPAAccount $account, string $painMessage, bool $t
         $nbOfTxs = substr_count($painMessage, '<DrctDbtTxInf>');
         $ctrlSum = null;
 
-        if (preg_match('/<GrpHdr>.*<CtrlSum>(?<ctrlsum>[.0-9]+)<\/CtrlSum>.*<\/GrpHdr>/s', $painMessage, $matches) === 1) {
+        if (preg_match('@<GrpHdr>.*<CtrlSum>(?<ctrlsum>[.0-9]+)</CtrlSum>.*</GrpHdr>@s', $painMessage, $matches) === 1) {
             $ctrlSum = $matches['ctrlsum'];
         }
 
+        if (preg_match('@<PmtTpInf>.*<LclInstrm>.*<Cd>(?<coretype>CORE|COR1|B2B)</Cd>.*</LclInstrm>.*</PmtTpInf>@s', $painMessage, $matches) === 1) {
+            $coreType = $matches['coretype'];
+        } else {
+            throw new \InvalidArgumentException('The type CORE/COR1/B2B is missing in PAIN message');
+        }
+
         if ($nbOfTxs > 1 && is_null($ctrlSum)) {
             throw new \InvalidArgumentException('The control sum aka "<GrpHdr><CtrlSum>xx</CtrlSum></GrpHdr>" is missing in PAIN message');
         }
@@ -69,6 +74,7 @@ public static function create(SEPAAccount $account, string $painMessage, bool $t
         $result->painMessage = $painMessage;
         $result->painNamespace = $painNamespace;
         $result->ctrlSum = $ctrlSum;
+        $result->coreType = $coreType;
 
         $result->singleDirectDebit = $nbOfTxs === 1;
 
@@ -86,8 +92,8 @@ protected function createRequest(BPD $bpd, ?UPD $upd)
             $useSingleDirectDebit = false;
         }
 
-        /** @var HIDXES|BaseSegment $hidxes */
-        $hidxes = $bpd->requireLatestSupportedParameters($useSingleDirectDebit ? 'HIDSES' : 'HIDMES');
+        /* @var HIDXES|BaseSegment $hidxes */
+        $hidxes = $bpd->requireLatestSupportedParameters(GetSEPADirectDebitParameters::getHixxesSegmentName($this->coreType, $useSingleDirectDebit));
 
         $supportedPainNamespaces = null;
 
@@ -108,19 +114,8 @@ protected function createRequest(BPD $bpd, ?UPD $upd)
                 . implode(', ', $supportedPainNamespaces));
         }
 
-        /** @var HKDMEv1|HKDSEv1 $hkdxe */
-        $hkdxe = null;
-        switch ($hidxes->getVersion()) {
-            case 1:
-                $hkdxe = $useSingleDirectDebit ? HKDSEv1::createEmpty() : HKDMEv1::createEmpty();
-            break;
-            case 2:
-                $hkdxe = $useSingleDirectDebit ? HKDSEv2::createEmpty() : HKDMEv2::createEmpty();
-            break;
-            default:
-                throw new UnsupportedException('Unsupported HKDME or HKDSE version: ' . $hidxes->getVersion());
-        }
-
+        /** @var mixed $hkdxe */ // TODO Put a new interface type here.
+        $hkdxe = $hidxes->createRequestSegment();
         $hkdxe->kontoverbindungInternational = Kti::fromAccount($this->account);
         $hkdxe->sepaDescriptor = $this->painNamespace;
         $hkdxe->sepaPainMessage = new Bin($this->painMessage);

diff --git a/lib/Fhp/Model/StatementOfAccount/Transaction.php b/lib/Fhp/Model/StatementOfAccount/Transaction.php
diff --git a/lib/Fhp/Segment/BME/HIBMESv1.php b/lib/Fhp/Segment/BME/HIBMESv1.php
@@ -0,0 +1,30 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\BaseGeschaeftsvorfallparameter;
+use Fhp\Segment\BaseSegment;
+use Fhp\Segment\DSE\HIDXES;
+use Fhp\Segment\DSE\SEPADirectDebitMinimalLeadTimeProvider;
+
+/**
+ * Segment: Terminierte SEPA-Sammellastschrift einreichen Parameter
+ *
+ * @link https://www.hbci-zka.de/dokumente/spezifikation_deutsch/fintsv3/FinTS_3.0_Messages_Geschaeftsvorfaelle_2015-08-07_final_version.pdf
+ * Section: C.10.3.3.2.1 c)
+ */
+class HIBMESv1 extends BaseGeschaeftsvorfallparameter implements HIDXES
+{
+    /** @var ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV1 */
+    public $parameter;
+
+    public function getParameter(): SEPADirectDebitMinimalLeadTimeProvider
+    {
+        return $this->parameter;
+    }
+
+    public function createRequestSegment(): BaseSegment
+    {
+        return HKBMEv1::createEmpty();
+    }
+}
diff --git a/lib/Fhp/Segment/BME/HIBMESv2.php b/lib/Fhp/Segment/BME/HIBMESv2.php
@@ -0,0 +1,30 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\BaseGeschaeftsvorfallparameter;
+use Fhp\Segment\BaseSegment;
+use Fhp\Segment\DSE\HIDXES;
+use Fhp\Segment\DSE\SEPADirectDebitMinimalLeadTimeProvider;
+
+/**
+ * Segment: Terminierte SEPA-Sammellastschrift einreichen Parameter
+ *
+ * @link https://www.hbci-zka.de/dokumente/spezifikation_deutsch/fintsv3/FinTS_3.0_Messages_Geschaeftsvorfaelle_2015-08-07_final_version.pdf
+ * Section: C.10.3.3.2.1 c)
+ */
+class HIBMESv2 extends BaseGeschaeftsvorfallparameter implements HIDXES
+{
+    /** @var ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV2 */
+    public $parameter;
+
+    public function getParameter(): SEPADirectDebitMinimalLeadTimeProvider
+    {
+        return $this->parameter;
+    }
+
+    public function createRequestSegment(): BaseSegment
+    {
+        return HKBMEv2::createEmpty();
+    }
+}
diff --git a/lib/Fhp/Segment/BME/HKBMEv1.php b/lib/Fhp/Segment/BME/HKBMEv1.php
@@ -0,0 +1,15 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\DME\HKDMEv1;
+
+/**
+ * Einreichung terminierter SEPA-Sammellastschrift (Segmentversion 1)
+ *
+ * @link https://www.hbci-zka.de/dokumente/spezifikation_deutsch/fintsv3/FinTS_3.0_Messages_Geschaeftsvorfaelle_2015-08-07_final_version.pdf
+ * Section: C.10.3.3.2.1
+ */
+class HKBMEv1 extends HKDMEv1
+{
+}
diff --git a/lib/Fhp/Segment/BME/HKBMEv2.php b/lib/Fhp/Segment/BME/HKBMEv2.php
@@ -0,0 +1,13 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+/**
+ * Einreichung terminierter SEPA-Sammellastschrift (Segmentversion 2)
+ *
+ * @link https://www.hbci-zka.de/dokumente/spezifikation_deutsch/fintsv3/FinTS_3.0_Messages_Geschaeftsvorfaelle_2015-08-07_final_version.pdf
+ * Section: C.10.3.3.2.2
+ */
+class HKBMEv2 extends HKBMEv1
+{
+}
diff --git a/lib/Fhp/Segment/BME/ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV1.php b/lib/Fhp/Segment/BME/ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV1.php
@@ -0,0 +1,17 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\BSE\ParameterTerminierteSEPAFirmenEinzellastschriftEinreichenV1;
+
+class ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV1 extends ParameterTerminierteSEPAFirmenEinzellastschriftEinreichenV1
+{
+    /** @var int */
+    public $maximaleAnzahlDirectDebitTransferTransactionInformation;
+
+    /** @var bool */
+    public $summenfeldBenoetigt;
+
+    /** @var bool */
+    public $einzelbuchungErlaubt;
+}
diff --git a/lib/Fhp/Segment/BME/ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV2.php b/lib/Fhp/Segment/BME/ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV2.php
@@ -0,0 +1,23 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\BSE\ParameterTerminierteSEPAFirmenLastschriftEinreichenV2;
+
+class ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV2 extends ParameterTerminierteSEPAFirmenLastschriftEinreichenV2
+{
+    /** @var int */
+    public $maximaleAnzahlDirectDebitTransferTransactionInformation;
+
+    /** @var bool */
+    public $summenfeldBenoetigt;
+
+    /** @var bool */
+    public $einzelbuchungErlaubt;
+
+    /** @var string|null Max Length: 4096 */
+    public $zulaessigePurposecodes;
+
+    /** @var string[]|null @Max(9) Max Length: 256 */
+    public $unterstuetzteSEPADatenformate;
+}
diff --git a/lib/Fhp/Segment/BME/ParameterTerminierteSEPASammellastschriftEinreichenV1.php b/lib/Fhp/Segment/BME/ParameterTerminierteSEPASammellastschriftEinreichenV1.php
@@ -0,0 +1,17 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\BSE\ParameterTerminierteSEPAFirmenEinzellastschriftEinreichenV1;
+
+class ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV1 extends ParameterTerminierteSEPAFirmenEinzellastschriftEinreichenV1
+{
+    /** @var int */
+    public $maximaleAnzahlDirectDebitTransferTransactionInformation;
+
+    /** @var bool */
+    public $summenfeldBenoetigt;
+
+    /** @var bool */
+    public $einzelbuchungErlaubt;
+}
diff --git a/lib/Fhp/Segment/BME/ParameterTerminierteSEPASammellastschriftEinreichenV2.php b/lib/Fhp/Segment/BME/ParameterTerminierteSEPASammellastschriftEinreichenV2.php
@@ -0,0 +1,23 @@
+<?php
+
+namespace Fhp\Segment\BME;
+
+use Fhp\Segment\BSE\ParameterTerminierteSEPAFirmenLastschriftEinreichenV2;
+
+class ParameterTerminierteSEPAFirmenSammellastschriftEinreichenV2 extends ParameterTerminierteSEPAFirmenLastschriftEinreichenV2
+{
+    /** @var int */
+    public $maximaleAnzahlDirectDebitTransferTransactionInformation;
+
+    /** @var bool */
+    public $summenfeldBenoetigt;
+
+    /** @var bool */
+    public $einzelbuchungErlaubt;
+
+    /** @var string|null Max Length: 4096 */
+    public $zulaessigePurposecodes;
+
+    /** @var string[]|null @Max(9) Max Length: 256 */
+    public $unterstuetzteSEPADatenformate;
+}
diff --git a/lib/Fhp/Segment/BSE/HIBSESv1.php b/lib/Fhp/Segment/BSE/HIBSESv1.php
@@ -0,0 +1,30 @@
+<?php
+
+namespace Fhp\Segment\BSE;
+
+use Fhp\Segment\BaseGeschaeftsvorfallparameter;
+use Fhp\Segment\BaseSegment;
+use Fhp\Segment\DSE\HIDXES;
+use Fhp\Segment\DSE\SEPADirectDebitMinimalLeadTimeProvider;
+
+/**
+ * Segment: Terminierte SEPA-Einzellastschrift einreichen Parameter
+ *
+ * @link https://www.hbci-zka.de/dokumente/spezifikation_deutsch/fintsv3/FinTS_3.0_Messages_Geschaeftsvorfaelle_2015-08-07_final_version.pdf
+ * Section: C.10.2.6.2.1 c)
+ */
+class HIBSESv1 extends BaseGeschaeftsvorfallparameter implements HIDXES
+{
+    /** @var ParameterTerminierteSEPAFirmenEinzellastschriftEinreichenV1 */
+    public $parameter;
+
+    public function getParameter(): SEPADirectDebitMinimalLeadTimeProvider
+    {
+        return $this->parameter;
+    }
+
+    public function createRequestSegment(): BaseSegment
+    {
+        return HKBSEv1::createEmpty();
+    }
+}