Check();
$User->can_request(IMPJRN,0);
$User->check_dossier($gDossier);
if ($_GET['jrn_id']!=0 && $User->check_jrn($_GET['jrn_id']) =='X')
{
NoAccess();
exit();
}
$Jrn=new Acc_Ledger($cn,$_GET['jrn_id']);
$Jrn->get_name();
$jrn_type=$Jrn->get_type();
// Detailled printing
//---
if ( $_GET['p_simple'] == 0 )
{
$Jrn->get_row( $_GET['from_periode'],
$_GET['to_periode']
);
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);
$desc=str_replace(";",",",$desc);
printf("\"%s\";\"%s\";\"%s\";\"%s\";\"%s\";\"%s\";%s;%s\n",
$op['j_id'],
$op['jr_pj_number'],
$op['internal'],
$op['j_date'],
$op['poste'],
$desc,
nb($op['deb_montant']),
nb($op['cred_montant'])
);
}
exit;
}
else
{
$Row=$Jrn->get_rowSimple($_GET['from_periode'],
$_GET['to_periode'],
0);
//-----------------------------------------------------
if ( $jrn_type == 'ODS' || $jrn_type == 'FIN' || $jrn_type=='GL')
{
printf ('" operation";'.
'"Date";'.
'"N° Pièce";'.
'"Tiers";'.
'"commentaire";'.
'"internal";'.
'"montant";'.
"\r\n");
foreach ($Row as $line)
{
echo $line['num'].";";
echo $line['date'].";";
echo $line['jr_pj_number'].";";
echo $Jrn->get_tiers($line['jrn_def_type'],$line['jr_id']).";";
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 = $cn->get_value("select qf_amount from quant_fin ".
" where jr_id=".$line['jr_id']);
echo nb($positive);
echo ";";
}
else
{
echo nb($line['montant']).";";
}
printf("\r\n");
}
}
//-----------------------------------------------------
if ( $jrn_type=='ACH' || $jrn_type=='VEN')
{
$own=new Own($cn);
$col_tva="";
if ( $own->MY_TVA_USE=='Y')
{
$a_Tva=$cn->get_array("select tva_id,tva_label from tva_rate where tva_rate != 0.0000 order by tva_rate");
foreach($a_Tva as $line_tva)
{
$col_tva.='"Tva '.$line_tva['tva_label'].'";';
}
}
echo '"Date";"operation";"Client/Fourn.";"Commentaire";"inter.";"HTVA";'.$col_tva.'"TVAC"'."\n\r";
foreach ($Row as $line)
{
printf('"%s";"%s";"%s";"%s";"%s";%s;',
$line['date'],
$line['num'],
$Jrn->get_tiers($line['jrn_def_type'],$line['jr_id']),
$line['comment'],
$line['jr_internal'],
nb($line['HTVA']));
$a_tva_amount=array();
foreach ($line['TVA'] as $lineTVA)
{
foreach ($a_Tva as $idx=>$line_tva)
{
if ($line_tva['tva_id'] == $lineTVA[1][0])
{
$a=$line_tva['tva_id'];
$a_tva_amount[$a]=$lineTVA[1][2];
}
}
}
if ($own->MY_TVA_USE == 'Y' )
{
foreach ($a_Tva as $line_tva)
{
$a=$line_tva['tva_id'];
if ( isset($a_tva_amount[$a]))
echo nb($a_tva_amount[$a]).';';
else
printf("0;");
}
}
echo nb ($line['TVAC']);
printf("\r\n");
}
}
}
?>
|