2 /**********************************************************************
3 Copyright (C) FrontAccounting, LLC.
4 Released under the terms of the GNU General Public License, GPL,
5 as published by the Free Software Foundation, either version 3
6 of the License, or (at your option) any later version.
7 This program is distributed in the hope that it will be useful,
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
10 See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
11 ***********************************************************************/
12 $page_security = 'SA_SUPPLIERANALYTIC';
13 // ----------------------------------------------------------------
17 // Title: GRN Valuation Report
18 // ----------------------------------------------------------------
21 include_once($path_to_root . "/includes/session.inc");
22 include_once($path_to_root . "/includes/date_functions.inc");
23 include_once($path_to_root . "/includes/data_checks.inc");
24 include_once($path_to_root . "/includes/banking.inc");
25 include_once($path_to_root . "/gl/includes/gl_db.inc");
26 include_once($path_to_root . "/inventory/includes/db/items_category_db.inc");
28 //----------------------------------------------------------------------------------------------------
30 print_grn_valuation();
32 function getTransactions($from, $to)
34 $from = date2sql($from);
37 $sql = "SELECT ".TB_PREF."grn_batch.id batch_no,
38 ".TB_PREF."grn_batch.supplier_id,
39 ".TB_PREF."purch_order_details.*,
40 ".TB_PREF."stock_master.description,
41 ".TB_PREF."grn_items.qty_recd,
42 ".TB_PREF."grn_items.quantity_inv,
43 ".TB_PREF."grn_items.id grn_item_id
44 FROM ".TB_PREF."stock_master,
45 ".TB_PREF."purch_order_details,
48 WHERE ".TB_PREF."stock_master.stock_id=".TB_PREF."purch_order_details.item_code
49 AND ".TB_PREF."grn_batch.purch_order_no=".TB_PREF."purch_order_details.order_no
50 AND ".TB_PREF."grn_batch.id = ".TB_PREF."grn_items.grn_batch_id
51 AND ".TB_PREF."grn_items.po_detail_item = ".TB_PREF."purch_order_details.po_detail_item
52 AND ".TB_PREF."grn_items.qty_recd>0
53 AND ".TB_PREF."grn_batch.delivery_date>='$from'
54 AND ".TB_PREF."grn_batch.delivery_date<='$to'
55 ORDER BY ".TB_PREF."stock_master.stock_id, ".TB_PREF."grn_batch.delivery_date";
57 return db_query($sql,"No transactions were returned");
61 function getSuppInvDetails($grn_item_id)
64 ".TB_PREF."supp_invoice_items.supp_trans_no inv_no,
65 ".TB_PREF."supp_invoice_items.quantity inv_qty,
66 IF (".TB_PREF."supp_trans.tax_included = 1, ".TB_PREF."supp_invoice_items.unit_price - ".TB_PREF."supp_invoice_items.unit_tax, ".TB_PREF."supp_invoice_items.unit_price) inv_price
67 FROM ".TB_PREF."grn_items, ".TB_PREF."supp_trans, ".TB_PREF."supp_invoice_items
68 WHERE ".TB_PREF."grn_items.id = ".TB_PREF."supp_invoice_items.grn_item_id
69 AND ".TB_PREF."grn_items.po_detail_item = ".TB_PREF."supp_invoice_items.po_detail_item_id
70 AND ".TB_PREF."grn_items.item_code = ".TB_PREF."supp_invoice_items.stock_id
71 AND ".TB_PREF."supp_trans.type = ".TB_PREF."supp_invoice_items.supp_trans_type
72 AND ".TB_PREF."supp_trans.trans_no = ".TB_PREF."supp_invoice_items.supp_trans_no
73 AND ".TB_PREF."supp_invoice_items.supp_trans_type = 20
74 AND ".TB_PREF."supp_invoice_items.grn_item_id = ".$grn_item_id."
75 ORDER BY ".TB_PREF."supp_invoice_items.id asc";
77 return db_query($sql,"No transactions were returned");
80 //----------------------------------------------------------------------------------------------------
82 function print_grn_valuation()
86 $from = $_POST['PARAM_0'];
87 $to = $_POST['PARAM_1'];
88 $comments = $_POST['PARAM_2'];
89 $destination = $_POST['PARAM_3'];
91 include_once($path_to_root . "/reporting/includes/excel_report.inc");
93 include_once($path_to_root . "/reporting/includes/pdf_report.inc");
95 $dec = user_price_dec();
97 $cols = array(0, 75, 225, 260, 295, 330, 370, 410, 455, 515);
98 $headers = array(_('Stock ID'), _('Description'), _('PO No'), _('GRN')."#", _('Inv')."#", _('Qty'), _('Inv Price'), _('PO Price'), _('Total'));
100 $aligns = array('left', 'left', 'left', 'left', 'left', 'right', 'right', 'right', 'right');
102 $params = array( 0 => $comments,
103 1 => array('text' => _('Period'),'from' => $from, 'to' => $to));
105 $rep = new FrontReport(_('GRN Valuation Report'), "GRNValuationReport", user_pagesize());
108 $rep->Info($params, $cols, $headers, $aligns);
111 $res = getTransactions($from, $to);
112 $total = $qtotal = $grandtotal = 0.0;
114 while ($trans=db_fetch($res))
116 if ($stock_id != $trans['item_code'])
120 $rep->Line($rep->row - 4);
122 $rep->TextCol(0, 3, _('Total'));
123 $rep->AmountCol(5, 6, $qtotal, $qdec);
124 $rep->AmountCol(8, 9, $total, $dec);
126 $total = $qtotal = 0;
128 $stock_id = $trans['item_code'];
130 $curr = get_supplier_currency($trans['supplier_id']);
131 $rate = get_exchange_rate_from_home_currency($curr, sql2date($trans['delivery_date']));
132 $trans['std_cost_unit'] *= $rate;
135 $rep->TextCol(0, 1, $trans['item_code']);
136 $rep->TextCol(1, 2, $trans['description']);
137 $rep->TextCol(2, 3, $trans['order_no']);
138 $qdec = get_qty_dec($trans['item_code']);
139 $rep->TextCol(3, 4, $trans['batch_no']);
141 if ($trans['quantity_inv'])
143 $suppinv = getSuppInvDetails($trans['grn_item_id']);
144 while ($inv=db_fetch($suppinv))
146 $inv['inv_price'] *= $rate;
147 $rep->TextCol(4, 5, $inv['inv_no']);
148 $rep->AmountCol(5, 6, $inv['inv_qty'], $qdec);
149 $rep->AmountCol(6, 7, $inv['inv_price'], $dec);
150 $rep->AmountCol(7, 8, $trans['std_cost_unit'], $dec);
151 $amt = round2($inv['inv_qty'] * $inv['inv_price'], $dec);
152 $rep->AmountCol(8, 9, $amt, $dec);
155 $qtotal += $inv['inv_qty'];
160 if ($trans['qty_recd'] - $trans['quantity_inv'] !=0 )
162 $rep->TextCol(4, 5, "--");
163 $rep->AmountCol(5, 6, $trans['qty_recd'] - $trans['quantity_inv'], $qdec);
164 $rep->AmountCol(7, 8, $trans['unit_price'], $dec);
165 $amt = round2(($trans['qty_recd'] - $trans['quantity_inv']) * $trans['unit_price'], $dec);
166 $rep->AmountCol(8, 9, $amt, $dec);
168 $qtotal += $trans['qty_recd'] - $trans['quantity_inv'];
176 $rep->Line($rep->row - 4);
178 $rep->TextCol(0, 3, _('Total'));
179 $rep->AmountCol(5, 6, $qtotal, $qdec);
180 $rep->AmountCol(8, 9, $total, $dec);
181 $rep->Line($rep->row - 4);
183 $rep->TextCol(0, 7, _('Grand Total'));
184 $rep->AmountCol(8, 9, $grandtotal, $dec);
187 $rep->Line($rep->row - 4);