mirror of
https://github.com/YunoHost-Apps/noalyss_ynh.git
synced 2024-09-03 19:46:20 +02:00
284 lines
9.1 KiB
PHP
284 lines
9.1 KiB
PHP
<?php
|
|
/*
|
|
* This file is part of NOALYSS.
|
|
*
|
|
* NOALYSS is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* NOALYSS is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with NOALYSS; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
// Copyright Author Dany De Bontridder danydb@aevalys.eu
|
|
if ( ! defined ('ALLOWED') ) die('Appel direct ne sont pas permis');
|
|
require_once NOALYSS_INCLUDE.'/lib/ispan.class.php';
|
|
require_once NOALYSS_INCLUDE.'/lib/icard.class.php';
|
|
require_once NOALYSS_INCLUDE.'/lib/iselect.class.php';
|
|
require_once NOALYSS_INCLUDE.'/lib/icheckbox.class.php';
|
|
require_once NOALYSS_INCLUDE.'/class/acc_operation.class.php';
|
|
/*! \file
|
|
* \brief Print account (html or pdf)
|
|
* file included from user_impress
|
|
*
|
|
* some variable are already defined $cn, $g_user ...
|
|
*
|
|
*/
|
|
//-----------------------------------------------------
|
|
// Show the jrn and date
|
|
//-----------------------------------------------------
|
|
require_once NOALYSS_INCLUDE.'/lib/database.class.php';
|
|
global $g_user,$http;
|
|
//-----------------------------------------------------
|
|
// Form
|
|
//-----------------------------------------------------
|
|
echo '<div class="content">';
|
|
|
|
echo '<FORM action="?" METHOD="GET">';
|
|
echo HtmlInput::hidden('ac',$_REQUEST['ac']);
|
|
echo HtmlInput::hidden('type','gl_comptes');
|
|
echo dossier::hidden();
|
|
echo '<TABLE><TR>';
|
|
|
|
$cn=Dossier::connect();
|
|
$periode=new Periode($cn);
|
|
$a=$periode->get_limit($g_user->get_exercice());
|
|
// $a is an array
|
|
$first_day=$a[0]->first_day();
|
|
$last_day=$a[1]->last_day();
|
|
|
|
// filter on period
|
|
$date_from=new IDate('from_periode');
|
|
$date_to=new IDate('to_periode');
|
|
$year=$g_user->get_exercice();
|
|
$date_from->value=(isset($_REQUEST['from_periode'])&& isDate($_REQUEST['from_periode'])!=0)?$_REQUEST['from_periode']:$first_day;
|
|
$date_to->value=(isset($_REQUEST['to_periode']) && isDate($_REQUEST['to_periode']) !=0 )?$_REQUEST['to_periode']:$last_day;
|
|
echo td(_('Depuis').$date_from->input());
|
|
echo td(_('Jusque ').$date_to->input());
|
|
|
|
$letter=new ICheckbox('letter');
|
|
$letter->selected=(isset($_REQUEST['letter']))?true:false;
|
|
|
|
$from_poste=new IPoste('from_poste');
|
|
$from_poste->value=$http->request('from_poste',"string",'');
|
|
$from_poste->set_attribute('account','from_poste');
|
|
|
|
$to_poste=new IPoste('to_poste');
|
|
$to_poste->value=$http->request('to_poste',"string",'');
|
|
$to_poste->set_attribute('account','to_poste');
|
|
|
|
$solded=new ICheckbox('solded');
|
|
$solded->selected=(isset($_REQUEST['solded']))?true:false;
|
|
|
|
echo '<tr>';
|
|
echo td(_('Depuis le poste')).td($from_poste->input());
|
|
echo '</tr>';
|
|
|
|
echo '<tr>';
|
|
echo td(_("Jusqu'au poste")).td($to_poste->input());
|
|
echo '</tr>';
|
|
|
|
echo '<tr>';
|
|
echo td(_('Uniquement les opérations non lettrées'));
|
|
echo td($letter->input());
|
|
echo '</tr>';
|
|
|
|
echo '<tr>';
|
|
echo td(_('Uniquement les comptes non soldés'));
|
|
echo td($solded->input());
|
|
echo '</tr>';
|
|
|
|
|
|
//
|
|
echo '</TABLE>';
|
|
print HtmlInput::submit('bt_html',_('Visualisation'));
|
|
|
|
echo '</FORM>';
|
|
echo '<hr>';
|
|
echo '</div>';
|
|
|
|
//-----------------------------------------------------
|
|
// If print is asked
|
|
// First time in html
|
|
// after in pdf or cvs
|
|
//-----------------------------------------------------
|
|
if ( isset( $_REQUEST['bt_html'] ) )
|
|
{
|
|
require_once NOALYSS_INCLUDE.'/class/acc_account_ledger.class.php';
|
|
echo '<div class="content">';
|
|
echo Acc_Account_Ledger::HtmlTableHeader("gl_comptes");
|
|
echo '</div>';
|
|
$sql='select pcm_val from tmp_pcmn ';
|
|
$cond_poste='';
|
|
|
|
if ($from_poste->value != '')
|
|
{
|
|
$cond_poste = ' where ';
|
|
$cond_poste .=' pcm_val >= upper (\''.Database::escape_string($from_poste->value).'\')';
|
|
}
|
|
|
|
if ( $to_poste->value != '')
|
|
{
|
|
if ( $cond_poste == '')
|
|
{
|
|
$cond_poste = ' where pcm_val <= upper (\''.Database::escape_string($to_poste->value).'\')';
|
|
}
|
|
else
|
|
{
|
|
$cond_poste.=' and pcm_val <= upper (\''.Database::escape_string($to_poste->value).'\')';
|
|
}
|
|
}
|
|
|
|
$sql=$sql.$cond_poste.' order by pcm_val::text';
|
|
|
|
$a_poste=$cn->get_array($sql);
|
|
|
|
if ( sizeof($a_poste) == 0 )
|
|
{
|
|
die("Nothing here. Strange.");
|
|
exit;
|
|
}
|
|
if ( isDate($_REQUEST['from_periode'])==null || isDate($_REQUEST['to_periode'])==null)
|
|
{
|
|
echo alert(_('Date malformée, désolée'));
|
|
return;
|
|
}
|
|
echo '<div class="content">';
|
|
|
|
|
|
echo '<table class="result">';
|
|
$l=(isset($_REQUEST['letter']))?2:0;
|
|
$s=(isset($_REQUEST['solded']))?1:0;
|
|
|
|
|
|
foreach ($a_poste as $poste_id )
|
|
{
|
|
$Poste=new Acc_Account_Ledger ($cn, $poste_id['pcm_val']);
|
|
$Poste->load();
|
|
|
|
|
|
$Poste->get_row_date( $_GET['from_periode'], $_GET['to_periode'],$l,$s);
|
|
if ( empty($Poste->row))
|
|
{
|
|
continue;
|
|
}
|
|
|
|
|
|
echo '<tr >
|
|
<td colspan="8" style="width:auto">
|
|
<h2 class="info">'. $poste_id['pcm_val'].' '.h($Poste->label).'</h2>
|
|
</td>
|
|
</tr>';
|
|
|
|
echo '<tr>
|
|
<td>Date</td>
|
|
<td>Référence</td>
|
|
<td>Libellé</td>
|
|
<td>Pièce</td>
|
|
<td>Type</td>
|
|
<td align="right">Débit</td>
|
|
<td align="right">Crédit</td>
|
|
<td align="right">Solde</td>
|
|
<td align="right">Let.</td>
|
|
</tr>';
|
|
|
|
$solde = 0.0;
|
|
$solde_d = 0.0;
|
|
$solde_c = 0.0;
|
|
bcscale(2);
|
|
$i=0;
|
|
$current_exercice="";
|
|
|
|
foreach ($Poste->row as $detail)
|
|
{
|
|
/*
|
|
* separation per exercice
|
|
*/
|
|
if ( $current_exercice == "") $current_exercice=$detail['p_exercice'];
|
|
|
|
if ( $current_exercice != $detail['p_exercice']) {
|
|
echo '<tr class="highlight">
|
|
<td>'.$current_exercice.'</td>
|
|
<td>'.''.'</td>
|
|
<td>'._("Total du compte").$poste_id['pcm_val'].'</td>
|
|
<td>'.''.'</td>'.td("").
|
|
'<td align="right">'.($solde_d > 0 ? nbm( $solde_d) : '').'</td>
|
|
<td align="right">'.($solde_c > 0 ? nbm( $solde_c) : '').'</td>
|
|
<td align="right">'.nbm( abs($solde_c-$solde_d)).'</td>
|
|
<td>';
|
|
if ($solde_c > $solde_d ) echo _("Crédit");
|
|
if ($solde_c < $solde_d ) echo _("Débit");
|
|
if ($solde_c == $solde_d ) echo " ";
|
|
|
|
echo '</td>'.
|
|
'</tr>';
|
|
/*
|
|
* reset total and current_exercice
|
|
*/
|
|
$current_exercice=$detail['p_exercice'];
|
|
$solde = 0.0;
|
|
$solde_d = 0.0;
|
|
$solde_c = 0.0;
|
|
|
|
}
|
|
|
|
|
|
if ($detail['cred_montant'] > 0)
|
|
{
|
|
$solde=bcsub($solde, $detail['cred_montant']);
|
|
$solde_c=bcadd($solde_c,$detail['cred_montant']);
|
|
}
|
|
if ($detail['deb_montant'] > 0)
|
|
{
|
|
$solde = bcadd($solde,$detail['deb_montant']);
|
|
$solde_d = bcadd($solde_d,$detail['deb_montant']);
|
|
}
|
|
$side=" ".$Poste->get_amount_side($solde);
|
|
$letter="";
|
|
$html_let="";
|
|
if ($detail['letter'] > 0) {
|
|
$letter=strtoupper(base_convert($detail['letter'],10,36));
|
|
$html_let = HtmlInput::show_reconcile("", $letter);
|
|
}
|
|
$i++;
|
|
if (($i % 2 ) == 0) $class="odd"; else $class="even";
|
|
echo '<tr name="tr_'.$letter.'_" class="'.$class.'">
|
|
<td>'.$detail['j_date_fmt'].'</td>
|
|
<td>'.HtmlInput::detail_op($detail['jr_id'],$detail['jr_internal']).'</td>
|
|
<td>'.$detail['description'].'</td>
|
|
<td>'.$detail['jr_pj_number'].'</td>
|
|
<td>'.$detail['jr_optype'].'</td>
|
|
<td align="right">'.($detail['deb_montant'] > 0 ? nbm($detail['deb_montant']) : '').'</td>
|
|
<td align="right">'.($detail['cred_montant'] > 0 ? nbm($detail['cred_montant']) : '').'</td>
|
|
<td align="right">'.nbm(abs($solde)).$side.'</td>
|
|
<td style="text-align:right;color:red">'.$html_let.'</td>
|
|
</tr>';
|
|
}
|
|
echo '<tr class="highlight">
|
|
<td>'.$current_exercice.'</td>
|
|
<td>'.''.'</td>
|
|
<td>'.'<b>'.'Total du compte '.$poste_id['pcm_val'].'</b>'.'</td>
|
|
<td>'.''.'</td>'.td("").
|
|
'<td align="right">'.'<b>'.($solde_d > 0 ? nbm( $solde_d) : '').'</b>'.'</td>
|
|
<td align="right">'.'<b>'.($solde_c > 0 ? nbm( $solde_c) : '').'</b>'.'</td>
|
|
<td align="right">'.'<b>'.nbm( abs($solde_c-$solde_d)).'</b>'.'</td>
|
|
<td>';
|
|
if ($solde_c > $solde_d ) echo "Crédit";
|
|
if ($solde_c < $solde_d ) echo "Débit";
|
|
if ($solde_c == $solde_d ) echo "=";
|
|
|
|
echo '</td>'.
|
|
'</tr>';
|
|
}
|
|
echo '</table>';
|
|
echo Acc_Account_Ledger::HtmlTableHeader("gl_comptes");
|
|
echo "</div>";
|
|
exit;
|
|
}
|
|
?>
|