?>
</div>
</td>
<td>
<a href="<?php
echo site_url('gudang/createpdf/' . $mng . '/' . $valdata[$fkolm] . '/' . $valdata['iduser']);
?>
" class="btn btn-sm btn-primary" role="group">preview</a>
</td>
<?php
break;
case 'invoice':
?>
<td>
<?php
if (getacc($valdata[$fkolm], $mng)) {
?>
<?php
if (ceksent($valdata[$fkolm], $mng)) {
?>
ok
<?php
} else {
?>
<a href="<?php
echo site_url('gudang/setemail/' . $valdata[$fkolm] . '/' . $mng);
?>
" class="btn btn-success">send email</a>
<?php
}
?>
function acc_xrate_update($fcid, $nrate, $tab, $key, $accid)
{
$bacc = getacc($accid);
$placc = getAccn('999', '999');
$date = date("d-m-Y");
$refnum = getrefnum();
db_connect();
$sql = "SELECT {$key}, balance, fbalance, (balance/fbalance) as crate FROM {$tab} WHERE fbalance <> 0 AND fcid = '{$fcid}'";
$rslt = db_exec($sql) or errDie("Unable to retrieve balances from Cubit", SELF);
while ($rec = pg_fetch_array($rslt)) {
$nbal = sprint($rec['fbalance'] * $nrate);
db_connect();
$sql = "UPDATE {$tab} SET balance = '{$nbal}' WHERE {$key} = '{$rec[$key]}'";
$uRs = db_exec($sql) or errDie("Unable to retrieve update exchange rate : {$tab}", SELF);
if ($nbal > $rec['balance']) {
$diff = sprint($nbal - $rec['balance']);
// Journal entry (? accounts)
writetrans($bacc['accid'], $placc['accid'], $date, $refnum, $diff, "Exchange rate profit.");
} else {
$diff = sprint($rec['balance'] - $nbal);
// Journal entry (? accounts)
writetrans($placc['accid'], $bacc['accid'], $date, $refnum, $diff, "Exchange rate loss.");
}
}
}
