MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
-$path_to_root="../..";
-$page_security = 3;
+$page_security = 'SA_SUPPLIERALLOC';
+$path_to_root = "../..";
include($path_to_root . "/includes/ui/allocation_cart.inc");
include_once($path_to_root . "/includes/session.inc");
include_once($path_to_root . "/includes/ui.inc");
include_once($path_to_root . "/includes/banking.inc");
include_once($path_to_root . "/sales/includes/sales_db.inc");
+//include_once($path_to_root . "/purchasing/includes/ui/supp_alloc_ui.inc");
$js = "";
-if ($use_popup_windows)
+if ($SysPrefs->use_popup_windows)
$js .= get_js_open_window(900, 500);
add_js_file('allocate.js');
-page(_("Allocate Supplier Payment or Credit Note"), false, false, "", $js);
+page(_($help_context = "Allocate Supplier Payment or Credit Note"), false, false, "", $js);
//--------------------------------------------------------------------------------
unset($_SESSION['alloc']->allocs);
unset($_SESSION['alloc']);
}
- session_register("alloc");
+ //session_register("alloc");
}
//--------------------------------------------------------------------------------
-function check_data()
+function edit_allocations_for_transaction($type, $trans_no)
{
- $total_allocated = 0;
+ global $systypes_array;
- 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;
- }
+ start_form();
- /*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) > $_POST['un_allocated' . $counter])
- {
- //$_POST['amount' . $counter] = $_POST['un_allocated' . $counter];
- }
+ $cart = $_SESSION['alloc'];
- $_SESSION['alloc']->allocs[$counter]->current_allocated = input_num('amount' . $counter);
+ display_heading(_("Allocation of") . " " . $systypes_array[$cart->type] . " # " . $cart->trans_no);
- $total_allocated += input_num('amount' . $counter);
- }
+ display_heading($cart->person_name);
- 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;
- }
+ display_heading2(_("Date:") . " <b>" . $cart->date_ . "</b>");
- return true;
-}
+ display_heading2(_("Total:"). " <b>" . price_format(-$cart->bank_amount).' '.$cart->currency."</b>");
-//-----------------------------------------------------------------------------------
-
-function handle_process()
-{
- begin_transaction();
-
- // clear all the allocations for this payment/credit
- clear_supp_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 (floatcmp($cart->bank_amount, $cart->amount))
{
- if ($alloc_item->current_allocated > 0)
- {
- 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);
-
- // 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, payment_person_types::supplier());
-
- ///////////////////////////////////////////////////////////////////////////
- $total_allocated += $alloc_item->current_allocated;
- }
+ $total = _("Amount ot be settled:") . " <b>" . price_format(-$cart->amount).' '.$cart->person_curr."</b>";
+ if ($cart->currency != $cart->person_curr)
+ $total .= sprintf(" (%s %s/%s)", exrate_format($cart->bank_amount/$cart->amount), $cart->currency, $cart->person_curr);
+ display_heading2($total);
+ }
+ echo "<br>";
- } /*end of the loop through the array of allocations made */
- update_supp_trans_allocation($_SESSION['alloc']->type,
- $_SESSION['alloc']->trans_no, $total_allocated);
+ div_start('alloc_tbl');
+ if (count($cart->allocs) > 0)
+ {
+ show_allocatable(true);
- commit_transaction();
+ submit_center_first('UpdateDisplay', _("Refresh"), _('Start again allocation of selected amount'), true);
+ submit('Process', _("Process"), true, _('Process allocations'), 'default');
+ submit_center_last('Cancel', _("Back to Allocations"),
+ _('Abandon allocations and return to selection of allocatable amounts'), 'cancel');
+ }
+ else
+ {
+ display_note(_("There are no unsettled transactions to allocate."), 0, 1);
+ submit_center('Cancel', _("Back to Allocations"), true,
+ _('Abandon allocations and return to selection of allocatable amounts'), 'cancel');
+ }
- clear_allocations();
+ div_end();
+ end_form();
}
-
//--------------------------------------------------------------------------------
if (isset($_POST['Process']))
{
- if (check_data())
+ if (check_allocations())
{
- handle_process();
+ $_SESSION['alloc']->write();
+ clear_allocations();
$_POST['Cancel'] = 1;
}
}
clear_allocations();
meta_forward($path_to_root . "/purchasing/allocations/supplier_allocation_main.php");
}
-//--------------------------------------------------------------------------------
-
-function get_allocations_for_transaction($type, $trans_no)
-{
- clear_allocations();
-
- $supptrans = get_supp_trans($trans_no, $type);
-
- $_SESSION['alloc'] = new allocation($trans_no, $type,
- $supptrans["supplier_id"], $supptrans["supplier_name"],
- $supptrans["Total"], sql2date($supptrans["tran_date"]));
-
- /* Now populate the array of possible (and previous actual) allocations for this supplier */
- /*First get the transactions that have outstanding balances ie Total-alloc >0 */
-
- $trans_items = get_allocatable_to_supp_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_supp_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 edit_allocations_for_transaction($type, $trans_no)
-{
- global $table_style;
-
- start_form(false, true);
-
- display_heading(_("Allocation of") . " " . systypes::name($_SESSION['alloc']->type) . " # " . $_SESSION['alloc']->trans_no);
-
- display_heading($_SESSION['alloc']->person_name);
-
- display_heading2(_("Date:") . " <b>" . $_SESSION['alloc']->date_ . "</b>");
- display_heading2(_("Total:") . " <b>" . price_format(-$_SESSION['alloc']->amount) . "</b>");
-
- echo "<br>";
-
- div_start('alloc_tbl');
- if (count($_SESSION['alloc']->allocs) > 0)
- {
- start_table($table_style);
- $th = array(_("Transaction Type"), _("#"), _("Date"), _("Due Date"), _("Amount"),
- _("Other Allocations"), _("This Allocation"), _("Left to Allocate"),'','');
- table_header($th);
-
- $k = $counter = $total_allocated = 0;
-
- 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, $un_allocated, false));
- end_row();
-
- $total_allocated += input_num('amount' . $counter);
- $counter++;
- }
-
- label_row(_("Total Allocated"), number_format2($total_allocated,user_price_dec()),
- "colspan=6 align=right", "align=right id='total_allocated'", 3);
- if (-$_SESSION['alloc']->amount - $total_allocated < 0)
- {
- $font1 = "<font color=red>";
- $font2 = "</font>";
- }
- else
- $font1 = $font2 = "";
- $left_to_allocate = price_format(-$_SESSION['alloc']->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();
-
- hidden('TotalNumberOfAllocs', $counter);
-
- submit_center_first('UpdateDisplay', _("Refresh"), _('Start again allocation of selected amount'), true);
- submit('Process', _("Process"), true, _('Process allocations'), true);
- submit_center_last('Cancel', _("Back to Allocations"),
- _('Abandon allocations and return to selection of allocatable amounts'), true);
- }
- else
- {
- display_note(_("There are no unsettled transactions to allocate."), 0, 1);
- submit_center('Cancel', _("Back to Allocations"), true,
- _('Abandon allocations and return to selection of allocatable amounts'), true);
- }
-
- div_end();
- end_form();
-}
//--------------------------------------------------------------------------------
if (isset($_GET['trans_no']) && isset($_GET['trans_type']))
{
- get_allocations_for_transaction($_GET['trans_type'], $_GET['trans_no']);
+ $_SESSION['alloc'] = new allocation($_GET['trans_type'], $_GET['trans_no'], @$_GET['supplier_id'], PT_SUPPLIER);
}
-if(get_post('UpdateDisplay'))
+
+if (get_post('UpdateDisplay'))
{
- $trans_no = $_SESSION['alloc']->trans_no;
- $type = $_SESSION['alloc']->type;
- clear_allocations();
- get_allocations_for_transaction($type, $trans_no);
+ $_SESSION['alloc']->read();
$Ajax->activate('alloc_tbl');
}
end_page();
-?>
\ No newline at end of file