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

  $form->{duedate}     = $duedate if $duedate;

  $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";

  # currencies

  @curr = split /:/, $form->{currencies};

  chomp $curr[0];

    # if there is a value we have an old entry

    my $j = 0;

    my $k = 0;

    for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {

      if ($key eq "AR_paid") {

        $j++;

        $akey = $key;

        $akey =~ s/AR_//;

          $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} =

            "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";

          $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} =

              $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};

            $withholdingrate +=

              $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"};

          $index = $form->{acc_trans}{$key}->[$i - 1]->{index};

          $form->{"tax_$index"} = $form->{acc_trans}{$key}->[$i - 1]->{amount};

        } else {

          $k++;

        ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount;

      $tax = $form->round_amount($taxamount, 2);

      $diff                += ($taxamount - $tax);

    }

    $form->{amount_1} += $form->round_amount($diff, 2);

  }

  $taxamount = $form->round_amount($taxamount, 2);

  $form->{tax} = $taxamount;

  $form->{locked} =

    ($form->datetonum($form->{transdate}, \%myconfig) <=

      s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;

  }

  $selectAR_amount_unquoted = $form->{selectAR_amount};

  # format amounts

  $form->{exchangerate} =

    $button1 = qq|

       <td><input name=transdate id=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>

       <td><input type=button name=transdate id="trigger1" value=|

       |;

    $button2 = qq|

       <td><input name=duedate id=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>

       <td><input type=button name=duedate id="trigger2" value=|

     |;

    #write Trigger

	</tr>

|;

  $amount  = $locale->text('Amount');

  $project = $locale->text('Project');

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

    # format amounts

    $form->{"tax_$i"} = $form->format_amount(\%myconfig, $form->{"tax_$i"}, 2);

    $selectAR_amount = $selectAR_amount_unquoted;

    $tax          = $taxchart;

    $tax_selected = $form->{"taxchart_$i"};

    $tax =~ s/value=\"$tax_selected\"/value=\"$tax_selected\" selected/;

    $tax =

    print qq|

	<tr>

    $project = "";

  }

  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2);

  print qq|

      <table width=100%>

	<tr class=listheading>

	  <th colspan=6 class=listheading>|

	</tr>

|;

  $form->{invtotal} = 0;

  $form->{selectAR} = $form->{AR};

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

    $form->{"amount_$i"} =

      $form->parse_amount(\%myconfig, $form->{"amount_$i"});

    if ($form->{"amount_$i"}) {

      push @a, {};

      $j = $#a;

  &check_project;

  $form->{invtotal} =

    ($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax;

    $button1 = qq|

       <td><input name=transdatefrom id=transdatefrom size=11 title="$myconfig{dateformat}">

       <input type=button name=transdatefrom id="trigger1" value=|

      |;

    $button2 = qq|

       <td><input name=transdateto id=transdateto size=11 title="$myconfig{dateformat}">

       <input type=button name=transdateto name=transdateto id="trigger2" value=|

     |;

    #write Trigger

    $option   .= $locale->text('Closed');

  }

    qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee shippingpoint shipvia)

  foreach $item (@columns) {

    if ($form->{"l_$item"} eq "Y") {