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';
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/purchasing_db.inc");
21 include_once($path_to_root . "/reporting/includes/reporting.inc");
24 if ($SysPrefs->use_popup_windows)
25 $js .= get_js_open_window(900, 500);
26 if (user_use_date_picker())
27 $js .= get_js_date_picker();
29 add_js_file('payalloc.js');
31 page(_($help_context = "Supplier Payment Entry"), false, false, "", $js);
33 if (isset($_GET['supplier_id']))
35 $_POST['supplier_id'] = $_GET['supplier_id'];
38 //----------------------------------------------------------------------------------------
40 check_db_has_suppliers(_("There are no suppliers defined in the system."));
42 check_db_has_bank_accounts(_("There are no bank accounts defined in the system."));
44 //----------------------------------------------------------------------------------------
46 if (!isset($_POST['supplier_id']))
47 $_POST['supplier_id'] = get_global_supplier(false);
49 if (!isset($_POST['DatePaid']))
51 $_POST['DatePaid'] = new_doc_date();
52 if (!is_date_in_fiscalyear($_POST['DatePaid']))
53 $_POST['DatePaid'] = end_fiscalyear();
56 if (isset($_POST['_DatePaid_changed'])) {
57 $Ajax->activate('_ex_rate');
60 if (list_updated('supplier_id')) {
61 $_POST['amount'] = price_format(0);
62 $_SESSION['alloc']->person_id = get_post('supplier_id');
63 $Ajax->activate('amount');
64 } elseif (list_updated('bank_account'))
65 $Ajax->activate('alloc_tbl');
67 //----------------------------------------------------------------------------------------
69 if (!isset($_POST['bank_account'])) { // first page call
70 $_SESSION['alloc'] = new allocation(ST_SUPPAYMENT, 0, get_post('supplier_id'));
72 if (isset($_GET['PInvoice'])) {
73 // get date and supplier
74 $inv = get_supp_trans($_GET['PInvoice'], $_GET['trans_type']);
75 $dflt_act = get_default_bank_account($inv['curr_code']);
76 $_POST['bank_account'] = $dflt_act['id'];
78 $_SESSION['alloc']->person_id = $_POST['supplier_id'] = $inv['supplier_id'];
79 $_SESSION['alloc']->read();
80 $_POST['DatePaid'] = sql2date($inv['tran_date']);
81 $_POST['memo_'] = $inv['supp_reference'];
82 foreach($_SESSION['alloc']->allocs as $line => $trans) {
83 if ($trans->type == $_GET['trans_type'] && $trans->type_no == $_GET['PInvoice']) {
84 $un_allocated = abs($trans->amount) - $trans->amount_allocated;
85 $_SESSION['alloc']->amount = $_SESSION['alloc']->allocs[$line]->current_allocated = $un_allocated;
86 $_POST['amount'] = $_POST['amount'.$line] = price_format($un_allocated);
92 display_error(_("Invalid purchase invoice number."));
95 if (isset($_GET['AddedID'])) {
96 $payment_id = $_GET['AddedID'];
98 display_notification_centered( _("Payment has been sucessfully entered"));
100 submenu_print(_("&Print This Remittance"), ST_SUPPAYMENT, $payment_id."-".ST_SUPPAYMENT, 'prtopt');
101 submenu_print(_("&Email This Remittance"), ST_SUPPAYMENT, $payment_id."-".ST_SUPPAYMENT, null, 1);
103 submenu_view(_("View this Payment"), ST_SUPPAYMENT, $payment_id);
104 display_note(get_gl_view_str(ST_SUPPAYMENT, $payment_id, _("View the GL &Journal Entries for this Payment")), 0, 1);
106 submenu_option(_("Enter another supplier &payment"), "/purchasing/supplier_payment.php?supplier_id=".$_POST['supplier_id']);
107 submenu_option(_("Enter Other &Payment"), "/gl/gl_bank.php?NewPayment=Yes");
108 submenu_option(_("Enter &Customer Payment"), "/sales/customer_payments.php");
109 submenu_option(_("Enter Other &Deposit"), "/gl/gl_bank.php?NewDeposit=Yes");
110 submenu_option(_("Bank Account &Transfer"), "/gl/bank_transfer.php");
112 display_footer_exit();
115 //----------------------------------------------------------------------------------------
117 function check_inputs()
121 if (!get_post('supplier_id'))
123 display_error(_("There is no supplier selected."));
124 set_focus('supplier_id');
128 if (@$_POST['amount'] == "")
130 $_POST['amount'] = price_format(0);
133 if (!check_num('amount', 0))
135 display_error(_("The entered amount is invalid or less than zero."));
140 if (isset($_POST['charge']) && !check_num('charge', 0)) {
141 display_error(_("The entered amount is invalid or less than zero."));
146 if (isset($_POST['charge']) && input_num('charge') > 0) {
147 $charge_acct = get_bank_charge_account($_POST['bank_account']);
148 if (get_gl_account($charge_acct) == false) {
149 display_error(_("The Bank Charge Account has not been set in System and General GL Setup."));
155 if (@$_POST['discount'] == "")
157 $_POST['discount'] = 0;
160 if (!check_num('discount', 0))
162 display_error(_("The entered discount is invalid or less than zero."));
167 //if (input_num('amount') - input_num('discount') <= 0)
168 if (input_num('amount') <= 0)
170 display_error(_("The total of the amount and the discount is zero or negative. Please enter positive values."));
175 if (isset($_POST['bank_amount']) && input_num('bank_amount')<=0)
177 display_error(_("The entered bank amount is zero or negative."));
178 set_focus('bank_amount');
183 if (!is_date($_POST['DatePaid']))
185 display_error(_("The entered date is invalid."));
186 set_focus('DatePaid');
189 elseif (!is_date_in_fiscalyear($_POST['DatePaid']))
191 display_error(_("The entered date is out of fiscal year or is closed for further data entry."));
192 set_focus('DatePaid');
196 $limit = get_bank_account_limit($_POST['bank_account'], $_POST['DatePaid']);
198 if (($limit !== null) && (floatcmp($limit, input_num('amount')) < 0))
200 display_error(sprintf(_("The total bank amount exceeds allowed limit (%s)."), price_format($limit)));
205 if (!check_reference($_POST['ref'], ST_SUPPAYMENT))
211 if (!db_has_currency_rates(get_supplier_currency($_POST['supplier_id']), $_POST['DatePaid'], true))
214 $_SESSION['alloc']->amount = -input_num('amount');
216 if (isset($_POST["TotalNumberOfAllocs"]))
217 return check_allocations();
222 //----------------------------------------------------------------------------------------
224 function handle_add_payment()
226 $payment_id = write_supp_payment(0, $_POST['supplier_id'], $_POST['bank_account'],
227 $_POST['DatePaid'], $_POST['ref'], input_num('amount'), input_num('discount'), $_POST['memo_'],
228 input_num('charge'), input_num('bank_amount', input_num('amount')));
229 new_doc_date($_POST['DatePaid']);
231 $_SESSION['alloc']->trans_no = $payment_id;
232 $_SESSION['alloc']->date_ = $_POST['DatePaid'];
233 $_SESSION['alloc']->write();
235 unset($_POST['bank_account']);
236 unset($_POST['DatePaid']);
237 unset($_POST['currency']);
238 unset($_POST['memo_']);
239 unset($_POST['amount']);
240 unset($_POST['discount']);
241 unset($_POST['ProcessSuppPayment']);
243 meta_forward($_SERVER['PHP_SELF'], "AddedID=$payment_id&supplier_id=".$_POST['supplier_id']);
246 //----------------------------------------------------------------------------------------
248 if (isset($_POST['ProcessSuppPayment']))
250 /*First off check for valid inputs */
251 if (check_inputs() == true)
253 handle_add_payment();
259 //----------------------------------------------------------------------------------------
263 start_outer_table(TABLESTYLE2, "width='60%'", 5);
267 supplier_list_row(_("Payment To:"), 'supplier_id', null, false, true);
269 if (list_updated('supplier_id') || list_updated('bank_account')) {
270 $_SESSION['alloc']->read();
271 $_POST['memo_'] = $_POST['amount'] = '';
272 $Ajax->activate('alloc_tbl');
275 set_global_supplier($_POST['supplier_id']);
277 if (!list_updated('bank_account') && !get_post('__ex_rate_changed'))
278 $_POST['bank_account'] = get_default_supplier_bank_account($_POST['supplier_id']);
280 $_POST['amount'] = price_format(0);
282 bank_accounts_list_row(_("From Bank Account:"), 'bank_account', null, true);
284 bank_balance_row($_POST['bank_account']);
288 date_row(_("Date Paid") . ":", 'DatePaid', '', true, 0, 0, 0, null, true);
290 ref_row(_("Reference:"), 'ref', '', $Refs->get_next(ST_SUPPAYMENT, null,
291 array('supplier'=>get_post('supplier_id'), 'date'=>get_post('DatePaid'))), false, ST_SUPPAYMENT);
296 $comp_currency = get_company_currency();
297 $supplier_currency = $_SESSION['alloc']->set_person($_POST['supplier_id'], PT_SUPPLIER);
298 if (!$supplier_currency)
299 $supplier_currency = $comp_currency;
300 $_SESSION['alloc']->currency = $bank_currency = get_bank_account_currency($_POST['bank_account']);
302 if ($bank_currency != $supplier_currency)
304 amount_row(_("Bank Amount:"), 'bank_amount', null, '', $bank_currency, 2);
307 amount_row(_("Bank Charge:"), 'charge', null, '', $bank_currency);
312 div_start('alloc_tbl');
313 show_allocatable(false);
316 start_table(TABLESTYLE, "width='60%'");
317 amount_row(_("Amount of Discount:"), 'discount', null, '', $supplier_currency);
318 amount_row(_("Amount of Payment:"), 'amount', null, '', $supplier_currency);
319 textarea_row(_("Memo:"), 'memo_', null, 22, 4);
322 submit_center('ProcessSuppPayment',_("Enter Payment"), true, '', 'default');