/* * 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 */ /* $Revision$ */ // Copyright Author Dany De Bontridder ddebontridder@yahoo.fr include_once("postgres.php"); /* function GetTvaRate ************************************************** * Purpose : Return the rate of the p_tva_id * * parm : * - p_cn database connection * - p_tva_id tva.tva_id * gen : * - none * return: * an array containing the rate and the label * the tva rate or null if a problem occured */ function GetTvaRate($p_cn,$p_tva_id) { if (strlen(trim($p_tva_id))==0) return 0; $Res=pg_exec($p_cn,"select tva_id,tva_rate,tva_label from tva_rate where tva_id=".$p_tva_id); if (pg_NumRows($Res) == 0 ) return null; $r=pg_fetch_array($Res,0); return $r; } /* function ComputeVat($p_cn,$a_fiche,$a_quant,$a_price,$ap_vat) ************************************************** * Purpose : Compute the vat, * the fiche.f_id are in a_fiche * the quantity in a_quant * * * parm : * - database connection * - fiche id array * - quantity array * - price array * - $ap_vat Array of tva id * gen : * - * return: array * a[tva_id] = amount vat */ function ComputeVat($p_cn, $a_fiche,$a_quant,$a_price,$ap_vat ) { echo_debug("ComputeVat $a_fiche $a_quant $a_price"); foreach ( $a_fiche as $t=>$el) { echo_debug("t $t e $el"); } $r=null; // foreach goods foreach ( $a_fiche as $idx=>$element) { echo_debug ("idx $idx element $element"); // if the card id is null or empty if ( isNumber($element)==0 or strlen(trim($element))==0) continue; // Get the tva_id if ( $ap_vat != null and isNumber($ap_vat[$idx])== 1) $tva_id=$ap_vat[$idx]; else $tva_id=GetFicheAttribut($p_cn,$a_fiche[$idx],ATTR_DEF_TVA); if ( $tva_id == 'Unknown' ) continue; // for each fiche find the tva_rate and tva_id $a_vat=GetTvaRate($p_cn,$tva_id); // Get the attribut price of the card(fiche) if ( $a_vat != null and $a_vat['tva_id'] != "" ) { $a=$a_vat['tva_id']; $vat_amount=$a_price[$idx]*$a_vat['tva_rate']*$a_quant[$idx]; $r[$a]=isset ( $r[$a] )?$r[$a]+$vat_amount:$vat_amount; } } echo_debug(" return $r"); return $r; } /* function GetTvaPoste($p_cn,$tva_id,$p_type); ************************************************** * Purpose : Get the account of tva_rate.tva_poste * return the credit or the debit account * parm : connection * - tva_rate.tva_id * type ( d or credit) * gen : * - * return: * return the credit or the debit account * null if error */ function GetTvaPoste($p_cn,$p_tva_id,$p_cred) { $Res=ExecSql($p_cn,"select tva_poste from tva_rate where tva_id=$p_tva_id"); if ( pg_NumRows($Res) == 0 ) return null; $a=pg_fetch_array($Res,0); list ($deb,$cred)=split(",",$a['tva_poste']); if ( $p_cred=='c' ) return $cred; if ($p_cred=='d') return $deb; echo_error ("Invalid $p_cred in GetTvaRate"); return null; } /* function InsertJrnx($p_cn,$p_type,$p_user,$p_jrn,$p_poste,$p_date,$p_amount,$p_grpt,$p_periode ************************************************** * Purpose : Insert into the table Jrn * * parm : * - $p_cn database connection * - $p_type debit or credit * - $p_user the current user * - $p_jrn the current 'journal' (folder) * - $p_poste the account * - $p_date * - $p_amount amount to insert * - $p_periode the concerned periode * gen : * - none * return: * - nothing */ function InsertJrnx($p_cn,$p_type,$p_user,$p_jrn,$p_poste,$p_date,$p_amount,$p_grpt,$p_periode) { echo_debug ("InsertJrnx param type = $p_type p_user $p_user p_date $p_date p_poste $p_poste p_amount $p_amount p_grpt = $p_grpt p_periode = $p_periode"); $debit=($p_type=='c')?'false':'true'; // if negative value the operation is inversed if ( $p_amount < 0 ) { $debit=($debit=='false')?'true':'false'; } $sql=sprintf("insert into jrnx (j_date,j_montant, j_poste,j_grpt, j_jrn_def,j_debit,j_tech_user,j_tech_per) values (to_date('%s','DD.MM.YYYY'),abs(%.2f),%d,%d,%d,%s,'%s',%d)", $p_date,round($p_amount,2),$p_poste,$p_grpt,$p_jrn,$debit,$p_user,$p_periode); echo_debug("InsertJrnx $sql"); $Res=ExecSql($p_cn,$sql); if ( $Res==false) return $Res; return GetSequence($p_cn,'s_jrn_op'); } /* function InsertJrn($p_cn,$p_date,$p_jrn,$p_comment,$p_amount,$p_grpt,$p_periode ************************************************** * Purpose : Insert into the table Jrnx * * parm : * - $p_cn database connection * - $p_date date * - $p_jrn the current 'journal' (folder) * - $p_poste the account * - $p_amount amount to insert * - $p_periode the concerned periode * - $p_comment comment * gen : * - none * return: * - nothing */ function InsertJrn($p_cn,$p_date,$p_echeance,$p_jrn,$p_comment,$p_amount,$p_grpt,$p_periode) { echo_debug ("InsertJrn param p_date $p_date p_poste $p_comment p_amount $p_amount p_grpt = $p_grpt p_periode = $p_periode p_echeance = $p_echeance comment = $p_comment"); $p_comment=FormatString($p_comment); if ( $p_echeance == "" or $p_echeance==null) { $p_echeance='null'; } else { $p_echeance=sprintf("to_date('%s','DD.MM.YYYY')",$p_echeance); } $sql=sprintf("insert into jrn (jr_def_id,jr_montant,jr_comment,jr_date,jr_ech,jr_grpt_id,jr_tech_per) values ( %d,abs(%.2f),'%s',to_date('%s','DD.MM.YYYY'),%s,%d,%d)", $p_jrn, round($p_amount,2),$p_comment,$p_date,$p_echeance,$p_grpt,$p_periode); echo_debug("InsertJrn $sql"); $Res=ExecSql($p_cn,$sql); if ( $Res == false) return false; return GetSequence($p_cn,'s_jrn'); } /* function ListJrn($p_cn,$p_jrn,$p_wherel) ************************************************** * Purpose : show all the lines of the asked jrn * * parm : * - $p_cn database connection * - $p_jrn jrn_id jrn.jrn_def_id * - $p_sql the sql query (where clause) * gen : * - none * return: * */ function ListJrn($p_cn,$p_jrn,$p_where="",$p_array=null) { //TODO add a print button but only if type of jrn is VEN !! include_once("central_inc.php"); if ( $p_array == null ) { $sql="select jr_id , jr_montant, jr_comment, jr_ech, to_char(jr_date,'DD.MM.YYYY') as jr_date, jr_grpt_id, jr_rapt, jr_internal, jrn_def_id, jrn_def_name, jrn_def_ech, jrn_def_type, jr_valid from jrn join jrn_def on jrn_def_id=jr_def_id $p_where order by jr_date desc"; } if ( $p_array != null ) { // Construction Query foreach ( $p_array as $key=>$element) { ${"l_$key"}=$element; echo_debug ("l_$key $element"); } $sql="select jr_id , jr_montant, jr_comment, jr_ech, to_char(jr_date,'DD.MM.YYYY') as jr_date, jr_grpt_id, jr_rapt, jr_internal, jrn_def_id, jrn_def_name, jrn_def_ech, jrn_def_type, jr_valid from jrn join jrn_def on jrn_def_id=jr_def_id where jrn_def_id=$p_jrn"; $l_and=" and "; if ( ereg("^[0-9]+$", $l_s_montant) || ereg ("^[0-9]+\.[0-9]+$", $l_s_montant) ) { $sql.=" and jr_montant $l_mont_sel $l_s_montant"; } if ( isDate($l_date_start) != null ) { $sql.=$l_and." jr_date >= to_date('".$l_date_start."','DD.MM.YYYY')"; } if ( isDate($l_date_end) != null ) { $sql.=$l_and." jr_date <= to_date('".$l_date_end."','DD.MM.YYYY')"; } $l_s_comment=FormatString($l_s_comment); if ( $l_s_comment != null ) { $sql.=$l_and." upper(jr_comment) like upper('%".$l_s_comment."%') "; } $l_s_internal=FormatString($l_s_internal); if ( $l_s_internal != null ) { $sql.=$l_and." jr_internal='$l_s_internal' "; } $sql.=" order by jr_date desc"; }// p_array != null $Res=ExecSql($p_cn,$sql); $r=""; $r.=JS_VIEW_JRN_DETAIL; $r.=JS_VIEW_JRN_CANCEL; $r.=JS_VIEW_JRN_MODIFY; $Max=pg_NumRows($Res); if ($Max==0) return "No row selected"; $r.="
| Date | "; $r.="Echéance | "; $r.="Description | "; $r.=""; $r.=" | Montant | "; $r.="Op. Concernée | "; $r.="|
|---|---|---|---|---|---|---|
| "; $r.=$row['jr_date']; $r.=" | "; // echeance $r.=""; $r.=$row['jr_ech']; $r.=" | "; // comment $r.=""; $r.=$row['jr_comment']; $r.=" | "; // button modify $r.=""; $r.=sprintf('', $row['jr_id'],$l_sessid,$row['jr_internal']); $r.=" | "; // Amount $r.=""; $r.=$row['jr_montant']; $r.=" | "; // Rapt $a=GetConcerned($p_cn,$row['jr_id']); $r.=""; if ( $a != null ) { $r.="operation concernée "; foreach ($a as $key => $element) { $r.=GetInternal($p_cn,$element).", "; }//for }// if ( $a != null ) { $r.=" | "; //$l=user_jrn.php?action=update&line=91 if ( $row['jr_valid'] == 't' ) { // TODO Add print $r.=""; // cancel operation $r.=sprintf('', "Annulation",$row['jr_grpt_id'],$l_sessid); $r.=" | "; } // end row $r.="