fiche.inc.php

Go to the documentation of this file.

<?php
 
/*
 *   This file is part of NOALYSS.
 *
 *   NOALYSS is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   NOALYSS is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with NOALYSS; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */
// Copyright Author Dany De Bontridder danydb@aevalys.eu
/**
 * \file
 * \brief printing of category of card  : balance, historic
 */
if ( ! defined ('ALLOWED') ) die('Appel direct ne sont pas permis');
 
$gDossier = dossier::id();
$cn = Dossier::connect();
$http=new HttpInput();
global $g_user, $g_failed;
 
 
/**
 * Show first the form
 */
/* var categorie ISelect select card category */
$categorie = new ISelect('cat');
$categorie->value = $cn->make_array("select fd_id,fd_label||' ('||(select count(*) from fiche where fiche.fd_id=fiche_def.fd_id)::text||')' from fiche_def order by fd_label");
$categorie->selected = $http->get('cat','number',0);
 
// var $str_categorie  string
$str_categorie = $categorie->input();
$ac = $http->request('ac');
 
// var $icall ICheckBox : all card or only the current category
$icall = new ICheckBox("allcard", 1);
$icall->selected = (isset($_GET['allcard'])) ? 1 : 0;
// var $str_icall string
$str_icall = $icall->input();
 
/* var $exercice string current exercice (depending of user's period preferences) */
$exercice = $g_user->get_exercice();
$iperiode = new Periode($cn);
list ($first, $last) = $iperiode->get_limit($exercice);
 
/*
 * var $periode_start IDate start date
 * var $periode_end IDate end date
*/
$periode_start = new IDate('start');
$periode_end = new IDate('end');
 
$periode_start->value =  $http->get('start',"date",$first->first_day());
$periode_end->value =  $http->get('end','date', $last->last_day());
 
/*
 * var $str_start string date dd.mm.yyyy
 * var $str_end string date dd.mm.yyyy
 */
$str_start = $periode_start->input();
$str_end = $periode_end->input();
 
 
 
/* var $histo ISelect choice  */
$histo = new ISelect('histo');
$histo->value = array(
        array('value' => -1, 'label' => _('Liste')),
        array('value' => 0, 'label' => _('Historique')),
        array('value' => 1, 'label' => _('Historique Lettré')),
        array('value' => 6, 'label' => _('Historique Lettré et montants différents')),
        array('value' => 2, 'label' => _('Historique non Lettré')),
        array('value' => 3, 'label' => _('Résumé')),
        array('value' => 4, 'label' => _('Balance')),
        array('value' => 8, 'label' => _('Balance âgée')),
        array('value' => 7, 'label' => _('Balance âgée en-cours')),
        array('value' => 5, 'label' => _('Balance non soldée'))
);
$histo->javascript = 'onchange="if (this.value==3 || this.value==-1) {
                   g(&quot;trstart&quot;).style.display=&quot;none&quot;;g(&quot;trend&quot;).style.display=&quot;none&quot;;g(&quot;allcard&quot;).style.display=&quot;none&quot;;}
                   else  {g(&quot;trstart&quot;).style.display=&quot;&quot;;g(&quot;trend&quot;).style.display=&quot;&quot;;g(&quot;allcard&quot;).style.display=&quot;&quot;;}"';
 
$histo->selected =  $http->get('histo',"number", -1);
$str_histo = $histo->input();
 
// $inactive checkbox include inactive cards
$inactive = new ICheckbox ('inactive',1);
$inactive->selected=$http->request('inactive','string',0);
$str_inactive=$inactive->input();
?>
<div class="content">
 
<?php
echo '<FORM method="GET">';
echo dossier::hidden();
echo HtmlInput::hidden('ac', $ac);
require_once NOALYSS_TEMPLATE.'/impress_cat_card.php';
echo HtmlInput::submit('cat_display', _('Recherche'));
echo '</FORM>';
 
echo '</div>';
$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 '<hr>';
 
//-----------------------------------------------------
if (!isset($_GET['cat_display']))
        return;
 
$fd_id =$categorie->selected ;
 
 
$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,ref:2})";
$str_add_card = ($g_user->check_action(FICADD) == 1) ? $h_add_card_b->input() : "";
 
/*
 * You show now the result
 */
 
$allcard = (isset($_GET['allcard'])) ? 1 : 0;
if ( $allcard == 0 ){
        $fiche_def=new Fiche_Def($cn,$categorie->selected );
        $fiche_def->get();
        echo h1($fiche_def->label,"");
        echo h2($fiche_def->fd_description,"");
}
$array = Fiche::get_fiche_def($cn,$categorie->selected , 'name_asc');
 
// if no card found , stop here
if ($array == null && $allcard == 0 && $histo->selected != 3 )
{
        echo '<div class="content">';
        echo '<h2 class="error"> '._('Aucune fiche trouvée').'</h2>';
        echo $str_add_card;
        echo '</div>';
        return;
}
 
