projekt kivitendo

    my $taxkey;

    my $rate;

    print(STDERR $form->{"taxchart_$i"}, "TAXCHART\n");

    ($form->{"tax_id_$i"}, $NULL) = split /--/, $form->{"taxchart_$i"};

    if ($form->{"tax_id_$i"} ne "") {

      $query = qq|SELECT t.taxkey, t.rate

              FROM tax t

              WHERE t.id=$form->{"tax_id_$i"}|;

      $sth = $dbh->prepare($query);

      $sth->execute || $form->dberror($query);

      ($taxkey, $rate) =

        $sth->fetchrow_array;

      $sth->finish;

    }

                  WHERE t.id = $form->{"tax_id_$i"}),

    $query = qq|SELECT c.accno, t.taxkey AS accnotaxkey, a.amount, a.memo,

                a.transdate, a.cleared, a.project_id, p.projectnumber,(SELECT p.projectnumber FROM project p

		 WHERE a.project_id = p.id) AS projectnumber, a.taxkey, t.rate AS taxrate, t.id, (SELECT c1.accno FROM chart c1, tax t1 WHERE t1.id=t.id AND c1.id=t.chart_id) AS taxaccno

		FROM acc_trans a

		JOIN chart c ON (c.id = a.chart_id)

		LEFT JOIN project p ON (p.id = a.project_id)

                LEFT JOIN tax t ON (t.id=(SELECT tk.tax_id from taxkeys tk WHERE (tk.taxkey_id=a.taxkey) AND ((CASE WHEN a.chart_id IN (SELECT chart_id FROM taxkeys WHERE taxkey_id=a.taxkey) THEN tk.chart_id=a.chart_id ELSE 1=1 END) OR (c.link='%tax%')) AND startdate <=a.transdate ORDER BY startdate DESC LIMIT 1)) 

                WHERE a.trans_id = $form->{id}

		AND a.fx_transaction = '0'

		ORDER BY a.oid,a.transdate|;

  my $transdate = "current_date";

  if ($form->{transdate}) {

    $transdate = qq|'$form->{transdate}'|;

  }

  $query = qq|SELECT c.accno, c.description, c.link, tk.taxkey_id, tk.tax_id

                FROM chart c 

                LEFT JOIN taxkeys tk ON (tk.id = (SELECT id from taxkeys where taxkeys.chart_id =c.id AND startdate<=$transdate ORDER BY startdate desc LIMIT 1))

                ORDER BY c.accno|;