add_gl_trans(ST_JOURNAL, $trans_no, $date, $ledger_act, 0, 0, _("Exchange Variance"),
$amount, null, $person_type_id, $person_id);
add_gl_trans(ST_JOURNAL, $trans_no, $date, $ex_act, 0, 0,
_("Exchange Variance"), -$amount, null, $person_type_id, $person_id);
add_comments(ST_JOURNAL, $trans_no, $date, $memo);
add_gl_trans(ST_JOURNAL, $trans_no, $date, $ledger_act, 0, 0, _("Exchange Variance"),
$amount, null, $person_type_id, $person_id);
add_gl_trans(ST_JOURNAL, $trans_no, $date, $ex_act, 0, 0,
_("Exchange Variance"), -$amount, null, $person_type_id, $person_id);
add_comments(ST_JOURNAL, $trans_no, $date, $memo);