q
[fa-stable.git] / purchasing / allocations / supplier_allocation_main.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_SUPPLIERALLOC';
13 $path_to_root = "../..";
14 include($path_to_root . "/includes/db_pager.inc");
15 include_once($path_to_root . "/includes/session.inc");
16
17 include_once($path_to_root . "/includes/date_functions.inc");
18
19 include_once($path_to_root . "/includes/ui.inc");
20 include_once($path_to_root . "/includes/banking.inc");
21
22 include_once($path_to_root . "/sales/includes/sales_db.inc");
23 $js = "";
24 if ($use_popup_windows)
25         $js .= get_js_open_window(900, 500);
26 page(_("Supplier Allocations"), false, false, "", $js);
27
28 //--------------------------------------------------------------------------------
29
30 start_form();
31
32         /* show all outstanding receipts and credits to be allocated */
33     if (!isset($_POST['supplier_id']))
34         $_POST['supplier_id'] = get_global_supplier();
35
36     echo "<center>" . _("Select a Supplier: ") . "&nbsp;&nbsp;";
37         supplier_list('supplier_id', $_POST['supplier_id'], true, true);
38     echo "<br>";
39     check(_("Show Settled Items:"), 'ShowSettled', null, true);
40         echo "</center><br><br>";
41         end_form();
42         set_global_supplier($_POST['supplier_id']);
43
44         if (isset($_POST['supplier_id']) && ($_POST['supplier_id'] == ALL_TEXT)) 
45         {
46                 unset($_POST['supplier_id']);
47         }
48
49         $settled = false;
50         if (check_value('ShowSettled'))
51                 $settled = true;
52         $supplier_id = null;
53         if (isset($_POST['supplier_id']))
54                 $supplier_id = $_POST['supplier_id'];
55
56 //--------------------------------------------------------------------------------
57 function systype_name($dummy, $type)
58 {
59         global $systypes_array;
60
61         return $systypes_array[$type];
62 }
63
64 function trans_view($trans)
65 {
66         return get_trans_view_str($trans["type"], $trans["trans_no"]);
67 }
68
69 function alloc_link($row)
70 {
71         return pager_link(_("Allocate"),
72                 "/purchasing/allocations/supplier_allocate.php?trans_no="
73                         .$row["trans_no"] . "&trans_type=" . $row["type"], ICON_MONEY );
74 }
75
76 function amount_left($row)
77 {
78         return price_format(-$row["Total"]-$row["alloc"]);
79 }
80
81 function amount_total($row)
82 {
83         return price_format(-$row["Total"]);
84 }
85
86 function check_settled($row)
87 {
88         return $row['settled'] == 1;
89 }
90
91
92 $sql = get_allocatable_from_supp_sql($supplier_id, $settled);
93
94 $cols = array(
95         _("Transaction Type") => array('fun'=>'systype_name'),
96         _("#") => array('fun'=>'trans_view'),
97         _("Reference"), 
98         _("Date") => array('name'=>'tran_date', 'type'=>'date', 'ord'=>'asc'),
99         _("Supplier") => array('ord'=>''),
100         _("Currency") => array('align'=>'center'),
101         _("Total") => array('align'=>'right', 'fun'=>'amount_total'), 
102         _("Left to Allocate") => array('align'=>'right','insert'=>true, 'fun'=>'amount_left'), 
103         array('insert'=>true, 'fun'=>'alloc_link')
104         );
105
106 if (isset($_POST['customer_id'])) {
107         $cols[_("Supplier")] = 'skip';
108         $cols[_("Currency")] = 'skip';
109 }
110
111 $table =& new_db_pager('alloc_tbl', $sql, $cols);
112 $table->set_marker('check_settled', _("Marked items are settled."), 'settledbg', 'settledfg');
113
114 $table->width = "80%";
115 start_form();
116
117 display_db_pager($table);
118
119 end_form();
120 end_page();
121 ?>