[0000100] Keep getting left allocated weird results (rounding problems).
[fa-stable.git] / sales / inquiry / customer_allocation_inquiry.php
1 <?php
2
3 $page_security = 1;
4 $path_to_root="../..";
5 include_once($path_to_root . "/includes/session.inc");
6
7 include_once($path_to_root . "/sales/includes/sales_ui.inc");
8 include_once($path_to_root . "/sales/includes/sales_db.inc");
9
10 $js = "";
11 if ($use_popup_windows)
12         $js .= get_js_open_window(900, 500);
13 if ($use_date_picker)
14         $js .= get_js_date_picker();
15 page(_("Customer Allocation Inquiry"), false, false, "", $js);
16
17 if (isset($_GET['customer_id']))
18 {
19         $_POST['customer_id'] = $_GET['customer_id'];
20 }
21
22 //------------------------------------------------------------------------------------------------
23
24 if (!isset($_POST['customer_id']))
25         $_POST['customer_id'] = get_global_customer();
26
27 start_form(false, true);
28
29 start_table("class='tablestyle_noborder'");
30 start_row();
31
32 customer_list_cells(_("Select a customer: "), 'customer_id', $_POST['customer_id'], true);
33
34 date_cells(_("from:"), 'TransAfterDate', '', null, -30);
35 date_cells(_("to:"), 'TransToDate', '', null, 1);
36
37 cust_allocations_list_cells(_("Type:"), 'filterType', null);
38
39 check_cells(" " . _("show settled:"), 'showSettled', null);
40
41 submit_cells('RefreshInquiry', _("Search"),'',_('Refresh Inquiry'), true);
42
43 set_global_customer($_POST['customer_id']);
44
45 end_row();
46 end_table();
47 end_form();
48
49 //------------------------------------------------------------------------------------------------
50
51 function get_transactions()
52 {
53     $data_after = date2sql($_POST['TransAfterDate']);
54     $date_to = date2sql($_POST['TransToDate']);
55
56     $sql = "SELECT ".TB_PREF."debtor_trans.*,
57                 ".TB_PREF."debtors_master.name AS CustName, ".TB_PREF."debtors_master.curr_code AS CustCurrCode,
58         (".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + "
59         .TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_freight_tax + ".TB_PREF."debtor_trans.ov_discount)
60                 AS TotalAmount,
61                 ".TB_PREF."debtor_trans.alloc AS Allocated,
62                 ((".TB_PREF."debtor_trans.type = 10)
63                 AND ".TB_PREF."debtor_trans.due_date < '" . date2sql(Today()) . "') AS OverDue
64         FROM ".TB_PREF."debtor_trans, ".TB_PREF."debtors_master
65         WHERE ".TB_PREF."debtors_master.debtor_no = ".TB_PREF."debtor_trans.debtor_no
66                         AND (".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + "
67                         .TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_freight_tax + ".TB_PREF."debtor_trans.ov_discount != 0)
68                 AND ".TB_PREF."debtor_trans.tran_date >= '$data_after'
69                 AND ".TB_PREF."debtor_trans.tran_date <= '$date_to'";
70
71         if ($_POST['customer_id'] != reserved_words::get_all())
72                 $sql .= " AND ".TB_PREF."debtor_trans.debtor_no = '" . $_POST['customer_id'] . "'";
73
74         if (isset($_POST['filterType']) && $_POST['filterType'] != reserved_words::get_all())
75         {
76                 if ($_POST['filterType'] == '1' || $_POST['filterType'] == '2')
77                 {
78                         $sql .= " AND ".TB_PREF."debtor_trans.type = 10 ";
79                 }
80                 elseif ($_POST['filterType'] == '3')
81                 {
82                         $sql .= " AND ".TB_PREF."debtor_trans.type = " . systypes::cust_payment();
83                 }
84                 elseif ($_POST['filterType'] == '4')
85                 {
86                         $sql .= " AND ".TB_PREF."debtor_trans.type = 11 ";
87                 }
88
89         if ($_POST['filterType'] == '2')
90         {
91                 $today =  date2sql(Today());
92                 $sql .= " AND ".TB_PREF."debtor_trans.due_date < '$today'
93                                 AND (round(abs(".TB_PREF."debtor_trans.ov_amount + "
94                                 .TB_PREF."debtor_trans.ov_gst + ".TB_PREF."debtor_trans.ov_freight + "
95                                 .TB_PREF."debtor_trans.ov_freight_tax + ".TB_PREF."debtor_trans.ov_discount) - ".TB_PREF."debtor_trans.alloc,6) > 0) ";
96         }
97         }else
98         {
99             $sql .= " AND ".TB_PREF."debtor_trans.type != 13 ";
100         }
101
102
103         if (!check_value('showSettled'))
104         {
105                 $sql .= " AND (round(abs(".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + "
106                 .TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_freight_tax + "
107                 .TB_PREF."debtor_trans.ov_discount) - ".TB_PREF."debtor_trans.alloc,6) != 0) ";
108         }
109
110     $sql .= " ORDER BY ".TB_PREF."debtor_trans.tran_date";
111
112     return db_query($sql,"No transactions were returned");
113 }
114
115 //------------------------------------------------------------------------------------------------
116
117 $result = get_transactions();
118
119 //------------------------------------------------------------------------------------------------
120 if(get_post('RefreshInquiry')) 
121 {
122         $Ajax->activate('doc_tbl');
123 }
124 //------------------------------------------------------------------------------------------------
125 div_start('doc_tbl');
126 if (db_num_rows($result) == 0)
127 {
128         display_note(_("The selected customer has no transactions for the given dates."), 1, 1);
129 } else {
130
131         start_table("$table_style width='80%'");
132
133 if ($_POST['customer_id'] == reserved_words::get_all())
134         $th = array(_("Type"), _("Number"), _("Reference"), _("Order"), _("Date"), _("Due Date"),
135                 _("Customer"), _("Currency"), _("Debit"), _("Credit"), _("Allocated"), _("Balance"), "");
136 else
137         $th = array(_("Type"), _("Number"), _("Reference"), _("Order"), _("Date"), _("Due Date"),
138                 _("Debit"), _("Credit"), _("Allocated"), _("Balance"), "");
139
140 table_header($th);
141
142
143 $j = 1;
144 $k = 0; //row colour counter
145 $over_due = false;
146 while ($myrow = db_fetch($result))
147 {
148
149         if ($myrow['OverDue'] == 1 && (abs($myrow["TotalAmount"]) - $myrow["Allocated"] != 0))
150         {
151                 start_row("class='overduebg'");
152                 $over_due = true;
153         }
154         else
155                 alt_table_row_color($k);
156
157         $date = sql2date($myrow["tran_date"]);
158
159         if ($myrow["order_"] > 0)
160                 $preview_order_str = get_customer_trans_view_str(systypes::sales_order(), $myrow["order_"]);
161         else
162                 $preview_order_str = "";
163
164         $allocations_str = "";
165
166         $allocations = "<a href='$path_to_root/sales/allocations/customer_allocate.php?trans_no=" . $myrow["trans_no"] ."&trans_type=" . $myrow["type"] ."'>" . _("Allocation") . "</a>";
167
168         $due_date_str = "";
169
170         if ($myrow["type"] == 10)
171                 $due_date_str = sql2date($myrow["due_date"]);
172         elseif ($myrow["type"] == 11 && $myrow['TotalAmount'] > 0)
173         {
174                 /*its a credit note which could have an allocation */
175                 $allocations_str = $allocations;
176
177         }
178         elseif (($myrow["type"] == systypes::cust_payment() || $myrow["type"] == systypes::bank_deposit()) &&
179                 ($myrow['TotalAmount'] - $myrow['Allocated']) > 0)
180         {
181                 /*its a receipt  which could have an allocation*/
182                 $allocations_str = $allocations;
183
184         }
185         elseif ($myrow["type"] == systypes::cust_payment() && $myrow['TotalAmount'] < 0)
186         {
187                 /*its a negative receipt */
188         }
189
190         label_cell(systypes::name($myrow["type"]));
191         label_cell(get_trans_view_str($myrow["type"], $myrow["trans_no"]));
192         label_cell($myrow["reference"]);
193         label_cell($preview_order_str);
194         label_cell(sql2date($myrow["tran_date"]), "nowrap");
195         label_cell($due_date_str, "nowrap");
196         if ($_POST['customer_id'] == reserved_words::get_all())
197         {
198                 label_cell($myrow["CustName"]);
199                 label_cell($myrow["CustCurrCode"]);
200         }
201         $myrow["TotalAmount"] = round2($myrow["TotalAmount"], user_price_dec());
202         $myrow["Allocated"] = round2($myrow["Allocated"], user_price_dec());
203         display_debit_or_credit_cells(
204             $myrow['type']==11 || $myrow['type']==12 || $myrow['type']==2 ?
205                 -$myrow["TotalAmount"] : $myrow["TotalAmount"]);
206         amount_cell(abs($myrow["Allocated"]));
207         amount_cell(abs($myrow["TotalAmount"]) - $myrow["Allocated"]);
208         label_cell($allocations_str);
209
210
211         end_row();
212
213         $j++;
214         If ($j == 12)
215         {
216                 $j = 1;
217                 table_header($th);
218         }
219 //end of page full new headings if
220 }
221 //end of while loop
222 end_table(1);
223 if ($over_due)
224         display_note(_("Marked items are overdue."), 0, 1, "class='overduefg'");
225 }
226 div_end();
227 end_page();
228
229 ?>