* * This program 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. * * This program 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 this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ * *******************************************************************************/ /* $num * $rel * $ve */ require("./pre.inc.php3"); llxHeader(); $db = new Db(); if (! $num) { /* * * Vue liste * * */ print "Releves bancaires"; print ''; print ""; print ""; print "\n"; $sql = "SELECT distinct(b.num_releve) as numr"; $sql .= " FROM llx_bank as b WHERE fk_account = $account ORDER BY numr DESC"; $result = $db->query($sql); if ($result) { $var=True; $numrows = $db->num_rows(); $i = 0; while ($i < $numrows) { $objp = $db->fetch_object( $i); $var=!$var; print "\n"; $i++; } } print "
Date
numr&account=$account\">$objp->numr
"; } else { /* * Vue d'un releves * */ if ($rel == 'prev') { $sql = "SELECT distinct(num_releve) FROM llx_bank WHERE num_releve < $num AND fk_account = $account ORDER BY num_releve DESC"; $result = $db->query($sql); if ($result) { $var=True; $numrows = $db->num_rows(); $i = 0; if ($numrows > 0) { $row = $db->fetch_row(0); $num = $row[0]; } } } elseif ($rel == 'next') { $sql = "SELECT distinct(num_releve) FROM llx_bank WHERE num_releve > $num AND fk_account = $account ORDER BY num_releve ASC"; $result = $db->query($sql); if ($result) { $var=True; $numrows = $db->num_rows(); $i = 0; if ($numrows > 0) { $row = $db->fetch_row(0); $num = $row[0]; } } } print ""; print "
Releve numéro $num<- prev"; print " - next ->
"; print "
"; print ""; print ""; print ""; print ""; print ''; print ''; print ''; print ''; print "\n"; $sql = "SELECT sum(amount) FROM llx_bank WHERE num_releve < $num AND fk_account = $account"; if ( $db->query($sql) ) { $total = $db->result (0, 0); $db->free(); } $sql = "SELECT b.rowid,".$db->pdate("b.dateo")." as do, b.amount, b.label, b.rappro, b.num_releve, b.num_chq, b.fk_type"; $sql .= " FROM llx_bank as b WHERE num_releve=$num AND fk_account = $account"; $sql .= " ORDER BY dateo ASC"; $result = $db->query($sql); if ($result) { $var=True; $numrows = $db->num_rows(); $i = 0; print ""; print "\n"; while ($i < $numrows) { $objp = $db->fetch_object( $i); $total = $total + $objp->amount; $var=!$var; print ""; print "\n"; print ''; print ""; if ($objp->amount < 0) { $totald = $totald + abs($objp->amount); print "\n"; } else { $totalc = $totalc + abs($objp->amount); print "\n"; } print "\n"; print "\n"; print ""; print ""; $i++; } $db->free(); } print ""; print "\n"; print "
DateTypeDescriptionDebitCreditSoldeFrancs
vue etendueTotal :".price($total)."".francs($total)."
".strftime("%d %b %Y",$objp->do)."'.$objp->fk_type.'$objp->num_chq $objp->label"; if ($ve) { $dc = $db->clone(); $sql = "SELECT label FROM llx_bank_categ as ct, llx_bank_class as cl WHERE ct.rowid=cl.fk_categ AND cl.lineid=$objp->rowid"; $resc = $dc->query($sql); if ($resc) { $numc = $dc->num_rows(); $ii = 0; while ($ii < $numc) { $objc = $dc->fetch_object($ii); print "
$objc->label"; $ii++; } } else { print $dc->error(); } } print "
".price($objp->amount * -1)."  ".price($objp->amount)."".price($total)."".francs($objp->amount)."[rowid&account=$account\">edit]
Total :".price($totald)."".price($totalc)." 
Solde :".price($total)."".francs($total)."
"; print "Edit Categories"; print " Categories"; } $db->close(); llxFooter("Dernière modification $Date$ révision $Revision$"); ?>