<?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
require_once NOALYSS_INCLUDE.'/lib/user_common.php';

/*! \file
 * \brief define Class fiche and fiche def, those class are using
 *        class attribut
 */
/*!
 * \brief define Class fiche and fiche def, those class are using
 *        class attribut
 */
class Fiche_Def
{
    var $cn;           //!< database connection
    var $id;			//!< id (fiche_def.fd_id
    var $label;			//!< fiche_def.fd_label
    var $class_base;		//!< fiche_def.fd_class_base
    var $fiche_def;		//!< fiche_def.frd_id = fiche_def_ref.frd_id
    var $create_account;		//!< fd_create_account: flag
    var $all;
    var $attribut;		//!< get from attr_xxx tables
    var $fd_description; //!< Description  of the Card Category

    function __construct($cn,$id = 0)
    {
        $this->cn=$cn;
        $this->id=$id;
        
        
    }

    public function __toString(): string
    {
        return "fiche_def".print_r($this,true);
    }

    /*!\brief show the content of the form to create  a new Fiche_Def_Ref
    */
    function input ()
    {

        return;
    }
    /**
     * @brief replace by load_attribute
     * @deprecated since version 9.3.12
     * @return type
     */
    function getAttribut() {
        return $this->load_attribute();
    }
    /*!
     *  \brief  Get attribute of a fiche_def
     *
     * \return array of Card_Property 
     */
    function load_attribute()
    {
        $sql="select * from jnt_fic_attr ".
             " natural join attr_def where fd_id= $1".
             " order by jnt_order";

        $Ret=$this->cn->exec_sql($sql,[$this->id]);

        if ( ($Max=Database::num_row($Ret)) == 0 )
            return ;
        for ($i=0;$i < $Max;$i++)
        {
            $row=Database::fetch_array($Ret,$i);
            $t = new Card_Property($this->cn);
            $t->ad_id=$row['ad_id'];
            $t->ad_text=$row['ad_text'];
            $t->av_text="";
            $t->jnt_order=$row['jnt_order'];
            $t->ad_size=$row['ad_size'];
            $t->ad_type=$row['ad_type'];
            $t->ad_extra=$row['ad_extra'];
            $this->attribut[$i]=clone $t;
        }
        return $this->attribut;
    }

