projekt kivitendo

package SL::Controller::BankImport;

use strict;

use Data::Dumper;

use parent qw(SL::Controller::Base);

use SL::Locale::String qw(t8);

use SL::DB::CsvImportProfile;

use SL::Helper::MT940;

sub action_upload_mt940 {

  my ($self, %params) = @_;

  my $profile = SL::DB::Manager::CsvImportProfile->find_by(name => 'MT940', login => $::myconfig{login});

  $self->render('bankimport/form', title => $::locale->text('MT940 import'), profile => $profile ? 1 : 0);

}

sub action_import_mt940 {

  my ($self, %params) = @_;

  die "missing file for action import" unless $::form->{file};

  my $converted_data = SL::Helper::MT940::convert_mt940_data($::form->{file});

  # store the converted data in a session file with a name expected by the profile type "bank_transactions"

  my $file = SL::SessionFile->new("csv-import-bank_transactions.csv", mode => '>');

  $file->fh->print($converted_data);

  $file->fh->close;

  my $profile = SL::DB::Manager::CsvImportProfile->find_by(name => 'MT940', login => $::myconfig{login});

  die t8("The MT940 import needs an import profile called MT940") unless $profile;

  $self->redirect_to(controller => 'controller.pl', action => 'CsvImport/test', 'profile.type' => 'bank_transactions', 'profile.id' => $profile->id, force_profile => 1);

};

1;

  die "Invalid CSV import type" if none { $_ eq $::form->{profile}->{type} } qw(parts inventories customers_vendors addresses contacts projects orders bank_transactions);

  if ( $::form->{force_profile} && $::form->{profile}->{id} ) {

    $self->load_default_profile;

  }  else {

    $self->profile_from_form;

  };

  if ($::form->{file}) {

    $file->fh->print($::form->{file});

package SL::Helper::MT940;

use strict;

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;

  my $aqbin = $::lx_office_conf{applications}->{aqbanking};

  die "Can't find aqbanking-cli, please check your configuration file.\n" unless -f $aqbin;

  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=\"AqMoney2\" ";

  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";"purpose10";"purpose11"' . "\n";

  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;

  'Import a MT940 file:'        => 'Laden Sie eine MT940 Datei hoch:',

  'Please create a CSV import profile called "MT940" for the import type bank transactions:' => 'Bitte erstellen Sie ein CSV Import Profil mit dem Namen "MT940" für den Importtyp Bankbewegungen',

  'The MT940 import needs an import profile called MT940' => 'Der MT940 Import benötigt ein Importprofil mit dem Namen "MT940"',

action=BankImport/upload_mt940

[%- USE HTML %]

[%- USE LxERP %]

[%- USE L %]

[%- USE T8 %]

 <div class="listtop">[% FORM.title %]</div>

 [% IF profile %]

 <p>

 [% "Import a MT940 file:" | $T8 %]

 </p>

 <form method="post" action="controller.pl" enctype="multipart/form-data">

  [% L.hidden_tag('action', 'BankImport/import_mt940') %]

    [% L.input_tag('file', '', type => 'file', accept => '*') %]

    [% L.submit_tag('action_import_mt940', LxERP.t8('Import')) %]

 </form>

 [% ELSE %]

 <p>

 [% "Please create a CSV import profile called \"MT940\" for the import type bank transactions:" | $T8 %] <a href="[% SELF.url_for(controller => 'CsvImport', action => 'new', 'profile.type' => 'bank_transactions' ) %]">CsvImport</a>

 </p>

 [% END %]