* * 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) ?"":""; // return return " $p_label $hidden $p_value"; } else { // name and value are set put the info in a hidden field $hidden=(strlen($p_name) != 0) ?"":""; return "$p_value $hidden"; } } // Input type == select if ( strtolower($p_type)=="select" ) { $r=" $p_label"; $r.=sprintf('"; return $r; } // Input type == select2 if ( strtolower($p_type)=="select2" ) { $r=" $p_label"; $r.=sprintf('"; return $r; } // input type == TEXT if ( strtolower($p_type)=="text") { if ( strlen(trim($p_label)) != 0 ) $label="$p_label"; else $label=""; $r=sprintf('%s ', $label, $p_type, $p_name, $p_value); return $r; } // input type == TEXT_BIG if ( strtolower($p_type)=="text_big") { $r=sprintf('%s ', $p_label, $p_type, $p_name, $p_value); return $r; } //span if ( strtolower($p_type)=="span") { $r=sprintf('%s', $p_name, $p_value); return $r; } // input type == HIDDEN if ( strtolower($p_type)=="hidden") { $r=sprintf(' ', $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(' %s ', $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="$p_label"; else $label=""; $r=sprintf('%s ', $label, $p_type, $p_name, $p_value, $p_list, $p_name); $l_sessid=$_REQUEST['PHPSESSID']; $r.=sprintf("", $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.="
"; $r.=''; $r.=''.InputType("Date ","Text","e_date",$e_date,$pview_only).''; $r.=''.InputType("Description","Text_big","e_comment",$e_comment,$pview_only).''; include_once("fiche_inc.php"); // Record the current number of article $r.=''; $e_comment=(isset($e_comment))?$e_comment:""; // Start the div for item to encode $r.="
"; $r.='

Opérations Diverses

'; $r.='
'; $r.=""; $r.=""; $r.=""; $r.=""; $r.=""; $r.=""; $r.=""; $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 ""; $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 ""; 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.=''.InputType("","js_search_poste","e_account".$i,$account,$pview_only,$filter); $r.="".$W->IOValue("e_account".$i, $account); //libelle $r.=""; //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.=''; $r.=''; $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.="
ComptePosteMontantCrédit ou dédit
$lib '; if ( $pview_only == false ) { $r.=' Débit ou '; $r.=' Crédit '; }else { $r.=(${"e_account$i"."_type"} == 'c' )?"Crédit":"Dédit"; $r.=''; } $r.='
"; if ( $pview_only==true && $p_saved==false) { // check for upload piece $file=new widget("file"); $file->table=1; $r.="
"; $r.= ""; $r.="".$file->IOValue("pj","","Pièce justificative").""; $r.="
"; $r.="
"; } $r.=$p_submit; // $r.=""; $r.="
"; //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 ""; return null; } // Verify that we have a non-null operation if ($pview_only==true and $sum_cred == 0) { $msg=sprintf("Montant null"); echo ""; 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; }