- $query = qq|DELETE FROM acc_trans WHERE trans_id=$form->{id} AND chart_id=(SELECT c.id FROM chart c
- WHERE c.accno = '$accno') AND amount=$form->{fx}{$accno}{$transdate} AND transdate='$transdate' AND cleared='0' AND fx_transaction='1'|;
- $dbh->do($query) || $form->dberror($query);
- $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
- transdate, cleared, fx_transaction)
- VALUES ($form->{id},
- (SELECT c.id FROM chart c
- WHERE c.accno = '$accno'),
- $form->{fx}{$accno}{$transdate}, '$transdate', '0', '1')|;
- $dbh->do($query) || $form->dberror($query);
+ $query =
+ qq|DELETE FROM acc_trans | .
+ qq|WHERE trans_id = ? AND | .
+ qq| chart_id = (SELECT c.id FROM chart c WHERE c.accno = ?) AND | .
+ qq| amount = ? AND transdate = ? AND cleared = 'f' AND fx_transaction = 't'|;
+ @values = (conv_i($form->{id}), $accno,
+ conv_i($form->{fx}{$accno}{$transdate}),
+ conv_date($transdate));
+ do_query($form, $dbh, $query, @values);
+
+ $query =
+ qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, cleared, fx_transaction, project_id, taxkey) | .
+ qq|VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?, 'f', 't', ?, | .
+ qq| (SELECT taxkey_id FROM chart WHERE accno = ?))|;
+ @values = (conv_i($form->{id}), $accno,
+ $form->{fx}{$accno}{$transdate},
+ conv_date($transdate), $project_id,
+ $form->{fx}{$accno}{$transdate});
+ do_query($form, $dbh, $query, @values);