Trivial errors in not set bank charge account, retained earnings or profit/loss year...
[fa-stable.git] / purchasing / supplier_payment.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_SUPPLIERPAYMNT';
13 $path_to_root = "..";
14 include_once($path_to_root . "/includes/ui/allocation_cart.inc");
15 include_once($path_to_root . "/includes/session.inc");
16 include_once($path_to_root . "/includes/date_functions.inc");
17 include_once($path_to_root . "/includes/ui.inc");
18 include_once($path_to_root . "/includes/banking.inc");
19 include_once($path_to_root . "/includes/data_checks.inc");
20 //include_once($path_to_root . "/purchasing/includes/ui/supp_alloc_ui.inc");
21 include_once($path_to_root . "/purchasing/includes/purchasing_db.inc");
22
23 $js = "";
24 if ($use_popup_windows)
25         $js .= get_js_open_window(900, 500);
26 if ($use_date_picker)
27         $js .= get_js_date_picker();
28
29 add_js_file('payalloc.js');
30
31 page(_("Supplier Payment Entry"), false, false, "", $js);
32
33 if (isset($_GET['supplier_id']))
34 {
35         $_POST['supplier_id'] = $_GET['supplier_id'];
36 }
37
38 //----------------------------------------------------------------------------------------
39
40 check_db_has_suppliers(_("There are no suppliers defined in the system."));
41
42 check_db_has_bank_accounts(_("There are no bank accounts defined in the system."));
43
44 //----------------------------------------------------------------------------------------
45
46 if (!isset($_POST['supplier_id']))
47         $_POST['supplier_id'] = get_global_supplier(false);
48
49 if (!isset($_POST['DatePaid']))
50 {
51         $_POST['DatePaid'] = new_doc_date();
52         if (!is_date_in_fiscalyear($_POST['DatePaid']))
53                 $_POST['DatePaid'] = end_fiscalyear();
54 }
55
56 if (isset($_POST['_DatePaid_changed'])) {
57   $Ajax->activate('_ex_rate');
58 }
59
60 if (list_updated('supplier_id') || list_updated('bank_account')) {
61   $_SESSION['alloc']->read();
62   $Ajax->activate('alloc_tbl');
63 }
64 //----------------------------------------------------------------------------------------
65
66 if (isset($_GET['AddedID'])) 
67 {
68         $payment_id = $_GET['AddedID'];
69
70         display_notification_centered( _("Payment has been sucessfully entered"));
71
72     display_note(get_gl_view_str(22, $payment_id, _("View the GL &Journal Entries for this Payment")));
73
74 //    hyperlink_params($path_to_root . "/purchasing/allocations/supplier_allocate.php", _("&Allocate this Payment"), "trans_no=$payment_id&trans_type=22");
75
76         hyperlink_params($_SERVER['PHP_SELF'], _("Enter another supplier &payment"), "supplier_id=" . $_POST['supplier_id']);
77
78         display_footer_exit();
79 }
80
81 //----------------------------------------------------------------------------------------
82
83 function check_inputs()
84 {
85         global $Refs;
86
87         if ($_POST['amount'] == "") 
88         {
89                 $_POST['amount'] = price_format(0);
90         }
91
92         if (!check_num('amount', 0))
93         {
94                 display_error(_("The entered amount is invalid or less than zero."));
95                 set_focus('amount');
96                 return false;
97         }
98
99         if (isset($_POST['charge']) && !check_num('charge', 0)) {
100                 display_error(_("The entered amount is invalid or less than zero."));
101                 set_focus('charge');
102                 return false;
103         }
104
105         if (isset($_POST['charge']) && input_num('charge') > 0) {
106                 $charge_acct = get_company_pref('bank_charge_act');
107                 if (get_gl_account($charge_acct) == false) {
108                         display_error(_("The Bank Charge Account has not been set in System and General GL Setup."));
109                         set_focus('charge');
110                         return false;
111                 }       
112         }
113
114         if (isset($_POST['_ex_rate']) && !check_num('_ex_rate', 0.000001))
115         {
116                 display_error(_("The exchange rate must be numeric and greater than zero."));
117                 set_focus('_ex_rate');
118                 return false;
119         }
120
121         if ($_POST['discount'] == "") 
122         {
123                 $_POST['discount'] = 0;
124         }
125
126         if (!check_num('discount', 0))
127         {
128                 display_error(_("The entered discount is invalid or less than zero."));
129                 set_focus('amount');
130                 return false;
131         }
132
133         if (input_num('amount') - input_num('discount') <= 0) 
134         {
135                 display_error(_("The total of the amount and the discount is zero or negative. Please enter positive values."));
136                 set_focus('amount');
137                 return false;
138         }
139
140         if (!is_date($_POST['DatePaid']))
141         {
142                 display_error(_("The entered date is invalid."));
143                 set_focus('DatePaid');
144                 return false;
145         } 
146         elseif (!is_date_in_fiscalyear($_POST['DatePaid'])) 
147         {
148                 display_error(_("The entered date is not in fiscal year."));
149                 set_focus('DatePaid');
150                 return false;
151         }
152     if (!$Refs->is_valid($_POST['ref'])) 
153     {
154                 display_error(_("You must enter a reference."));
155                 set_focus('ref');
156                 return false;
157         }
158
159         if (!is_new_reference($_POST['ref'], ST_SUPPAYMENT)) 
160         {
161                 display_error(_("The entered reference is already in use."));
162                 set_focus('ref');
163                 return false;
164         }
165
166         $_SESSION['alloc']->amount = -input_num('amount');
167         return check_allocations();
168 }
169
170 //----------------------------------------------------------------------------------------
171
172 function handle_add_payment()
173 {
174         $supp_currency = get_supplier_currency($_POST['supplier_id']);
175         $bank_currency = get_bank_account_currency($_POST['bank_account']);
176         $comp_currency = get_company_currency();
177         if ($comp_currency != $bank_currency && $bank_currency != $supp_currency)
178                 $rate = 0;
179         else
180                 $rate = input_num('_ex_rate');
181
182         $payment_id = add_supp_payment($_POST['supplier_id'], $_POST['DatePaid'],
183                 $_POST['bank_account'], input_num('amount'), input_num('discount'), 
184                 $_POST['ref'], $_POST['memo_'], $rate, input_num('charge'));
185         new_doc_date($_POST['DatePaid']);
186
187         $_SESSION['alloc']->trans_no = $payment_id;
188         $_SESSION['alloc']->write();
189         //unset($_POST['supplier_id']);
190         unset($_POST['bank_account']);
191         unset($_POST['DatePaid']);
192         unset($_POST['currency']);
193         unset($_POST['memo_']);
194         unset($_POST['amount']);
195         unset($_POST['discount']);
196         unset($_POST['ProcessSuppPayment']);
197
198         meta_forward($_SERVER['PHP_SELF'], "AddedID=$payment_id&supplier_id=".$_POST['supplier_id']);
199 }
200
201 //----------------------------------------------------------------------------------------
202
203 if (isset($_POST['ProcessSuppPayment']))
204 {
205          /*First off  check for valid inputs */
206     if (check_inputs() == true) 
207     {
208         handle_add_payment();
209         end_page();
210         exit;
211     }
212 }
213
214 //----------------------------------------------------------------------------------------
215
216 start_form();
217
218         start_outer_table("$table_style2 width=60%", 5);
219
220         table_section(1);
221
222     supplier_list_row(_("Payment To:"), 'supplier_id', null, false, true);
223
224         if (!isset($_POST['bank_account'])) // first page call
225                   $_SESSION['alloc'] = new allocation(ST_SUPPAYMENT, 0);
226
227         set_global_supplier($_POST['supplier_id']);
228         
229     bank_accounts_list_row(_("From Bank Account:"), 'bank_account', null, true);
230
231         table_section(2);
232
233     ref_row(_("Reference:"), 'ref', '', $Refs->get_next(ST_SUPPAYMENT));
234
235     date_row(_("Date Paid") . ":", 'DatePaid', '', true, 0, 0, 0, null, true);
236
237         table_section(3);
238
239         $supplier_currency = get_supplier_currency($_POST['supplier_id']);
240         $bank_currency = get_bank_account_currency($_POST['bank_account']);
241         if ($bank_currency != $supplier_currency) 
242         {
243                 exchange_rate_display($bank_currency, $supplier_currency, $_POST['DatePaid'], true);
244         }
245
246         amount_row(_("Bank Charge:"), 'charge');
247
248
249         end_outer_table(1); // outer table
250
251         if ($bank_currency == $supplier_currency) {
252         div_start('alloc_tbl');
253                 show_allocatable(false);
254         div_end();
255         }
256
257         start_table("$table_style width=60%");
258         amount_row(_("Amount of Discount:"), 'discount');
259         amount_row(_("Amount of Payment:"), 'amount');
260         textarea_row(_("Memo:"), 'memo_', null, 22, 4);
261         end_table(1);
262         
263         if ($bank_currency != $supplier_currency) 
264         {
265                 display_note(_("The amount and discount are in the bank account's currency."), 0, 1);
266         }
267
268         submit_center('ProcessSuppPayment',_("Enter Payment"), true, '', 'default');
269
270 end_form();
271
272 end_page();
273 ?>