-
- $query = qq| SELECT c.accno, t.rate FROM chart c, tax t where c.id=t.chart_id AND t.taxkey=$form->{taxkey}|;
- $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
- ($form->{AR}{tax}, $form->{taxrate}) = $sth->fetchrow_array;
- $sth->finish;
-
- $form->{tax} = $form->{amount_1} * $form->{taxrate};
- $form->{tax} = $form->round_amount($form->{tax} * $form->{exchangerate}, 2);
- $form->{total_tax} += $form->{tax};
-
- # adjust paidaccounts if there is no date in the last row
- $form->{paidaccounts}-- unless ($form->{"datepaid_$form->{paidaccounts}"});
- $form->{paid} = 0;
- # add payments
- for $i (1 .. $form->{paidaccounts}) {
- $form->{"paid_$i"} = $form->round_amount($form->parse_amount($myconfig, $form->{"paid_$i"}), 2);
-
- $form->{paid} += $form->{"paid_$i"};
- $form->{datepaid} = $form->{"datepaid_$i"};
-
- }
+ for $i (1 .. $form->{rowcount}) {
+ ($form->{"taxkey_$i"}, $NULL) = split /--/, $form->{"taxchart_$i"};