Huge sales module changes toward delivery and invoicing separation. Includes some...
[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('Refresh Inquiry', _("Search"));
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 + ".TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_discount)
59                 AS TotalAmount,
60                 ".TB_PREF."debtor_trans.alloc AS Allocated,
61                 ((".TB_PREF."debtor_trans.type = 10)
62                 AND ".TB_PREF."debtor_trans.due_date < '" . date2sql(Today()) . "') AS OverDue
63         FROM ".TB_PREF."debtor_trans, ".TB_PREF."debtors_master
64         WHERE ".TB_PREF."debtors_master.debtor_no = ".TB_PREF."debtor_trans.debtor_no
65                         AND (".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + ".TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_discount != 0)
66                 AND ".TB_PREF."debtor_trans.tran_date >= '$data_after'
67                 AND ".TB_PREF."debtor_trans.tran_date <= '$date_to'";
68
69         if ($_POST['customer_id'] != reserved_words::get_all())
70                 $sql .= " AND ".TB_PREF."debtor_trans.debtor_no = '" . $_POST['customer_id'] . "'";
71
72         if (isset($_POST['filterType']) && $_POST['filterType'] != reserved_words::get_all())
73         {
74                 if ($_POST['filterType'] == '1' || $_POST['filterType'] == '2') 
75                 {
76                         $sql .= " AND ".TB_PREF."debtor_trans.type = 10 ";
77                 } 
78                 elseif ($_POST['filterType'] == '3') 
79                 {
80                         $sql .= " AND ".TB_PREF."debtor_trans.type = " . systypes::cust_payment();
81                 } 
82                 elseif ($_POST['filterType'] == '4') 
83                 {
84                         $sql .= " AND ".TB_PREF."debtor_trans.type = 11 ";
85                 }
86
87         if ($_POST['filterType'] == '2') 
88         {
89                 $today =  date2sql(Today());
90                 $sql .= " AND ".TB_PREF."debtor_trans.due_date < '$today'
91                                 AND (round(abs(".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + ".TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_discount) - ".TB_PREF."debtor_trans.alloc,6) > 0) ";
92         }
93         }else
94         {
95             $sql .= " AND ".TB_PREF."debtor_trans.type != 13 ";
96         }
97
98
99         if (!check_value('showSettled')) 
100         {
101                 $sql .= " AND (round(abs(".TB_PREF."debtor_trans.ov_amount + ".TB_PREF."debtor_trans.ov_gst + ".TB_PREF."debtor_trans.ov_freight + ".TB_PREF."debtor_trans.ov_discount) - ".TB_PREF."debtor_trans.alloc,6) != 0) ";
102         }
103
104     $sql .= " ORDER BY ".TB_PREF."debtor_trans.tran_date";
105
106     return db_query($sql,"No transactions were returned");
107 }
108
109 //------------------------------------------------------------------------------------------------
110
111 $result = get_transactions();
112
113 if (db_num_rows($result) == 0)
114 {
115         display_note(_("The selected customer has no transactions for the given dates."), 1, 1);
116         end_page();
117         exit;
118 }
119
120 //------------------------------------------------------------------------------------------------
121
122 start_table("$table_style width='80%'");
123
124 if ($_POST['customer_id'] == reserved_words::get_all())
125         $th = array(_("Type"), _("Number"), _("Reference"), _("Order"), _("Date"), _("Due Date"),
126                 _("Customer"), _("Currency"), _("Debit"), _("Credit"), _("Allocated"), _("Balance"), "");
127 else
128         $th = array(_("Type"), _("Number"), _("Reference"), _("Order"), _("Date"), _("Due Date"),
129                 _("Debit"), _("Credit"), _("Allocated"), _("Balance"), "");
130
131 table_header($th);
132
133
134 $j = 1;
135 $k = 0; //row colour counter
136 $over_due = false;
137 while ($myrow = db_fetch($result)) 
138 {
139
140         if ($myrow['OverDue'] == 1 && (abs($myrow["TotalAmount"]) - $myrow["Allocated"] != 0))
141         {
142                 start_row("class='overduebg'");
143                 $over_due = true;
144         } 
145         else
146                 alt_table_row_color($k);
147
148         $date = sql2date($myrow["tran_date"]);
149
150         if ($myrow["order_"] > 0)
151                 $preview_order_str = get_customer_trans_view_str(systypes::sales_order(), $myrow["order_"]);
152         else
153                 $preview_order_str = "";
154
155         $allocations_str = "";
156
157         $allocations = "<a href='$path_to_root/sales/allocations/customer_allocate.php?trans_no=" . $myrow["trans_no"] ."&trans_type=" . $myrow["type"] ."'>" . _("Allocation") . "</a>";
158
159         $due_date_str = "";
160
161         if ($myrow["type"] == 10)
162                 $due_date_str = sql2date($myrow["due_date"]);
163         elseif ($myrow["type"] == 11 && $myrow['TotalAmount'] < 0) 
164         {
165                 /*its a credit note which could have an allocation */
166                 $allocations_str = $allocations;
167
168         } 
169         elseif ($myrow["type"] == systypes::cust_payment() && 
170                 ($myrow['TotalAmount'] + $myrow['Allocated']) < 0) 
171         {
172                 /*its a receipt  which could have an allocation*/
173                 $allocations_str = $allocations;
174
175         } 
176         elseif ($myrow["type"] == systypes::cust_payment() && $myrow['TotalAmount'] > 0) 
177         {
178                 /*its a negative receipt */
179         }
180
181         label_cell(systypes::name($myrow["type"]));
182
183         label_cell(get_customer_trans_view_str($myrow["type"], $myrow["trans_no"]));
184         label_cell($myrow["reference"]);
185         label_cell($preview_order_str);
186         label_cell(sql2date($myrow["tran_date"]), "nowrap");
187         label_cell($due_date_str, "nowrap");
188         if ($_POST['customer_id'] == reserved_words::get_all())
189         {
190                 label_cell($myrow["CustName"]);
191                 label_cell($myrow["CustCurrCode"]);
192         }       
193         display_debit_or_credit_cells($myrow["TotalAmount"]);
194         amount_cell(abs($myrow["Allocated"]));
195         amount_cell(abs($myrow["TotalAmount"]) - $myrow["Allocated"]);
196         label_cell($allocations_str);
197
198
199         end_row();
200
201         $j++;
202         If ($j == 12)
203         {
204                 $j = 1;
205                 table_header($th);
206         }
207 //end of page full new headings if
208 }
209 //end of while loop
210
211 end_table(1);
212 if ($over_due)
213         display_note(_("Marked items are overdue."), 0, 1, "class='overduefg'");
214         
215 end_page();
216
217 ?>