* Copyright (C) 2004 Laurent Destailleur * * $Id$ * $Source$ * * 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. * */ require("./pre.inc.php"); llxHeader(); $sql = "SELECT rowid, number, label FROM ".MAIN_DB_PREFIX."compta_account ORDER BY number"; if ( $db->query($sql) ) { $num = $db->num_rows(); $i = 0; $options = ""; while ($i < $num) { $obj = $db->fetch_object(); $options .= "rowid\">$obj->number\n"; $i++; } $db->free(); } if ($action == 'add') { $sql = "INSERT INTO ".MAIN_DB_PREFIX."compta (datec, fk_compta_account, label, amount)"; $sql .= " VALUES (now(),$number, '$label',$amount)"; $db->query($sql); } /* * * Mode creation * * * */ if ($action == 'create') { // } else { /* * * Liste * * */ print_barre_liste("Comptes comptable",$page,"ligne.php"); print ""; print ''; print_liste_field_titre($langs->trans("Ref"),"ligne.php","id"); print_liste_field_titre($langs->trans("Label"),"ligne.php","label"); print ''; print "\n"; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $sql = "SELECT ca.number, c.label, c.amount"; $sql .= " FROM ".MAIN_DB_PREFIX."compta_account as ca, ".MAIN_DB_PREFIX."compta as c WHERE c.fk_compta_account = ca.rowid"; $sql .= " ORDER BY ca.number"; $result = $db->query($sql); if ($result) { $num = $db->num_rows(); $i = 0; if ($num > 0) { $var=True; while ($i < $num) { $objp = $db->fetch_object($result); $var=!$var; print ""; print ''; print ''; print ''; print "\n"; $i++; } } $db->free(); } else { print $db->error(); } print "

'.$langs->trans("Amount").'
'.$options.'
'.$objp->number.'	'.$objp->label.'	'.price($objp->amount).'

"; } $db->close(); llxFooter("Dernière modification $Date$ révision $Revision$"); ?>