';
echo '
';
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']);
if ( empty($Poste->row))
{
continue;
}
echo '
'. $poste_id['pcm_val'].' '.h($Poste->label).'
|
';
echo '
| Date |
Référence |
Libellé |
Pièce |
Débit |
Crédit |
Solde |
|
';
$solde = 0.0;
$solde_d = 0.0;
$solde_c = 0.0;
bcscale(2);
foreach ($Poste->row as $detail)
{
/*
[0] => 1 [jr_id] => 1
[1] => 01.02.2009 [j_date_fmt] => 01.02.2009
[2] => 2009-02-01 [j_date] => 2009-02-01
[3] => 0 [deb_montant] => 0
[4] => 12211.9100 [cred_montant] => 12211.9100
[5] => Ecriture douverture [description] => Ecriture douverture
[6] => Opération Diverses [jrn_name] => Opération Diverses
[7] => f [j_debit] => f
[8] => 17OD-01-1 [jr_internal] => 17OD-01-1
[9] => ODS1 [jr_pj_number] => ODS1 ) 1
*/
if ($detail['cred_montant'] > 0)
{
$solde=bcadd($solde, $detail['cred_montant']);
$solde_c=bcadd($solde_c,$detail['cred_montant']);
}
if ($detail['deb_montant'] > 0)
{
$solde = bcsub($solde,$detail['deb_montant']);
$solde_d = bcadd($solde_d,$detail['deb_montant']);
}
echo '
| '.$detail['j_date_fmt'].' |
'.$detail['jr_internal'].' |
'.$detail['description'].' |
'.$detail['jr_pj_number'].' |
'.($detail['deb_montant'] > 0 ? nbm($detail['deb_montant']) : '').' |
'.($detail['cred_montant'] > 0 ? nbm($detail['cred_montant']) : '').' |
'.nbm($solde).' |
'.''.' |
';
}
echo '
| '.''.' |
'.''.' |
'.''.'Total du compte '.$poste_id['pcm_val'].''.' |
'.''.' |
'.''.($solde_d > 0 ? nbm( $solde_d) : '').''.' |
'.''.($solde_c > 0 ? nbm( $solde_c) : '').''.' |
'.''.nbm( abs($solde_c-$solde_d)).''.' |
';
if ($solde_c > $solde_d ) echo "Crédit";
if ($solde_c < $solde_d ) echo "Débit";
if ($solde_c == $solde_d ) echo "=";
echo ' | '.
'
';
}
echo '
';
echo Acc_Account_Ledger::HtmlTableHeader("gl_comptes");
echo "