From 671a5253d0c37a057f1fdf5d6588b648c7af4a82 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@kivitendo.de>
Date: Fri, 19 Feb 2021 06:32:20 +0100
Subject: [PATCH] =?utf8?q?MT940=20parse=20Feld=2025=20nach=20=C3=B6stereic?=
 =?utf8?q?hischen=20Vorgaben?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Es scheint Konvention zu sein nach zwei // noch die Länderkennung
in Feld 25 zu schreiben und mit der optional gültigen Währung zu enden
Regex um exakt dieses Präfix vor BLZ/Kontoerkennung erweitert
---
 SL/MT940.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/SL/MT940.pm b/SL/MT940.pm
index d96a9f21b..c47f5bd53 100644
--- a/SL/MT940.pm
+++ b/SL/MT940.pm
@@ -50,7 +50,11 @@ sub parse {
   }
 
   foreach my $line (@lines) {
-    if ($line->[0] =~ m{^:25:(\d+)/(\d+)}) {
+    # AT MT940 has the format  :25://AT20151/00797453990/EUR
+    # DE MT940 has the format  :25:BLZ/Konto
+    # https://www.bankaustria.at/files/MBS_MT940_V5107.pdf
+    if ($line->[0] =~ m{^:25:(?://AT)?(\d+)/(\d+)}) {
+
       $local_bank_code      = $1;
       $local_account_number = $2;
 
-- 
2.20.1