Revision 057d4622
Von Moritz Bunkus vor etwa 2 Jahren hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
|
);
|
||
|
|
||
|
} elsif (%transaction && ($line->[0] =~ m{^:86:})) {
|
||
|
if ($line->[0] =~ m{^:86:\d+\?(.+)}) {
|
||
|
if ($line->[0] =~ m{^:86:\d+([^\d])(.+)}) {
|
||
|
# structured
|
||
|
my %parts = map { ((substr($_, 0, 2) // '0') * 1 => substr($_, 2)) } split m{\?}, $1;
|
||
|
my ($separator, $rest) = ($1, $2);
|
||
|
my %parts = map { ((substr($_, 0, 2) // '0') * 1 => substr($_, 2)) } split $separator, $rest;
|
||
|
|
||
|
$transaction{purpose} = _join_entries(\%parts, 20, 29);
|
||
|
$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.