projekt kivitendo

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);

__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' ]);

  # calculate an amount to be displayed for gl transaction

  foreach my $gl ( @$gls ) {

    my $amount = 0;

    my $acc_trans_lines = SL::DB::Manager::AccTransaction->get_all(query => [ trans_id => $gl->id ]);

    foreach my $acc_trans_line ( @$acc_trans_lines ) {

      $amount += $acc_trans_line->amount if $acc_trans_line->amount > 0 ;

    };

    $gl->{'amount'} = $amount;

  };

  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_sort'} cmp $b->{'transdate_sort'} } @$data;

  $self->render(\SL::JSON::to_json($data), { layout => 0, type => 'json' });

}

sub check_auth {

  $::auth->assert('general_ledger');

}

1;

sub abbreviation {

  my $self = shift;

  my $abbreviation = $::locale->text('GL Transaction (abbreviation)');

  $abbreviation   .= "(" . $::locale->text('Storno (one letter abbreviation)') . ")" if $self->storno;

  return $abbreviation;

}

use SL::Locale::String qw(t8);

sub abbreviation {

  my $self = shift;

  return t8('AR Transaction (abbreviation)') if !$self->invoice;

  return t8('Credit note (one letter abbreviation)') if $self->type eq 'credit_note' && $self->amount < 0 && !$self->storno;

  return t8('Invoice (one letter abbreviation)') . "(" . t8('Storno (one letter abbreviation)') . ")" if $self->type ne 'credit_note' && $self->amount < 0 &&  $self->storno;

  return t8('Credit note (one letter abbreviation)') . "(" . t8('Storno (one letter abbreviation)') . ")" if $self->type eq 'credit_note' && $self->amount > 0 &&  $self->storno;

  return t8('Invoice (one letter abbreviation)');

}

use SL::Locale::String qw(t8);

sub abbreviation {

  my $self = shift;

  return t8('AP Transaction (abbreviation)') if !$self->invoice && !$self->storno;

  return t8('AP Transaction (abbreviation)') . '(' . t8('Storno (one letter abbreviation)') . ')' if !$self->invoice && $self->storno;

  return t8('Invoice (one letter abbreviation)'). '(' . t8('Storno (one letter abbreviation)') . ')' if $self->storno;

  return t8('Invoice (one letter abbreviation)');

}

- FiBu Schnellsuche in Headerzeile, um nach Belegen zu suchen

$(function() {

  $( "#glquicksearch" ).autocomplete({

    source: "controller.pl?action=GL/quicksearch",

    minLength: 3,

    select: function(event, ui) {

           var url = ui.item.url;

           if(url != '#') {

               location.href = url;

           }

       },

    html: false,

    autoFocus: true

  });

});

  'GL Transaction (abbreviation)' => 'DB',

  'GL search'                   => 'FiBu Suche',

[%- IF AUTH.assert('general_ledger', 1) %]

    [[% 'GL search' | $T8 %]: <input id="glquicksearch" name="glquicksearch" type="text" class="ui-widget" size="20" maxlength="20">]

[%- END %]

[% IF AUTH.assert('general_ledger', 1) %]

 <script type="text/javascript" src="js/glquicksearch.js"></script>

[% END %]

[%- IF AUTH.assert('general_ledger', 1) %]

    [[% 'GL search' | $T8 %]: <input id="glquicksearch" name="glquicksearch" type="text" class="ui-widget" size="20" maxlength="20">]

[%- END %]

[% IF AUTH.assert('general_ledger', 1) %]

 <script type="text/javascript" src="js/glquicksearch.js"></script>

[% END %]

[%- IF AUTH.assert('general_ledger', 1) %]

    [[% 'GL search' | $T8 %]: <input id="glquicksearch" name="glquicksearch" type="text" class="ui-widget" size="20" maxlength="20">]

[%- END %]

[% IF AUTH.assert('general_ledger', 1) %]

 <script type="text/javascript" src="js/glquicksearch.js"></script>

[% END %]