kivitendo/SL/Controller/TopQuickSearch/GLTransaction.pm @ d1f58302
| 6c630204 | Sven Schöling | package SL::Controller::TopQuickSearch::GLTransaction;
|
||
use strict;
|
||||
use parent qw(Rose::Object);
|
||||
use SL::DB::GLTransaction;
|
||||
use SL::DB::Invoice;
|
||||
use SL::DB::PurchaseInvoice;
|
||||
use SL::DB::AccTransaction;
|
||||
use SL::Locale::String qw(t8);
|
||||
| bc40bcab | Moritz Bunkus | use SL::DBUtils qw(like);
|
||
| 6c630204 | Sven Schöling | use List::Util qw(sum);
|
||
| 25d67207 | Martin Helmling | sub auth { 'general_ledger|gl_transactions|ap_transactions|ar_transactions' }
|
||
| 6c630204 | Sven Schöling | |||
| 4e070acf | Sven Schöling | sub name { 'gl_transaction' }
|
||
| 6c630204 | Sven Schöling | |||
sub description_config { t8('GL search') }
|
||||
sub description_field { t8('GL search') }
|
||||
sub query_autocomplete {
|
||||
my ($self, %params) = @_;
|
||||
my $limit = $::form->{limit} || 40; # max number of results per type (AR/AP/GL)
|
||||
my $term = $::form->{term} || '';
|
||||
| bc40bcab | Moritz Bunkus | my $descriptionquery = { ilike => like($term) };
|
||
my $referencequery = { ilike => like($term) };
|
||||
my $apinvnumberquery = { ilike => like($term) };
|
||||
my $namequery = { ilike => like($term) };
|
||||
my $arinvnumberquery = { ilike => '%' . SL::Util::trim($term) };
|
||||
| 6c630204 | Sven Schöling | # ar match is more restrictive. Left fuzzy beginning so it also matches "Storno zu $INVNUMBER"
|
||
# and numbers like 000123 if you only enter 123.
|
||||
# When used in quicksearch short numbers like 1 or 11 won't match because of the
|
||||
# ajax autocomplete minlimit of 3 characters
|
||||
my (@glfilter, @arfilter, @apfilter);
|
||||
push( @glfilter, (or => [ description => $descriptionquery, reference => $referencequery ] ) );
|
||||
push( @arfilter, (or => [ invnumber => $arinvnumberquery, name => $namequery ] ) );
|
||||
push( @apfilter, (or => [ invnumber => $apinvnumberquery, name => $namequery ] ) );
|
||||
my $gls = SL::DB::Manager::GLTransaction->get_all( query => [ @glfilter ], limit => $limit, sort_by => 'transdate DESC');
|
||||
my $ars = SL::DB::Manager::Invoice->get_all( query => [ @arfilter ], limit => $limit, sort_by => 'transdate DESC', with_objects => [ 'customer' ]);
|
||||
my $aps = SL::DB::Manager::PurchaseInvoice->get_all(query => [ @apfilter ], limit => $limit, sort_by => 'transdate DESC', with_objects => [ 'vendor' ]);
|
||||
my $gldata = [
|
||||
map(
|
||||
{
|
||||
{
|
||||
| 74bb985a | Geoffrey Richardson | transdate => $_->transdate->ymd(''), # only used for sorting
|
||
| 5b981bb6 | Geoffrey Richardson | label => $_->oneline_summary,
|
||
value => '',
|
||||
| 7c782e1f | Geoffrey Richardson | id => 'gl.pl?action=edit&id=' . $_->id,
|
||
| 6c630204 | Sven Schöling | }
|
||
}
|
||||
@{$gls}
|
||||
),
|
||||
];
|
||||
my $ardata = [
|
||||
map(
|
||||
{
|
||||
{
|
||||
| 74bb985a | Geoffrey Richardson | transdate => $_->transdate->ymd(''),
|
||
| 5b981bb6 | Geoffrey Richardson | label => $_->oneline_summary,
|
||
value => "",
|
||||
| 7c782e1f | Geoffrey Richardson | id => ($_->invoice ? "is" : "ar" ) . '.pl?action=edit&id=' . $_->id,
|
||
| 6c630204 | Sven Schöling | }
|
||
}
|
||||
@{$ars}
|
||||
),
|
||||
];
|
||||
my $apdata = [
|
||||
map(
|
||||
{
|
||||
{
|
||||
| 74bb985a | Geoffrey Richardson | transdate => $_->transdate->ymd(''),
|
||
| 5b981bb6 | Geoffrey Richardson | label => $_->oneline_summary,
|
||
| 6c630204 | Sven Schöling | value => "",
|
||
id => ($_->invoice ? "ir" : "ap" ) . '.pl?action=edit&id=' . $_->id,
|
||||
}
|
||||
}
|
||||
@{$aps}
|
||||
),
|
||||
];
|
||||
my $data;
|
||||
push(@{$data},@{$gldata});
|
||||
push(@{$data},@{$ardata});
|
||||
push(@{$data},@{$apdata});
|
||||
@$data = reverse sort { $a->{'transdate'} cmp $b->{'transdate'} } @$data;
|
||||
$data;
|
||||
}
|
||||
sub select_autocomplete {
|
||||
$::form->{id}
|
||||
}
|
||||
sub do_search {
|
||||
my ($self) = @_;
|
||||
my $results = $self->query_autocomplete;
|
||||
return @$results == 1
|
||||
? $results->[0]{id}
|
||||
: undef;
|
||||
}
|
||||
# TODO: result overview page
|
||||
1;
|