* Copyright (C) 2004-2005 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$ * */ /** \file htdocs/compta/resultat/clientfourn.php \brief Page reporting resultat \version $Revision$ */ require("./pre.inc.php"); require_once("../../tva.class.php"); require_once("../../chargesociales.class.php"); $langs->load("bills"); $user->getrights('compta'); if (!$user->rights->compta->resultat->lire) accessforbidden(); $year=$_GET["year"]; if (! $year) { $year = strftime("%Y", time()); } $modecompta = $conf->compta->mode; if ($_GET["modecompta"]) $modecompta=$_GET["modecompta"]; llxHeader(); $html=new Form($db); // Affiche en-tête de rapport if ($modecompta=="CREANCES-DETTES") { $nom="Bilan des recettes et dépenses, détail"; $nom.=' (Voir le rapport en recettes-dépenses pour n\'inclure que les factures effectivement payées)'; $period=$langs->trans("Year")." ".$year; $periodlink=''.img_previous().' '.img_next().''; $description=$langs->trans("RulesResultDue"); $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); } else { $nom="Bilan des recettes et dépenses, détail"; $nom.=' (Voir le rapport en créances-dettes pour inclure les factures non encore payée)'; $period=$langs->trans("Year")." ".$year; $periodlink=''.img_previous().' '.img_next().''; $description=$langs->trans("RulesResultInOut"); $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); } $html->report_header($nom,$nomlink,$period,$periodlink,$description,$builddate,$exportlink); // Affiche rapport print ''; print ''; print ''; if ($modecompta == 'CREANCES-DETTES') print ""; print ""; print "\n"; print ''; /* * Factures clients */ print ''; if ($modecompta == 'CREANCES-DETTES') { $sql = "SELECT s.nom, s.idp, sum(f.total) as amount_ht, sum(f.total_ttc) as amount_ttc"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."facture as f"; $sql .= " WHERE f.fk_soc = s.idp AND f.fk_statut = 1"; if ($year) $sql .= " AND f.datef between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } else { /* * Liste des paiements (les anciens paiements ne sont pas vus par cette requete car, sur les * vieilles versions, ils n'étaient pas liés via paiement_facture. On les ajoute plus loin) */ $sql = "SELECT s.nom as nom, s.idp as idp, sum(pf.amount) as amount_ttc"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."facture as f, ".MAIN_DB_PREFIX."paiement_facture as pf, ".MAIN_DB_PREFIX."paiement as p"; $sql .= " WHERE p.rowid = pf.fk_paiement AND pf.fk_facture = f.rowid AND f.fk_soc = s.idp"; if ($year) $sql .= " AND p.datep between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY nom"; $sql .= " ORDER BY nom"; $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; $var=true; while ($i < $num) { $objp = $db->fetch_object($result); $var=!$var; print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; $total_ht = $total_ht + $objp->amount_ht; $total_ttc = $total_ttc + $objp->amount_ttc; print "\n"; $i++; } $db->free($result); } else { dolibarr_print_error($db); } // On ajoute les paiements anciennes version, non liés par paiement_facture if ($modecompta != 'CREANCES-DETTES') { $sql = "SELECT 'Autres' as nom, '0' as idp, sum(p.amount) as amount_ttc"; $sql .= " FROM ".MAIN_DB_PREFIX."paiement as p"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."paiement_facture as pf ON p.rowid = pf.fk_paiement"; $sql .= " WHERE pf.rowid IS NULL"; if ($year) $sql .= " AND p.datep between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; $sql .= " GROUP BY nom"; $sql .= " ORDER BY nom"; $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; if ($num) { while ($i < $num) { $objp = $db->fetch_object($result); $var=!$var; print ""; print "\n"; print "\n"; $total_ht = $total_ht + $objp->amount_ht; $total_ttc = $total_ttc + $objp->amount_ttc; print "\n"; $i++; } } $db->free($result); } else { dolibarr_print_error($db); } } if ($total_ttc == 0) { $var=!$var; print ""; print ''; print ''; } print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; /* * Frais, factures fournisseurs. */ if ($modecompta == 'CREANCES-DETTES') { $sql = "SELECT s.nom, s.idp, sum(f.total_ht) as amount_ht, sum(f.total_ttc) as amount_ttc, date_format(f.datef,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s,".MAIN_DB_PREFIX."facture_fourn as f"; $sql .= " WHERE f.fk_soc = s.idp AND f.fk_statut = 1"; if ($year) { $sql .= " AND f.datef between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } } else { $sql = "SELECT s.nom, s.idp, sum(p.amount) as amount_ttc, date_format(p.datep,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."paiementfourn as p"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as f"; $sql .= " ON f.rowid = p.fk_facture_fourn"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s"; $sql .= " ON f.fk_soc = s.idp"; $sql .= " WHERE 1=1"; if ($year) { $sql .= " AND p.datep between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } } $sql .= " GROUP BY nom, idp"; $sql .= " ORDER BY nom, idp"; print ''; $subtotal_ht = 0; $subtotal_ttc = 0; $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; $var=true; if ($num > 0) { while ($i < $num) { $objp = $db->fetch_object($result); $var=!$var; print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; $total_ht = $total_ht - $objp->amount_ht; $total_ttc = $total_ttc - $objp->amount_ttc; $subtotal_ht = $subtotal_ht + $objp->amount_ht; $subtotal_ttc = $subtotal_ttc + $objp->amount_ttc; print "\n"; $i++; } } else { $var=!$var; print ""; print ''; print ''; } $db->free($result); } else { dolibarr_print_error($db); } print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; /* * TVA */ print ''; $subtotal_ht = 0; $subtotal_ttc = 0; if ($modecompta == 'CREANCES-DETTES') { // TVA à payer $obj->amount=0; $sql = "SELECT sum(f.tva) as amount, date_format(f.datef,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."facture as f"; $sql .= " WHERE f.fk_statut = 1"; if ($year) { $sql .= " AND f.datef between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY dm DESC"; $result=$db->query($sql); if ($result) { $num = $db->num_rows($result); $var=false; $i = 0; if ($num) { while ($i < $num) { $obj = $db->fetch_object($result); $total_ht = $total_ht - $obj->amount; $total_ttc = $total_ttc - $obj->amount; $subtotal_ht = $subtotal_ht - $obj->amount; $subtotal_ttc = $subtotal_ttc - $obj->amount; $i++; } } } else { dolibarr_print_error($db); } print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; print "\n"; // TVA à récupérer $obj->amount=0; $sql = "SELECT sum(f.total_tva) as amount, date_format(f.datef,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."facture_fourn as f"; $sql .= " WHERE f.fk_statut = 1"; if ($year) { $sql .= " AND f.datef between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY dm DESC"; $result=$db->query($sql); if ($result) { $num = $db->num_rows($result); $var=true; $i = 0; if ($num) { while ($i < $num) { $obj = $db->fetch_object($result); $total_ht = $total_ht + $obj->amount; $total_ttc = $total_ttc + $obj->amount; $subtotal_ht = $subtotal_ht + $obj->amount; $subtotal_ttc = $subtotal_ttc + $obj->amount; $i++; } } } else { dolibarr_print_error($db); } print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; print "\n"; } else { // TVA payée $obj->amount=0; $sql = "SELECT sum(t.amount) as amount, date_format(t.datev,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."tva as t"; $sql .= " WHERE amount > 0"; if ($year) { $sql .= " AND t.datev between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY dm DESC"; $result=$db->query($sql); if ($result) { $num = $db->num_rows($result); $var=false; $i = 0; if ($num) { while ($i < $num) { $obj = $db->fetch_object($result); $total_ht = $total_ht - $obj->amount; $total_ttc = $total_ttc - $obj->amount; $subtotal_ht = $subtotal_ht - $obj->amount; $subtotal_ttc = $subtotal_ttc - $obj->amount; $i++; } } } else { dolibarr_print_error($db); } print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; print "\n"; // TVA récupérée $obj->amount=0; $sql = "SELECT sum(t.amount) as amount, date_format(t.datev,'%Y-%m') as dm"; $sql .= " FROM ".MAIN_DB_PREFIX."tva as t"; $sql .= " WHERE amount < 0"; if ($year) { $sql .= " AND t.datev between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY dm DESC"; $result=$db->query($sql); if ($result) { $num = $db->num_rows($result); $var=true; $i = 0; if ($num) { while ($i < $num) { $obj = $db->fetch_object($result); $total_ht = $total_ht + $obj->amount; $total_ttc = $total_ttc + $obj->amount; $subtotal_ht = $subtotal_ht + $obj->amount; $subtotal_ttc = $subtotal_ttc + $obj->amount; $i++; } } } else { dolibarr_print_error($db); } print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; print "\n"; } print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; /* * Charges sociales non déductibles */ print ''; if ($modecompta == 'CREANCES-DETTES') { $sql = "SELECT c.libelle as nom, sum(s.amount) as amount"; $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."chargesociales as s"; $sql .= " WHERE s.fk_type = c.id AND c.deductible=0"; if ($year) { $sql .= " AND s.date_ech between '$year-01-01 00:00:00' and '$year-12-31 23:59:59'"; } $sql .= " GROUP BY c.libelle"; } else { $sql = "SELECT c.libelle as nom, sum(p.amount) as amount"; $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."chargesociales as s, ".MAIN_DB_PREFIX."paiementcharge as p"; $sql .= " WHERE p.fk_charge = s.rowid AND s.fk_type = c.id AND c.deductible=0"; if ($year) { $sql .= " AND p.datep between '$year-01-01 00:00:00' and '$year-12-31 23:59:59'"; } $sql .= " GROUP BY c.libelle"; } $result=$db->query($sql); $subtotal_ht = 0; $subtotal_ttc = 0; if ($result) { $num = $db->num_rows($result); $var=true; $i = 0; if ($num) { while ($i < $num) { $obj = $db->fetch_object($result); $total_ht = $total_ht - $obj->amount; $total_ttc = $total_ttc - $obj->amount; $subtotal_ht = $subtotal_ht + $obj->amount; $subtotal_ttc = $subtotal_ttc + $obj->amount; $var = !$var; print ""; print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; $i++; } } else { print ""; print ''; print ''; } } else { dolibarr_print_error($db); } print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; /* * Charges sociales déductibles */ print ''; if ($modecompta == 'CREANCES-DETTES') { $sql = "SELECT c.libelle as nom, sum(s.amount) as amount"; $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."chargesociales as s"; $sql .= " WHERE s.fk_type = c.id AND c.deductible=1"; if ($year) { $sql .= " AND s.date_ech between '$year-01-01 00:00:00' and '$year-12-31 23:59:59'"; } $sql .= " GROUP BY c.libelle DESC"; } else { $sql = "SELECT c.libelle as nom, sum(p.amount) as amount"; $sql .= " FROM ".MAIN_DB_PREFIX."c_chargesociales as c, ".MAIN_DB_PREFIX."chargesociales as s, ".MAIN_DB_PREFIX."paiementcharge as p"; $sql .= " WHERE p.fk_charge = s.rowid AND s.fk_type = c.id AND c.deductible=1"; if ($year) { $sql .= " AND p.datep between '$year-01-01 00:00:00' and '$year-12-31 23:59:59'"; } $sql .= " GROUP BY c.libelle"; } $result=$db->query($sql); $subtotal_ht = 0; $subtotal_ttc = 0; if ($result) { $num = $db->num_rows($result); $var=false; $i = 0; if ($num) { while ($i < $num) { $obj = $db->fetch_object($result); $total_ht = $total_ht - $obj->amount; $total_ttc = $total_ttc - $obj->amount; $subtotal_ht = $subtotal_ht + $obj->amount; $subtotal_ttc = $subtotal_ttc + $obj->amount; $var = !$var; print ""; print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; $i++; } } else { print ""; print ''; print ''; } } else { dolibarr_print_error($db); } print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; // Total print ''; print ''; print ''; print ''; if ($modecompta == 'CREANCES-DETTES') print ''; print ''; print ''; print "

	'.$langs->trans("Element").'	".$langs->trans("AmountHT")."	".$langs->trans("AmountTTC")."
