altocompta/include/import_inc.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&eacute;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);
	$f->get_by_qcode($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&eacute; pour l'op&eacute;ration ".$num_compte."-".$code.", r&eacute;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_account;
	$acc_op->grpt=$seq;
	$acc_op->jrn=$jrn;
	$acc_op->periode=$periode;
	$acc_op->qcode="";
	$r=$acc_op->insert_jrnx();

      
	$acc_op->type="c";
	$acc_op->poste=$poste_comptable;
	$acc_op->amount=$montant;
	$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 pcm_val,pcm_lib from tmp_pcmn where pcm_val::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."'");
}

?>