Relationship delivery_order_stock_entries für DeliveryOrderItem

[mfinanz.git] / SL / Controller / CsvImport / BankTransaction.pm

diff --git a/SL/Controller/CsvImport/BankTransaction.pm b/SL/Controller/CsvImport/BankTransaction.pm
index 76e9020afb59a5e3722690a98988e6c4695c2679..5397d27d969f3e96d0c7cd0f8a02d3ca5ecb4a84 100644 (file)
--- a/SL/Controller/CsvImport/BankTransaction.pm
+++ b/SL/Controller/CsvImport/BankTransaction.pm
@@ -15,6 +15,15 @@ use Rose::Object::MakeMethods::Generic
  'scalar --get_set_init' => [ qw(bank_accounts_by) ],
 );
 
  'scalar --get_set_init' => [ qw(bank_accounts_by) ],
 );
 

+sub set_profile_defaults {
+  my ($self) = @_;
+
+  $self->controller->profile->_set_defaults(
+                       charset       => 'UTF8',  # override charset from defaults
+                       update_policy => 'skip',
+                      );
+};
+

 sub init_class {
   my ($self) = @_;
   $self->class('SL::DB::BankTransaction');
 sub init_class {
   my ($self) = @_;
   $self->class('SL::DB::BankTransaction');


@@ -47,6 +56,7 @@ sub check_objects {
   }
 
   $self->add_info_columns({ header => $::locale->text('Bank account'), method => 'local_bank_name' });
   }
 
   $self->add_info_columns({ header => $::locale->text('Bank account'), method => 'local_bank_name' });

+  $self->add_raw_data_columns("currency", "currency_id") if grep { /^currency(?:_id)?$/ } @{ $self->csv->header };

 }
 
 sub check_existing {
 }
 
 sub check_existing {


@@ -78,7 +88,6 @@ sub setup_displayable_columns {
 
   $self->SUPER::setup_displayable_columns;
 
 
   $self->SUPER::setup_displayable_columns;
 

-  # TODO: don't show fields cleared, invoice_amount and transaction_id in the help text, as these should not be imported

   $self->add_displayable_columns({ name => 'local_bank_code',       description => $::locale->text('Own bank code') },
                                  { name => 'local_account_number',  description => $::locale->text('Own bank account number or IBAN') },
                                  { name => 'local_bank_account_id', description => $::locale->text('ID of own bank account') },
   $self->add_displayable_columns({ name => 'local_bank_code',       description => $::locale->text('Own bank code') },
                                  { name => 'local_account_number',  description => $::locale->text('Own bank account number or IBAN') },
                                  { name => 'local_bank_account_id', description => $::locale->text('ID of own bank account') },


@@ -91,6 +100,8 @@ sub setup_displayable_columns {
                                  { name => 'currency_id',           description => $::locale->text('Currency (database ID)')          },
                                  { name => 'remote_name',           description => $::locale->text('Name of the goal/source (if field names remote_name and remote_name_1 exist they will be combined into field "remote_name")') },
                                  { name => 'purpose',               description => $::locale->text('Purpose (if field names purpose, purpose1, purpose2 ... exist they will all combined into the field "purpose")') },
                                  { name => 'currency_id',           description => $::locale->text('Currency (database ID)')          },
                                  { name => 'remote_name',           description => $::locale->text('Name of the goal/source (if field names remote_name and remote_name_1 exist they will be combined into field "remote_name")') },
                                  { name => 'purpose',               description => $::locale->text('Purpose (if field names purpose, purpose1, purpose2 ... exist they will all combined into the field "purpose")') },

+                                 { name => 'transactionCode',       description => $::locale->text('Transaction Code') },
+                                 { name => 'transactionText',       description => $::locale->text('Transaction Text') },

                                  );
 }
 
                                  );
 }
 


@@ -99,9 +110,9 @@ sub check_bank_account {
 
   my $object = $entry->{object};
 
 
   my $object = $entry->{object};
 

-  # Check whether or not local_bank_account ID exists and is valid.
+  # import via id: check whether or not local_bank_account ID exists and is valid.

   if ($object->local_bank_account_id && !$self->bank_accounts_by->{id}->{ $object->local_bank_account_id }) {
   if ($object->local_bank_account_id && !$self->bank_accounts_by->{id}->{ $object->local_bank_account_id }) {

-    push @{ $entry->{errors} }, $::locale->text('Error: Invalid local bank account');
+    push @{ $entry->{errors} }, $::locale->text('Error: unknown local bank account id');

     return 0;
   }
 
     return 0;
   }
 


@@ -109,11 +120,11 @@ sub check_bank_account {
   if ($object->local_bank_account_id && $entry->{raw_data}->{local_account_number}) {
     my $bank_account = $self->bank_accounts_by->{id}->{ $object->local_bank_account_id };
     if ($bank_account->account_number ne $entry->{raw_data}->{local_account_number}) {
   if ($object->local_bank_account_id && $entry->{raw_data}->{local_account_number}) {
     my $bank_account = $self->bank_accounts_by->{id}->{ $object->local_bank_account_id };
     if ($bank_account->account_number ne $entry->{raw_data}->{local_account_number}) {

-      push @{ $entry->{errors} }, $::locale->text('Error: Invalid local bank account');
+      push @{ $entry->{errors} }, $::locale->text('Error: local bank account id doesn\'t match local bank account number');

       return 0;
     }
     if ($entry->{raw_data}->{local_bank_code} && $entry->{raw_data}->{local_bank_code} ne $bank_account->bank_code) {
       return 0;
     }
     if ($entry->{raw_data}->{local_bank_code} && $entry->{raw_data}->{local_bank_code} ne $bank_account->bank_code) {

-      push @{ $entry->{errors} }, $::locale->text('Error: Invalid local bank account');
+      push @{ $entry->{errors} }, $::locale->text('Error: local bank account id doesn\'t match local bank code');

       return 0;
     }
 
       return 0;
     }
 


@@ -127,18 +138,17 @@ sub check_bank_account {
        $bank_account = $self->bank_accounts_by->{iban}->{ $entry->{raw_data}->{local_account_number} };
     };
     if (!$bank_account) {
        $bank_account = $self->bank_accounts_by->{iban}->{ $entry->{raw_data}->{local_account_number} };
     };
     if (!$bank_account) {

-      push @{ $entry->{errors} }, $::locale->text('Error: Invalid local bank account');
+      push @{ $entry->{errors} }, $::locale->text('Error: unknown local bank account') . ": " . $entry->{raw_data}->{local_account_number};

       return 0;
     }
     if ($entry->{raw_data}->{local_bank_code} && $entry->{raw_data}->{local_bank_code} ne $bank_account->bank_code) {
       return 0;
     }
     if ($entry->{raw_data}->{local_bank_code} && $entry->{raw_data}->{local_bank_code} ne $bank_account->bank_code) {

-      push @{ $entry->{errors} }, $::locale->text('Error: Invalid local bank account');
+      push @{ $entry->{errors} }, $::locale->text('Error: Found local bank account number but local bank code doesn\'t match') . ": " . $entry->{raw_data}->{local_bank_code};

       return 0;
     }
 
     $object->local_bank_account_id($bank_account->id);
     $entry->{info_data}->{local_bank_name} = $bank_account->name;
   }
       return 0;
     }
 
     $object->local_bank_account_id($bank_account->id);
     $entry->{info_data}->{local_bank_name} = $bank_account->name;
   }

-

   return $object->local_bank_account_id ? 1 : 0;
 }
 
   return $object->local_bank_account_id ? 1 : 0;
 }
 


@@ -173,4 +183,8 @@ sub join_remote_names {
   $object->remote_name($remote_name);
 }
 
   $object->remote_name($remote_name);
 }
 

+sub check_auth {
+  $::auth->assert('config') if ! $::auth->assert('bank_transaction',1);
+}
+

 1;
 1;