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 $orientation = $_POST['PARAM_3'];
90 $destination = $_POST['PARAM_4'];
92 include_once($path_to_root . "/reporting/includes/excel_report.inc");
94 include_once($path_to_root . "/reporting/includes/pdf_report.inc");
96 $orientation = ($orientation ? 'L' : 'P');
97 $dec = user_price_dec();
99 $cols = array(0, 75, 225, 260, 295, 330, 370, 410, 455, 515);
100 $headers = array(_('Stock ID'), _('Description'), _('PO No'), _('GRN')."#", _('Inv')."#", _('Qty'), _('Inv Price'), _('PO Price'), _('Total'));
102 $aligns = array('left', 'left', 'left', 'left', 'left', 'right', 'right', 'right', 'right');
104 $params = array( 0 => $comments,
105 1 => array('text' => _('Period'),'from' => $from, 'to' => $to));
107 $rep = new FrontReport(_('GRN Valuation Report'), "GRNValuationReport", user_pagesize(), 9, $orientation);
108 if ($orientation == 'L')
109 recalculate_cols($cols);
112 $rep->Info($params, $cols, $headers, $aligns);
115 $res = getTransactions($from, $to);
116 $total = $qtotal = $grandtotal = 0.0;
118 while ($trans=db_fetch($res))
120 if ($stock_id != $trans['item_code'])
124 $rep->Line($rep->row - 4);
126 $rep->TextCol(0, 3, _('Total'));
127 $rep->AmountCol(5, 6, $qtotal, $qdec);
128 $rep->AmountCol(8, 9, $total, $dec);
130 $total = $qtotal = 0;
132 $stock_id = $trans['item_code'];
134 $curr = get_supplier_currency($trans['supplier_id']);
135 $rate = get_exchange_rate_from_home_currency($curr, sql2date($trans['delivery_date']));
136 $trans['std_cost_unit'] *= $rate;
139 $rep->TextCol(0, 1, $trans['item_code']);
140 $rep->TextCol(1, 2, $trans['description']);
141 $rep->TextCol(2, 3, $trans['order_no']);
142 $qdec = get_qty_dec($trans['item_code']);
143 $rep->TextCol(3, 4, $trans['batch_no']);
145 if ($trans['quantity_inv'])
147 $suppinv = getSuppInvDetails($trans['grn_item_id']);
148 while ($inv=db_fetch($suppinv))
150 $inv['inv_price'] *= $rate;
151 $rep->TextCol(4, 5, $inv['inv_no']);
152 $rep->AmountCol(5, 6, $inv['inv_qty'], $qdec);
153 $rep->AmountCol(6, 7, $inv['inv_price'], $dec);
154 $rep->AmountCol(7, 8, $trans['std_cost_unit'], $dec);
155 $amt = round2($inv['inv_qty'] * $inv['inv_price'], $dec);
156 $rep->AmountCol(8, 9, $amt, $dec);
159 $qtotal += $inv['inv_qty'];
164 if ($trans['qty_recd'] - $trans['quantity_inv'] !=0 )
166 $rep->TextCol(4, 5, "--");
167 $rep->AmountCol(5, 6, $trans['qty_recd'] - $trans['quantity_inv'], $qdec);
168 $rep->AmountCol(7, 8, $trans['unit_price'], $dec);
169 $amt = round2(($trans['qty_recd'] - $trans['quantity_inv']) * $trans['unit_price'], $dec);
170 $rep->AmountCol(8, 9, $amt, $dec);
172 $qtotal += $trans['qty_recd'] - $trans['quantity_inv'];
180 $rep->Line($rep->row - 4);
182 $rep->TextCol(0, 3, _('Total'));
183 $rep->AmountCol(5, 6, $qtotal, $qdec);
184 $rep->AmountCol(8, 9, $total, $dec);
185 $rep->Line($rep->row - 4);
187 $rep->TextCol(0, 7, _('Grand Total'));
188 $rep->AmountCol(8, 9, $grandtotal, $dec);
191 $rep->Line($rep->row - 4);