echo '<div class="content">';
/* * *************************************************************************************************************
 * 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 '<div class="content">';   
                                        echo h2(_("Fiche non effacées"), ' class="error"  ');
                                        echo '<p class="error">'._(" Ces fiches n'ont pas été effacées  ").$msg;
                                        echo '</div>';
                                }
                        }
                }
                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 '<hr>'.$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 '<form method="GET" ACTION="export.php">' . dossier::hidden() ;
        echo $str_add_card;
        echo 
            HtmlInput::submit('bt_csv', _("Export CSV")) .
            HtmlInput::hidden('act', "CSV:fiche") .
            HtmlInput::hidden('inactive', $inactive->selected) .
            $hid->input("type", "fiche") .
            $hid->input("ac", $http->request('ac')) .
            $hid->input("fd_id", $http->request('cat',"number"));
 
        echo "</form>";
 
        return;
}
 
$cat=$http->get("cat","number");
$phisto=$http->get("histo","number");
 
$export_pdf = '<FORM METHOD="get" ACTION="export.php" style="display:inline">';
$export_pdf.=HtmlInput::hidden('cat', $cat);
$export_pdf.=HtmlInput::hidden('act', "PDF:fiche_balance") .
$export_pdf.=HtmlInput::hidden('start', $periode_start->value );
$export_pdf.=HtmlInput::hidden('end', $periode_end->value );
$export_pdf.=HtmlInput::hidden('histo', $phisto);
$export_pdf.=HtmlInput::request_to_hidden(array('allcard'));
$export_pdf.=dossier::hidden();
$export_pdf.=HtmlInput::submit('pdf', _('Export en PDF'));
$export_pdf.='</FORM>';
 
$export_print = HtmlInput::print_window();
 
$export_csv = '<FORM METHOD="get" ACTION="export.php" style="display:inline">';
$export_csv.=HtmlInput::hidden('cat', $cat);
$export_csv.=HtmlInput::hidden('act', 'CSV:fiche_balance');
$export_csv.=HtmlInput::hidden('start', $periode_start->value );
$export_csv.=HtmlInput::hidden('end', $periode_end->value );
$export_csv.=HtmlInput::hidden('histo', $phisto);
$export_csv.=HtmlInput::request_to_hidden(array('allcard'));
$export_csv.=dossier::hidden();
$export_csv.=HtmlInput::submit('CSV', _('Export en CSV'));
$export_csv.='</FORM>';
/*
 * 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 = '<FORM METHOD="get" ACTION="export.php" style="display:inline">';
    $export_csv .=HtmlInput::request_to_hidden(array('gDossier','ac','p_let','p_date_start'));
    $export_csv.=HtmlInput::hidden('p_date_start',$periode_start->value );
    $export_csv .= HtmlInput::hidden('act','CSV:balance_age');
    $export_csv .= HtmlInput::hidden('p_let','let');
    $export_csv .= HtmlInput::hidden('p_type','X');
    $export_csv .= HtmlInput::hidden('cat',$cat);
    $export_csv .= HtmlInput::hidden('all',$allcard);
    $export_csv .= HtmlInput::submit('csv',_('Export CSV'));
    $export_csv.='</FORM><p></p>';
    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 = '<FORM METHOD="get" ACTION="export.php" style="display:inline">';
    $export_csv .=HtmlInput::request_to_hidden(array('gDossier','ac','p_let','p_date_start'));
    $export_csv.=HtmlInput::hidden('p_date_start', $periode_start->value );
    $export_csv .= HtmlInput::hidden('act','CSV:balance_age');
    $export_csv .= HtmlInput::hidden('p_let','unlet');
    $export_csv .= HtmlInput::hidden('p_type','X');
    $export_csv .= HtmlInput::hidden('cat',$cat);
    $export_csv .= HtmlInput::hidden('all',$allcard);
    $export_csv .= HtmlInput::submit('csv',_('Export CSV'));
    $export_csv.='</FORM><p></p>';
    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 '<h2 class="h-section">' . $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').Icon_Action::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++)
                {
                    $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 '<tfoot>';
                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 '</tfoot>';
                echo '</table>';
        }
        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 '<h2 class="h-section">' . $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).'</h2>';
 
                echo '<table class="result">';
                echo '<tr>';
                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 '</tr>';
                $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 '<tr class="even" name="tr_'.$html_letter.'_">';
                        else
                                echo '<tr class="odd" name="tr_'.$html_letter.'_">';
                        
                        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 = "&nbsp;" . $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 '<td>'.HtmlInput::show_reconcile("", $html_letter,$span_error).'</td>';
                        }
                        else
                                echo td('');
                        echo '</tr>';
                }
                echo '</table>';
                echo '<table>';
                echo '<tr>';
                echo td(_('Debit'));
                echo td(nbm($amount_deb), ' style="font-weight:bold;text-align:right"');
                echo '</tr>';
                echo '<tr>';
                echo td(_('Credit'));
                echo td(nbm($amount_cred), ' style="font-weight:bold;text-align:right"');
                echo '</tr>';
                echo '<tr class="highlight">';
                $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 '</tr>';
                echo '</table>';
        }
}
if ( $allcard == 0) echo $str_add_card;
echo $export_csv;
echo $export_pdf;
echo $export_print;
?>