get("ledger_type","string", 'ALL');
$Ledger=new Acc_Ledger_Search($ledger_type,0,'search_op');
switch($ledger_type)
{
case 'ACH':
$ask_pay=1;
break;
case 'ODS':
$ask_pay=0;
$p_array['ledger_type']='ODS';
break;
case 'ALL':
$ask_pay=0;
$p_array['ledger_type']='ALL';
break;
case 'VEN':
$ask_pay=1;
break;
case 'FIN':
$ask_pay=0;
break;
}
echo '
';
// Check privilege
$p_jrn=$http->request("p_jrn", "string",-1);
if (isset($_REQUEST['p_jrn']) &&
$g_user->check_jrn($p_jrn) == 'X')
{
NoAccess();
exit - 1;
}
$Ledger->id = $p_jrn;
//------------------------------
// UPdate the payment
//------------------------------
if (isset($_GET ['paid']))
{
$ledger_paid=new Acc_Ledger($cn,$p_jrn);
$ledger_paid->update_paid($_GET);
}
$msg="";
/* by default we should use the default period */
if (!isset($p_array['date_start']))
{
$period = $g_user->get_periode();
$per = new Periode($cn, $period);
list($date_start, $date_end) = $per->get_date_limit();
$p_array['date_start'] = $date_start;
$p_array['date_end'] = $date_end;
$msg='
'._("Période ").$date_start._(" au ").$date_end.'
';
}
else
{
$msg='
'._("Période ").$_GET['date_start']._(" au ").$_GET['date_end'].'
';
}
/* compute the sql stmt */
list($sql, $where) = $Ledger->build_search_sql($p_array);
$max_line = $cn->count_sql($sql);
$step = $_SESSION['g_pagesize'];
$page = (isset($_GET['offset'])) ? $_GET['page'] : 1;
$offset = (isset($_GET['offset'])) ? $_GET['offset'] : 0;
$bar = navigation_bar($offset, $max_line, $step, $page);
echo $msg;
echo $Ledger->display_search_form();
echo $bar;
echo '
';
/*
* Export to csv
*/
$r = HtmlInput::get_to_hidden(array('l', 'date_paid_start','date_paid_end',
'date_start', 'date_end', 'desc', 'amount_min', 'amount_max', 'qcode',
'accounting', 'unpaid', 'gDossier', 'ledger_type', 'p_action'));
if (isset($_GET['r_jrn']))
{
foreach ($_GET['r_jrn'] as $k => $v)
$r.=HtmlInput::hidden('r_jrn[' . $k . ']', $v);
}
echo '
';
echo '
';
return;
?>