given by the

name='poste'.$counter; $w->extra='cred'; $w->extra2=$p_val['jrn']; $w->label=''; $w->table=0; if ( $p_form == 'remove' ) $w->readonly=true; // widget concerned $wConcerned=new widget('js_concerned'); $wConcerned->extra=abs($p_val['montant']); $wConcerned->label='op. concernée'; $wConcerned->table=0; $s=new widget('span'); // if in readonly retrieve the conc. ope if ( $p_form== 'remove') { $wConcerned->readonly=true; $wConcerned->value=$p_val['jr_rapt']; } if ( isset($p_val['poste_comptable'])) { $w->value=$p_val['poste_comptable']; $cn=DbConnect($_SESSION['g_dossier']); $f=new fiche($p_cn); $f->GetByQCode($p_val['poste_comptable']); $s->value=$f->strAttribut(ATTR_DEF_NAME); } echo ''; echo ''; echo ''; echo ''; echo ""; echo ''; echo ''; echo '"; echo ""; if ( $p_form == 'form') { echo ''; } if ($p_form == 'remove' ) echo ''; echo '

'.$p_val['code'].'	'.$p_val['date_exec'].'	'.$p_val['montant'].' EUR
Journal : ".GetJrnName($p_cn,$p_val['jrn'])."	poste comptable Destination : ".$p_val['bq_account']."
'.$p_val['detail'].'
'.$wConcerned->IOValue("e_concerned".$counter).'
'.$w->IOValue().' '.$s->IOValue('poste'.$counter.'_label'). "	n° compte : ".$p_val['num_compte']."	'; echo '

'; } /*!\brief Remove the record from the transfert list, the data are in $_POST * import_tmp.status is set to n for new * */ function RemoveCSV($cn) { $sql="update import_tmp set poste_comptable=null,status='n' where code='".$_POST['code']."'"; ExecSql($cn,$sql); } /*!\brief Verify the import */ function VerifImport($p_cn){ $sql = "select * from import_tmp where status='n' ". " order by date_exec,code"; $Res=ExecSql($p_cn,$sql); $Num=pg_NumRows($Res); echo $Num." opérations à complèter.

"; $i=1; // include javascript for popup echo JS_SEARCH_CARD; echo JS_CONCERNED_OP; while($val = pg_fetch_array($Res)){ echo ''; ShowBox($val,$i,$p_cn,'form'); echo '

