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 ***********************************************************************/
13 Write/update customer payment.
15 function write_customer_payment($trans_no, $customer_id, $branch_id, $bank_account,
16 $date_, $ref, $amount, $discount, $memo_, $rate=0)
20 $company_record = get_company_prefs();
22 $payment_no = write_customer_trans(12, $trans_no, $customer_id, $branch_id,
23 $date_, $ref, $amount, $discount, 0, 0, 0, 0, 0, 0, 0, "", 0, $rate);
25 $bank_gl_account = get_bank_gl_account($bank_account);
28 delete_comments(12, $trans_no);
29 void_bank_trans(12, $trans_no, true);
30 void_gl_trans(12, $trans_no, true);
31 void_cust_allocations(12, $trans_no, $date_);
34 /* Bank account entry first */
35 $total += add_gl_trans_customer(12, $payment_no, $date_,
36 $bank_gl_account, 0, 0, $amount, $customer_id,
37 "Cannot insert a GL transaction for the bank account debit", $rate);
39 if ($branch_id != reserved_words::get_any_numeric()) {
41 $branch_data = get_branch_accounts($branch_id);
43 $debtors_account = $branch_data["receivables_account"];
44 $discount_account = $branch_data["payment_discount_account"];
47 $debtors_account = $company_record["debtors_act"];
48 $discount_account = $company_record["default_prompt_payment_act"];
51 if (($discount + $amount) != 0) {
52 /* Now Credit Debtors account with receipts + discounts */
53 $total += add_gl_trans_customer(12, $payment_no, $date_,
54 $debtors_account, 0, 0, -($discount + $amount), $customer_id,
55 "Cannot insert a GL transaction for the debtors account credit", $rate);
58 /* Now Debit discount account with discounts allowed*/
59 $total += add_gl_trans_customer(12, $payment_no, $date_,
60 $discount_account, 0, 0, $discount, $customer_id,
61 "Cannot insert a GL transaction for the payment discount debit", $rate);
64 /*Post a balance post if $total != 0 */
65 add_gl_balance(12, $payment_no, $date_, -$total, payment_person_types::customer(), $customer_id);
67 /*now enter the bank_trans entry */
68 add_bank_trans(12, $payment_no, $bank_account, $ref,
69 $date_, $amount, payment_person_types::customer(), $customer_id,
70 get_customer_currency($customer_id));
72 add_comments(12, $payment_no, $date_, $memo_);
74 references::save_last($ref, 12);
81 //-------------------------------------------------------------------------------------------------
83 function void_customer_payment($type, $type_no)
87 void_bank_trans($type, $type_no, true);
88 void_gl_trans($type, $type_no, true);
89 void_cust_allocations($type, $type_no);
90 void_customer_trans($type, $type_no);