Check();
if ( $User->CheckAction($cn,IMP) == 0 ||
$User->AccessJrn($cn,$_GET['jrn_id']) == false){
/* Cannot Access */
NoAccess();
}
$p_cent=( isset ( $_GET['central']) )?$_GET['central']:'off';
$Jrn=new jrn($cn,$_GET['jrn_id']);
$Jrn->GetName();
// Detailled printing
//---
if ( $_GET['p_simple'] == 0 )
{
$Jrn->GetRow( $_GET['from_periode'],
$_GET['to_periode'],
$p_cent);
if ( count($Jrn->row) == 0)
exit;
foreach ( $Jrn->row as $op ) {
// should clean description : remove tag and '; char
$desc=$op['description'];
$desc=str_replace("","",$desc);
$desc=str_replace("","",$desc);
$desc=str_replace("","",$desc);
$desc=str_replace("","",$desc);
$desc=str_replace('"',"'",$desc);
printf("\"%s\"\t\"%s\"\t\"%s\"\t\"%s\"\t\"%s\"\t%8.4f\t%8.4f\n",
$op['j_id'],
$op['internal'],
$op['j_date'],
$op['poste'],
$desc,
$op['cred_montant'],
$op['deb_montant']
);
}
exit;
}
else
{
$Row=$Jrn->GetRowSimple($_GET['from_periode'],
$_GET['to_periode'],
$p_cent);
////////////////////////////////////////////////////////////////////////////////
printf ('" operation "'.
'"Date"'.
'"commentaire"'.
'"internal"'.
'"montant"');
foreach ($Row as $line)
{
echo $line['num'].";";
echo $line['date'].";";
echo $line['comment'].";";
echo $line['jr_internal'].";";
// echo "| ".$line['pj'].";";
// If the ledger is financial :
// the credit must be negative and written in red
// Get the jrn type
if ( $line['jrn_def_type'] == 'FIN' ) {
$positive = CountSql($cn,"select * from jrn inner join jrnx on jr_grpt_id=j_grpt ".
" where jr_id=".$line['jr_id']." and (j_poste like '55%' or j_poste like '57%' )".
" and j_debit='f'");
echo ( $positive != 0 )?sprintf("-%8.2f",$line['montant']):sprintf("%8.2f",$line['montant']);
echo ";";
}
else
{
printf("% 8.2f",$line['montant']).";";
}
printf("\r\n");
}
////////////////////////////////////////////////////////////////////////////////
}
?>
|