Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8bb3b201

Von Moritz Bunkus vor mehr als 1 Jahr hinzugefügt

  • ID 8bb3b201b2a80784f0a503ab9f4af7d91aafcc5b
  • Vorgänger b6fada0c

MT940: konfigurierbare Leerzeichen in Unterfeldern des Verwendunszwecks

Unterschiede anzeigen:

SL/Controller/BankImport.pm
16 16 

  		




  17
  17
  
    
use Rose::Object::MakeMethods::Generic


  		




  18
  18
  
    
(


  		




  19
  
  
    
  scalar                  => [ qw(file_name transactions statistics charset) ],


  		




  
  19
  
    
  scalar                  => [ qw(file_name transactions statistics charset space_in_reference) ],


  		




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


  		




  21
  21
  
    
);


  		




  22
  22
  
    

  		




  ......




  44
  44
  
    
  $file->fh->close;


  		




  45
  45
  
    

  		




  46
  46
  
    
  $self->charset($::form->{charset});


  		




  
  47
  
    
  $self->space_in_reference($::form->{space_in_reference} // 1);


  		




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


  		




  48
  49
  
    
  $self->parse_and_analyze_transactions;


  		




  49
  50
  
    

  		




  ......




  58
  59
  
    

  		




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


  		




  60
  61
  
    
  $self->charset($::form->{charset});


  		




  
  62
  
    
  $self->space_in_reference($::form->{space_in_reference});


  		




  61
  63
  
    
  $self->parse_and_analyze_transactions;


  		




  62
  64
  
    
  $self->import_transactions;


  		




  63
  65
  
    

  		




  ......




  73
  75
  
    

  		




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


  		




  75
  77
  
    

  		




  76
  
  
    
  $self->transactions([ sort { $a->{transdate} cmp $b->{transdate} } SL::MT940->parse($self->file_name, charset => $self->charset) ]);


  		




  
  78
  
    
  my @transactions = SL::MT940->parse(


  		




  
  79
  
    
    $self->file_name,


  		




  
  80
  
    
    charset            => $self->charset,


  		




  
  81
  
    
    space_in_reference => $self->space_in_reference,


  		




  
  82
  
    
  );


  		




  
  83
  
    
  $self->transactions([ sort { $a->{transdate} cmp $b->{transdate} } @transactions ]);


  		




  77
  84
  
    

  		




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


  		




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


  		












Auch abrufbar als:  Unified diff