421 lines
13 KiB
PHP
421 lines
13 KiB
PHP
<?php
|
|
/*
|
|
* 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
|
|
*/
|
|
/*!\file
|
|
* \brief import operation into the accountancy
|
|
*/
|
|
// Copyright Author Olivier Dzwoniarkiewicz
|
|
// Modified Dany De Bontridder ddebontridder@yahoo.fr
|
|
// $Revision$
|
|
include_once("jrn.php");
|
|
include_once("preference.php");
|
|
include_once("user_common.php");
|
|
require_once('class_user.php');
|
|
require_once('class_widget.php');
|
|
require_once('class_fiche.php');
|
|
require_once('class_acc_ledger.php');
|
|
require_once("class_acc_parm_code.php");
|
|
require_once('class_acc_operation.php');
|
|
/*!
|
|
**************************************************
|
|
* \brief Parse the file and insert the record
|
|
* into the table import_tmp. Insert in a temporary table, if
|
|
* no confirmation is given then the data are removed otherwise
|
|
* records are inserted into import_tmp. Following
|
|
* the choosen bank a different file is included to
|
|
* to parse the CSV, take the cbc_be.inc.php as template
|
|
*
|
|
* \param $p_cn database connection
|
|
* \param $file the uploaded file
|
|
* \param $p_bq_account the bank account (target)
|
|
* \param $p_format_csv file to include (depending of the bank)
|
|
*/
|
|
function ImportCSV($p_cn,$file,$p_bq_account,$p_format_csv,$p_jrn)
|
|
{
|
|
if(!$handle = fopen($file, "r")) {
|
|
print 'could not open file. quitting';
|
|
die;
|
|
}
|
|
|
|
StartSql($p_cn);
|
|
|
|
|
|
// include the right format for CSV --> given by the <form
|
|
require_once($p_format_csv);
|
|
|
|
|
|
echo "Importation terminée.";
|
|
|
|
// if importation succeeds then we can commit the change
|
|
Commit($p_cn);
|
|
|
|
}
|
|
/*!\brief Update import_tmp with the bank account
|
|
*
|
|
*/
|
|
function UpdateCSV($p_cn){
|
|
$code=FormatString($_POST['code']);
|
|
$count=FormatString($_POST['count']);
|
|
$poste=FormatString($_POST['poste'.$count]);
|
|
$concern=FormatString($_POST['e_concerned'.$count]);
|
|
$sql = utf8_encode("update import_tmp set poste_comptable='$poste' ,status='w',".
|
|
"jr_rapt='$concern' where code='$code'");
|
|
$Res=ExecSql($p_cn,$sql);
|
|
}
|
|
|
|
|
|
|
|
|
|
/*!\brief This function show a record from the table import_tmp, the tag for the form
|
|
* are not included in the function and must set in the calling proc.
|
|
* \param $p_val array (row from import_type)
|
|
* \param $counter a counter used in the form
|
|
* \param $p_cn database connection
|
|
* \param $p_form indicates if the button for the form is enable,
|
|
* modify the Quick Code or remove record poss.value are form, remove
|
|
*/
|
|
function ShowBox($p_val,$counter,$p_cn,$p_form='form'){
|
|
$w=new widget('js_search_only');
|
|
$w->name='poste'.$counter;
|
|
$w->extra='filter';
|
|
$w->extra2='QuickCode';
|
|
$w->label='';
|
|
$w->table=0;
|
|
if ( $p_form == 'remove' )
|
|
$w->readonly=true;
|
|
|
|
$oJrn=new Acc_Ledger($p_cn,$p_val['jrn']);
|
|
// widget concerned
|
|
$wConcerned=new widget('js_concerned');
|
|
$wConcerned->name="e_concerned"+$counter;
|
|
$wConcerned->extra=abs($p_val['montant']);
|
|
$wConcerned->extra2='paid';
|
|
$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(dossier::id());
|
|
$f=new fiche($p_cn);
|
|
$f->get_by_qcode($p_val['poste_comptable']);
|
|
$s->value=$f->strAttribut(ATTR_DEF_NAME);
|
|
}
|
|
echo '<input type="hidden" id="code'.$counter.'" value="'.$p_val['code'].'">';
|
|
echo '<input type="hidden" name="count" value="'.$counter.'">';
|
|
echo widget::hidden('p_jrn',$p_val['jrn']);
|
|
echo '<table border="1" width="500">';
|
|
echo '<tr><td width="200">'.$p_val['code'].'</td><td width="200">'.$p_val['date_exec'].'</td><td width="100">'.$p_val['montant'].' EUR</td><tr/>';
|
|
echo "<tr><td> Journal : ".$oJrn->get_name()."</TD><TD>poste comptable Destination : ".$p_val['bq_account']."</td><tr>";
|
|
echo '<tr colspan="3"><td height="50" colspan="3">'.$p_val['detail'].'</td></tr>';
|
|
echo '<tr><td colspan="3"> '.$wConcerned->IOValue("e_concerned".$counter).'</td></tr>';
|
|
echo '<tr><td>'.$w->IOValue().' '.$s->IOValue('poste'.$counter.'_label').
|
|
"</TD>";
|
|
|
|
echo "<td>n° compte : ".$p_val['num_compte']."</td>";
|
|
if ( $p_form == 'form') {
|
|
$str_update=sprintf("import_update('%s','%s','%s');",
|
|
$_REQUEST['PHPSESSID'],
|
|
dossier::id(),
|
|
$counter);
|
|
$str_remove=sprintf("import_remove('%s','%s','%s');",
|
|
$_REQUEST['PHPSESSID'],
|
|
dossier::id(),
|
|
$counter);
|
|
|
|
echo '<td><input type="button" value="Modifier" onClick="'.$str_update.'">';
|
|
echo '<input type="button" name="trashit" value="Effacer.."'.
|
|
' onClick="'.$str_remove.'" >'.
|
|
'</td><tr/>';
|
|
}
|
|
if ($p_form == 'remove' ) {
|
|
$str_notconfi=sprintf("import_not_confirmed('%s','%s','%s');",
|
|
$_REQUEST['PHPSESSID'],
|
|
dossier::id(),
|
|
$counter);
|
|
|
|
echo '<td><input type="button" value="Enlever" onClick="'.$str_notconfi.'"'.
|
|
'></td><tr/>';
|
|
}
|
|
|
|
echo '</table>';
|
|
|
|
}
|
|
/*!\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.<br/><br/>";
|
|
$i=1;
|
|
// include javascript for popup
|
|
echo JS_SEARCH_CARD;
|
|
echo JS_CONCERNED_OP;
|
|
echo JS_AJAX_FICHE;
|
|
echo JS_PROTOTYPE;
|
|
while($val = pg_fetch_array($Res)){
|
|
echo '<form METHOD="POST" id="form_'.$i.'"action="import.php?action=verif">';
|
|
echo dossier::hidden();
|
|
ShowBox($val,$i,$p_cn,'form');
|
|
echo '</form>';
|
|
$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 "<script>".
|
|
"alert ('Vous devez selectionner votre période dans vos préférences');".
|
|
"</script>";
|
|
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.<br/><br/>";
|
|
if ( $Num == 0 ) return;
|
|
$i=1;
|
|
while($val = pg_fetch_array($Res)){
|
|
|
|
echo '<form method="post" id="form_'.$i.'" action="import.php">';
|
|
echo dossier::hidden();
|
|
echo '<input type="hidden" name="action" value="remove">';
|
|
ShowBox($val,$i,$p_cn,'remove');
|
|
echo '</form>';
|
|
$i++;
|
|
}
|
|
echo '<form method="post" id="form_'.$i.'" action="import.php">';
|
|
echo dossier::hidden();
|
|
echo '<input type="hidden" name="action" value="transfer">';
|
|
echo '<input type="submit" name="sub" value="Commencer le transfert">';
|
|
echo '</form>';
|
|
|
|
}
|
|
|
|
/*!\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 User($p_cn);
|
|
$periode = $User->get_periode();
|
|
|
|
// 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 "<script>".
|
|
"alert ('Vous devez selectionner votre période dans vos préférences');".
|
|
"</script>";
|
|
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;
|
|
|
|
try
|
|
{
|
|
StartSql($p_cn);
|
|
$ResAll=ExecSql($p_cn,$sql);
|
|
$Max=pg_NumRows($ResAll);
|
|
echo $Max." opérations à transférer.<br/>";
|
|
for ($i = 0;$i < $Max;$i++) {
|
|
$val=pg_fetch_array($ResAll,$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'];
|
|
$oJrn=new Acc_Ledger($p_cn,$jrn);
|
|
$detail=$val['detail'];
|
|
$jr_rapt=$val['jr_rapt'];
|
|
|
|
// Retrieve the account thx the quick code
|
|
$f=new fiche($p_cn);
|
|
$quick_code=$poste_comptable;
|
|
$f->get_by_qcode($poste_comptable,false);
|
|
$poste_comptable=$f->strAttribut(ATTR_DEF_ACCOUNT);
|
|
$f->get_by_qcode($bq_account);
|
|
$bq_poste=$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<br/>";
|
|
continue;
|
|
}
|
|
|
|
|
|
// Finances
|
|
|
|
$seq=NextSequence($p_cn,'s_grpt');
|
|
$p_user = $_SESSION['g_user'];
|
|
|
|
$acc_op=new Acc_Operation($p_cn);
|
|
$acc_op->amount=$montant;
|
|
$acc_op->desc=$detail;
|
|
$acc_op->type="d";
|
|
$acc_op->date=$date_exec;
|
|
$acc_op->user=$p_user;
|
|
$acc_op->poste=$bq_poste;
|
|
$acc_op->grpt=$seq;
|
|
$acc_op->jrn=$jrn;
|
|
$acc_op->periode=$periode;
|
|
$acc_op->qcode=$bq_account;
|
|
$r=$acc_op->insert_jrnx();
|
|
|
|
|
|
$acc_op->type="c";
|
|
$acc_op->poste=$poste_comptable;
|
|
$acc_op->amount=$montant;
|
|
$acc_op->qcode=$quick_code;
|
|
$r=$acc_op->insert_jrnx();
|
|
|
|
|
|
|
|
//remove annoying double-quote
|
|
$num_compte=str_replace('"','',$num_compte);
|
|
$code=str_replace('\"','',$code);
|
|
$acc_op->comment=$detail.$num_compte." ".$code;
|
|
|
|
$jr_id=$acc_op->insert_jrn();
|
|
|
|
$internal=$oJrn->compute_internal_code($seq);
|
|
|
|
$Res=ExecSql($p_cn,"update jrn set jr_internal='".$internal."' where ".
|
|
" jr_id = ".$jr_id);
|
|
// insert rapt
|
|
|
|
$acc_reconc=new Acc_Reconciliation($p_cn);
|
|
$acc_reconc->set_jr_id=$jr_id;
|
|
$acc_reconc->insert($jr_rapt);
|
|
|
|
echo "Tranfert de l'opération ".$code." effectué<br/>";
|
|
$sql2 = "update import_tmp set status='t' where code='".$code."'";
|
|
$Res2=ExecSql($p_cn,$sql2);
|
|
}
|
|
} catch (Exception $e) {
|
|
Rollback($p_cn);
|
|
echo '<span class="error">'.
|
|
'Erreur dans '.__FILE__.':'.__LINE__.
|
|
' Message = '.$e->getMessage().
|
|
'</span>';
|
|
}
|
|
|
|
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 '<FORM METHOD="POST" action="import.php?action=import" enctype="multipart/form-data">';
|
|
echo dossier::hidden();
|
|
echo '<INPUT TYPE="file" name="fupload" size="20"><br>';
|
|
// 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)."<br>";
|
|
// choose the bank account
|
|
$banque=new Acc_Parm_Code($p_cn,'BANQUE');
|
|
$bq=make_array($p_cn,"select j_qcode,vw_name from vw_poste_qcode join vw_fiche_attr on (j_qcode=quick_code) where j_poste::text like '".$banque->p_value."%'");
|
|
$w->label='Banque';
|
|
echo "Compte en banque :".$w->IOValue('import_bq',$bq)."<br>";
|
|
$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).'<br>';
|
|
echo '<INPUT TYPE="SUBMIT" Value="Import fiche">';
|
|
echo '</FORM>';
|
|
}
|
|
|
|
/*!\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."'");
|
|
}
|
|
|
|
?>
|