    /**
     * @brief  alias for Fiche_Def->get(),
     * @return void
     */
    function load():void
    {
        $this->get();
    }
    /*!
    * \brief  Get attribut of the fiche_def
    *
    */
    function get()
    {
        if ( $this->id == 0 )
            return 0;
        /*    $this->cn->exec_sql('select fiche_attribut_synchro($1)',
        array($this->id));
        */
        $sql="select * from fiche_def ".
             " where fd_id= $1";
        $Ret=$this->cn->exec_sql($sql,[$this->id]);
        if ( ($Max=Database::num_row($Ret)) == 0 )
            return ;
        $row=Database::fetch_array($Ret,0);
        $this->label=$row['fd_label'];
        $this->class_base=$row['fd_class_base'];
        $this->fiche_def=$row['frd_id'];
        $this->create_account=($row['fd_create_account']=='f')?false:true;
        $this->fd_description=$row['fd_description'];
    }
    /*!
    * \brief  Get all the fiche_def
     *
     * \return an array of fiche_def object
     */
    function get_all()
    {
        $sql="select * from fiche_def ";

        $Ret=$this->cn->exec_sql($sql);
        if ( ($Max=Database::num_row($Ret)) == 0 )
            return array();
        $all=array();
        for ( $i = 0; $i < $Max;$i++)
        {
            $row=Database::fetch_array($Ret,$i);
            $all[$i]=new Fiche_Def($this->cn,$row['fd_id']);
            $all[$i]->label=$row['fd_label'];
            $all[$i]->class_base=$row['fd_class_base'];
            $all[$i]->fiche_def=$row['frd_id'];
            $all[$i]->create_account=$row['fd_create_account'];
        }
        return $all;
    }
    /*!
     **************************************************
     * \brief  Check in vw_fiche_def if a fiche has
     *           a attribut X
     *
     *
     * \param  $p_attr attribut to check
     * \return  true or false
     */
    function HasAttribute($p_attr)
    {
        return ($this->cn->count_sql("select * from vw_fiche_def where ad_id=$p_attr and fd_id=".$this->id)>0)?true:false;

    }
    /*!
     **************************************************
     * \brief  Display all card categories into a table
     *
     * \return HTML row
     */
    function display()
    {
		$tab = new Sort_Table();

		$url = HtmlInput::get_to_string(array('ac', 'gDossier'));
		$tab->add(_("Nom de fiche"), $url, "order by fd_label asc", "order by fd_label desc", "na", "nd");
		$tab->add(_("Basé sur le poste comptable"), $url, "order by fd_class_base asc", "order by fd_class_base desc", "pa", "pd");
		$tab->add(_("Calcul automatique du poste comptable"), $url, "order by fd_create_account asc", "order by fd_create_account desc", "ca", "cd");
		$tab->add(_("Basé sur le modèle"), $url, "order by frd_text asc", "order by frd_text  desc", "ma", "md");

		$order = (isset($_GET['ord'])) ? $tab->get_sql_order($_GET["ord"]) : $tab->get_sql_order("na");


		$res = $this->cn->exec_sql("SELECT fd_id, fd_class_base, fd_label, fd_create_account, fiche_def_ref.frd_id,
frd_text , fd_description FROM fiche_def join fiche_def_ref on (fiche_def.frd_id=fiche_def_ref.frd_id)
$order
");

		require_once NOALYSS_TEMPLATE.'/fiche_def-display.php';
	}
    /*!
     * \brief Add a fiche category thanks the element from the array
     * you cannot add twice the same cat. name
     * table : insert into fiche_def
     *         insert into attr_def
     *
     * \param $array array
     *        index FICHE_REF
     *              nom_mod
     *              class_base
     *              fd_description
     *              create
     */
    function Add($array)
    {
        /** 
         * Check needed info
         */
        $http=new HttpInput();
        $http->set_array($array);
        $p_nom_mod = $http->extract('nom_mod',"string","");
        $p_fd_description = $http->extract('fd_description',"string", "");

        $p_fiche_def= $http->extract('FICHE_REF',"string", "");
        $p_create= $http->extract('create',"string", "off");
        
        // If there is no description then add a empty one
        if ( ! isset ($p_fd_description)) {
            $p_fd_description="";
        }
        // Format correctly the name of the cat. of card
        $p_nom_mod=sql_string($p_nom_mod);


        // Name can't be empty
        if ( noalyss_strlentrim($p_nom_mod) == 0 )
	{
            alert (_('Le nom de la catégorie ne peut pas être vide'));
            return 1;
	}
        // $p_fiche_def can't be empty
        if ( noalyss_strlentrim($p_fiche_def) == 0 )
	{
            alert (_('Un modéle de catégorie est obligatoire'));
            return 1;
	}
        
        /* check if the cat. name already exists */
        $sql="select count(*) from fiche_Def where upper(fd_label)=upper($1)";
        $count=$this->cn->get_value($sql,array(trim($p_nom_mod)));

        if ($count != 0 ) {
			 alert (_('Catégorie existante'));
			return 1;
		}
        $default_acc=$this->cn->get_value("select frd_class_base from fiche_def_ref where frd_id=$1",[$p_fiche_def]);

        // if the account is empty, takes the account of the template from fiche_def_ref
        $p_class_base=$http->extract('class_base',"string", "");
        $p_class_base=(noalyss_trim($p_class_base)=='')?$default_acc:$p_class_base;

        // Set the value of fiche_def.fd_create_account
        // automatic creation for 'poste comptable'
        if ( $p_create == "on" && noalyss_strlentrim($p_class_base) != 0)
            $p_create='true';
        else
            $p_create='false';
        $add_accounting=false;
        // Class is valid ?
        if ( sql_string($p_class_base) != null || ( $p_class_base !='' && strpos(',',$p_class_base) != 0 ))
        {
            // p_class is a valid number
            $sql="insert into fiche_def(fd_label,fd_class_base,frd_id,fd_create_account,fd_description)
                 values ($1,$2,$3,$4,$5) returning fd_id";

            $this->id=$this->cn->get_value($sql,array($p_nom_mod,$p_class_base,$p_fiche_def,$p_create,$p_fd_description));

            // p_class must be added to tmp_pcmn if it is a single accounting
            if ( strpos(',',$p_class_base) ==0)
            {
                $sql="select account_add($1,$2)";
                $Res=$this->cn->exec_sql($sql,array($p_class_base,$p_nom_mod));
            }
			// Get the fd_id
			$fd_id=$this->cn->get_current_seq('s_fdef');

//			// update jnt_fic_attr
//			$sql=sprintf("insert into jnt_fic_attr(fd_id,ad_id,jnt_order)
//					 values (%d,%d,10)",$fd_id,ATTR_DEF_ACCOUNT);
//			$Res=$this->cn->exec_sql($sql);
            $add_accounting=true;
        }
        else
        {
            //There is no class base not even as default
            $sql="insert into fiche_def(fd_label,frd_id,fd_create_account,fd_description) values ($1,$2,$3,$4) returning fd_id";


            $this->id=$this->cn->get_value($sql,array($p_nom_mod,$p_fiche_def,$p_create,$p_fd_description));

            // Get the fd_id
            $fd_id=$this->cn->get_current_seq('s_fdef');

        }

        // Get the default attr_def from attr_min
        $def_attr=$this->get_attr_min($p_fiche_def);

        //if defaut attr not null
        // build the sql insert for the table attr_def
        $add_qcode=true;
        if (sizeof($def_attr) != 0 )
        {
            // insert all the mandatory fields into jnt_fiche_attr
            foreach ( $def_attr as $row)
            {

				$count=$this->cn->get_value("select count(*) from jnt_fic_attr where fd_id=$1 and ad_id=$2",array($fd_id,$row['ad_id']));
				if ($count == 0)
				{
					$sql=sprintf("insert into jnt_fic_Attr(fd_id,ad_id,jnt_order)
                             values (%d,%s,%d)",
                             $fd_id,$row['ad_id'],$row['ad_default_order']);
					$this->cn->exec_sql($sql);
				}
                // if there is an accounting , then not needed to add one
                if ( $row['ad_id']==ATTR_DEF_ACCOUNT) $add_accounting=FALSE;
                if ( $row['ad_id']==ATTR_DEF_QUICKCODE) $add_qcode=FALSE;
            }
        }
        // if there is an base accounting, and the accounting is not in ATTR_MIN,
        // then it is needed to add it
        if ( $add_accounting) {
            $sql=sprintf("insert into jnt_fic_attr(fd_id,ad_id,jnt_order)
					 values (%d,%d,10)",$fd_id,ATTR_DEF_ACCOUNT);
			$Res=$this->cn->exec_sql($sql);
        }
        // if there is no quick code in attr_min, it is added
        if ( $add_qcode) {
            $sql=sprintf("insert into jnt_fic_attr(fd_id,ad_id,jnt_order)
					 values (%d,%d,10000)",$fd_id,ATTR_DEF_QUICKCODE);
            $Res=$this->cn->exec_sql($sql);
        }
        $this->id=$fd_id;
        return 0;

    }//--------------end function Add ----------------------------
    /*!
     * \brief Get all the card where the fiche_def.fd_id is given in parameter
     * \param $step = 0 we don't use the offset, page_size,...
     *        $step = 1 we use the jnr_bar_nav
     * \param $inactive int possible values : 1  = inactive included, 0 = only active ones (default 1)
     * \return array ('f_id'=>..,'ad_value'=>..)
     *\see fiche
     */
    function get_by_type($step=0,$inactive=1)
    {
        // var $cond_active string SQL cond for filtering active or not
        $cond_active=($inactive == 1)?"":" and f_enable='1' ";
        $sql="select f_id,ad_value
             from
             fiche join fiche_detail using(f_id)
             where ad_id=1 and fd_id=$1 $cond_active order by 2";

        // we use navigation_bar
        if ($step == 1  && $_SESSION[SESSION_KEY.'g_pagesize'] != -1   )
        {
            $offset=(isset($_GET['offset']))?$_GET['offset']:0;
            $step=$_SESSION[SESSION_KEY.'g_pagesize'];
            $sql.=" offset $offset limit $step";
        }

        $Ret=$this->cn->get_array($sql,array($this->id));

        return $Ret;
    }
    /*!
     * \brief Get all the card where the fiche_def.frd_id is given in parameter, it is the template for category
     *\param $inactive int possible values : 1  = inactive included, 0 = only active ones (default 1)
     * \param $template_category int FICHE_DEF_REF.FRD_ID
     * \return array of Fiche or null is nothing is found
     *
     */
    function get_by_category($template_category,$inactive=1)
    {
        // var $cond_active string SQL cond for filtering active or not
        $cond_active=($inactive == 1)?"":" and f_enable='1' ";
        $sql="select f_id,ad_value
             from
             fiche join fiche_def  using(fd_id)
	     join fiche_detail using(f_id)
             where ad_id=1 and frd_id=$1 $cond_active 
             order by 2 ";

        $Ret=$this->cn->exec_sql($sql,array($template_category));
        if ( ($Max=Database::num_row($Ret)) == 0 )
            return null;
        $all[0]=new Fiche($this->cn);

        for ($i=0;$i<$Max;$i++)
        {
            $row=Database::fetch_array($Ret,$i);
            $t=new Fiche($this->cn,$row['f_id']);
            $t->load_attribute();
            $all[$i]=$t;

        }
        return $all;
    }

    /*!\brief list the card of a fd_id
     */
    function myList()
    {
        $this->get();
        echo '<H2 class="info">'.$this->id." ".$this->label.'</H2>';

        $step=$_SESSION[SESSION_KEY.'g_pagesize'];
        $sql_limit="";
        $sql_offset="";
        $bar="";
        if ( $step != -1 )
        {

            $page=(isset($_GET['page']))?$_GET['page']:1;
            $offset=(isset($_GET['offset']))?$_GET['offset']:0;
            $max_line=$this->cn->count_sql("select f_id,ad_value  from
                                           fiche join fiche_detail using (f_id)
                                           where fd_id='".$this->id."' and ad_id=".ATTR_DEF_NAME." order by f_id");
            $sql_limit=" limit ".$step;
            $sql_offset=" offset ".$offset;
            $bar=navigation_bar($offset,$max_line,$step,$page);
        }

        // Get all name the cards of the select category
        // 1 for attr_def.ad_id is always the name
        $Res=$this->cn->exec_sql("select f_id,vw_name,quick_code  from ".
                                 " vw_fiche_attr ".
                                 " where fd_id='".$this->id.
                                 "' order by f_id $sql_offset $sql_limit ");
        $Max=Database::num_row($Res);
        echo $bar;
        $str="";
        // save the url
        // with offet &offset=15&step=15&page=2&size=15
        if ( $_SESSION[SESSION_KEY.'g_pagesize'] != -1)
        {
            $str=sprintf("&offset=%s&step=%s&page=%s&size=%s",
                         $offset,
                         $step,
                         $page,
                         $max_line);
        }


        echo '<FORM METHOD="POST" action="?p_action=fiche&action=vue'.$str.'">';
	echo HtmlInput::hidden('ac',$_REQUEST['ac']);
        echo dossier::hidden();
        echo HtmlInput::hidden("fiche",$this->id);
        echo HtmlInput::submit('add','Ajout fiche');
        echo '</FORM>';
        $str_dossier=dossier::get();
        echo '<table>';
        for ( $i = 0; $i < $Max; $i++)
        {
            $l_line=Database::fetch_array($Res,$i);
            if ( $i%2 == 0)
                echo '<TR class="odd">';
            else
                echo '<TR class="even">';

            $span_mod='<TD><A href="?p_action=fiche&'.$str_dossier.
		    '&action=detail&fiche_id='.$l_line['f_id'].$str.'&fiche='.
		    $_REQUEST['fiche'].'&ac='.$_REQUEST['ac'].'">'.$l_line['quick_code']
		    .'</A></TD>';

            echo $span_mod.'<TD>'.h($l_line['vw_name'])."</TD>";
            echo '</tr>';
        }
        echo '</table>';
        echo '<FORM METHOD="POST" action="?p_action=fiche&action=vue'.$str.'">';
	echo HtmlInput::hidden('ac',$_REQUEST['ac']);
        echo dossier::hidden();
        echo HtmlInput::hidden("fiche",$this->id);
        echo HtmlInput::submit('add','Ajout fiche');
        echo '</FORM>';
        echo $bar;

    }

    /*!\brief Display all the attribut of the fiche_def
     *\param $str give the action possible values are remove, empty
     */
    function DisplayAttribut($str="")
    {
        if ( $this->id == 0 )
            return ;
           $this->cn->exec_sql('select fiche_attribut_synchro($1)',array($this->id));

		   $MaxLine=sizeof($this->attribut);
        $r="<TABLE>";
	$r.="<tr>".th('Nom attribut').th('').th('Ordre','style="text-align:right"').'</tr>';
        // Display each attribute
        $add_action="";
        for ($i=0;$i<$MaxLine;$i++)
        {
            $class="even";
            if ( $i % 2 == 0 )
                $class="odd";

            $r.='<TR class="'.$class.'"><td>';
            // Can change the name
            if ( $this->attribut[$i]->ad_id == ATTR_DEF_NAME )
            {
                continue;
            }
            else
            {
                if ( $str == "remove" )
                {
                    //Only for the not mandatory attribute (not defined in attr_min)
                    if ( $this->cn->count_sql("select * from attr_min where frd_id=".
                                              $this->fiche_def." and ad_id = ".$this->attribut[$i]->ad_id) == 0
                            && $this->attribut[$i]->ad_id != ATTR_DEF_QUICKCODE
                            && $this->attribut[$i]->ad_id != ATTR_DEF_ACCOUNT
                       )
                    {
                        $add_action=sprintf( '</TD><TD> Supprimer <input type="checkbox" name="chk_remove[]" value="%d">',
                                             $this->attribut[$i]->ad_id);
                    }
                    else
                        $add_action="</td><td>";
                }
                // The attribut.
                $a=sprintf('%s ',  $this->attribut[$i]->ad_text);
                $r.=$a.$add_action;
                /*----------------------------------------  */
                /*  ORDER OF THE CARD */
                /*----------------------------------------  */
                $order=new IText();
                $order->name='jnt_order'.$this->attribut[$i]->ad_id;
                $order->size=3;
                $order->value=$this->attribut[$i]->jnt_order;
                $r.='</td><td> '.$order->input();
            }
            $r.= '</td></tr>';
        }

        // Show the possible attribute which are not already attribute of the model
        // of card
        $Res=$this->cn->exec_sql("select ad_id,ad_text from attr_def
                                 where
                                 ad_id not in (select ad_id from fiche_def natural join jnt_fic_attr
                                 where fd_id=$1) order by ad_text",array($this->id) );
        $M=Database::num_row($Res);

        // Show the unused attribute
        $r.='<TR> <TD>';
        $r.= '<SELECT NAME="ad_id">';
        for ($i=0;$i<$M;$i++)
        {
            $l=Database::fetch_array($Res,$i);
            $a=sprintf('<OPTION VALUE="%s"> %s',
                       $l['ad_id'],$l['ad_text']);
            $r.=$a;
        }
        $r.='</SELECT>';

        $r.="</TABLE>";
        return $r;
    }
    /*!\brief Save the label of the fiche_def
     * \param $p_label label
     */
    function SaveLabel($p_label)
    {
        if ( $this->id == 0 ) return;
        $p_label=sql_string($p_label);
        if (strlen(trim ($p_label)) == 0 )
        {
            return;
        }
        $sql=sprintf("update   fiche_def set fd_label='%s' ".
                     "where                    fd_id=%d",
                     $p_label,$this->id);
        $Res=$this->cn->exec_sql($sql);

    }
    /*!\brief set the auto create accounting item for each card and
     * save it into the database
     * \param $p_label true or false
     */
    function set_autocreate($p_label)
    {
        if ( $this->id == 0 ) return;
        if ($p_label==true)
            $t='t';
        if ($p_label==false)
            $t='f';

        $sql="update   fiche_def set fd_create_account=$1 ".
             "where                    fd_id=$2";

        $Res=$this->cn->exec_sql($sql,array($t,$this->id));


    }
    /*!\brief Save the class base
     * \param $p_label label
     */
    function save_class_base($p_label)
    {
        if ( $this->id == 0 ) return;
        $p_label=sql_string($p_label);

        $sql="update   fiche_def set fd_class_base=$1 ".
             "where                    fd_id=$2";

        $Res=$this->cn->exec_sql($sql,array($p_label,$this->id));
    }
	function save_description($p_description)
	{
		if ( $this->id == 0)			return;
		$this->cn->exec_sql("update fiche_def set fd_description=$1 where fd_id=$2",array($p_description,$this->id));
	}


    /*!\brief insert a new attribut for this fiche_def
     * \param $p_ad_id id of the attribut
     * \param int $p_order order of the attribut if  -1 then computed
     */
    function insertAttribut($p_ad_id,$p_order=-1)
    {
        if ( $this->id == 0 ) return;
        /* ORDER */
        $this->load_attribute();
        $order=$p_order;
        if ( $p_order == -1 ) {
            $order = $this->cn->get_value("select ad_default_order from attr_def where ad_id=$1",[$p_ad_id]);
            if ( $order == 0 || empty($order)) {
                $max=$this->cn->get_value("select count(*) from jnt_fic_attr where fd_id=$1",[$this->id]);
                $order=$max*15;
            }
        }
        // Insert a new attribute for the model
        // it means insert a row in jnt_fic_attr
        $sql=sprintf("insert into jnt_fic_attr (fd_id,ad_id,jnt_order) values (%d,%d,%d)",
                     $this->id,$p_ad_id,$order);
        $Res=$this->cn->exec_sql($sql);
    }
    /*!\brief remove an attribut for this fiche_def
     * \param array of ad_id to remove
     * \remark you can't remove the attribut defined in attr_min
     */
    function removeAttribut($array)
    {
        foreach ($array as $ch)
        {
            $this->cn->start();
            $sql="delete from jnt_fic_attr where fd_id=$1 ".
                 "   and ad_id=$2";
            $this->cn->exec_sql($sql,array($this->id,$ch));

            $sql="delete from fiche_detail  where jft_id in ( select ".
                 " jft_id from fiche_Detail ".
                 " join fiche using(f_id) ".
                 " where ".
                 "fd_id = $1 and ".
                 "ad_id=$2)";
            $this->cn->exec_sql($sql,array($this->id,$ch));

            $this->cn->commit();
        }
    }

    /*!\brief save the order of a card, update the column jnt_fic_attr.jnt_order
     *\param $p_array containing the order
     */
    function save_order($p_array)
    {
        extract($p_array, EXTR_SKIP);
        $this->load_attribute();
        foreach ($this->attribut as $row)
        {
            if ( $row->ad_id == 1 ) continue;
            if ( ${'jnt_order'.$row->ad_id} <= 0 ) continue;
            $sql='update jnt_fic_attr set jnt_order=$1 where fd_id=$2 and ad_id=$3';
            $this->cn->exec_sql($sql,array(${'jnt_order'.$row->ad_id},
                                           $this->id,
                                           $row->ad_id));

        }
        /* correct the order */
        $this->cn->exec_sql('select attribute_correct_order()');
    }


    /*!\brief remove all the card from a categorie after having verify
     *that the card is not used and then remove also the category
     *\return the remains items, not equal to 0 if a card remains and
     *then the category is not removed
     */
    function remove()
    {
        if ( $this->id >= 500000 ) {
            throw new Exception(_('Catégorie verrouillée '));
        }
        $remain=0;
        /* get all the card */
        $aFiche=fiche::get_fiche_def($this->cn,$this->id);
        if ( $aFiche != null )
        {
            /* check if the card is used */
            foreach ($aFiche as $dfiche)
            {
	      $fiche=new Fiche($this->cn,$dfiche['f_id']);

                /* if the card is not used then remove it otherwise increment remains */
                if ( $fiche->is_used() == false )
                {
                    $fiche->delete();
                }
                else
                    $remain++;
            }
        }
        /* if remains == 0 then remove cat */
        if ( $remain == 0 )
        {
            $sql='delete from jnt_fic_attr where fd_id=$1';
            $this->cn->exec_sql($sql,array($this->id));
            $sql='delete from fiche_def where fd_id=$1';
            $this->cn->exec_sql($sql,array($this->id));
        }

        return $remain;

    }
    /*!
     * \brief  retrieve the mandatory field of the card model
     *
     * \param $p_fiche_def_ref
     * \return array of ad_id  (attr_min.ad_id) and  labels (attr_def.ad_text)
     */
    function get_attr_min($p_fiche_def_ref)
    {

        // find the min attr for the fiche_def_ref
        $Sql="select ad_id,ad_text ,attr_min.ad_default_order 
             from attr_min 
                join attr_def using(ad_id)
              join fiche_def_ref using(frd_id)
             where
             frd_id= $1 order by ad_default_order";
        $Res=$this->cn->exec_sql($Sql,array($p_fiche_def_ref));
        $Num=Database::num_row($Res);

        // test the number of returned rows
        if ($Num == 0 ) return null;

        // Get Results & Store them in a array
        for ($i=0;$i<$Num;$i++)
        {
            $f=Database::fetch_array($Res,$i);
            $array[$i]['ad_id']=$f['ad_id'];
            $array[$i]['ad_text']=$f['ad_text'];
            $array[$i]['ad_default_order']=$f['ad_default_order'];
        }
        return $array;
    }
    /*!
     * \brief count the number of fiche_def (category) which has the frd_id (type of category)
     *\param $p_frd_id is the frd_id in constant.php the FICHE_TYPE_
     *\return the number of cat. of card of the given type
     *\see constant.php
     */
    function count_category($p_frd_id)
    {
        $ret=$this->cn->count_sql("select fd_id from fiche_def where frd_id=$1",array($p_frd_id));
        return $ret;
    }

    /**
     * @brief ask for detail
     * @return string
     */
	function input_detail()
	{
		$r = "";
		// Save the label

		$this->get();
		$this->load_attribute();
		$r.= '<H2 class="info">' . $this->id . " " . h($this->label) . '</H2>';
		$r.='<fieldset><legend>'._('Données générales').'</legend>';

        $nom_mod=$this->label;
        /* the accounting item */
        $class_base=new IPoste('class_base');
        $class_base->set_attribute('ipopup','ipop_account');
        $class_base->set_attribute('account','class_base');
        $class_base->set_attribute('label','acc_label');
        $class_base->value=$this->class_base;
        $f_class_base=$class_base->input();
        $fd_description=new ITextarea('fd_description');
        $fd_description->width=80;
        $fd_description->heigh=4;
        $fd_description->style='class="itextarea  form-control input_text" style="margin-left:0px;vertical-align:text-top"';
        $fd_description->value=$this->fd_description;
        $r.='<form method="post" style="display:inline">';
        $r.=\HtmlInput::hidden('fd_id',$this->id);
        ob_start();
        require_once  NOALYSS_TEMPLATE.'/fiche_def_input.php';
        $r.=ob_get_contents();
        ob_clean();
        $r.=HtmlInput::submit('change_name', _('Sauver'));
        $r.='</form>';
        $r.='<form method="post" style="display:inline" id="catcard_remove" onsubmit="return confirm_box(this,\'Effacer?\')">';
        $r.=HtmlInput::hidden("action", "remove_cat");
        $r.=HtmlInput::hidden('fd_id',$this->id);
        $r.=HtmlInput::submit('remove_cat', _('Effacer'));
        $r.='</form>';


		$r.='</fieldset>';
        $r.='<hr>';
		/* attributes */
		$r.='<fieldset><legend>'._('Détails').'</legend>';

		$r.= '<FORM  id="input_detail_frm" method="POST">';
		$r.=dossier::hidden();
		$r.=HtmlInput::hidden("fd_id", $this->id);
		$r.=HtmlInput::hidden("action", "");
		// $r.= $this->DisplayAttribut("remove");
        ob_start();
        require NOALYSS_TEMPLATE."/fiche_def-input_detail-2.php";
        $r.=ob_get_contents();
        ob_clean();

		$r.= "</form>";

		$r.='</fieldset>';
		return $r;
	}


    /**
     * @brief input for creating a new category
     * @return void
     */
	function input_new()
	{
		$single=new Single_Record("dup");
		echo '<form method="post" style="display:inline" onsubmit="return check_new_category()">';
		echo $single->hidden();
		echo HtmlInput::hidden("p_action","fiche");
		echo dossier::hidden();
        $ref=$this->cn->get_array("select * from fiche_def_ref order by frd_text");
        $iradio=new IRadio();
        $nom_mod="";
        /* the accounting item */
        $class_base=new IPoste('class_base');
        $class_base->set_attribute('ipopup','ipop_account');
        $class_base->set_attribute('account','class_base');
        $class_base->set_attribute('label','acc_label');
        $f_class_base=$class_base->input();
        $fd_description=new ITextarea('fd_description');
        $fd_description->width=80;
        $fd_description->heigh=4;
        $fd_description->style='class="itextarea  form-control input_text" style="margin-left:0px;vertical-align:text-top"';
        require_once  NOALYSS_TEMPLATE.'/fiche_def_input.php';
        require_once  NOALYSS_TEMPLATE.'/fiche_def-input_new.php';

		echo HtmlInput::submit("add_modele" ,_("Sauve"));
		echo '</FORM>';
	}
    /**
     * @brief make an array of attributes of the category of card (FICHE_DEF.FD_ID)
     *The array can be used with the function insert, it will return a struct like this :
     * in the first key (av_textX),  X is the ATTR_DEF::AD_ID
    \verbatim
    Example
    Array
    (
      [av_text1] => Nom
      [av_text12] => Personne de contact
      [av_text5] => Poste Comptable
      [av_text13] => numéro de tva
      [av_text14] => Adresse
      [av_text15] => code postal
      [av_text24] => Ville
      [av_text16] => pays
      [av_text17] => téléphone
      [av_text18] => email
      [av_text23] => Quick Code
    )

    \endverbatim
     *\param $pfd_id FICHE_DEF::FD_ID
     *\return an array of attribute
     *\exception Exception if the cat of card doesn't exist, Exception.getCode()=1
     *\see fiche::insert()
     */
    function to_array()
    {
        $sql="select 'av_text'||to_char(ad_id,'9999') as key,".
             " ad_text ".
             " from fiche_def join jnt_fic_attr using (fd_id)".
             " join attr_def using (ad_id) ".
             " where fd_id=$1 order by jnt_order";
        $ret=$this->cn->get_array($sql,array($this->id));
        if ( empty($ret)) throw new Exception(_('Cette categorie de card n\'existe pas').' '.$this->id,1);
        $array=array();
        foreach($ret as $idx=>$val)
        {
            $a=noalyss_str_replace(' ','',$val['key']);
            $array[$a]=$val['ad_text'];
        }
        return $array;

    }

    /**
     * @brief display existing attribut
     * @param $attribut_id int SQL attr_def.ad_id
     * @param $attribut_text SQL attr_def.ad_text
     * @return void
     */
    public static function print_existing_attribut($attribut_id,$attribut_text)
    {
       include NOALYSS_TEMPLATE.'/fiche_def-print_existing_attribut.php';
    }

    /**
     * @brief display available attribut
     * @param $attribut_id int SQL attr_def.ad_id
     * @param $attribut_text SQL attr_def.ad_text
     * @return void
     */
    public static function print_available_attribut($attribut_id,$attribut_text,$class)
    {
        include NOALYSS_TEMPLATE.'/fiche_def-print_available_attribut.php';
    }
}
?>