Facturation clients
	".$langs->trans("Bills")." idp\">$objp->nom	".price($objp->amount_ht)."	".price($objp->amount_ttc)."
	".$langs->trans("Bills")." ".$langs->trans("Other")." (anciens paiements liés à aucune facture)\n"; if ($modecompta == 'CREANCES-DETTES') print "	".price($objp->amount_ht)."	".price($objp->amount_ttc)."
	'.$langs->trans("None").'
'.price($total_ht).'			'.price($total_ttc).'
Facturation fournisseurs
	".$langs->trans("Bills")." idp."\">$objp->nom	".price(-$objp->amount_ht)."	".price(-$objp->amount_ttc)."
	'.$langs->trans("None").'
'.price(-$subtotal_ht).'			'.price(-$subtotal_ttc).'
'.$langs->trans("VAT").'
	".$langs->trans("VATToPay")."	".price(-$obj->amount)."	".price(-$obj->amount)."
	".$langs->trans("VATToCollect")."	".price($obj->amount)."	".price($obj->amount)."
	".$langs->trans("VATToPay")."	".price(-$obj->amount)."	".price(-$obj->amount)."
	".$langs->trans("VATToCollect")."	".price($obj->amount)."	".price($obj->amount)."
'.price($subtotal_ht).'			'.price($subtotal_ttc).'
Prestations/Charges NON déductibles
	'.$obj->nom.'	'.price(-$obj->amount).'	'.price(-$obj->amount).'
	'.$langs->trans("None").'
'.price(-$subtotal_ht).'			'.price(-$subtotal_ttc).'
Prestations/Charges déductibles
	'.$obj->nom.'	'.price(-$obj->amount).'	'.price(-$obj->amount).'
	'.$langs->trans("None").'
'.price(-$subtotal_ht).'			'.price(-$subtotal_ttc).'
'.$langs->trans("Profit").'		'.price($total_ht).'	'.price($total_ttc).'

"; print '
'; $db->close(); llxFooter('$Date$ - $Revision$'); ?>