db=$p_cn; $this->qcode=""; $this->user=$_SESSION[SESSION_KEY.'g_user']; $this->periode=$g_user->get_periode(); $this->jr_id=$p_jrid; $this->jr_optype="NOR"; $this->amount=0; $this->currency_rate=1; $this->currency_rate_ref=1; $this->currency_id=NULL; } function __toString(): string { $r=<<qcode} user {$this->user} periode {$this->periode} jr_id {$this->jr_id} jr_optype {$this->jr_optype} amount {$this->amount} currency_rate {$this->currency_rate} currency_rate_ref {$this->currency_rate_ref} currency_id {$this->currency_id} ] EOF; return $r; } /** *@brief retrieve the grpt_id from jrn for a jr_id *@return jrn.jr_grpt_id or an empty string if not found */ function seek_group() { $ret=$this->db->get_value('select jr_grpt_id from jrn where jr_id=$1', array($this->jr_id)); return $ret; } /** * \brief prepare the query for getting the qcode of the tiers, when * executing this SQL , an array of (jrn.jr_id , jrnx.j_id) must be * provided */ private function prepare_sql_tiers() { // prepare for getting the tiers $this->db->prepare('prep_tiers',"select fiche_detail.f_id,ad_value from fiche_detail join (select qf_other as f_id from quant_fin where quant_fin.jr_id = $1 union all select qp_supplier as f_id from quant_purchase where quant_purchase.j_id=$2 union all select qs_client as f_id from quant_sold where quant_sold.j_id=$2 ) as v_fiche on (fiche_detail.f_id=v_fiche.f_id) where ad_id=23 "); } /** * \brief prepare the query for getting the qcode of the tiers, when * executing this SQL , an array of (jrn.jr_id , jrnx.j_id) must be * provided */ private function prepare_sql_counterpart() { // prepare for getting the tiers $this->db->prepare('prep_counterpart',"select fiche_detail.f_id,ad_value from fiche_detail join (select qf_bank as f_id from quant_fin where quant_fin.jr_id = $1 union all select qp_fiche as f_id from quant_purchase where quant_purchase.j_id=$2 union all select qs_fiche as f_id from quant_sold where quant_sold.j_id=$2 ) as v_fiche on (fiche_detail.f_id=v_fiche.f_id) where ad_id=23 "); } /** * @brief Find the tiers of an operation , thanks the SQL prepared query * prep_tiers and prep_counterpart. Return a string with the quick_code * @param type $pn_jrn_id pk of the table jrn (jrn.jr_id) * @param type $pn_jrnx_id pk of the table jrnx (jrnx.jr_id) * @param type $p_code quickcode * @return string */ function find_tiers($pn_jrn_id,$pn_jrnx_id,$p_code) { static $p=0; if ( $p == 0 ){ $this->prepare_sql_counterpart(); $this->prepare_sql_tiers(); $p=1; } $tiers=""; $res_tiers=$this->db->execute('prep_tiers', array($pn_jrn_id,$pn_jrnx_id)); if ( Database::num_row($res_tiers) > 0) { $atiers=Database::fetch_array($res_tiers); $tiers=$atiers['ad_value']; // If the found tiers has the same quickcode than the current // card, it means it is a card of supplier or customer, // so we must look for the countercard if ($tiers == $p_code) { $res_counterpart=$this->db->execute('prep_counterpart', array($pn_jrn_id,$pn_jrnx_id)); $tiers=""; if ( Database::num_row($res_counterpart) > 0) { $atiers=Database::fetch_array($res_counterpart); $tiers=$atiers['ad_value']; } } } return $tiers; } /** *@brief Insert into the table Jrn *The needed data are : * - this->date * - this->amount * - this->poste * - this->grpt * - this->jrn * - this->type ( debit or credit) * - this->user * - this->periode * - this->qcode * - this->desc optional *@note if the amount is less than 0 then side changes, for example debit becomes *a credit and vice versa *@return jrnx.j_id */ function insert_jrnx() { if ( $this->poste == "") { throw new Exception (__FILE__.':'.__LINE__.' Poste comptable vide');return false; } /* for negative amount the operation is reversed */ if ( $this->amount < 0 ) { $this->type=($this->type=='d')?'c':'d'; } if ( DEBUGNOALYSS > 1 ) { echo "insert_jrnx = [{ $this->poste}] {$this->amount} rounded ".round($this->amount,2)." type {$this->type}
"; } $this->amount=abs($this->amount); $debit=($this->type=='c')?'false':'true'; $this->desc=(isset($this->desc))?$this->desc:''; $this->amount=(trim($this->amount)==''||$this->amount==NULL)?0:$this->amount; $Res=$this->db->exec_sql("select insert_jrnx ($1::text,abs($2)::numeric,$3::account_type,$4::integer,$5::integer,$6::bool,$7::text,$8::integer,upper($9),$10::text)", array( $this->date, //$1 round($this->amount,2), //$2 $this->poste, //$3 $this->grpt, //$4 $this->jrn, //$5 $debit, //$6 $this->user, //$7 $this->periode, //$8 $this->qcode, // $9 $this->desc)); //$10 if ( $Res===FALSE) return FALSE; $this->jrnx_id=$this->db->get_current_seq('s_jrn_op'); return $this->jrnx_id; } /** * @brief get the sum of other tax linked to this operation */ function get_sum_other_tax() { if ( $this->jr_id == 0 ) {return 0;} $sum=$this->db->get_value("select sum(case when j_debit is false and jrn_def.jrn_def_type='ACH' then 0-j_montant when j_debit is true and jrn_def.jrn_def_type='VEN' then 0-j_montant else j_montant end) sum_tax from jrn_tax join jrnx j1 using (j_id) join jrn on (jr_grpt_id=j1.j_grpt) join jrn_def on (jrn.jr_def_id=jrn_def.jrn_def_id) where jrn.jr_id=$1",[$this->jr_id]); ; if ( $this->db->count()==0) {return 0;} return $sum; } /*! *\brief set the pj of a operation in jrn. the jr_id must be set *\note if the jr_id it fails */ function update_receipt() { if ( noalyss_strlentrim($this->pj) == 0 ) { // echo __LINE__."debug {$this->pj} est vide"; $sql="update jrn set jr_pj_number=$1 where jr_id=$2"; $this->db->exec_sql($sql,array(null,$this->jr_id)); return ''; } /* is pj uniq ? */ if ( $this->db->count_sql("select jr_id from jrn where jr_pj_number=$1 and jr_def_id=$2 and jr_id !=$3", array($this->pj,$this->jrn,$this->jr_id) ) == 0 ) { $sql="update jrn set jr_pj_number=$1 where jr_id=$2"; $this->db->exec_sql($sql,array($this->pj,$this->jr_id)); } else { /* get pref */ $pref=$this->db->get_value("select jrn_def_pj_pref from jrn_def where jrn_def_id=$1", array($this->jrn)); /* try another seq */ $flag=0; $limit=100; while ( $flag == 0 ) { /* limit the search to $limit */ if ( $limit < 1 ) { $this->pj=''; $flag=2; break; } /* get padding */ $padding=$this->db->get_value("select jrn_def_pj_padding from jrn_def where jrn_def_id=$1", array($this->jrn)); $seq=$this->db->get_next_seq('s_jrn_pj'.$this->jrn); // see Acc_Ledger::guess_pj $this->pj=$pref.str_pad($seq,$padding??0,'0',STR_PAD_LEFT); /* check if the new pj numb exist */ $c=$this->db->count_sql("select jr_id from jrn where jr_pj_number=$1 and jr_def_id=$2 and jr_id !=$3", array($this->pj,$this->jrn,$this->jr_id) ); if ( $c == 0 ) { $flag=1; break; } $limit--; } /* a pj numb is found */ if ( $flag == 1 ) { $sql="update jrn set jr_pj_number=$1 where jr_id=$2"; $this->db->exec_sql($sql,array($this->pj,$this->jr_id)); } } return $this->pj; } /*! *\brief Insert into the table Jrn, the amount is computed from jrnx thanks the * group id ($p_grpt) * * \return sequence of jr_id * */ function insert_jrn() { $p_comment=$this->desc; if ( DEBUGNOALYSS > 1 ) { echo "insert_jrn = {$this->amount}
"; } $diff=$this->db->get_value("select check_balance ($1)",array($this->grpt)); if ( $diff != 0 ) { printf (_("Erreur : balance incorrecte :diff = %s"),$diff); return false; } $echeance=( isset( $this->echeance) && noalyss_strlentrim($this->echeance) != 0)?$this->echeance:null; if ( ! isset($this->mt) ) { $this->mt=microtime(true); } // if amount == -1then the triggers will throw an error // $this->amount=(trim($this->amount)==''||$this->amount==NULL)?0:$this->amount; $Res=$this->db->exec_sql("insert into jrn (jr_def_id,jr_montant,jr_comment,". "jr_date,jr_ech,jr_grpt_id,jr_tech_per,jr_mt,jr_optype,currency_id,currency_rate,currency_rate_ref) values (". "$1,$2,$3,". "to_date($4,'DD.MM.YYYY'),to_date($5,'DD.MM.YYYY'),$6,$7,$8,$9,$10,$11,$12)", array ($this->jrn, $this->amount,$p_comment, $this->date,$echeance,$this->grpt,$this->periode,$this->mt,$this->jr_optype, $this->currency_id,$this->currency_rate,$this->currency_rate_ref) ); if ($Res==FALSE) { return FALSE; } $this->jr_id=$this->db->get_current_seq('s_jrn'); return $this->jr_id; } /*! * \brief Return the internal value, the property jr_id must be set before * * \return null si aucune valeur de trouv * */ function get_internal() { if ( ! isset($this->jr_id) ) throw new Exception('jr_id is not set',1); $Res=$this->db->exec_sql("select jr_internal from jrn where jr_id=$1",[$this->jr_id]); if ( Database::num_row($Res) == 0 ) return null; $l_line=Database::fetch_array($Res); $this->jr_internal= $l_line['jr_internal']; return $this->jr_internal; } /*! * \brief search an operation thankx it internal code * \param internal code * \return 0 ok -1 nok */ function seek_internal($p_internal) { $res=$this->db->exec_sql('select jr_id from jrn where jr_internal=$1', array($p_internal)); if ( Database::num_row($res) == 0 ) return -1; $this->jr_id=Database::fetch_result($res,0,0); return 0; } /*! * \brief retrieve data from jrnx *\note the data are filtered by the access of the current user * \return an array or FALSE if nothing found */ function get_jrnx_detail() { global $g_user; $filter_sql=$g_user->get_ledger_sql('ALL',3); $filter_sql=noalyss_str_replace('jrn_def_id','jr_def_id',$filter_sql); if ( $this->jr_id==0 ) return; $sql=" select jr_id,j_id,jr_date,j_qcode,j_poste,j_montant,jr_internal,case when j_debit = 'f' then 'C' else 'D' end as debit,jr_comment as description, vw_name,pcm_lib,j_debit,coalesce(comptaproc.get_letter_jnt(j_id),-1) as letter,jr_def_id ". " from jrnx join jrn on (jr_grpt_id=j_grpt) join tmp_pcmn on (j_poste=pcm_val) left join vw_fiche_attr on (j_qcode=quick_code) where jr_id=$1 and $filter_sql order by j_debit desc"; $res=$this->db->exec_sql($sql,array($this->jr_id)); if ( Database::num_row ($res) == 0 ) return array(); $all=Database::fetch_all($res); return $all; } /*! * \brief add a comment to the line (jrnx.j_text) */ function update_comment($p_text) { $sql="update jrnx set j_text=$1 where j_id=$2"; $this->db->exec_sql($sql,array($p_text,$this->jrnx_id)); } /*! * \brief add a comment to the operation (jrn.jr_text) */ function operation_update_comment($p_text) { $sql="update jrn set jr_comment=$1 where jr_id=$2"; $this->db->exec_sql($sql,array($p_text,$this->jr_id)); } /*! * \brief add a limit of payment to the operation (jrn.jr_ech) */ function operation_update_date_limit($p_text) { if ( isDate($p_text) == null ) { $p_text=null; } $sql="update jrn set jr_ech=to_date($1,'DD.MM.YYYY') where jr_id=$2"; $this->db->exec_sql($sql,array($p_text,$this->jr_id)); } /*! * \brief return the jrn_def_id from jrn */ function get_ledger() { $sql="select jr_def_id from jrn where jr_id=$1"; $row=$this->db->get_value($sql,array($this->jr_id)); return $row; } /*!\brief display_jrnx_detail : get the data from get_jrnx_data and return a string with HTML code * \param table(=0 no code for table,1 code for table,2 code for CSV) */ function display_jrnx_detail($p_table) { $show=$this->get_jrnx_detail(); $r=''; $r_notable=''; $csv=""; foreach ($show as $l) { $border=""; if ( $l['j_poste'] == $this->poste || ($l['j_qcode']==$this->qcode && trim($this->qcode) != '')) $border=' class="highlight"'; $r.=''; $r.=''; $a=$l['j_qcode']; $r_notable.=$a; $r.=$a; $csv.='"'.$a.'";'; $r.=''; $r.=''; $a=$l['j_poste']; $r_notable.=$a; $r.=$a; $csv.='"'.$a.'";'; $r.=''; $r.=''; // $a=($l['vw_name']=="")?$l['j_qcode']:$l['pcm_lib']; $a=(noalyss_strlentrim($l['j_qcode'])==0)?$l['pcm_lib']:$l['vw_name']; $r_notable.=$a; $r.=h($a); $csv.='"'.$a.'";'; $r.=''; $r.=''; $a=$l['j_montant']; $r_notable.=$a; $r.=$a; $csv.=$a.';'; $r.=''; $r.=''; $a=$l['debit']; $r_notable.=$a; $r.=$a; $csv.='"'.$a.'"'; $csv.="\r\n"; $r.=''; $r.=''; $a=($l['letter']!=-1)?$l['letter']:''; $r_notable.=$a; $r.=$a; $csv.='"'.$a.'"'; $csv.="\r\n"; $r.=''; $r.=''; } switch ($p_table) { case 1: return $r; break; case 0: return $r_notable; break; case 2: return $csv; } return "ERROR PARAMETRE"; } /*! * @brief Get data from jrnx where p_grpt=jrnx(j_grpt) * * @param connection * @return array of 3 elements * - First Element is an array @verbatim Array ( [op_date] => 01.12.2009 [class_cred0] => 7000008 [mont_cred0] => 8880.0000 [op_cred0] => 754 [text_cred0] => [jr_internal] => 23VEN-01-302 [comment] => [ech] => [jr_id] => 302 [jr_def_id] => 2 [class_deb0] => 4000005 [mont_deb0] => 10744.8000 [text_deb0] => [op_deb0] => 755 [class_cred1] => 4511 [mont_cred1] => 1864.8000 [op_cred1] => 756 [text_cred1] => ) @endverbatim * - Second : number of line with debit * - Third : number of line with credit */ function get_data ($p_grpt) { $Res=$this->db->exec_sql("select to_char(j_date,'DD.MM.YYYY') as j_date, j_text, j_debit, j_poste, coalesce(j_qcode,'-') as qcode, j_montant, j_id, jr_comment, to_char(jr_ech,'DD.MM.YYYY') as jr_ech, to_char(jr_date,'DD.MM.YYYY') as jr_date, jr_id,jr_internal,jr_def_id,jr_pj from jrnx inner join jrn on j_grpt=jr_grpt_id where j_grpt=$1",array($p_grpt)); $MaxLine=Database::num_row($Res); if ( $MaxLine == 0 ) return null; $deb=0; $cred=0; for ( $i=0; $i < $MaxLine; $i++) { $l_line=Database::fetch_array($Res,$i); $l_array['op_date']=$l_line['j_date']; if ( $l_line['j_debit'] == 't' ) { $l_class=sprintf("class_deb%d",$deb); $l_montant=sprintf("mont_deb%d",$deb); $l_text=sprintf("text_deb%d",$deb); $l_qcode=sprintf("qcode_deb%d",$deb); $l_array[$l_class]=$l_line['j_poste']; $l_array[$l_montant]=$l_line['j_montant']; $l_array[$l_text]=$l_line['j_text']; $l_array[$l_qcode]=$l_line['qcode']; $l_id=sprintf("op_deb%d",$deb); $l_array[$l_id]=$l_line['j_id']; $deb++; } if ( $l_line['j_debit'] == 'f' ) { $l_class=sprintf("class_cred%d",$cred); $l_montant=sprintf("mont_cred%d",$cred); $l_array[$l_class]=$l_line['j_poste']; $l_array[$l_montant]=$l_line['j_montant']; $l_id=sprintf("op_cred%d",$cred); $l_array[$l_id]=$l_line['j_id']; $l_text=sprintf("text_cred%d",$cred); $l_array[$l_text]=$l_line['j_text']; $l_qcode=sprintf("qcode_cred%d",$cred); $l_array[$l_qcode]=$l_line['qcode']; $cred++; } $l_array['jr_internal']=$l_line['jr_internal']; $l_array['comment']=$l_line['jr_comment']; $l_array['ech']=$l_line['jr_ech']; $l_array['jr_id']=$l_line['jr_id']; $l_array['jr_def_id']=$l_line['jr_def_id']; } return array($l_array,$deb,$cred); } /** *@brief retrieve data from jrnx and jrn *@return return an object *@note *@see @code @endcode */ function get() { $ret=new Acc_Misc($this->db,$this->jr_id); $ret->get(); return $ret; } /** *@brief retrieve data from the table QUANT_* *@return return an object or null if there is no * data from the QUANT table *@see Acc_Sold Acc_Purchase Acc_Fin Acc_Detail Acc_Misc */ function get_quant() { $ledger_id=$this->get_ledger(); if ( $ledger_id=='') throw new Exception(_('Journal non trouvé')); $oledger=new Acc_Ledger($this->db,$ledger_id); // retrieve info from jrn_info switch($oledger->get_type()) { case 'VEN': $ret=new Acc_Sold($this->db,$this->jr_id); break; case 'ACH': $ret=new Acc_Purchase($this->db,$this->jr_id); break; case 'FIN': $ret=new Acc_Fin($this->db,$this->jr_id); break; default: $ret=new Acc_Misc($this->db,$this->jr_id); break; } $ret->get(); if ( empty($ret->det->array)) { $ret=new Acc_Misc($this->db,$this->jr_id); $ret->get(); } $ret->get_info(); return $ret; } /** *@brief retrieve amount in currency for the operation *@return amount in currency or 0 if this operation doesn't use currency *@see Acc_Sold Acc_Purchase Acc_Fin Acc_Detail Acc_Misc */ function get_currency_amount() { if ( $this->det->currency_id == 0 ) { return 0; } $ledger_id=$this->get_ledger(); if ( $ledger_id=='') throw new Exception(_('Journal non trouvé')); $oledger=new Acc_Ledger($this->db,$ledger_id); // retrieve info from jrn_info switch($oledger->get_type()) { case 'VEN': $sql_amount=" select sum(oc_amount)+sum(oc_vat_amount ) from operation_currency oc join quant_sold qs using(j_id) where oc.j_id in (select j_id from jrnx join jrn on (jr_grpt_id=j_grpt) where jr_id=$1); "; break; case 'ACH': $sql_amount=" select sum(oc_amount)+sum(oc_vat_amount ) from operation_currency oc join quant_purchase qs using(j_id) where oc.j_id in (select j_id from jrnx join jrn on (jr_grpt_id=j_grpt) where jr_id=$1); "; break; case 'FIN': $sql_amount=" select sum(oc_amount)+sum(oc_vat_amount ) from operation_currency oc join quant_fin qs using(j_id) where oc.j_id in (select j_id from jrnx join jrn on (jr_grpt_id=j_grpt) where jr_id=$1); "; break; default: $sql_amount=" select sum(oc_amount)+sum(oc_vat_amount ) from operation_currency oc join jrnx using(j_id) join jrn on (jr_grpt_id=j_grpt) where jr_id=$1 and j_debit='t'; "; break; } $amount=$this->db->get_value($sql_amount,[$this->jr_id]); return $amount; } /** * @brief retrieve info from the jrn_info, create 2 new arrays * obj->info->command and obj->info->other * the columns are the idx */ function get_info() { $this->info=new stdClass(); // other info $array=$this->db->get_value("select ji_value from jrn_info where jr_id=$1 and id_type=$2",array($this->jr_id,'OTHER')); $this->info->other= $array; // Bon de commande $array=$this->db->get_value("select ji_value from jrn_info where jr_id=$1 and id_type=$2",array($this->jr_id,'BON_COMMANDE')); $this->info->command= $array; } /** * Save into jrn_info * @param $p_info msg to save * @param $p_type is OTHER or BON_COMMAND */ function save_info($p_info,$p_type) { if ( ! in_array($p_type,array('OTHER','BON_COMMANDE'))) return; if (trim($p_info)=="") { $this->db->exec_sql('delete from jrn_info where jr_id=$1 and id_type=$2',array($this->jr_id,$p_type)); return; } $exist=$this->db->get_value('select count(ji_id) from jrn_info where jr_id=$1 and id_type=$2',array($this->jr_id,$p_type)); if ( $exist == "0" ) { //insert into jrn_info $this->db->exec_sql('insert into jrn_info(jr_id,id_type,ji_value) values ($1,$2,$3)', array($this->jr_id,$p_type,$p_info)); } elseif ( $exist == 1) { //update $this->db->exec_sql('update jrn_info set ji_value=$3 where jr_id=$1 and id_type=$2', array($this->jr_id,$p_type,$p_info)); } } function insert_related_action($p_string) { if ($p_string == "") return; $a_action=explode(',',$p_string); for ($i=0;$idb,$a_action[$i]); $action->operation=$this->jr_id; $action->insert_operation(); } } /** * @brief set the operation id (jrn.jr_id) * @param type $p_id */ function set_id($p_id) { if (isNumber($p_id)==0) { throw new Exception(_('Acc_Operation::set_id , id invalide ')); } $this->jr_id=$p_id; } /** * \brief flag the operation as paid */ function set_paid() { // Operation if ( $this->jr_id == 0 ) throw new Exception(_('Object invalide, id incorrect')); if ( $this->db->get_value('select count(*) from jrn where jr_id=$1', array($this->jr_id)) == 0 ) throw new Exception(_('Object invalide, id incorrect')); $this->db->exec_sql("update jrn set jr_rapt = 'paid' where jr_id = $1", array($this->jr_id)); } /** * return amount of the jr_id */ function get_amount() { if ( $this->jr_id == 0 ) throw new Exception(_('Object invalide, id incorrect')); $amount=$this->db->get_value('select jr_montant from jrn where jr_id=$1', array($this->jr_id)); return $amount; } static function test_me() { global $g_user; $cn=Dossier::connect(); $g_user=new Noalyss_user($cn); $a=new Acc_Operation($cn); $a->jr_id=993; $b=$a->get_quant(); echo h1('contain of get_quant() '); var_dump($b); echo h1('contain of get_jrnx_detail()'); var_dump($a->get_jrnx_detail()); } /** * Return a select object to choose the type of operation * - NOR normal * - EXT reverse operation * - CLO closing periode * - OPE opening periode * @param string $p_status * @return \ISelect */ static function select_operation_type($p_status) { $type_operation=new ISelect("jr_optype"); $type_operation->value=array( array(("label")=>_("Normal"), "value"=>"NOR"), array(("label")=>_("Ouverture"), "value"=>"OPE"), array(("label")=>_("Fermeture"), "value"=>"CLO"), array(("label")=>_("Extourne"), "value"=>"EXT") ); $type_operation->selected=$p_status; return $type_operation; } /** * @brief create a form to recreate the operation and returns it, * it works the same as when you want to correct an operation instead of confirming * * @see compta_ach.inc.php * @see compta_ven.inc.php * * @param $p_id string DOMID of the form */ function form_clone_operation($p_id) { // retrieve all info about operation $operation = $this->get_quant(); $array=$operation->compute_array(); global $g_user; $a_code=$this->db->get_array("select code from v_menu_dependency vmd where me_code=$1 and p_id=$2", array( $operation->signature,$g_user->get_profile())); if ( empty ($a_code)) { $r=_("Menu invalide"); return $r; } // Prepare the form // select the menu where the operation will be duplicated $r=sprintf('

',$p_id,NOALYSS_URL."/do.php?".http_build_query([ "ac"=>$a_code[0]['code'],"gDossier"=>Dossier::id() ])); $r.=Dossier::hidden(); $default_currency=new Acc_Currency($this->db,0); // select the menu where the operation will be duplicated $r.="

"; $r.="

%s %s
%s %s
%s %s %s
%s %s
%s %s

"; $r.="

"; if (count($a_code) == 1 ) { $r.=HtmlInput::hidden("ac",$a_code[0]['code']); $r.=sprintf(_("Voulez-vous aller à %s pour dupliquer cette opération ?"),$a_code[0]['code']); } else { $select=new ISelect("ac"); $select->value=array(); $nb_code=count($a_code); for ($i=0;$i<$nb_code;$i++) { $select->value[]=array("label"=>$a_code[$i]['code'],"value"=>$a_code[$i]['code']); } $r.=sprintf(_("Voulez-vous aller à %s pour dupliquer cette opération ?"),$select->input()); } $r.="

"; // For Misc Operation , if a card is given then there is no accounting // modify amount with currency if not in default currency if ( $operation->signature==="ODS") { $nb_array = count($array); for ($i = 0; $i < $nb_array; $i++) { if (isset ($array["qc_" . $i]) && $array["qc_" . $i] != "") { $array["poste" . $i] = ""; } } $idx=0; foreach ($operation->det->array as $item) { if ($operation->det->currency_id != 0) { $array['amount'. $idx] = $item['oc_amount']; $idx++; } } }elseif ( $operation->signature==="ACH" || $operation->signature=="VEN") { $idx=0; foreach ($operation->det->array as $item) { // currency replace amount if ($operation->det->currency_id != 0 ) { $array['e_march'.$idx.'_tva_amount']=$item['oc_vat_amount']; $array['e_march'.$idx.'_tva_amount']=$item['oc_amount']; $array['e_march'.$idx.'_price']=$item['oc_price_unit']; } if ( isset ($item['qs_vat_sided']) && $item['qs_vat_sided'] != 0 ) { $array['e_march'.$idx.'_tva_amount']=0; }elseif (isset ($item['qp_vat_sided']) && $item['qp_vat_sided'] != 0 ){ $array['e_march'.$idx.'_tva_amount']=0; } $idx++; } }elseif ($operation->signature=='FIN') { $idx=0; foreach ($operation->det->array as $item) { if ($operation->det->currency_id != 0) { $array['e_other' . $idx . '_amount'] = $item['oc_amount']; $idx++; } } } if ( DEBUGNOALYSS>1) { echo \Noalyss\Dbg::hidden_info("operation->det_array", $operation->det->array); echo \Noalyss\Dbg::hidden_info("operation->det", $operation->det); echo \Noalyss\Dbg::hidden_info("array", $array); } $ledger=new \Acc_Ledger($this->db,$operation->det->jr_def_id); $array['nb_item']=max($ledger->get_min_row(),$array['nb_item']); // transform the operation into hidden element $r.=HtmlInput::simple_array_to_hidden($array); $r.=HtmlInput::hidden("e_comm",$operation->det->jr_comment); $r.=HtmlInput::submit(uniqid(), _("Dupliquer")); $r.=HtmlInput::button_close("duplicate_operation_div"); $r.='

'; // return the form as a string return $r; } } ///////////////////////////////////////////////////////////////////////////// /** * @class Acc_Detail * @brief Contains the detail of an operation Acc_Operation * propery : * - $det - jr_id PKfrom table JRN - jr_def_id id of the ledger (FK to - _DEF- _DEF_ID)from table JRN - jr_montant AMOUNT of the operationfrom table JRN - jr_comment COMMENT from table JRN - jr_date DATEfrom table JRN - jr_grpt_id CODE to group - X rowsfrom table JRN - jr_internal INTERNAL CODEfrom table JRN - jr_tech_date DATE OF CHANGEfrom table JRN - jr_tech_per FK TO PARAM_PERIODEP_IDfrom table JRN - jrn_ech from table JRN - jr_ech DATE LIMIT OF PAYMENTfrom table JRN - jr_rapt from table JRN - jr_echfrom table JRN - jr_validfrom table JRN - jr_opid from table JRN - jr_c_opidfrom table JRN - jr_pj OID OF THE DOCUMENTfrom table JRN - jr_pj_name NAME OF THE DOCUMENTfrom table JRN - jr_pj_typefrom table JRN - jr_pj_number RECEIPT NBfrom table JRN - jr_mt INTERNAL CODEfrom table JRN - jr_raptfrom table JRN - jr_date_paid DATE OF PAYMENTfrom table JRN - jr_optype TYPE OF OPERATION NOR = NORMAL OPE=OPENING EXT=EXTOURNEfrom table JRN - currency_id FK TO CURRENCYIDfrom table JRN - currency_rate amountfrom table JRN - currency_rate_ref amount in CURRENT_HISTORYCH_VALUEfrom table JRN * - note from table JRN_NOTE - $jr_id JRN.JR_ID - $info */ class Acc_Detail extends Acc_Operation { public $det;//!< Object with columns from JRN public $jr_id;//! $jr_id (int) JRN.JR_ID public $info; function __construct($p_cn,$p_jrid=0) { parent::__construct($p_cn); $this->jr_id=$p_jrid; $this->det=new stdClass(); } /** *@brief retrieve some common data from jrn as * the datum, the comment,payment limit... */ function get() { $sql="SELECT jr_id , jr_def_id , jr_montant , jr_comment , jr_date , jr_grpt_id , jr_internal , jr_tech_date , jr_tech_per , jrn_ech , jr_ech , jr_rapt ,jr_ech , jr_valid , jr_opid , jr_c_opid , jr_pj , jr_pj_name , jr_pj_type, jr_pj_number , jr_mt ,jr_rapt ,jr_date_paid ,jr_optype ,currency_id ,currency_rate ,currency_rate_ref ,jr_document_xml FROM jrn where jr_id=$1"; $array=$this->db->get_array($sql,array($this->jr_id)); if ( count($array) == 0 ) throw new Exception('Aucune ligne trouvée'); foreach ($array[0] as $key=>$val) { $this->det->$key=$val; } $sql="select n_text,n_html from jrn_note where jr_id=$1"; $a=$this->db->get_row($sql,array($this->jr_id)); if ( empty($a)) { $this->det->note=""; $this->det->note_html=null; } else { $this->det->note=strip_tags($a['n_text']??""); $this->det->note_html=($a['n_html'] == "")?$a['n_text']:$a['n_html']; } } /** * */ function compute_array() { $array=array(); $array['desc']=$this->det->jr_comment; $array['e_date']=""; $array['e_ech']=""; $array['p_jrn']=$this->det->jr_def_id; return $array; } function __toString(): string { $r= __CLASS__; $r.="this->signature ".$this->signature."\n"; $r.="this->det ".print_r($this->det,true); return $r; } } ///////////////////////////////////////////////////////////////////////////// /** * @class Acc_Misc *@brief this class manage data from the JRNX and JRN * table *@note Data member are the column of the table */ class Acc_Misc extends Acc_Detail { var $signature; /*!< signature of the obj ODS */ var $array; /*!< an array containing the data from JRNX */ function __construct($p_cn,$p_jrid=0) { parent::__construct($p_cn,$p_jrid); $this->signature='ODS'; $this->det=new stdClass(); } function get() { parent::get(); $sql=" SELECT jx1.j_id ,jx1.j_date ,jx1.j_montant ,jx1.j_poste ,jx1.j_grpt ,jx1.j_rapt ,jx1.j_jrn_def ,jx1.j_debit ,jx1.j_text ,jx1.j_centralized ,jx1.j_internal ,jx1.j_tech_user ,jx1.j_tech_date ,jx1.j_tech_per ,jx1.j_qcode ,jx1.f_id ,oc1.oc_amount FROM jrnx jx1 left join operation_currency oc1 using(j_id) where jx1.j_grpt = $1 order by jx1.j_debit desc,jx1.j_poste "; $this->det->array=$this->db->get_array($sql,array($this->det->jr_grpt_id)); } /*** * Compute an array for using with Acc_Ledger::insert * */ function compute_array() { $this->get(); $array=parent::compute_array(); $nb_array=count($this->det->array); $array['nb_item']=$nb_array; for ($i=0;$i<$nb_array;$i++) { $array["qc_".$i]=$this->det->array[$i]['j_qcode']; $array["poste".$i]=$this->det->array[$i]['j_poste']; $array["amount".$i]=$this->det->array[$i]['j_montant']; if ( $this->det->array[$i]['j_debit'] == 't') { $array["ck".$i]=1; } $array["ld".$i]=$this->det->array[$i]['j_text']; } return $array; } function __toString(): string { $r= __CLASS__; $r.="this->signature ".$this->signature."\n"; $r.="this->det ".print_r($this->det,true); return $r; } } ///////////////////////////////////////////////////////////////////////////// /** * @class Acc_Sold *@brief this class manage data from the QUANT_SOLD * table *@note Data member are the column of the table */ class Acc_Sold extends Acc_Detail { function __construct($p_cn,$p_jrid=0) { parent::__construct($p_cn,$p_jrid); $this->signature='VEN'; $this->det->array=new stdClass(); } function get() { parent::get(); $sql=" select qs_id, qs_internal , jx1.j_id , qs1.qs_fiche , qs1.qs_quantite , qs1.qs_price , qs1.qs_vat , qs1.qs_vat_code , qs1.qs_client , qs1.qs_valid , jx1.j_text , qs_vat_sided , qs_unit , jx1.j_debit ,oc1.oc_amount ,oc1.oc_vat_amount ,oc1.oc_price_unit from quant_sold qs1 join jrnx jx1 using(j_id) left join operation_currency oc1 using(j_id) where jx1.j_grpt = $1 order by jx1.j_id; "; $this->det->array=$this->db->get_array($sql,array($this->det->jr_grpt_id)); } /*** * @brief Compute an array for using with Acc_Ledger::insert * */ function compute_array() { $this->get(); $array=parent::compute_array(); $nb_array=count($this->det->array); $array['nb_item']=$nb_array; $array["e_client"]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23", array($this->det->array[0]['qs_client'])); for ($i=0;$i<$nb_array;$i++) { $array["e_march".$i]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23", array($this->det->array[$i]['qs_fiche'])); $array["e_march".$i."_price"]=$this->det->array[$i]['qs_unit']; $array["e_march".$i."_label"]=$this->det->array[$i]['j_text']; $array["e_march".$i."_tva_id"]=$this->det->array[$i]['qs_vat_code']; $array["e_march".$i."_tva_amount"]=$this->det->array[$i]['qs_vat']; $array["e_quant".$i]=$this->det->array[$i]['qs_quantite']; } $array['correct']=1; return $array; } function __toString(): string { $r=""; $r.="this->signature ".$this->signature."\n"; $r.="this->det ".print_r($this->det,true); return $r; } } ///////////////////////////////////////////////////////////////////////////// /** * @class Acc_Purchase *@brief this class manage data from the QUANT_PURCHASE * table *@note Data member are the column of the table */ class Acc_Purchase extends Acc_Detail { function __construct($p_cn,$p_jrid=0) { parent::__construct($p_cn,$p_jrid); $this->signature='ACH'; } function get() { parent::get(); $sql=" select qp_id, qp_internal , jx1.j_id , qp1.qp_fiche , qp1.qp_quantite , qp1.qp_price , qp1.qp_vat , qp1.qp_vat_code , qp1.qp_nd_amount , qp1.qp_nd_tva , qp1.qp_nd_tva_recup , qp1.qp_supplier , qp1.qp_valid , qp1.qp_dep_priv , jx1.j_text , qp1.qp_vat_sided , qp1.qp_unit , jx1.j_debit ,oc1.oc_amount ,oc1.oc_vat_amount ,oc1.oc_price_unit from quant_purchase qp1 join jrnx jx1 using(j_id) left join operation_currency oc1 using(j_id) where jx1.j_grpt = $1 order by jx1.j_id "; $this->det->array=$this->db->get_array($sql,array($this->det->jr_grpt_id)); } /*** * @brief Compute an array for using with Acc_Ledger::insert * */ function compute_array() { $this->get(); $array=parent::compute_array(); $nb_array=count($this->det->array); $array['nb_item']=$nb_array; $array["e_client"]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23", array($this->det->array[0]['qp_supplier'])); for ($i=0;$i<$nb_array;$i++) { $array["e_march".$i]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23", array($this->det->array[$i]['qp_fiche'])); $array["e_march".$i."_price"]=$this->det->array[$i]['qp_unit']; $array["e_march".$i."_label"]=$this->det->array[$i]['j_text']; $array["e_march".$i."_tva_id"]=$this->det->array[$i]['qp_vat_code']; $array["e_march".$i."_tva_amount"]=$this->det->array[$i]['qp_vat']; $array["e_quant".$i]=$this->det->array[$i]['qp_quantite']; } $array['correct']=1; return $array; } function __toString(): string { $r= __CLASS__; $r.="this->signature ".$this->signature."\n"; $r.="this->det ".print_r($this->det,true); return $r; } } ///////////////////////////////////////////////////////////////////////////// /** * @class Acc_Fin *@brief this class manage data from the QUANT_FIN * table *@note Data member are the column of the table */ class Acc_Fin extends Acc_Detail { function __construct($p_cn,$p_jrid=0) { parent::__construct($p_cn,$p_jrid); $this->signature='FIN'; } function get() { parent::get(); $sql="SELECT qf_id ,qf_bank ,jr_id ,qf_other ,qf_amount,j_id ,oc1.oc_amount ,oc1.oc_vat_amount ,oc1.oc_price_unit FROM quant_fin left join operation_currency oc1 using(j_id) where jr_id = $1"; $this->det->array=$this->db->get_array($sql,array($this->jr_id)); } /*** * Compute an array for using with Acc_Ledger::insert * */ function compute_array() { $this->get(); $array=parent::compute_array(); $nb_array=count($this->det->array); $array['nb_item']=$nb_array; for ($i=0;$i<$nb_array;$i++) { $array["e_other".$i]=$this->db->get_value("select ad_value from fiche_detail where f_id=$1 and ad_id=23", array($this->det->array[$i]['qf_other'])); $array["e_other".$i."_amount"]=$this->det->array[$i]['qf_amount']; $array["e_other".$i."_comment"]=$this->det->jr_comment; } $array['correct']=1; return $array; } function __toString(): string { $r= __CLASS__; $r.="this->signature ".$this->signature."\n"; $r.="this->det ".print_r($this->det,true); return $r; } }