use SL::DB::PurchaseInvoice;
use SL::DB::AccTransaction;
use SL::Locale::String qw(t8);
+use SL::DBUtils qw(like);
use List::Util qw(sum);
-sub auth { 'general_ledger' }
+sub auth { 'general_ledger|gl_transactions|ap_transactions|ar_transactions' }
-sub name { 'gl_transction' }
+sub name { 'gl_transaction' }
sub description_config { t8('GL search') }
my $limit = $::form->{limit} || 40; # max number of results per type (AR/AP/GL)
my $term = $::form->{term} || '';
- my $descriptionquery = { ilike => '%' . $term . '%' };
- my $referencequery = { ilike => '%' . $term . '%' };
- my $apinvnumberquery = { ilike => '%' . $term . '%' };
- my $namequery = { ilike => '%' . $term . '%' };
- my $arinvnumberquery = { ilike => '%' . $term };
+ 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) };
# 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
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' ]);
- # use the sum of all credit amounts as the "amount" of the gl transaction
- foreach my $gl ( @$gls ) {
- $gl->{'amount'} = sum map { $_->amount if $_->amount > 0 } @{$gl->transactions};
- };
-
my $gldata = [
map(
{
{
- transdate => DateTime->from_object(object => $_->transdate)->ymd(),
- label => $_->abbreviation. ": " . $_->description . " " . $_->reference . " " . $::form->format_amount(\%::myconfig, $_->{'amount'},2). " (" . $_->transdate->to_lxoffice . ")" ,
+ transdate => $_->transdate->ymd(''), # only used for sorting
+ label => $_->oneline_summary,
+ value => '',
id => 'gl.pl?action=edit&id=' . $_->id,
}
}
map(
{
{
- transdate => DateTime->from_object(object => $_->transdate)->ymd(),
- label => $_->abbreviation . ": " . $_->invnumber . " " . $_->customer->name . " " . $::form->format_amount(\%::myconfig, $_->amount,2) . " (" . $_->transdate->to_lxoffice . ")" ,
+ transdate => $_->transdate->ymd(''),
+ label => $_->oneline_summary,
+ value => "",
id => ($_->invoice ? "is" : "ar" ) . '.pl?action=edit&id=' . $_->id,
}
}
map(
{
{
- transdate => DateTime->from_object(object => $_->transdate)->ymd(),
- label => $_->abbreviation . ": " . $_->invnumber . " " . $_->vendor->name . " " . $::form->format_amount(\%::myconfig, $_->amount,2) . " (" . $_->transdate->to_lxoffice . ")" ,
+ transdate => $_->transdate->ymd(''),
+ label => $_->oneline_summary,
value => "",
id => ($_->invoice ? "ir" : "ap" ) . '.pl?action=edit&id=' . $_->id,
}