projekt kivitendo

use Rose::Object::MakeMethods::Generic

(

  'scalar --get_set_init' => [ qw(bank_accounts) ],

);

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

  $file->fh->close;

  $self->file_name($file->file_name);

  $self->parse_and_analyze_transactions;

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

  $self->file_name($::form->{file_name});

  $self->parse_and_analyze_transactions;

  $self->import_transactions;

  my $currency_id = SL::DB::Default->get->currency_id;

  foreach my $transaction (@{ $self->transactions }) {

    $transaction->{bank_account}   = $self->bank_accounts->{ make_bank_account_idx($transaction->{local_bank_code}, $transaction->{local_account_number}) };

}

sub parse {

  my ($local_bank_code, $local_account_number, %transaction, @transactions, @lines);

  my $line_number = 0;

  my ($active_field);

  foreach my $line (read_file($file_name)) {

    chomp $line;

    $line =~ s{\r+}{};

    $line_number++;

  'Import CSV'                  => 'CSV-Import',

  'Import Status'               => 'Import Status',

  'Import a Factur-X/ZUGFeRD file:' => 'Eine Factur-X-/ZUGFeRD-Datei importieren',

  'Import all'                  => 'Importiere Alle',

  'Import documents from #1'    => 'Importiere Dateien von Quelle \'#1\'',

  'Import file'                 => 'Import-Datei',

  'MAILED'                      => 'Gesendet',

  'MD'                          => 'PT',

  'MIME type'                   => 'MIME-Typ',

  'MT940 import'                => 'MT940 Import',

  'MT940 import preview'        => 'MT940-Import-Vorschau',

  'MT940 import result'         => 'MT940-Import-Ergebnis',

[% IF preview %]

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

    [% L.hidden_tag('file_name', SELF.file_name) %]

  </form>

[% END %]

<h1>[% FORM.title %]</h1>

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

</form>