X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FBankTransaction.pm;h=7f896461b15a9705d7e15f186a5690b167174cb9;hb=46c22b437926dec7e87ab5bb24dfb6a2c6124692;hp=54716879fb6e7965fb0ac40559303d9e5b8c71c4;hpb=2f3b969e3f315ad23225d9661c5dd8bc9ffd95ef;p=kivitendo-erp.git diff --git a/SL/Controller/BankTransaction.pm b/SL/Controller/BankTransaction.pm index 54716879f..7f896461b 100644 --- a/SL/Controller/BankTransaction.pm +++ b/SL/Controller/BankTransaction.pm @@ -101,7 +101,6 @@ sub action_list { @where ], ); - $::lxdebug->log_time('asdf'); # credit notes have a negative amount, treat differently my $all_open_ar_invoices = SL::DB::Manager::Invoice ->get_all(where => [ or => [ amount => { gt => \'paid' }, and => [ type => 'credit_note', @@ -115,7 +114,6 @@ sub action_list { my $all_open_sepa_export_items = SL::DB::Manager::SepaExportItem->get_all(where => [chart_id => $bank_account->chart_id , 'sepa_export.executed' => 0, 'sepa_export.closed' => 0 ], with_objects => ['sepa_export']); - $::lxdebug->log_time('asdf 2'); my @all_open_invoices; # filter out invoices with less than 1 cent outstanding push @all_open_invoices, map { $_->{is_ar}=1 ; $_ } grep { abs($_->amount - $_->paid) >= 0.01 } @{ $all_open_ar_invoices }; @@ -141,7 +139,6 @@ sub action_list { } } - $::lxdebug->log_time('asdf 4'); # try to match each bank_transaction with each of the possible open invoices # by awarding points my @proposals; @@ -202,7 +199,6 @@ sub action_list { push(@{$bt->{rule_matches}}, $_->{rule_matches}); }; }; - $::lxdebug->log_time('asdf 5'); } # finished one bt # finished all bt @@ -295,9 +291,9 @@ sub action_create_invoice { 'bank_transactions/create_invoice', { layout => 0 }, title => t8('Create invoice'), - TEMPLATES_GL => $use_vendor_filter ? undef : $templates_gl, + TEMPLATES_GL => $use_vendor_filter && @{ $templates_ap } ? undef : $templates_gl, TEMPLATES_AP => $templates_ap, - vendor_name => $use_vendor_filter ? $vendor_of_transaction->name : undef, + vendor_name => $use_vendor_filter && @{ $templates_ap } ? $vendor_of_transaction->name : undef, ); } @@ -332,15 +328,13 @@ sub action_filter_templates { $self->{transaction} = SL::DB::Manager::BankTransaction->find_by(id => $::form->{bt_id}); - my @filter; - push @filter, ('vendor.name' => { ilike => '%' . $::form->{vendor} . '%' }) if $::form->{vendor}; - push @filter, ('template_name' => { ilike => '%' . $::form->{template} . '%' }) if $::form->{template}; - push @filter, ('reference' => { ilike => '%' . $::form->{reference} . '%' }) if $::form->{reference}; + my (@filter, @filter_ap); - my $templates_ap = SL::DB::Manager::RecordTemplate->get_all( - where => [ template_type => 'ap_transaction', (and => \@filter) x !!@filter ], - with_objects => [ qw(employee vendor) ], - ); + # filter => gl and ap | filter_ap = ap (i.e. vendorname) + push @filter, ('template_name' => { ilike => '%' . $::form->{template} . '%' }) if $::form->{template}; + push @filter, ('reference' => { ilike => '%' . $::form->{reference} . '%' }) if $::form->{reference}; + push @filter_ap, ('vendor.name' => { ilike => '%' . $::form->{vendor} . '%' }) if $::form->{vendor}; + push @filter_ap, @filter; my $templates_gl = SL::DB::Manager::RecordTemplate->get_all( query => [ template_type => 'gl_transaction', chart_id => SL::DB::Manager::BankAccount->find_by(id => $self->transaction->local_bank_account_id)->chart_id, @@ -349,6 +343,10 @@ sub action_filter_templates { with_objects => [ qw(employee record_template_items) ], ); + my $templates_ap = SL::DB::Manager::RecordTemplate->get_all( + where => [ template_type => 'ap_transaction', (and => \@filter_ap) x !!@filter_ap ], + with_objects => [ qw(employee vendor) ], + ); $::form->{filter} //= {}; $self->callback($self->url_for(