Revision 057d4622
Von Moritz Bunkus vor fast 2 Jahren hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
| 112 | 112 |
); |
| 113 | 113 |
|
| 114 | 114 |
} elsif (%transaction && ($line->[0] =~ m{^:86:})) {
|
| 115 |
if ($line->[0] =~ m{^:86:\d+\?(.+)}) {
|
|
| 115 |
if ($line->[0] =~ m{^:86:\d+([^\d])(.+)}) {
|
|
| 116 | 116 |
# structured |
| 117 |
my %parts = map { ((substr($_, 0, 2) // '0') * 1 => substr($_, 2)) } split m{\?}, $1;
|
|
| 117 |
my ($separator, $rest) = ($1, $2); |
|
| 118 |
my %parts = map { ((substr($_, 0, 2) // '0') * 1 => substr($_, 2)) } split $separator, $rest;
|
|
| 118 | 119 |
|
| 119 | 120 |
$transaction{purpose} = _join_entries(\%parts, 20, 29);
|
| 120 | 121 |
$transaction{remote_name} = _join_entries(\%parts, 32, 33, '');
|
Auch abrufbar als: Unified diff
MT940: Trennzeichen in strukturiertem Feld 86 automatisch erkennen
Als Trennzeichen zwischen den einzelnen Feldern des strukturierten
86er-Feldes wird das erste Zeichen hinter dem Geschäftsvorfall-Code
genommen. Somit ist jedes Zeichen als Trennzeichen möglich.