diff --git a/include/form_input.php b/include/form_input.php
deleted file mode 100644
index b7ce378d4..000000000
--- a/include/form_input.php
+++ /dev/null
@@ -1,419 +0,0 @@
-<?
-/*
- *   This file is part of PhpCompta.
- *
- *   PhpCompta 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.
- *
- *   PhpCompta 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 PhpCompta; if not, write to the Free Software
- *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-*/
-// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr
-/* $Revision$ */
-include_once("preference.php");
-include_once("fiche_inc.php");
-include_once("user_common.php");
-/* function InputType
- * Purpose : Create the tag <INPUT TYPE=... Name=...>
- *        
- * parm : 
- *	- Label question
- *      - The type (text, select, text_big
- *      - Name of the variable
- *      - Default Value
- *      - View_only
- *      - $p_list for the select, give the possible values item[0] is the val and item[1] 
- *        is the label or for the js_search p_list is a string (cred
- *        or deb or the fiche_def_type
- * gen :
- *	- None
- * return: string
- */
-function InputType($p_label,$p_type,$p_name,$p_value,$p_viewonly=false,$p_list=null)
-{
-  // View only
-  if ( $p_viewonly==true) {
-    if ( strlen($p_label) != 0) {
-      // name and value are set put the info in a hidden field
-      $hidden=(strlen($p_name) != 0) ?"<INPUT TYPE=\"hidden\" NAME=\"$p_name\" value=\"$p_value\">":"";
-
-      // return
-      return "<TD><span id=\"$p_name\"> $p_label </span> $hidden  </TD><TD>$p_value</TD>";
-    } else {
-      // name and value are set put the info in a hidden field
-      $hidden=(strlen($p_name) != 0) ?"<INPUT TYPE=\"hidden\" NAME=\"$p_name\" value=\"$p_value\">":"";
-
-      return "<TD>$p_value $hidden</TD>";
-    }
-  }
-  // Input type == select
-  if ( strtolower($p_type)=="select" ) {
-    $r="<TD> $p_label</TD><TD>";
-    $r.=sprintf('<SELECT NAME="%s">',$p_name);
-    foreach ($p_list as $item) {
-      $selected="";
-      if ( $p_value == $item[0] ) {
-		$selected="SELECTED";
-      }
-      $r.=sprintf('<OPTION VALUE="%s" %s>%s',
-		  $item[0],
-		  $selected,
-		  $item[1]);
-    }
-    $r.="</SELECT></TD>";
-    return $r;
-  }
-  // Input type == select2
-  if ( strtolower($p_type)=="select2" ) {
-    $r="<TD> $p_label</TD><TD>";
-    $r.=sprintf('<SELECT NAME="%s">',$p_name);
-    foreach ($p_list as $item) {
-      $selected="";
-      if ( $p_value == $item['value'] ) {
-		$selected="SELECTED";
-      }
-      $r.=sprintf('<OPTION VALUE="%s" %s>%s',
-		  $item['value'],
-		  $selected,
-		  $item['label']);
-    }
-    $r.="</SELECT></TD>";
-    return $r;
-  }
-
-  // input type == TEXT
-  if ( strtolower($p_type)=="text") {
-    if ( strlen(trim($p_label)) != 0 ) 
-      $label="<TD>$p_label</TD>";
-    else
-      $label="";
-    $r=sprintf('%s<TD> <INPUT TYPE="%s" NAME="%s" VALUE="%s" SIZE="10"></TD>',
-	       $label,
-	       $p_type,
-	       $p_name,
-	       $p_value);
-    return $r;
-  }
-  // input type == TEXT_BIG
-  if ( strtolower($p_type)=="text_big") {
-    $r=sprintf('<TD>%s</TD><TD> <INPUT TYPE="%s" NAME="%s" VALUE="%s" SIZE="50"></TD>',
-	       $p_label,
-	       $p_type,
-	       $p_name,
-	       $p_value);
-    return $r;
-  }
-
-  //span
-  if ( strtolower($p_type)=="span") {
-    $r=sprintf('<TD><span id="%s">%s</span></TD>',
-	       $p_name,
-	       $p_value);
-    return $r;
-  }
-
-  // input type == HIDDEN
-  if ( strtolower($p_type)=="hidden") {
-    $r=sprintf('<TD> <INPUT TYPE="%s" NAME="%s" VALUE="%s"></TD>',
-	       $p_type,
-	       $p_name,
-	       $p_value);
-    return $r;
-  }
-
-
-  // input type == js_concerned => button search for the concerned operations
-  if ( strtolower($p_type)=="js_concerned") {
-    $l_sessid=$_REQUEST['PHPSESSID'];
-    $r=sprintf('<TD>
-         <INPUT TYPE="button" onClick=SearchJrn(\'%s\',\'%s\') value="Search">
-            %s</TD><TD> 
-
-             <INPUT TYPE="Text" NAME="%s" VALUE="%s" SIZE="8">
-                 </TD>',
-	       $l_sessid,
-	       $p_name,
-	       $p_label,
-	       $p_name,
-	       $p_value 
-	       );
-
-  
-   
-  }
-
- 
-  // input type == js_tva
-  if ( strtolower($p_type)=="js_tva") {
-    if ( strlen(trim($p_label)) != 0 ) 
-      $label="<TD>$p_label</TD>";
-    else
-      $label="";
-    $r=sprintf('%s<TD> <INPUT TYPE="%s" NAME="%s" VALUE="%s" SIZE="3" onChange="ChangeTVA(\'%s\',\'%s\');">',
-	       $label,
-	       $p_type,
-	       $p_name,
-	       $p_value,
-	       $p_list,
-	       $p_name);
-    $l_sessid=$_REQUEST['PHPSESSID'];
-    $r.=sprintf("<input type=\"button\" value=\"Tva\" 
-    	onClick=\"
-       	           ShowTva('%s','%s');\"></TD>",
-		$l_sessid,$p_name);
-    return $r;
-  }
-
-  return $r;
-
-}
-/* function FormODS($p_cn,$p_jrn,$p_user,$p_array=null,$pview_only=true,$p_article=1)
- * Purpose : Display the miscellaneous operation
- *           Used to show detail, encode a new oper
- *           or update one
- *        
- * parm : 
- *	- p_array which can be empty
- *      - the "journal"
- *      - $p_user = $g_user
- *      - $p_submit contains the submit string
- *      - view_only if we cannot change it (no right or centralized op)
- *      - $p_article number of article
- * gen :
- *	-
- * return: string with the form
- */
-function FormODS($p_cn,$p_jrn,$p_periode,$p_submit,$p_array=null,$pview_only=true,$p_article=6,$p_saved=false)
-{ 
-  include_once("poste.php");
-  if ( $p_array != null ) {
-    // array contains old value
-    foreach ( $p_array as $a=>$v) {
-      ${"$a"}=$v;
-    }
-  }
-  // The date
-   list ($l_date_start,$l_date_end)=GetPeriode($p_cn,$p_periode);
-   $flag=(isset($e_date))?1:0;
-   $e_date=( ! isset($e_date) ) ? substr($l_date_start,2,8):$e_date;
-
-  // Verify if valid date
-  if (  $flag==1 and VerifyOperationDate($p_cn,$p_periode,$e_date)   == null) {
-    if ( $pview_only == true) 
-      return null;
-    else 
-      $e_date=substr($l_date_start,2,8);
-  }    
-  
-  $e_ech=(isset($e_ech))?$e_ech:"";
-  $e_comment=(isset($e_comment))?$e_comment:"";
-  // Save old value and set a new one
-
-  $r="";
-  if ( $pview_only == false) {
-    $r.=JS_SEARCH_POSTE;
-  }
-  $r.="<FORM NAME=\"form_detail\" enctype=\"multipart/form-data\" ACTION=\"user_jrn.php?action=new&p_jrn=$p_jrn\" METHOD=\"POST\">";
-  $r.='<TABLE>';
-  $r.='<TR>'.InputType("Date ","Text","e_date",$e_date,$pview_only).'</TR>';
-  $r.='<TR>'.InputType("Description","Text_big","e_comment",$e_comment,$pview_only).'</TR>';
-  include_once("fiche_inc.php");
-
-  // Record the current number of article
-  $r.='<INPUT TYPE="HIDDEN" name="nb_item" value="'.$p_article.'">';
-  $e_comment=(isset($e_comment))?$e_comment:"";
-
-
-  // Start the div for item to encode
-  $r.="<DIV>";
-  $r.='<H2 class="info">Op&eacute;rations Diverses</H2>';
-  $r.='<TABLE border="0">';
-  $r.="<tr>";
-  $r.="<th></th>";
-  $r.="<th>Compte</th>";
-  $r.="<th>Poste</th>";
-  $r.="<th>Montant</th>";
-  $r.="<th>Cr&eacute;dit ou d&eacute;dit</th>";
-  $r.="</tr>";
-  $sum_deb=0.0;
-  $sum_cred=0.0;
-
-
-  for ($i=0;$i< $p_article;$i++) {
-
-    $account=(isset(${"e_account$i"}))?${"e_account$i"}:"";
-
-    $lib="";
-    // If $account has a value
-    if ( isNumber($account) == 1 ) {
-      if ( CountSql($p_cn,"select * from tmp_pcmn where pcm_val=$account") == 0 ) {
-	$msg="Poste comptable inexistant !!! ";
-	echo_error($msg); echo_error($msg);
-	echo "<SCRIPT>alert('$msg');</SCRIPT>";
-	$account="";
-	if ( $pview_only == true ) return null;
-      } else {
-	// retrieve the tva label and name
-	$lib=GetPosteLibelle($p_cn, $account,1);
-      }
-    }
-    ${"e_account$i"."_amount"}=(isset(${"e_account$i"."_amount"}))?${"e_account$i"."_amount"}:0;
-    if ( isNumber(${"e_account$i"."_amount"}) == 0 ) {
-      if ( $pview_only==true) {
-	$msg="Montant invalide !!! ";
-	echo_error($msg); echo_error($msg);
-	echo "<SCRIPT>alert('$msg');</SCRIPT>";
-	return null;
-      }
-	${"e_account$i"."_amount"}=0;
-    }
-    // code
-    // Do we need a filter ?
-    $l_line=GetJrnProperty($p_cn,$p_jrn);
-    if(  strlen(trim ($l_line['jrn_def_class_cred']) ) > 0 or
-	 strlen(trim ($l_line['jrn_def_class_deb']) ) > 0 ) {
-      $filter=1;
-    }
-    else
-      $filter=null;
-    $W = new widget('js_search_poste');
-    $W->readonly=$pview_only;
-    $W->label="";
-    $W->extra=$p_jrn;
-    $W->extra2=$filter;
-    //    $r.='<TR>'.InputType("","js_search_poste","e_account".$i,$account,$pview_only,$filter);
-    $r.="<TR>".$W->IOValue("e_account".$i, $account); 
-    //libelle
-    $r.="<td> $lib </td>";
-    //amount
-    $r.=InputType("","text","e_account".$i."_amount",${"e_account$i"."_amount"},$pview_only);
-
-
-    // Type is debit or credit, retrieve the old values
-    ${"e_account$i"."_type"}=(isset (${"e_account$i"."_type"}))?${"e_account$i"."_type"}:'d';
-    $c_check=( ${"e_account$i"."_type"} == 'c')?"CHECKED":"";
-    $d_check=( ${"e_account$i"."_type"} == 'd' )?"CHECKED":"";
-    $r.='<td>';
-    if ( $pview_only == false ) {
-      $r.='  <input type="radio" name="'."e_account"."$i"."_type".'" value="d" '.$d_check.'> D&eacute;bit ou ';
-      $r.='  <input type="radio" name="'."e_account"."$i"."_type".'" value="c" '.$c_check.'> Cr&eacute;dit ';
-    }else {
-      $r.=(${"e_account$i"."_type"} == 'c' )?"Cr&eacute;dit":"D&eacute;dit";
-      $r.='<input type="hidden" name="e_account'.$i.'_type" value="'.${"e_account$i"."_type"}.'">';
-    }
-    $r.='</td>';
-    $r.='</TR>';
-    $sum_deb+=(${"e_account$i"."_type"}=='d')?${"e_account$i"."_amount"}:0;
-    $sum_cred+=(${"e_account$i"."_type"}=='c')?${"e_account$i"."_amount"}:0;
-  }
-
-  $r.="</TABLE>";
-
- if ( $pview_only==true && $p_saved==false) {
-// check for upload piece
-   $file=new widget("file");
-   $file->table=1;
-   $r.="<hr>";
-   $r.= "<table>"; 
-   $r.="<TR>".$file->IOValue("pj","","Pièce justificative")."</TR>";
-   $r.="</table>";
-   $r.="<hr>";
- }
-
-  $r.=$p_submit;
-  //  $r.="</DIV>";
-  $r.="</FORM>";
-  //TODO if view only show total
-  $tmp= abs($sum_deb-$sum_cred);
-  echo_debug(__FILE__,__LINE__,"Diff = ".$tmp);
-  if ( abs($sum_deb-$sum_cred) > 0.0001  and $pview_only==true) {
-    $msg=sprintf("Montant non correspondant credit = %.5f debit = %.5f diff = %.5f",
-		 $sum_cred,$sum_deb,$sum_cred-$sum_deb);
-    echo "<script> alert('$msg'); </script>";
-    return null;
-  }
-
-  // Verify that we have a non-null operation
-  if ($pview_only==true and $sum_cred == 0)
-  {
-    $msg=sprintf("Montant null");
-    echo "<script> alert('$msg'); </script>";
-    return null;
-  }
-  
-  return $r;
-
-
-}
-
-/* function RecordODS
- **************************************************
- * Purpose : Record an buy in the table jrn &
- *           jrnx
- *
- * parm :
- *	- $p_cn Database connection
- *  - $p_array contains all the invoice data
- * e_date => e : 01.01.2003
- * nb_item => e : 3
- * e_account0 => e : 6
- * e_account0_amount=>e:1
- *  - $p_user userid
- *  - $p_jrn current folder (journal)
- * gen :
- *	- none
- * return:
- *	      true on success
- */
-function RecordODS($p_cn,$p_array,$p_user,$p_jrn)
-{
-  foreach ( $p_array as $v => $e)
-  {
-    ${"$v"}=$e;
-  }
-  // Get the default period
-  $periode=$p_user->GetPeriode();
-  $amount=0.0;
-  // Computing total customer
-
-  $sum_deb=0.0;
-  $sum_cred=0.0;
-
-	// Compute the j_grpt
-  $seq=NextSequence($p_cn,'s_grpt');
-
-  StartSql($p_cn);
-  // store into the database
-  for ( $i = 0; $i < $nb_item;$i++) {
-    if ( isNumber(${"e_account$i"}) == 0 ) continue;
-    $sum_deb+=(${"e_account$i"."_type"}=='d')?round(${"e_account$i"."_amount"},2):0;
-    $sum_cred+=(${"e_account$i"."_type"}=='c')?round(${"e_account$i"."_amount"},2):0;
-
-    if ( ${"e_account$i"."_amount"} == 0 ) continue;
-    if ( ($j_id=InsertJrnx($p_cn,${"e_account$i"."_type"},$p_user->id,$p_jrn,${"e_account$i"},$e_date,${"e_account$i"."_amount"},$seq,$periode)) == false ) {
-      $Rollback($p_cn);exit("error __FILE__ __LINE__");}
-  }
-
-  if ( InsertJrn($p_cn,$e_date,"",$p_jrn,$e_comment,$sum_deb,$seq,$periode) == false ) {
-    $Rollback($p_cn);exit("error __FILE__ __LINE__");}
-
-  // Set Internal code and Comment
-  $internal_code=SetInternalCode($p_cn,$seq,$p_jrn);
-  if ( $e_comment=="" ) {
-    // Update comment if comment is blank
-    $Res=ExecSql($p_cn,"update jrn set jr_comment='".$internal_code."' where jr_grpt_id=".$seq);
-  }
-  if ( isset ($_FILES))
-    save_upload_document($p_cn,$seq);
-
-  Commit($p_cn);
-  return $internal_code;
-}