kivitendo/SL/Helper/MT940.pm @ ff58ce56
| d180d84e | Geoffrey Richardson | package SL::Helper::MT940;
|
||
use strict;
|
||||
| 14304a6a | Martin Helmling | use File::Path qw(mkpath);
|
||
use File::Copy qw(copy);
|
||||
| d180d84e | Geoffrey Richardson | |||
sub convert_mt940_data {
|
||||
my ($mt940_data) = @_;
|
||||
# takes the data from an uploaded mt940 file, converts it to csv via aqbanking and returns the converted data
|
||||
# The uploaded file data is stored as a session file, just like the aqbanking settings file.
|
||||
my $import_filename = 'bank_transfer.940';
|
||||
my $sfile = SL::SessionFile->new($import_filename, mode => '>');
|
||||
$sfile->fh->print($mt940_data);
|
||||
$sfile->fh->close;
|
||||
| 14304a6a | Martin Helmling | my $todir = $sfile->get_path . '/imexporters/csv/profiles';
|
||
mkpath $todir;
|
||||
File::Copy::copy('users/aqbanking.conf', $todir.'/kivi.conf');
|
||||
| d180d84e | Geoffrey Richardson | my $aqbin = $::lx_office_conf{applications}->{aqbanking};
|
||
die "Can't find aqbanking-cli, please check your configuration file.\n" unless -f $aqbin;
|
||||
| 14304a6a | Martin Helmling | my $cmd = "$aqbin --cfgdir=\"" . $sfile->get_path . "\" import --importer=\"swift\" --profile=\"SWIFT-MT940\" -f " .
|
||
$sfile->get_path . "/$import_filename | $aqbin --cfgdir=\"" . $sfile->get_path . "\" listtrans --exporter=\"csv\" --profile=kivi 2> /dev/null ";
|
||||
| d180d84e | Geoffrey Richardson | |||
| 14304a6a | Martin Helmling | my $converted_data = '"empty";"local_bank_code";"local_account_number";"remote_bank_code";"remote_account_number";"transdate";"valutadate";"amount";'.
|
||
'"currency";"remote_name";"remote_name_1";"purpose";"purpose1";"purpose2";"purpose3";"purpose4";"purpose5";"purpose6";"purpose7";"purpose8";"purpose9";'.
|
||||
| e0cc4726 | Sven Schöling | '"purpose10";"purpose11";"transaction_key";"customer_reference";"bank_reference";"transaction_code";"transaction_text"'."\n";
|
||
| d180d84e | Geoffrey Richardson | |||
open my $mt, "-|", "$cmd" || die "Problem with executing aqbanking\n";
|
||||
my $headerline = <$mt>; # discard original aqbanking header line
|
||||
while (<$mt>) {
|
||||
$converted_data .= $_;
|
||||
};
|
||||
close $mt;
|
||||
return $converted_data;
|
||||
};
|
||||
1;
|