get_exercice(); echo '
'; $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 ('
  1. Solde Grand Livre : debit %f credit %f %s
  2. ',$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 ('
  3. Journal %s Solde : debit %f credit %f %s
  4. ',$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 ('
  1. Total solde Grand Livre : debit %f credit %f %s
  2. ',$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 ('
  3. Journal %s total : debit %f credit %f %s
  4. ',$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 '
'; ?>