';
echo dossier::hidden();
echo HtmlInput::hidden('ac', $ac);
require_once NOALYSS_TEMPLATE.'/impress_cat_card.php';
echo HtmlInput::submit('cat_display', _('Recherche'));
echo '';
echo '
';
$str = "if (g('histo').value==3 || g('histo').value== -1 ) {
g('trstart').style.display='none';g('trend').style.display='none';g('allcard').style.display='none';}
else {g('trstart').style.display='';g('trend').style.display='';g('allcard').style.display='';}
if ( g('histo').value== -1 ) { g('allcard').style.display='';}
";
echo create_script($str);
echo '';
/* * *************************************************************************************************************
* Liste
*
* ***************************************************************************************************************/
if ($histo->selected == -1)
{
$array = Fiche::get_fiche_def($cn,$categorie->selected , 'name_asc',inactive: $inactive->selected);
$write = $g_user->check_action(FICADD);
/**
* If ask for move or delete
*/
if (isset($_POST['action']))
{
if ($write == 1)
{
$ack = $http->post("f_id","array",[]);
/**
* Move
*/
if (isset($_POST['move'])&& $_POST['move'] == 1)
{
$move_to=$http->post("move_to","number");
for ($i = 0; $i < count($ack); $i++)
{
$fiche = new Fiche($cn, $ack[$i]);
$fiche->move_to($move_to);
}
}
/**
* Delete
*/
if (isset($_POST['delete'])&& $_POST['delete']==1)
{
$msg="";
for ($i = 0; $i < count($ack); $i++)
{
$fiche = new Fiche($cn, $ack[$i]);
if ( $fiche->remove(true) == 1 )
{
$msg.="\n ".$fiche->get_attribute(ATTR_DEF_QUICKCODE);
}
}
if ($msg != "")
{
echo '
';
echo h2(_("Fiche non effacées"), ' class="error" ');
echo '
'._(" Ces fiches n'ont pas été effacées ").$msg;
echo '
';
}
}
}
else
{
echo NoAccess();
}
}
$sql = "select f_id from fiche ";
// build SQL : all cards or only the selected category , with inactive cards included or only active
if ($allcard == 1 && $inactive->selected == 1)
{
// all categories , including inactive cards
$cond = "";
}elseif ($allcard == 1 && $inactive->selected== 0)
{
// all categories and only active cards
$cond = " where f.f_enable = '1' ";
}
elseif ($allcard == 0 && $inactive->selected == 1)
{
// one categorie , including inactive cards
$p_cat=$http->get("cat","number");
$cond = " where f.fd_id = " . sql_string($p_cat);
}elseif ($allcard == 0 && $inactive->selected == 0) {
// one categorie , without inactive cards
$p_cat=$http->get("cat","number");
$cond = " where f.fd_id = " . sql_string($p_cat);
$cond .= " and f.f_enable='1'";
}
// Create nav bar
$max = $cn->get_value("select count(*) from fiche as f " . $cond);
$step = $_SESSION[SESSION_KEY.'g_pagesize'];
$page=$http->get("page","number",1);
$offset=$http->get("offset","number",0);
$bar = navigation_bar($offset, $max, $step, $page);
$limit = ($step == -1 ) ? "" : " limit " . $step;
$res = $cn->exec_sql("
select f_id,
(select ad_value from fiche_detail as fd1 where ad_id=1 and fd1.f_id=f.f_id) as name,
(select ad_value from fiche_detail as fd1 where ad_id=23 and fd1.f_id=f.f_id) as qcode,
fd_label,
(select ad_value from fiche_detail as fd1 where ad_id=5 and fd1.f_id=f.f_id) as poste
from fiche as f join fiche_def as fd on (fd.fd_id=f.fd_id)
$cond order by 2,4 offset $offset $limit
");
$nb_line = Database::num_row($res);
if ($write != 1 || $allcard != 0 ) $str_add_card="";
require_once NOALYSS_TEMPLATE.'/fiche_list.php';
echo '
'.$bar;
return;
}
/* * *********************************************************************************************************************************
* Summary
*
* ******************************************************************************************************************************** */
if ($histo->selected == 3)
{
$array = Fiche::get_fiche_def($cn,$categorie->selected , 'name_asc',inactive: $inactive->selected);
$cat_card = new Fiche_Def($cn);
$cat_card->id =$http->get('cat','number');
$aHeading = $cat_card->load_attribute();
$str_add_card="";
if ( $allcard == 0 ) {
$h_add_card_b = new IButton('add_card');
$h_add_card_b->label = _('Créer une nouvelle fiche');
$h_add_card_b->javascript = "dis_blank_card({gDossier:$gDossier,fd_id:$fd_id,after_save:1,ref:2})";
$str_add_card=$h_add_card_b->input();
}
echo $str_add_card;
require_once NOALYSS_TEMPLATE.'/result_cat_card_summary.php';
$hid = new IHidden();
echo '
";
return;
}
$cat=$http->get("cat","number");
$phisto=$http->get("histo","number");
$export_pdf = '
';
$export_print = HtmlInput::print_window();
$export_csv = '
';
/*
* Date is important is requested balance
*/
if (isDate($_REQUEST['start']) == null || isDate($_REQUEST['end']) == null)
{
echo h2('Date invalide !', 'class="error"');
alert(_('Date invalide !'));
return;
}
/*************************************************************************************************************************/
// Balance agée tous
/*************************************************************************************************************************/
if ( $histo->selected == 8)
{
$cat=$http->get("cat","number");
$bal=new Balance_Age($cn);
$export_csv = '
';
if ( $allcard == 0 )
{
echo $export_csv;
$bal->display_category($periode_start->value ,$cat,'let');
echo $export_csv;
}
else
{
echo $export_csv;
$a_cat = $cn->get_array("select fd_id from vw_fiche_def where ad_id=" . ATTR_DEF_ACCOUNT . " order by fd_label asc");
$nb_cat=count($a_cat);
for ($i=0;$i < $nb_cat;$i++)
{
$bal->display_category($periode_start->value ,$a_cat[$i]['fd_id'],'let');
}
echo $export_csv;
}
return;
}
/*************************************************************************************************************************/
// Balance en-cours
/*************************************************************************************************************************/
if ( $histo->selected == 7)
{
$bal=new Balance_Age($cn);
$cat=$http->get("cat","number");
$export_csv = '
';
if ( $allcard == 0 )
{
echo $export_csv;
$bal->display_category($periode_start->value ,$cat,'unlet');
echo $export_csv;
}
else
{
echo $export_csv;
$a_cat = $cn->get_array("select fd_id from vw_fiche_def where ad_id=" . ATTR_DEF_ACCOUNT . " order by fd_label asc");
$nb_cat=count($a_cat);
for ($i=0;$i < $nb_cat;$i++)
{
$bal->display_category($periode_start->value ,$a_cat[$i]['fd_id'],'unlet');
}
echo $export_csv;
}
return;
}
/********************************************************************************************************************************
* Balance
*
**********************************************************************************************************************************/
if ($histo->selected == 4 || $histo->selected == 5)
{
if ( $allcard == 0 ) echo $str_add_card;
echo $export_pdf;
echo $export_csv;
echo $export_print;
$fd = new Fiche_Def($cn, $categorie->selected );
if ($allcard == 0 && $fd->hasAttribute(ATTR_DEF_ACCOUNT) == false)
{
echo alert(_("Cette catégorie n'ayant pas de poste comptable n'a pas de balance"));
return;
}
// all card
if ($allcard == 1)
{
$afiche = $cn->get_array("select fd_id from vw_fiche_def where ad_id=" . ATTR_DEF_ACCOUNT . " order by fd_label asc");
}
else
{
$afiche[0] = array('fd_id' => $categorie->selected );
}
for ($e = 0; $e < count($afiche); $e++)
{
$ret = $cn->exec_sql("select f_id,ad_value from fiche join fiche_detail using(f_id) where fd_id=$1 and ad_id=1 order by 2 ", array($afiche[$e]['fd_id']));
if ($cn->count() == 0)
{
if ($allcard == 0)
{
echo _("Aucune fiche trouvée");
return;
} else
continue;
}
echo '
' . $cn->get_value("select fd_label from fiche_def where fd_id=$1", array($afiche[$e]['fd_id'])) . '
';
$id="table_".$afiche[$e]['fd_id']."_id";
echo _('Filtre rapide:').HtmlInput::filter_table($id, '0,1,2', '1');
echo '
';
echo tr(
th(_('Quick Code')) .
th(_('Libellé')) .
'| '._('Poste').Icon_Action::infobulle(27).' | '.
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++)
{
$start=$http->request("start",'date');
$end=$http->request("end",'date');
$filter = " (j_date >= to_date('" . $start. "','DD.MM.YYYY') " .
" and j_date <= to_date('" . $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->get_attribute(ATTR_DEF_QUICKCODE))) .
td($oCard->get_attribute(ATTR_DEF_NAME)) .
td(HtmlInput::history_account($oCard->get_attribute(ATTR_DEF_ACCOUNT),$oCard->get_attribute(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(findSide($solde['debit'] - $solde['credit']), 'style="text-align:right"'), $class
);
}
echo '';
echo tr(
td('').
td(_('Totaux')).
td('').
td(nbm($sum_deb), 'style="text-align:right"').
td(nbm($sum_cred), 'style="text-align:right"').
td(nbm(abs($sum_solde)), 'style="text-align:right"').
td(findSide($sum_deb - $sum_cred) , 'style="text-align:right"'),
' class="highlight"');
echo '';
echo '
';
}
if ( $allcard == 0 ) echo $str_add_card;
echo $export_pdf;
echo $export_csv;
echo $export_print;
return;
}
/***********************************************************************************************************************************
* Lettering
*
**********************************************************************************************************************************/
// all card
if ($allcard == 1)
{
$afiche = $cn->get_array("select fd_id from vw_fiche_def where ad_id=" . ATTR_DEF_ACCOUNT . " order by fd_label asc");
}
else
{
$p_cat=$http->request("cat","number");
$afiche[0] = array('fd_id' => $p_cat);
}
if ( $allcard == 0) echo $str_add_card;
echo $export_csv;
echo $export_pdf;
echo $export_print;
$fiche = new Fiche($cn);
$histo=$http->get("histo","number");
$clean_lettering=new Lettering($cn);
$clean_lettering->remove_incoherent();
for ($e = 0; $e < count($afiche); $e++)
{
$array = Fiche::get_fiche_def($cn, $afiche[$e]['fd_id'], 'name_asc');
foreach ($array as $card)
{
$row = new Fiche($cn, $card['f_id']);
$letter = new Lettering_Card($cn);
$letter->set_parameter('quick_code', $row->get_attribute(ATTR_DEF_QUICKCODE));
$letter->set_parameter('start', $periode_start->value );
$letter->set_parameter('end', $periode_end->value );
// all
if ($histo== 0)
{
$letter->get_all();
}
// lettered
if ($histo == 1)
{
$letter->get_letter();
}
// unlettered
if ($histo == 2)
{
$letter->get_unletter();
}
if ($histo== 6)
{
$letter->get_letter_diff();
}
/* skip if nothing to display */
if (count($letter->content) == 0)
continue;
$detail_card = HtmlInput::card_detail($row->get_attribute(ATTR_DEF_QUICKCODE), $row->get_attribute(ATTR_DEF_NAME));
echo '
' . $detail_card ;
echo "poste "
. ":".HtmlInput::history_account($row->get_attribute(ATTR_DEF_ACCOUNT),$row->get_attribute(ATTR_DEF_ACCOUNT),'display:inline').Icon_Action::infobulle(27).'
';
echo '
';
echo '';
echo th(_('Date'));
echo th(_('ref'));
echo th(_('Interne'));
echo th(_('Comm'));
echo th(_('Code Devise'));
echo th(_('Devise'),'style="text-align:right"');
echo th(_('Débit'), 'style="width:auto;text-align:right" ');
echo th(_('Crédit'), 'style="width:auto;text-align:right" ');
echo th(_('Prog.'),'style="text-align:right"');
echo th(_('Let.'));
echo '
';
$amount_deb = 0;
$amount_cred = 0;
$prog = 0;
bcscale(2);
for ($i = 0; $i < count($letter->content); $i++)
{
$row = $letter->content[$i];
$html_letter="";
if ($row['letter']!=-1) {
$html_letter=strtoupper(base_convert($row['letter'],10,36));
}
if ($i % 2 == 0)
echo '';
else
echo '
';
echo td($row['j_date_fmt']);
echo td(h($row['jr_pj_number']));
echo td(HtmlInput::detail_op($row['jr_id'], $row['jr_internal']));
echo td(h($row['jr_comment']));
echo td($row['cr_code_iso']);
$str_currency_amount=($row['currency_id']==0)?"":nbm($row['currency_amount'],2);
echo td($str_currency_amount,'class="num"');
if ($row['j_debit'] == 't')
{
echo td(nbm($row['j_montant']), ' style="text-align:right"');
$amount_deb=bcadd($amount_deb,$row['j_montant']);
$prog = bcadd($prog, $row['j_montant']);
echo td("");
}
else
{
echo td("");
echo td(nbm($row['j_montant']), ' style="text-align:right"');
$amount_cred=bcadd($amount_cred,$row['j_montant']);
$prog = bcsub($prog, $row['j_montant']);
}
$side = " " . $fiche->get_amount_side($prog);
echo td(nbm(abs($prog)) . $side, 'style="text-align:right"');
$html_let="";
if ($row['letter']!=-1) {
$span_error = "";
if ($row['letter_diff'] != 0)
$span_error = $g_failed;
echo '| '.HtmlInput::show_reconcile("", $html_letter,$span_error).' | ';
}
else
echo td('');
echo '
';
}
echo '
';
echo '
';
echo '';
echo td(_('Debit'));
echo td(nbm($amount_deb), ' style="font-weight:bold;text-align:right"');
echo '
';
echo '';
echo td(_('Credit'));
echo td(nbm($amount_cred), ' style="font-weight:bold;text-align:right"');
echo '
';
echo '';
$solde=abs(round($amount_cred - $amount_deb, 2));
if ( $solde == 0)
{
$s=_('solde');
}
else if ($amount_deb > $amount_cred)
$s = _('solde débiteur');
else
$s = _('solde crediteur');
echo td($s);
echo td(nbm($solde), ' style="font-weight:bold;text-align:right"');
echo '
';
echo '
';
}
}
if ( $allcard == 0) echo $str_add_card;
echo $export_csv;
echo $export_pdf;
echo $export_print;
?>