projekt kivitendo

  my $query =

    qq|SELECT a.id, a.ordnumber, a.invoice, a.transdate, a.invnumber, a.amount, a.language_id,

         ct.name AS customername, ct.id AS customer_id, a.duedate, da.fee,

         da.duedate AS dunning_duedate, da.dunning_id, da.dunning_config_id,

         e2.name AS salesman

       FROM ar a

use SL::DN;

use SL::DB::Department;

use SL::DB::Dunning;

use SL::Helper::Flash qw(flash);

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

use SL::ReportGenerator;

require "bin/mozilla/common.pl";

    'fee'                 => { 'text' => $locale->text('Total Fees') },

    'interest'            => { 'text' => $locale->text('Interest') },

    'salesman'            => { 'text' => $locale->text('Salesperson'), 'visible' => $form->{l_salesman} ? 1 : 0 },

  );

  $report->set_columns(%column_defs);

      $row->{language} = { };

    }

    push @{ $current_dunning_rows }, $row;

    $previous_dunning_id   = $ref->{dunning_id};