projekt kivitendo

                                $form->{transdate}, 'buy');

  }

  for $i (1 .. $form->{rowcount}) {

  }

  ($form->{AR_amounts}{receivables}) = split(/--/, $form->{ARselected});

  $form->{exchangerate} =

    ($exchangerate)

  $form->{taxincluded} = 0 if ($form->{amount} == 0);

  for $i (1 .. $form->{rowcount}) {

    $query =

      qq| SELECT c.accno, t.rate FROM chart c, tax t where c.id=t.chart_id AND t.taxkey=$form->{"taxkey_$i"}|;

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

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

    $form->{AR_amounts}{"amount_$i"}{taxkey} = $form->{"taxkey_$i"};

    $sth->finish;

    if (!$form->{"korrektur_$i"}) {

      if ($form->{taxincluded} *= 1) {

        $amount = $form->{"amount_$i"} - $tax;

        $form->{"amount_$i"} = $form->round_amount($amount, 2);

        $diff += $amount - $form->{"amount_$i"};

        $form->{"tax_$i"} = $form->round_amount($tax, 2);

        $form->{netamount} += $form->{"amount_$i"};

      }

    }

    $form->{total_tax} += $form->{"tax_$i"};

  }

		                        WHERE c.accno = '$form->{AR_amounts}{"amount_$i"}'),

		  $form->{"amount_$i"}, '$form->{transdate}', $project_id, '$taxkey')|;

      $dbh->do($query) || $form->dberror($query);

        # insert detail records in acc_trans

                                          project_id, taxkey)

                    VALUES ($form->{id}, (SELECT c.id FROM chart c

                                          WHERE c.accno = '$form->{AR_amounts}{"tax_$i"}'),

      }

    }

  }

  # add recievables

  $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,

                                      project_id)

              $form->{receivables}, '$form->{transdate}', $project_id)|;

  $dbh->do($query) || $form->dberror($query);

  # add paid transactions

  for my $i (1 .. $form->{paidaccounts}) {

    if ($form->{"paid_$i"} != 0) {