Stable merged into unstable again (due to failure on binary file during previous...
[fa-stable.git] / reporting / rep105.php
1 <?php
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_SALESBULKREP';
13 // ----------------------------------------------------------------
14 // $ Revision:  2.0 $
15 // Creator:     Joe Hunt
16 // date_:       2005-05-19
17 // Title:       Order Status List
18 // ----------------------------------------------------------------
19 $path_to_root="..";
20
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 . "/sales/includes/sales_db.inc");
25 include_once($path_to_root . "/inventory/includes/db/items_category_db.inc");
26
27 //----------------------------------------------------------------------------------------------------
28
29 print_order_status_list();
30
31 //----------------------------------------------------------------------------------------------------
32
33 function GetSalesOrders($from, $to, $category=0, $location=null, $backorder=0)
34 {
35         $fromdate = date2sql($from);
36         $todate = date2sql($to);
37
38         $sql= "SELECT ".TB_PREF."sales_orders.order_no,
39                                 ".TB_PREF."sales_orders.debtor_no,
40                 ".TB_PREF."sales_orders.branch_code,
41                 ".TB_PREF."sales_orders.customer_ref,
42                 ".TB_PREF."sales_orders.ord_date,
43                 ".TB_PREF."sales_orders.from_stk_loc,
44                 ".TB_PREF."sales_orders.delivery_date,
45                 ".TB_PREF."sales_order_details.stk_code,
46                 ".TB_PREF."stock_master.description,
47                 ".TB_PREF."stock_master.units,
48                 ".TB_PREF."sales_order_details.quantity,
49                 ".TB_PREF."sales_order_details.qty_sent
50             FROM ".TB_PREF."sales_orders
51                 INNER JOIN ".TB_PREF."sales_order_details
52                     ON (".TB_PREF."sales_orders.order_no = ".TB_PREF."sales_order_details.order_no
53                     AND ".TB_PREF."sales_orders.trans_type = ".TB_PREF."sales_order_details.trans_type
54                     AND ".TB_PREF."sales_orders.trans_type = ".ST_SALESORDER.")
55                 INNER JOIN ".TB_PREF."stock_master
56                     ON ".TB_PREF."sales_order_details.stk_code = ".TB_PREF."stock_master.stock_id
57             WHERE ".TB_PREF."sales_orders.ord_date >='$fromdate'
58                 AND ".TB_PREF."sales_orders.ord_date <='$todate'";
59         if ($category > 0)
60                 $sql .= " AND ".TB_PREF."stock_master.category_id=".db_escape($category);
61         if ($location != null)
62                 $sql .= " AND ".TB_PREF."sales_orders.from_stk_loc=".db_escape($location);
63         if ($backorder)
64                 $sql .= " AND ".TB_PREF."sales_order_details.quantity - ".TB_PREF."sales_order_details.qty_sent > 0";
65         $sql .= " ORDER BY ".TB_PREF."sales_orders.order_no";
66
67         return db_query($sql, "Error getting order details");
68 }
69
70 //----------------------------------------------------------------------------------------------------
71
72 function print_order_status_list()
73 {
74         global $path_to_root;
75
76         $from = $_POST['PARAM_0'];
77         $to = $_POST['PARAM_1'];
78         $category = $_POST['PARAM_2'];
79         $location = $_POST['PARAM_3'];
80         $backorder = $_POST['PARAM_4'];
81         $comments = $_POST['PARAM_5'];
82         $destination = $_POST['PARAM_6'];
83         if ($destination)
84                 include_once($path_to_root . "/reporting/includes/excel_report.inc");
85         else
86                 include_once($path_to_root . "/reporting/includes/pdf_report.inc");
87
88         if ($category == ALL_NUMERIC)
89                 $category = 0;
90         if ($location == ALL_TEXT)
91                 $location = null;
92         if ($category == 0)
93                 $cat = _('All');
94         else
95                 $cat = get_category_name($category);
96         if ($location == null)
97                 $loc = _('All');
98         else
99                 $loc = get_location_name($location);
100         if ($backorder == 0)
101                 $back = _('All Orders');
102         else
103                 $back = _('Back Orders Only');
104
105         $cols = array(0, 60, 150, 260, 325,     385, 450, 515);
106
107         $headers2 = array(_('Order'), _('Customer'), _('Branch'), _('Customer Ref'),
108                 _('Ord Date'),  _('Del Date'),  _('Loc'));
109
110         $aligns = array('left', 'left', 'right', 'right', 'right', 'right',     'right');
111
112         $headers = array(_('Code'),     _('Description'), _('Ordered'), _('Invoiced'),
113                 _('Outstanding'), '');
114
115     $params =   array(  0 => $comments,
116                                         1 => array(  'text' => _('Period'), 'from' => $from, 'to' => $to),
117                                         2 => array(  'text' => _('Category'), 'from' => $cat,'to' => ''),
118                                         3 => array(  'text' => _('Location'), 'from' => $loc, 'to' => ''),
119                                         4 => array(  'text' => _('Selection'),'from' => $back,'to' => ''));
120
121         $cols2 = $cols;
122         $aligns2 = $aligns;
123
124         $rep = new FrontReport(_('Order Status Listing'), "OrderStatusListing", user_pagesize());
125         $rep->Font();
126         $rep->Info($params, $cols, $headers, $aligns, $cols2, $headers2, $aligns2);
127
128         $rep->NewPage();
129         $orderno = 0;
130
131         $result = GetSalesOrders($from, $to, $category, $location, $backorder);
132
133         while ($myrow=db_fetch($result))
134         {
135                 $rep->NewLine(0, 2, false, $orderno);
136                 if ($orderno != $myrow['order_no'])
137                 {
138                         if ($orderno != 0)
139                         {
140                                 $rep->Line($rep->row);
141                                 $rep->NewLine();
142                         }
143                         $rep->TextCol(0, 1,     $myrow['order_no']);
144                         $rep->TextCol(1, 2,     get_customer_name($myrow['debtor_no']));
145                         $rep->TextCol(2, 3,     get_branch_name($myrow['branch_code']));
146                         $rep->TextCol(3, 4,     $myrow['customer_ref']);
147                         $rep->DateCol(4, 5,     $myrow['ord_date'], true);
148                         $rep->DateCol(5, 6,     $myrow['delivery_date'], true);
149                         $rep->TextCol(6, 7,     $myrow['from_stk_loc']);
150                         $rep->NewLine(2);
151                         $orderno = $myrow['order_no'];
152                 }
153                 $rep->TextCol(0, 1,     $myrow['stk_code']);
154                 $rep->TextCol(1, 2,     $myrow['description']);
155                 $dec = get_qty_dec($myrow['stk_code']);
156                 $rep->AmountCol(2, 3, $myrow['quantity'], $dec);
157                 $rep->AmountCol(3, 4, $myrow['qty_sent'], $dec);
158                 $rep->AmountCol(4, 5, $myrow['quantity'] - $myrow['qty_sent'], $dec);
159                 if ($myrow['quantity'] - $myrow['qty_sent'] > 0)
160                 {
161                         $rep->Font('italic');
162                         $rep->TextCol(5, 6,     _('Outstanding'));
163                         $rep->Font();
164                 }
165                 $rep->NewLine();
166         }
167         $rep->Line($rep->row);
168         $rep->End();
169 }
170
171 ?>