-function check_data()
-{
- $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;
- }
-
- if (!check_num('amount' . $counter,0))
- {
- display_error(_("The entry for an amount to allocate was negative. A positive allocation amount is expected."));
- 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) > input_num('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);
- }
-
- if ($total_allocated - $_SESSION['alloc']->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."));
- //echo _("Total allocated:") . " " . $total_allocated ;
- //echo " " . _("Total amount that can be allocated:") . " " . -$_SESSION['alloc']->TransAmt . "<BR>";
- return false;
- }
-
- return true;
-}
-
-//-----------------------------------------------------------------------------------
-
-function handle_process()
-{
- begin_transaction();
-
- // clear all the allocations for this payment/credit
- 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 $allocn_item)
- {
- if ($allocn_item->current_allocated > 0)
- {
- add_cust_allocation($allocn_item->current_allocated,
- $_SESSION['alloc']->type, $_SESSION['alloc']->trans_no,
- $allocn_item->type, $allocn_item->type_no, $_SESSION['alloc']->date_);
-
- update_debtor_trans_allocation($allocn_item->type, $allocn_item->type_no,
- $allocn_item->current_allocated);
-
- // Exchange Variations Joe Hunt 2008-09-20 ////////////////////////////////////////
-
- exchange_variation($_SESSION['alloc']->type, $_SESSION['alloc']->trans_no,
- $allocn_item->type, $allocn_item->type_no, $_SESSION['alloc']->date_,
- $allocn_item->current_allocated, payment_person_types::customer());
-
- ///////////////////////////////////////////////////////////////////////////
- $total_allocated += $allocn_item->current_allocated;
- }
-
- } /*end of the loop through the array of allocations made */
-
- update_debtor_trans_allocation($_SESSION['alloc']->type,
- $_SESSION['alloc']->trans_no, $total_allocated);
-
- commit_transaction();
-
- clear_allocations();
-}
-//--------------------------------------------------------------------------------
-
-if (isset($_POST['Process']))
-{
- if (check_data())
- {
- handle_process();
- $_POST['Cancel'] = 1;
- }
-}
-//--------------------------------------------------------------------------------
-
-if (isset($_POST['Cancel']))
-{
- clear_allocations();
- meta_forward($path_to_root . "/sales/allocations/customer_allocation_main.php");
-}
-//--------------------------------------------------------------------------------
-
-function get_allocations_for_transaction($type, $trans_no)
-{
- clear_allocations();
-
- $debtor = get_customer_trans($trans_no, $type);
-
- $_SESSION['alloc'] = new allocation($trans_no, $type, $debtor["debtor_no"],
- $debtor["DebtorName"], $debtor["Total"], sql2date($debtor["tran_date"]));
-
- /* Now populate the array of possible (and previous actual) allocations for this customer */
- /*First get the transactions that have outstanding balances ie Total-alloc >0 */
-
- $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
- }
-
- /* 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 */
-
- $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"]);
- }
-}
-//--------------------------------------------------------------------------------
-