';
$User->db=$cn;
$sql_year=" and j_tech_per in (select p_id from parm_periode where p_exercice='".$User->get_exercice()."')";
echo '
Vérification des journaux ';
echo '';
$deb=$cn->get_value("select sum (j_montant) from jrnx where j_debit='t' $sql_year ");
$cred=$cn->get_value("select sum (j_montant) from jrnx where j_debit='f' $sql_year ");
if ( $cred == $deb )
{
$result =' OK ';
}
else
{
$result =' NON OK ';
}
printf (' Solde Grand Livre : debit %f credit %f %s ',$deb,$cred,$result);
$sql="select jrn_def_id,jrn_def_name from jrn_def";
$res=$cn->exec_sql($sql);
$jrn=Database::fetch_all($res);
foreach ($jrn as $l)
{
$id=$l['jrn_def_id'];
$name=$l['jrn_def_name'];
$deb=$cn->get_value("select sum (j_montant) from jrnx where j_debit='t' and j_jrn_def=$id $sql_year ");
$cred=$cn->get_value("select sum (j_montant) from jrnx where j_debit='f' and j_jrn_def=$id $sql_year ");
if ( $cred == $deb )
{
$result =' OK ';
}
else
{
$result =' NON OK ';
}
printf (' Journal %s Solde : debit %f credit %f %s ',$name,$deb,$cred,$result);
}
echo ' ';
echo '';
$sql_year=" and j_tech_per in (select p_id from parm_periode where p_exercice='".$exercice."')";
$deb=$cn->get_value("select sum (j_montant) from jrnx where j_debit='t' $sql_year ");
$cred=$cn->get_value("select sum (j_montant) from jrnx where j_debit='f' $sql_year ");
if ( $cred == $deb )
{
$result =' OK ';
}
else
{
$result =' NON OK ';
}
printf (' Total solde Grand Livre : debit %f credit %f %s ',$deb,$cred,$result);
$sql="select jrn_def_id,jrn_def_name from jrn_def";
$res=$cn->exec_sql($sql);
$jrn=Database::fetch_all($res);
foreach ($jrn as $l)
{
$id=$l['jrn_def_id'];
$name=$l['jrn_def_name'];
$deb=$cn->get_value("select sum (j_montant) from jrnx where j_debit='t' and j_jrn_def=$id $sql_year ");
$cred=$cn->get_value("select sum (j_montant) from jrnx where j_debit='f' and j_jrn_def=$id $sql_year ");
if ( $cred == $deb )
{
$result =' OK ';
}
else
{
$result =' NON OK ';
}
printf (' Journal %s total : debit %f credit %f %s ',$name,$deb,$cred,$result);
}
echo ' ';
echo '
Vérification des comptes ';
$bilan=new Acc_Bilan($cn);
$periode=new Periode($cn);
list ($start_periode,$end_periode)=$periode->get_limit($exercice);
$bilan->from=$start_periode->p_id;
$bilan->to=$end_periode->p_id;
$bilan->verify();
echo '';
echo '
';
?>