- $res = get_additional_issues($woid);
- $wo = get_work_order($woid);
- $issue_total = 0;
- while ($item = db_fetch($res))
- {
- $standard_cost = get_standard_cost($item['stock_id']);
- $issue_cost = $standard_cost * $item['qty_issued'] * $units_reqd / $wo['units_reqd'];
- $issue = get_stock_gl_code($item['stock_id']);
- $total_cost += add_gl_trans_std_cost(systypes::work_order(), $woid, $date_, $issue["inventory_account"], 0, 0,
- null, -$issue_cost);
- $issue_total += $issue_cost;
- }
- if ($issue_total != 0)
- add_issue_cost($stock_id, $units_reqd, $date_, $issue_total);
- $result = get_gl_wo_cost_trans($woid, WO_LABOUR);
- $lcost = 0;
- while ($row = db_fetch($result))
- $lcost += -$row['amount'];
- if ($lcost != 0)
- add_labour_cost($stock_id, $units_reqd, $date_, $lcost * $units_reqd / $wo['units_reqd']);
- $result = get_gl_wo_cost_trans($woid, WO_OVERHEAD);
- $ocost = 0;
- while ($row = db_fetch($result))
- $ocost += -$row['amount'];
- if ($ocost != 0)
- add_overhead_cost($stock_id, $units_reqd, $date_, $ocost * $units_reqd / $wo['units_reqd']);
- }
- // credit additional costs