projekt kivitendo

    push(@apvalues, '%' . $form->{source} . '%');

  }

  if ($form->{datefrom}) {

    push(@glvalues, $form->{datefrom});

    push(@arvalues, $form->{datefrom});

    push(@apvalues, $form->{datefrom});

  }

  if ($form->{dateto}) {

    push(@glvalues, $form->{dateto});

    push(@arvalues, $form->{dateto});

    push(@apvalues, $form->{dateto});

    push(@arvalues, '%' . $form->{description} . '%');

    push(@apvalues, '%' . $form->{description} . '%');

  }

  if ($form->{notes}) {

    $glwhere .= " AND g.notes ILIKE ?";

        qq|SELECT SUM(ac.amount)

           FROM acc_trans ac

           LEFT JOIN chart c ON (ac.chart_id = c.id)

      ($form->{balance}) = selectrow_query($form, $dbh, $query, $form->{accno}, conv_date($form->{datefrom}));

    }

  }

  my %sort_columns =  (

    'id'           => [ qw(id)                   ],

    'transdate'    => [ qw(transdate id)         ],

    'reference'    => [ qw(lower_reference id)   ],

    'description'  => [ qw(lower_description id) ],

    'accno'        => [ qw(accno transdate id)   ],

    'source'          => { 'gl' => 'ac.source',     'arap' => 'ac.source',   },

    'description'     => { 'gl' => 'g.description', 'arap' => 'ct.name',     },

    );

  my $sortdir   = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC';

  my $sortorder = join ', ', map { "$_ $sortdir" } @{ $sort_columns{$sortkey} };

  my %columns_for_sorting = ( 'gl' => '', 'arap' => '', );

  $query =

    qq|SELECT

        ac.acc_trans_id, g.id, 'gl' AS type, $false AS invoice, g.reference, ac.taxkey, c.link,

        $project_columns

        $columns_for_sorting{gl}

      FROM gl g, acc_trans ac $project_join, chart c

      UNION

      SELECT ac.acc_trans_id, a.id, 'ar' AS type, a.invoice, a.invnumber, ac.taxkey, c.link,

        $project_columns

        $columns_for_sorting{arap}

      FROM ar a, acc_trans ac $project_join, customer ct, chart c

      UNION

      SELECT ac.acc_trans_id, a.id, 'ap' AS type, a.invoice, a.invnumber, ac.taxkey, c.link,

        $project_columns

        $columns_for_sorting{arap}

      FROM ap a, acc_trans ac $project_join, vendor ct, chart c

        AND (a.id = ac.trans_id)

      ORDER BY $sortorder, acc_trans_id $sortdir|;

  my @values = (@glvalues, @arvalues, @apvalues);

| if $form->{selectdepartment};

  $form->get_lists("projects" => { "key" => "ALL_PROJECTS",

  my %project_labels = ();

  my @project_values = ("");

                         '-values' => \@project_values,

                         '-labels' => \%project_labels));

  # use JavaScript Calendar or not

  $form->{jsscript} = 1;

  my $jsscript = "";

<form method=post action=gl.pl>

<table width=100%>

  <tr>

        </tr>

        <tr>

          <th align=right>| . $locale->text('From') . qq|</th>

          $button1

          <th align=right>| . $locale->text('To (time)') . qq|</th>

          $button2

                    <td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td>

                    <td>| . $locale->text('ID') . qq|</td>

                    <td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>

                    <td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td>

                    <td>| . $locale->text('Reference') . qq|</td>

                    <td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td>

                    <td>| . $locale->text('Subtotal') . qq|</td>

                    <td align=right><input name="l_projectnumbers" class=checkbox type=checkbox value=Y></td>

                    <td>| . $locale->text('Project Number') . qq|</td>

                  </tr>

                </table>

              </tr>

  my %myconfig = %main::myconfig;

  my $locale   = $main::locale;

  GL->all_transactions(\%myconfig, \%$form);

  my $ml = ($form->{ml} =~ /(A|E|Q)/) ? -1 : 1;

  my @columns = qw(

    credit         credit_accno     debit_tax      debit_tax_accno

    credit_tax     credit_tax_accno projectnumbers balance

  );

  push @hidden_variables, map { "l_${_}" } @columns;

  my (@options, @date_options);

  push @options,      $locale->text('Account')     . " : $form->{accno} $form->{account_description}" if ($form->{accno});

  push @options,      $locale->text('Reference')   . " : $form->{reference}"                          if ($form->{reference});

  push @options,      $locale->text('Description') . " : $form->{description}"                        if ($form->{description});

  push @options,      $locale->text('Notes')       . " : $form->{notes}"                              if ($form->{notes});

  push @date_options, $locale->text('From'), $locale->date(\%myconfig, $form->{datefrom}, 1)          if ($form->{datefrom});

  push @date_options, $locale->text('Bis'),  $locale->date(\%myconfig, $form->{dateto},   1)          if ($form->{dateto});

  push @options,      join(' ', @date_options)                                                        if (scalar @date_options);

  my $callback = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);

  $form->{l_credit_accno}     = 'Y';

  $form->{l_debit_accno}      = 'Y';

  $form->{l_credit_tax}       = 'Y';

  $form->{l_debit_tax}        = 'Y';

  $form->{l_credit_tax_accno} = 'Y';

  $form->{l_debit_tax_accno}  = 'Y';

  $form->{l_balance}          = $form->{accno} ? 'Y' : '';

  my %column_defs = (

    'id'               => { 'text' => $locale->text('ID'), },

    'reference'        => { 'text' => $locale->text('Reference'), },

    'source'           => { 'text' => $locale->text('Source'), },

    'description'      => { 'text' => $locale->text('Description'), },

    'credit_tax_accno' => { 'text' => $locale->text('Credit Tax Account'), },

    'balance'          => { 'text' => $locale->text('Balance'), },

    'projectnumbers'   => { 'text' => $locale->text('Project Numbers'), },

  );

    my $sortname                = $name =~ m/accno/ ? 'accno' : $name;

    my $sortdir                 = $sortname eq $form->{sort} ? 1 - $form->{sortdir} : $form->{sortdir};

    $column_defs{$name}->{link} = $callback . "&sort=$sortname&sortdir=$sortdir";

  my %column_alignment;

  map { $column_alignment{$_}     = 'right'  } qw(balance id debit credit debit_tax credit_tax balance);

  map { $column_alignment{$_}     = 'left' } qw(description source notes);

  map { $column_defs{$_}->{align} = $column_alignment{$_} } keys %column_alignment;

    map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description notes);

    foreach my $col (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno)) {

      $row->{$col}->{link} = [ map { "${callback}&accno=" . E($_) } @{ $rows{$col} } ];