}
}
}
$r .= td(HtmlInput::hidden('jrid[' . $i . ']', $row['jr_id']) . $iradio->input(), ' style="text-align:center" ');
if ($i % 2 == 0) {
echo tr($r, ' class="odd" ');
} else {
echo tr($r, ' class="even" ');
}
}
echo '</table>';
$bk_card = new Fiche($cn);
$bk_card->id = $Ledger->get_bank();
$filter_year = " j_tech_per in (select p_id from parm_periode where p_exercice='" . $g_user->get_exercice() . "')";
/* get saldo for not reconcilied operations */
$saldo_not_reconcilied = $bk_card->get_solde_detail($filter_year . " and j_grpt in (select jr_grpt_id from jrn where trim(jr_pj_number) ='' or jr_pj_number is null)");
/* get saldo for reconcilied operation */
$saldo_reconcilied = $bk_card->get_solde_detail($filter_year . " and j_grpt in (select jr_grpt_id from jrn where trim(jr_pj_number) != '' and jr_pj_number is not null)");
/* solde compte */
$saldo = $bk_card->get_solde_detail($filter_year);
echo '<table>';
echo '<tr>';
echo td("Solde compte ");
echo td(nbm(bcsub($saldo['debit'], $saldo['credit'])), ' style="text-align:right"');
echo '</tr>';
echo '<tr>';
echo td("Solde non rapproché ");
echo td(nbm(bcsub($saldo_not_reconcilied['debit'], $saldo_not_reconcilied['credit'])), ' style="text-align:right"');
echo '</tr>';
echo '<tr>';
echo td("Solde rapproché ");
}
echo '<h2>' . $cn->get_value("select fd_label from fiche_def where fd_id=\$1", array($afiche[$e]['fd_id'])) . '</h2>';
$id = "table_" . $afiche[$e]['fd_id'] . "_id";
echo _('Filtre rapide:') . HtmlInput::filter_table($id, '0,1,2', '1');
echo '<table class="sortable" id="' . $id . '" class="result" >';
echo tr(th('Quick Code') . th('Libellé') . '<th>Poste' . HtmlInput::infobulle(27) . '</th>' . th('Débit', 'style="text-align:right"') . th('Crédit', 'style="text-align:right"') . th('Solde', 'style="text-align:right"') . th('D/C', 'style="text-align:right"'));
$idx = 0;
$sum_deb = 0;
$sum_cred = 0;
$sum_solde = 0;
bcscale(4);
for ($i = 0; $i < Database::num_row($ret); $i++) {
$filter = " (j_date >= to_date('" . $_REQUEST['start'] . "','DD.MM.YYYY') " . " and j_date <= to_date('" . $_REQUEST['end'] . "','DD.MM.YYYY')) ";
$aCard = Database::fetch_array($ret, $i);
$oCard = new Fiche($cn, $aCard['f_id']);
$solde = $oCard->get_solde_detail($filter);
if ($solde['debit'] == 0 && $solde['credit'] == 0) {
continue;
}
/* only not purged card */
if ($_GET['histo'] == 5 && $solde['debit'] == $solde['credit']) {
continue;
}
$class = $idx % 2 == 0 ? 'class="odd"' : 'class="even"';
$idx++;
$sum_cred = bcadd($sum_cred, $solde['credit']);
$sum_deb = bcadd($sum_deb, $solde['debit']);
$sum_solde = bcsub($sum_deb, $sum_cred);
echo tr(td(HtmlInput::history_card($oCard->id, $oCard->strAttribut(ATTR_DEF_QUICKCODE))) . td($oCard->strAttribut(ATTR_DEF_NAME)) . td(HtmlInput::history_account($oCard->strAttribut(ATTR_DEF_ACCOUNT), $oCard->strAttribut(ATTR_DEF_ACCOUNT))) . td(nbm($solde['debit']), 'class="sorttable_numeric" sorttable_customkey="' . $solde['debit'] . '" style="text-align:right"') . td(nbm($solde['credit']), 'class="sorttable_numeric" sorttable_customkey="' . $solde['debit'] . '" style="text-align:right"') . td(nbm(abs($solde['solde'])), 'class="sorttable_numeric" sorttable_customkey="' . $solde['solde'] . '" style="text-align:right"') . td($solde['debit'] < $solde['credit'] ? 'C' : 'D', 'style="text-align:right"'), $class);
}
echo '<tfoot>';
/**
*@brief Display the result of the forecast
*@param $p_periode
*@return HTML String with the code
*/
public function display()
{
bcscale(4);
$forecast = new Forecast($this->cn, $this->f_id);
$forecast->load();
$str_name = h($forecast->get_parameter('name'));
$start = $forecast->get_parameter('start_date');
$end = $forecast->get_parameter('end_date');
if ($start == '') {
throw new Exception(_('Période de début non valable'));
}
if ($end == '') {
throw new Exception(_('Période de fin non valable'));
}
$per = new Periode($this->cn, $start);
$str_start = format_date($per->first_day());
$per = new Periode($this->cn, $end);
$str_end = format_date($per->last_day());
$r = "";
$aCat = $this->cn->get_array('select fc_id,fc_desc from forecast_cat where f_id=$1 order by fc_order', array($this->f_id));
$aItem = array();
$aReal = array();
$poste = new Acc_Account_Ledger($this->cn, 0);
$fiche = new Fiche($this->cn);
$aPeriode = $this->cn->get_array("select p_id,to_char(p_start,'MM.YYYY') as myear from parm_periode\n\t where p_start >= (select p_start from parm_periode where p_id={$start})\n and p_end <= (select p_end from parm_periode where p_id={$end})\n\t\t\t\t\t order by p_start;");
$error = array();
for ($j = 0; $j < count($aCat); $j++) {
$aItem[$j] = $this->cn->get_array('select fi_card,fi_account,fi_text,fi_amount,fi_debit from forecast_item where fc_id=$1 and fi_pid=0 order by fi_order ', array($aCat[$j]['fc_id']));
$aPerMonth[$j] = $this->cn->get_array('select fi_pid,fi_card,fi_account,fi_text,fi_amount,fi_debit from forecast_item where fc_id=$1 and fi_pid !=0 order by fi_order ', array($aCat[$j]['fc_id']));
/* compute the real amount for periode */
for ($k = 0; $k < count($aItem[$j]); $k++) {
/* for each periode */
for ($l = 0; $l < count($aPeriode); $l++) {
if ($aItem[$j][$k]['fi_account'] == '') {
$fiche->id = $aItem[$j][$k]['fi_card'];
$amount = $fiche->get_solde_detail("j_tech_per = " . $aPeriode[$l]['p_id']);
if ($aItem[$j][$k]['fi_debit'] == 'C' && $amount['debit'] > $amount['credit']) {
$amount['solde'] = $amount["solde"] * -1;
}
if ($aItem[$j][$k]['fi_debit'] == 'D' && $amount['debit'] < $amount['credit']) {
$amount['solde'] = $amount["solde"] * -1;
}
} else {
$poste->id = $aItem[$j][$k]['fi_account'];
$aresult = Impress::parse_formula($this->cn, "OK", $poste->id, $aPeriode[$l]['p_id'], $aPeriode[$l]['p_id']);
$tmp_label = $aresult['desc'];
$amount['solde'] = $aresult['montant'];
if ($tmp_label != 'OK') {
$error[] = "<li> " . $aItem[$j][$k]['fi_text'] . $poste->id . '</li>';
}
}
$aReal[$j][$k][$l] = $amount['solde'];
}
}
}
ob_start();
require_once NOALYSS_INCLUDE . '/template/forecast_result.php';
$r .= ob_get_contents();
ob_end_clean();
return $r;
}