'; $i++; } } /*!\brief ConfirmCSV shows the operation which are going to be transfered * * \param $p_cn database conx * \param $periode user's periode */ function ConfirmTransfert($p_cn,$periode){ $sql = "select to_char(p_start,'DD-MM-YYYY') as p_start,to_char(p_end,'DD-MM-YYYY') as p_end". " from parm_periode where p_id = '".$periode."'"; $Res=ExecSql($p_cn,$sql); $val = pg_fetch_array($Res); if ( $val == false ) { echo ""; exit(); } $start ="to_date('".$val['p_start']."','DD-MM-YYYY')"; $end = "to_date('".$val['p_end']."','DD-MM-YYYY')"; $sql = "select code,to_char(date_exec,'DD.MM.YYYY') as date_exec, ". " montant,num_compte,poste_comptable,bq_account,jrn,detail,jr_rapt ". " from import_tmp where status = 'w' AND date_exec BETWEEN ".$start." and ".$end; $Res=ExecSql($p_cn,$sql); $Num=pg_NumRows($Res); echo $Num." opérations à transfèrer.

"; if ( $Num == 0 ) return; $i=1; while($val = pg_fetch_array($Res)){ echo '

'; echo ''; ShowBox($val,$i,$p_cn,'remove'); echo '

'; $i++; } echo '

'; echo ''; echo ''; echo '

'; } /*!\brief Transfert data into the ledger * set the column import_tmp.status to w (wait) if the account is not correct * otherwise transfert it to the ledger and set the column import_tmp.status * to t (transfert) * \param $p_cn connx * \param $periode periode */ function TransferCSV($p_cn, $periode){ //on obtient la période courante $User=new cl_user($p_cn); $periode = $User->GetPeriode(); // on trouve les dates frontières de cette période $sql = "select to_char(p_start,'DD-MM-YYYY') as p_start,to_char(p_end,'DD-MM-YYYY') as p_end". " from parm_periode where p_id = '".$periode."'"; $Res=ExecSql($p_cn,$sql); $val = pg_fetch_array($Res); if ( $val == false ) { echo ""; exit(); } $start ="to_date('".$val['p_start']."','DD-MM-YYYY')"; $end = "to_date('".$val['p_end']."','DD-MM-YYYY')"; $sql = "select code,to_char(date_exec,'DD.MM.YYYY') as date_exec, ". " montant,num_compte,poste_comptable,bq_account,jrn,detail,jr_rapt ". " from import_tmp where ". " status= 'w' AND date_exec BETWEEN ".$start." and ".$end; $Res=ExecSql($p_cn,$sql); $Max=pg_NumRows($Res); echo $Max." opérations à transférer.
"; StartSql($p_cn); for ($i = 0;$i < $Max;$i++) { $val=pg_fetch_array($Res,$i); $code=$val['code']; $date_exec=$val['date_exec']; $montant=$val['montant']; $num_compte=$val['num_compte']; $poste_comptable=$val['poste_comptable']; $bq_account=$val['bq_account']; $jrn=$val['jrn']; $detail=$val['detail']; $jr_rapt=$val['jr_rapt']; // Retrieve the account thx the quick code $f=new fiche($p_cn); $f->GetByQCode($poste_comptable,false); $poste_comptable=$f->strAttribut(ATTR_DEF_ACCOUNT); // Vérification que le poste comptable trouvé existe if ( $poste_comptable == '- ERROR -') $test=0; else { $sqltest = "select * from tmp_pcmn WHERE pcm_val='".$poste_comptable."'"; $Restest=ExecSql($p_cn,$sqltest); $test=pg_NumRows($Restest); } // Test it if($test == 0) { $sqlupdate = "update import_tmp set status='n' WHERE code='".$code."' AND num_compte='".$num_compte."' or num_compte is null"; $Resupdate=ExecSql($p_cn,$sqlupdate); echo "Poste comptable erronné pour l'opération ".$num_compte."-".$code.", réinitialisation du poste comptable
"; continue; } // Finances $seq=NextSequence($p_cn,'s_grpt'); $p_user = $_SESSION['g_user']; $r=InsertJrnx($p_cn,"d",$p_user,$jrn,$bq_account,$date_exec,$montant,$seq,$periode); if ( $r == false) { $Rollback($p_cn);exit("error 'import_inc.php' __LINE__");} $r=InsertJrnx($p_cn,"c",$p_user,$jrn,$poste_comptable,$date_exec,$montant,$seq,$periode); if ( $r == false) { $Rollback($p_cn);exit("error 'import_inc.php' __LINE__");} //remove annoying double-quote $num_compte=str_replace('"','',$num_compte); $code=str_replace('\"','',$code); $jr_id=InsertJrn($p_cn,$date_exec,NULL,$jrn,$detail.$num_compte." ".$code,$seq,$periode); if ( $jr_id == false ) { Rollback($p_cn); exit(" Error 'import_inc.php' __LINE__");} if ( isNumber($jr_rapt) == 1) InsertRapt($p_cn,$jr_id,$jr_rapt); SetInternalCode($p_cn,$seq,$jrn); echo "Tranfer de l'opération ".$code." effectué
"; $sql2 = "update import_tmp set status='t' where code='".$code."'"; $Res2=ExecSql($p_cn,$sql2); } Commit($p_cn); } /*! ************************************************** * \brief ShowForm for getting data about * the bank transfert in cvs * * \param $p_cn database connection * * \return none */ function ShowFormTransfert($p_cn){ $w=new widget("select"); echo '

'; echo '
'; // ask for the journal target $jrn=make_array ($p_cn,"select jrn_def_id,jrn_def_name from jrn_def where jrn_def_type='FIN';"); $w->label='Journal'; echo $w->label." :".$w->IOValue('import_jrn',$jrn)."
"; // choose the bank account $bq=make_array($p_cn,"select pcm_val,pcm_lib from tmp_pcmn where pcm_val like '550%'"); $w->label='Banque'; echo "Compte en banque :".$w->IOValue('import_bq',$bq)."
"; $format_csv=make_array($p_cn,"select include_file,name from format_csv_banque;"); $w->label="Format import"; echo $w->label.$w->IOValue('format_csv',$format_csv).'
'; echo ''; echo '

'; } /*!\brief RemoveRow put a flag delete on a row of the table import_tmp * (import_tmp.status) * \param $p_cn database connection * \param $p_code import_tmp.code must be unique */ function DropRecord($p_cn,$p_code) { ExecSql($p_cn,"update import_tmp set status='d' where code='".$p_code."'"); } ?>