- qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate) | .
- qq|VALUES (?, (SELECT c.id FROM chart c WHERE c.accno = ?), ?, ?)|;
- @values = ($form->{id}, $form->{AP}, $amount,
- conv_date($form->{"datepaid_$i"}));
+ qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id, taxkey) | .
+ qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, ?, | .
+ qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|;
+ @values = ($form->{id}, $accno_ap, $amount,
+ conv_date($form->{"datepaid_$i"}),
+ conv_i($form->{"paid_project_id_$i"}), $accno_ap);