+
+ if ($form->{initial_transdate}) {
+ my $tax_query = qq|SELECT tk.tax_id, t.rate FROM taxkeys tk
+ LEFT JOIN tax t ON tk.tax_id = t.id
+ WHERE tk.chart_id = ? AND startdate <= ?
+ ORDER BY tk.startdate DESC LIMIT 1|;
+ my ($tax_id, $rate) = selectrow_query($form, $dbh, $tax_query, $ref->{id},
+ $form->{initial_transdate});
+ $form->{"taxchart_$i"} = "${tax_id}--${rate}";
+ }
+
+ $form->{"AP_amount_$i"} = "$ref->{accno}--$tax_id";