<?php
/**********************************************************************
Copyright (C) FrontAccounting, LLC.
- Released under the terms of the GNU Affero General Public License,
- AGPL, as published by the Free Software Foundation, either version
- 3 of the License, or (at your option) any later version.
+ Released under the terms of the GNU General Public License, GPL,
+ as published by the Free Software Foundation, either version 3
+ of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- See the License here <http://www.gnu.org/licenses/agpl-3.0.html>.
+ See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
/* definition of the Debtor Receipt/Credit note allocation class */
}
}
+//--------------------------------------------------------------------------------
+function get_allocations_for_transaction($type, $trans_no)
+{
+ $sup = $type == 21 || $type == 22;
+
+ if ($trans_no) {
+ $trans = $sup ? get_supp_trans($trans_no, $type)
+ : get_customer_trans($trans_no, $type);
+
+ $_SESSION['alloc'] = new allocation($trans_no, $type,
+ $trans[$sup ? 'supplier_id':'debtor_no'],
+ $trans[$sup ? "supplier_name":"DebtorName"],
+ $trans["Total"], sql2date($trans["tran_date"]));
+ } else {
+ $_SESSION['alloc'] = new allocation($trans_no, $type,
+ $_POST[$sup ? 'supplier_id':'customer_id'], '', 0,
+ $_POST[$sup ? 'DatePaid':'DateBanked'] );
+ }
+
+ /* Now populate the array of possible (and previous actual) allocations for this customer/supplier */
+ /*First get the transactions that have outstanding balances ie Total-alloc >0 */
+
+ if ($sup)
+ $trans_items = get_allocatable_to_supp_transactions($_SESSION['alloc']->person_id);
+ else
+ $trans_items = get_allocatable_to_cust_transactions($_SESSION['alloc']->person_id);
+
+ while ($myrow = db_fetch($trans_items))
+ {
+ $_SESSION['alloc']->add_item($myrow["type"], $myrow["trans_no"],
+ sql2date($myrow["tran_date"]),
+ sql2date($myrow["due_date"]),
+ $myrow["Total"], // trans total
+ $myrow["alloc"], // trans total allocated
+ 0); // this allocation
+ }
+
+ if ($trans_no == 0) return; // this is new payment
+
+ /* Now get trans that might have previously been allocated to by this trans
+ NB existing entries where still some of the trans outstanding entered from
+ above logic will be overwritten with the prev alloc detail below */
+
+ if ($sup)
+ $trans_items = get_allocatable_to_supp_transactions($_SESSION['alloc']->person_id, $trans_no, $type);
+ else
+ $trans_items = get_allocatable_to_cust_transactions($_SESSION['alloc']->person_id, $trans_no, $type);
+
+ while ($myrow = db_fetch($trans_items))
+ {
+ $_SESSION['alloc']->add_or_update_item ($myrow["type"], $myrow["trans_no"],
+ sql2date($myrow["tran_date"]),
+ sql2date($myrow["due_date"]),
+ $myrow["Total"],
+ $myrow["alloc"] - $myrow["amt"], $myrow["amt"]);
+ }
+}
+
+//---------------------------------------------------------------------------------------------------
+
+function show_allocatable($show_totals) {
+
+ global $table_style;
+
+ $k = $counter = $total_allocated = 0;
+
+ if (count($_SESSION['alloc']->allocs))
+ {
+ start_table($table_style);
+ $th = array(_("Transaction Type"), _("#"), _("Date"), _("Due Date"), _("Amount"),
+ _("Other Allocations"), _("This Allocation"), _("Left to Allocate"),'','');
+ table_header($th);
+
+ foreach ($_SESSION['alloc']->allocs as $alloc_item)
+ {
+ alt_table_row_color($k);
+ label_cell(systypes::name($alloc_item->type));
+ label_cell(get_trans_view_str($alloc_item->type, $alloc_item->type_no));
+ label_cell($alloc_item->date_, "align=right");
+ label_cell($alloc_item->due_date, "align=right");
+ amount_cell($alloc_item->amount);
+ amount_cell($alloc_item->amount_allocated);
+
+ $_POST['amount' . $counter] = price_format($alloc_item->current_allocated);
+ amount_cells(null, "amount" . $counter, price_format('amount' . $counter));
+
+ $un_allocated = round($alloc_item->amount - $alloc_item->amount_allocated, 6);
+ amount_cell($un_allocated);
+ label_cell("<a href='#' name=Alloc$counter onclick='allocate_all(this.name.substr(5));return true;'>"
+ . _("All") . "</a>");
+ label_cell("<a href='#' name=DeAll$counter onclick='allocate_none(this.name.substr(5));return true;'>"
+ . _("None") . "</a>".hidden("un_allocated" . $counter,
+ price_format($un_allocated), false));
+ end_row();
+
+ $total_allocated += input_num('amount' . $counter);
+ $counter++;
+ }
+ if ($show_totals) {
+ label_row(_("Total Allocated"), price_format($total_allocated),
+ "colspan=6 align=right", "align=right id='total_allocated'", 3);
+ $amount = $_SESSION['alloc']->amount;
+
+ if ($_SESSION['alloc']->type == 21 || $_SESSION['alloc']->type == 22)
+ $amount = -$amount;
+
+ if ($amount - $total_allocated < 0)
+ {
+ $font1 = "<font color=red>";
+ $font2 = "</font>";
+ }
+ else
+ $font1 = $font2 = "";
+ $left_to_allocate = price_format($amount - $total_allocated);
+ label_row(_("Left to Allocate"), $font1 . $left_to_allocate . $font2,
+ "colspan=6 align=right", "nowrap align=right id='left_to_allocate'",
+ 3);
+ }
+ end_table(1);
+ }
+ hidden('TotalNumberOfAllocs', $counter);
+}
+//--------------------------------------------------------------------------------
+
+function check_allocations()
+{
+ $total_allocated = 0;
+
+ for ($counter = 0; $counter < $_POST["TotalNumberOfAllocs"]; $counter++)
+ {
+ if (!check_num('amount' . $counter, 0))
+ {
+ display_error(_("The entry for one or more amounts is invalid or negative."));
+ set_focus('amount'.$counter);
+ return false;
+ }
+
+ /*Now check to see that the AllocAmt is no greater than the
+ amount left to be allocated against the transaction under review */
+ if (input_num('amount' . $counter) > get_post('un_allocated' . $counter))
+ {
+ //$_POST['amount' . $counter] = $_POST['un_allocated' . $counter];
+ }
+
+ $_SESSION['alloc']->allocs[$counter]->current_allocated = input_num('amount' . $counter);
+
+ $total_allocated += input_num('amount' . $counter);
+ }
+
+ $amount = $_SESSION['alloc']->amount;
+ if ($_SESSION['alloc']->type == 21 || $_SESSION['alloc']->type == 22)
+ $amount = -$amount;
+
+ if ($total_allocated - $amount > sys_prefs::allocation_settled_allowance())
+ {
+ display_error(_("These allocations cannot be processed because the amount allocated is more than the total amount left to allocate."));
+ return false;
+ }
+
+ return true;
+}
//-----------------------------------------------------------------------------------
+function handle_allocate()
+{
+ $sup = $_SESSION['alloc']->type == 21 || $_SESSION['alloc']->type == 22;
+
+ begin_transaction();
+
+ if ($sup)
+ clear_supp_alloctions($_SESSION['alloc']->type, $_SESSION['alloc']->trans_no, $_SESSION['alloc']->date_);
+ else
+ clear_cust_alloctions($_SESSION['alloc']->type, $_SESSION['alloc']->trans_no, $_SESSION['alloc']->date_);
+
+ // now add the new allocations
+ $total_allocated = 0;
+ foreach ($_SESSION['alloc']->allocs as $alloc_item)
+ {
+ if ($alloc_item->current_allocated > 0)
+ {
+ if ($sup) {
+ add_supp_allocation($alloc_item->current_allocated,
+ $_SESSION['alloc']->type, $_SESSION['alloc']->trans_no,
+ $alloc_item->type, $alloc_item->type_no, $_SESSION['alloc']->date_);
+
+ update_supp_trans_allocation($alloc_item->type, $alloc_item->type_no,
+ $alloc_item->current_allocated);
+ } else {
+ add_cust_allocation($alloc_item->current_allocated,
+ $_SESSION['alloc']->type, $_SESSION['alloc']->trans_no,
+ $alloc_item->type, $alloc_item->type_no, $_SESSION['alloc']->date_);
+
+ update_debtor_trans_allocation($alloc_item->type, $alloc_item->type_no,
+ $alloc_item->current_allocated);
+ }
+ // Exchange Variations Joe Hunt 2008-09-20 ////////////////////////////////////////
+
+ exchange_variation($_SESSION['alloc']->type, $_SESSION['alloc']->trans_no,
+ $alloc_item->type, $alloc_item->type_no, $_SESSION['alloc']->date_,
+ $alloc_item->current_allocated,
+ $sup ? payment_person_types::supplier() :payment_person_types::customer());
+
+
+ ///////////////////////////////////////////////////////////////////////////
+ $total_allocated += $alloc_item->current_allocated;
+ }
+
+ } /*end of the loop through the array of allocations made */
+ if ($sup)
+ update_supp_trans_allocation($_SESSION['alloc']->type,
+ $_SESSION['alloc']->trans_no, $total_allocated);
+ else
+ update_debtor_trans_allocation($_SESSION['alloc']->type,
+ $_SESSION['alloc']->trans_no, $total_allocated);
+
+ commit_transaction();
+
+}
?>