100 lines
11 KiB
HTML
100 lines
11 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||
<html><head><meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1">
|
||
<title>phpcompta: cbc_be.inc.php Source File</title>
|
||
<link href="doxygen.css" rel="stylesheet" type="text/css">
|
||
</head><body>
|
||
<!-- Generated by Doxygen 1.4.4 -->
|
||
<div class="qindex"><a class="qindex" href="index.html">Main Page</a> | <a class="qindex" href="namespaces.html">Namespace List</a> | <a class="qindex" href="hierarchy.html">Class Hierarchy</a> | <a class="qindex" href="annotated.html">Data Structures</a> | <a class="qindex" href="dirs.html">Directories</a> | <a class="qindex" href="files.html">File List</a> | <a class="qindex" href="functions.html">Data Fields</a> | <a class="qindex" href="globals.html">Globals</a> | <a class="qindex" href="pages.html">Related Pages</a></div>
|
||
<div class="nav">
|
||
<a class="el" href="dir_000000.html">include</a></div>
|
||
<h1>cbc_be.inc.php</h1><a href="cbc__be_8inc_8php.html">Go to the documentation of this file.</a><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <?
|
||
<a name="l00002"></a>00002 <span class="comment">/*</span>
|
||
<a name="l00003"></a>00003 <span class="comment"> * This file is part of PhpCompta.</span>
|
||
<a name="l00004"></a>00004 <span class="comment"> *</span>
|
||
<a name="l00005"></a>00005 <span class="comment"> * PhpCompta is free software; you can redistribute it and/or modify</span>
|
||
<a name="l00006"></a>00006 <span class="comment"> * it under the terms of the GNU General Public License as published by</span>
|
||
<a name="l00007"></a>00007 <span class="comment"> * the Free Software Foundation; either version 2 of the License, or</span>
|
||
<a name="l00008"></a>00008 <span class="comment"> * (at your option) any later version.</span>
|
||
<a name="l00009"></a>00009 <span class="comment"> *</span>
|
||
<a name="l00010"></a>00010 <span class="comment"> * PhpCompta is distributed in the hope that it will be useful,</span>
|
||
<a name="l00011"></a>00011 <span class="comment"> * but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
|
||
<a name="l00012"></a>00012 <span class="comment"> * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span>
|
||
<a name="l00013"></a>00013 <span class="comment"> * GNU General Public License for more details.</span>
|
||
<a name="l00014"></a>00014 <span class="comment"> *</span>
|
||
<a name="l00015"></a>00015 <span class="comment"> * You should have received a copy of the GNU General Public License</span>
|
||
<a name="l00016"></a>00016 <span class="comment"> * along with PhpCompta; if not, write to the Free Software</span>
|
||
<a name="l00017"></a>00017 <span class="comment"> * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA</span>
|
||
<a name="l00018"></a>00018 <span class="comment">*/</span>
|
||
<a name="l00019"></a>00019 <span class="comment">/* $Revision$ */</span>
|
||
<a name="l00020"></a>00020 <span class="comment">// Copyright Author Dany De Bontridder ddebontridder@yahoo.fr</span>
|
||
<a name="l00025"></a>00025 <span class="comment"></span><span class="comment">//-----------------------------------------------------</span>
|
||
<a name="l00026"></a>00026 <span class="comment">// Bank CBC </span>
|
||
<a name="l00027"></a>00027 <span class="comment">//-----------------------------------------------------</span>
|
||
<a name="l00028"></a><a class="code" href="cbc__be_8inc_8php.html#a0">00028</a> <a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>=1;
|
||
<a name="l00029"></a>00029 <a class="code" href="postgres_8php.html#a14">StartSql</a>($p_cn);
|
||
<a name="l00030"></a>00030 <span class="keywordflow">while</span> (($data = fgetcsv($handle, 2000,'!@')) !== FALSE) {
|
||
<a name="l00031"></a>00031 <a class="code" href="jrn__add_8php.html#a17">$num</a> = count($data);
|
||
<a name="l00032"></a>00032 <a class="code" href="debug_8php.html#a0">echo_debug</a>('cbc_be',__LINE__,$num);
|
||
<a name="l00033"></a>00033 <a class="code" href="debug_8php.html#a0">echo_debug</a>('cbc_be',__LINE__,var_export($data,<span class="keyword">true</span>));
|
||
<a name="l00034"></a>00034 <span class="keywordflow">for</span> ($c=0; $c < $num; $c++) {
|
||
<a name="l00035"></a>00035 <span class="comment">//-----------------------------------------------------</span>
|
||
<a name="l00036"></a>00036 <span class="comment">// Parsing CSV comes here</span>
|
||
<a name="l00037"></a>00037 <span class="comment">//-----------------------------------------------------</span>
|
||
<a name="l00038"></a>00038 <a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>=split(<span class="charliteral">';'</span>,$data[$c]);
|
||
<a name="l00039"></a>00039 <a class="code" href="debug_8php.html#a0">echo_debug</a>('cbc_be',__LINE__,'$row = '.var_export($row,<span class="keyword">true</span>));
|
||
<a name="l00040"></a>00040 <a class="code" href="debug_8php.html#a0">echo_debug</a>('cbc_be',__LINE__,'<span class="keyword">sizeof</span>($row)'.<span class="keyword">sizeof</span>($row));
|
||
<a name="l00041"></a>00041 <span class="keywordflow">if</span> ( <span class="keyword">sizeof</span> ($row) < 13 )
|
||
<a name="l00042"></a>00042 <span class="keywordflow">continue</span>;
|
||
<a name="l00043"></a>00043
|
||
<a name="l00044"></a><a class="code" href="cbc__be_8inc_8php.html#a1">00044</a> <a class="code" href="argenta__be_8inc_8php.html#a1">$num_compte</a>=<a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>[0];
|
||
<a name="l00045"></a><a class="code" href="cbc__be_8inc_8php.html#a2">00045</a> <a class="code" href="argenta__be_8inc_8php.html#a3">$date_exec</a>=<a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>[3];
|
||
<a name="l00046"></a><a class="code" href="cbc__be_8inc_8php.html#a3">00046</a> <a class="code" href="argenta__be_8inc_8php.html#a4">$date_val</a>=<a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>[4];
|
||
<a name="l00047"></a>00047 <span class="comment">// remove first the thousand sep.</span>
|
||
<a name="l00048"></a><a class="code" href="cbc__be_8inc_8php.html#a4">00048</a> <a class="code" href="argenta__be_8inc_8php.html#a6">$montant</a>=str_replace(<span class="charliteral">'.'</span>,'',$row[6]);
|
||
<a name="l00049"></a>00049 <span class="comment">// replace the coma by a period</span>
|
||
<a name="l00050"></a>00050 <a class="code" href="argenta__be_8inc_8php.html#a6">$montant</a>=str_replace(<span class="charliteral">','</span>,<span class="charliteral">'.'</span>,$montant);
|
||
<a name="l00051"></a>00051 <span class="comment">// remove the sign</span>
|
||
<a name="l00052"></a>00052 <a class="code" href="argenta__be_8inc_8php.html#a6">$montant</a>=str_replace(<span class="charliteral">'+'</span>,'',$montant);
|
||
<a name="l00053"></a><a class="code" href="cbc__be_8inc_8php.html#a5">00053</a> <a class="code" href="argenta__be_8inc_8php.html#a7">$devise</a>=<a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>[1];
|
||
<a name="l00054"></a><a class="code" href="cbc__be_8inc_8php.html#a6">00054</a> <a class="code" href="argenta__be_8inc_8php.html#a8">$compte_ordre</a>=<a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>[0];
|
||
<a name="l00055"></a><a class="code" href="cbc__be_8inc_8php.html#a7">00055</a> <a class="code" href="argenta__be_8inc_8php.html#a9">$detail</a>=trim($row[7]).<span class="charliteral">' '</span>.trim($row[8]).<span class="charliteral">' '</span>.trim($row[9]).<span class="charliteral">' '</span>.trim($row[10]);
|
||
<a name="l00056"></a>00056 <span class="keywordflow">if</span> ( ereg('[0-9]{3}-[0-9]{7}-[0-9]{2}',$row[7],$r) )
|
||
<a name="l00057"></a>00057 {
|
||
<a name="l00058"></a>00058 <a class="code" href="argenta__be_8inc_8php.html#a8">$compte_ordre</a>=<a class="code" href="bank_8inc_8php.html#a29">$r</a>[0];
|
||
<a name="l00059"></a>00059 }
|
||
<a name="l00060"></a>00060 <span class="comment">//-----------------------------------------------------</span>
|
||
<a name="l00061"></a>00061 <span class="comment">// insert into import_tmp</span>
|
||
<a name="l00062"></a>00062 <span class="comment">//-----------------------------------------------------</span>
|
||
<a name="l00063"></a>00063 <a class="code" href="eub__be_8inc_8php.html#a4">$Sql</a>=<span class="stringliteral">"insert into import_tmp (code,</span>
|
||
<a name="l00064"></a>00064 <span class="stringliteral"> date_exec ,</span>
|
||
<a name="l00065"></a>00065 <span class="stringliteral"> date_valeur,</span>
|
||
<a name="l00066"></a>00066 <span class="stringliteral"> montant,</span>
|
||
<a name="l00067"></a>00067 <span class="stringliteral"> devise,</span>
|
||
<a name="l00068"></a>00068 <span class="stringliteral"> compte_ordre,</span>
|
||
<a name="l00069"></a>00069 <span class="stringliteral"> detail,</span>
|
||
<a name="l00070"></a>00070 <span class="stringliteral"> bq_account ,</span>
|
||
<a name="l00071"></a>00071 <span class="stringliteral"> jrn,</span>
|
||
<a name="l00072"></a>00072 <span class="stringliteral"> ok)</span>
|
||
<a name="l00073"></a>00073 <span class="stringliteral"> values (nextval('s_cbc'),</span>
|
||
<a name="l00074"></a>00074 <span class="stringliteral"> to_date('$date_exec','YYYYMMDD'),</span>
|
||
<a name="l00075"></a>00075 <span class="stringliteral"> to_date('$date_exec','YYYYMMDD'),</span>
|
||
<a name="l00076"></a>00076 <span class="stringliteral"> $montant,</span>
|
||
<a name="l00077"></a>00077 <span class="stringliteral"> '$devise',</span>
|
||
<a name="l00078"></a>00078 <span class="stringliteral"> '"</span>.addslashes($compte_ordre).<span class="stringliteral">"', </span>
|
||
<a name="l00079"></a>00079 <span class="stringliteral"> '"</span>.addslashes($detail).$num_compte.<span class="stringliteral">" ',</span>
|
||
<a name="l00080"></a>00080 <span class="stringliteral"> '$p_bq_account',</span>
|
||
<a name="l00081"></a>00081 <span class="stringliteral"> $p_jrn,</span>
|
||
<a name="l00082"></a>00082 <span class="stringliteral"> false)"</span>;
|
||
<a name="l00083"></a>00083 <span class="keywordflow">if</span> ( <a class="code" href="postgres_8php.html#a2">ExecSql</a>($p_cn,$Sql) == <span class="keyword">false</span> )
|
||
<a name="l00084"></a>00084 {
|
||
<a name="l00085"></a>00085 <a class="code" href="postgres_8php.html#a17">Rollback</a>($p_cn);
|
||
<a name="l00086"></a><a class="code" href="cbc__be_8inc_8php.html#a8">00086</a> <span class="keywordflow">break</span>;
|
||
<a name="l00087"></a>00087 }
|
||
<a name="l00088"></a>00088 } <span class="comment">// for ($c=0;$c<$num;$c++)</span>
|
||
<a name="l00089"></a>00089 <a class="code" href="argenta__be_8inc_8php.html#a2">$row</a>++;
|
||
<a name="l00090"></a>00090 } <span class="comment">// file is read</span>
|
||
<a name="l00091"></a>00091 fclose($handle);
|
||
<a name="l00092"></a>00092 echo <span class="stringliteral">"Encore rien d<>sol<6F>"</span>;
|
||
<a name="l00093"></a>00093 ?>
|
||
</pre></div></BODY>
|
||
</HTML>
|