|
package SL::Controller::GL;
|
|
|
|
use strict;
|
|
use parent qw(SL::Controller::Base);
|
|
|
|
use SL::DB::GLTransaction;
|
|
use SL::DB::Invoice;
|
|
use SL::DB::PurchaseInvoice;
|
|
use SL::DB::AccTransaction;
|
|
use SL::Locale::String qw(t8);
|
|
use List::Util qw(sum);
|
|
|
|
__PACKAGE__->run_before('check_auth');
|
|
|
|
sub action_quicksearch {
|
|
|
|
my ($self, %params) = @_;
|
|
|
|
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 };
|
|
# 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' ]);
|
|
|
|
# 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 . ")" ,
|
|
value => '',
|
|
url => 'gl.pl?action=edit&id=' . $_->id,
|
|
}
|
|
}
|
|
@{$gls}
|
|
),
|
|
];
|
|
|
|
my $ardata = [
|
|
map(
|
|
{
|
|
{
|
|
transdate => DateTime->from_object(object => $_->transdate)->ymd(),
|
|
label => $_->abbreviation . ": " . $_->invnumber . " " . $_->customer->name . " " . $::form->format_amount(\%::myconfig, $_->amount,2) . " (" . $_->transdate->to_lxoffice . ")" ,
|
|
value => "",
|
|
url => ($_->invoice ? "is" : "ar" ) . '.pl?action=edit&id=' . $_->id,
|
|
}
|
|
}
|
|
@{$ars}
|
|
),
|
|
];
|
|
|
|
my $apdata = [
|
|
map(
|
|
{
|
|
{
|
|
transdate => DateTime->from_object(object => $_->transdate)->ymd(),
|
|
label => $_->abbreviation . ": " . $_->invnumber . " " . $_->vendor->name . " " . $::form->format_amount(\%::myconfig, $_->amount,2) . " (" . $_->transdate->to_lxoffice . ")" ,
|
|
value => "",
|
|
url => ($_->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;
|
|
|
|
$self->render(\SL::JSON::to_json($data), { layout => 0, type => 'json' });
|
|
}
|
|
|
|
sub check_auth {
|
|
$::auth->assert('general_ledger');
|
|
}
|
|
|
|
1;
|