Merge branch 'b-3.6.1' of ../kivitendo-erp_20220811

[kivitendo-erp.git] / SL / Controller / GL.pm

diff --git a/SL/Controller/GL.pm b/SL/Controller/GL.pm
deleted file mode 100644 (file)
index e79f304..0000000
--- a/SL/Controller/GL.pm
+++ /dev/null
@@ -1,103 +0,0 @@
-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;