* Copyright (C) 2003 Association FSF France * 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$ * */ $conf = new Conf(); $conf->db->type = $dolibarr_main_db_type; $conf->db->host = $dolibarr_main_db_host; $conf->db->name = $dolibarr_main_db_name; $conf->db->user = $dolibarr_main_db_user; $conf->db->pass = $dolibarr_main_db_pass; $db = new DoliDb($conf->db->type,$conf->db->host,$conf->db->user,$conf->db->pass,$conf->db->name); $sql = "SELECT ".$db->pdate("f.datef")." as datef, s.nom, f.total, f.note, f.paye"; $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f, ".MAIN_DB_PREFIX."societe as s"; $sql .= " WHERE f.fk_soc = s.idp ORDER BY f.datef DESC"; if ( $db->query( $sql) ) { $num = $db->num_rows(); if ($num) { print ""; print ''; print ""; print ""; print ""; print "\n"; $var=True; $bc[1]='bgcolor="#f5f5f5"'; $bc[0]='bgcolor="#f0f0f0"'; while ($i < $num) { $objp = $db->fetch_object( $i); $var=!$var; print ""; print "\n"; print "\n"; print ''; print ""; print ""; $total += $objp->total; $i++; } $var=!$var; print ""; print ''; $var=!$var; print ""; print ''; $var=!$var; print ""; print ''; print "

Société	Date	Montant
".stripslashes($objp->nom)."	".strftime("%d %B %Y",$objp->datef)."	'.number_format($objp->total,2,'.','').' '.$langs->trans("Currency".$conf->monnaie); if ($objp->paye == 1) { print " payé"; $total_paye += $objp->total; } else { print " A payer"; $total_apayer += $objp->total; } print '
	"; print nl2br(stripslashes($objp->note)); print "
Payé : '.number_format($total_paye,2,'.',' ').' '.$langs->trans("Currency".$conf->monnaie).'
A payer : '.number_format($total_apayer,2,'.',' ').' '.$langs->trans("Currency".$conf->monnaie).'
'.$langs->trans("Total").': '.number_format($total,2,'.',' ').' '.$langs->trans("Currency".$conf->monnaie).'

"; } } else { print $db->error(); } $db->close(); ?>