* Copyright (C) 2004 Laurent Destailleur * * 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$ * *******************************************************************************/ require("./pre.inc.php"); require("./bank.lib.php"); $user->getrights('banque'); if (!$user->rights->banque->lire) accessforbidden(); llxHeader(); if ($vline) { $viewline = $vline; } else { $viewline = 50; } print_titre("Recherche écriture bancaire"); print '
'; print ''; print ""; print ""; print ""; print ""; print ""; print ""; print "\n"; ?> query($sql) ) { $nbline = $db->result (0, 0); $db->free(); } // Defini la liste des catégories dans $options $sql = "SELECT rowid, label FROM ".MAIN_DB_PREFIX."bank_categ;"; $result = $db->query($sql); if ($result) { $var=True; $num = $db->num_rows(); $i = 0; $options = ""; while ($i < $num) { $obj = $db->fetch_object($i); $options .= "\n"; $i++; } $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_account, b.fk_type, ba.label as labelaccount"; $sql .= " FROM ".MAIN_DB_PREFIX."bank as b, ".MAIN_DB_PREFIX."bank_account as ba"; $sql .= " WHERE b.fk_account=ba.rowid"; $sql .= " AND fk_type like '" . $type . "'"; $si=0; $debit = ereg_replace(',','.',$debit); $credit = ereg_replace(',','.',$credit); if (is_numeric($debit)) { $si++; $sqlw[$si] .= " b.amount = " . -$debit; } if (is_numeric($credit)) { $si++; $sqlw[$si] .= " b.amount = " . $credit; } if ($description) { $si++; $sqlw[$si] .= " b.label like '%" . $description . "%'"; } for ($i = 1 ; $i <= $si; $i++) { $sql .= " AND " . $sqlw[$i]; } $sql .= " ORDER BY b.dateo ASC"; $result = $db->query($sql); if ($result) { $var=True; $num = $db->num_rows(); $i = 0; while ($i < $num) { $objp = $db->fetch_object( $i); $var=!$var; print ""; print "\n"; print "\n"; } else { print "\n"; } print "\n"; print "\n"; print ""; $i++; } $db->free(); } else { print $db->error() .'
' . $sql .'
'; } print "
DateDescriptionDebitCreditTypeCompte
  > > >
".strftime("%d %b %y",$objp->do)."rowid&account=$objp->fk_account\">$objp->label "; if ($objp->amount < 0) { print "".price($objp->amount * -1)."  ".price($objp->amount)."".$objp->fk_type."".$objp->labelaccount."
"; // Si accès issu d'une recherche et rien de trouvé if ($_POST["submit"] && ! $num) { print "Aucune écriture bancaire répondant aux critères n'a été trouvée."; } $db->close(); llxFooter("Dernière modification $Date$ révision $Revision$"); ?>