Revision f445786a
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
| SL/MT940.pm | ||
|---|---|---|
|
# structured
|
||
|
my ($separator, $rest) = ($1, $2);
|
||
|
my %parts = map { ((substr($_, 0, 2) // '0') * 1 => substr($_, 2)) } split quotemeta($separator), $rest;
|
||
|
|
||
|
$transaction{purpose} = _join_entries(\%parts, 20, 29);
|
||
|
$transaction{purpose} = _join_entries(\%parts, 20, 29) . _join_entries(\%parts, 60, 63);
|
||
|
$transaction{remote_name} = _join_entries(\%parts, 32, 33, '');
|
||
|
$transaction{remote_bank_code} = $parts{30};
|
||
|
$transaction{remote_account_number} = $parts{31};
|
||
Auch abrufbar als: Unified diff
MT940: Strukturiertes Feld 86:, darf auch purpose in 60 bis 63 haben