* Copyright (C) 2004-2008 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. */ /** \file htdocs/compta/resultat/clientfourn.php \brief Page reporting resultat \version $Id$ */ require("./pre.inc.php"); require_once(DOL_DOCUMENT_ROOT."/compta/tva/tva.class.php"); require_once(DOL_DOCUMENT_ROOT."/chargesociales.class.php"); require_once(DOL_DOCUMENT_ROOT."/lib/report.lib.php"); $langs->load("bills"); if (!$user->rights->facture->lire) accessforbidden(); $year=$_GET["year"]; if (! $year) { $year = strftime("%Y", time()); } // Define modecompta ('CREANCES-DETTES' or 'RECETTES-DEPENSES') $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=$langs->trans("AnnualByCompaniesDueDebtMode"); $nom.='
('.$langs->trans("SeeReportInInputOutputMode",'','').')'; $period=$langs->trans("Year")." ".$year; $periodlink=''.img_previous().' '.img_next().''; $description=$langs->trans("RulesResultDue"); $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); } else { $nom=$langs->trans("AnnualByCompaniesInputOutputMode"); $nom.='
('.$langs->trans("SeeReportInDueDebtMode",'','').')'; $period=$langs->trans("Year")." ".$year; $periodlink=''.img_previous().' '.img_next().''; $description=$langs->trans("RulesResultInOut"); $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); } 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.rowid as socid, 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.rowid AND f.fk_statut in (1,2)"; 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'etaient pas lies via paiement_facture. On les ajoute plus loin) */ $sql = "SELECT s.nom as nom, s.rowid as socid, 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.rowid"; if ($year) $sql .= " AND p.datep between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } if ($socid) $sql .= " AND f.fk_soc = $socid"; $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 clients 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.rowid as socid, 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.rowid AND f.fk_statut in (1,2)"; 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.rowid as socid, date_format(p.datep,'%Y-%m') as dm, sum(pf.amount) as amount_ttc"; $sql .= " FROM ".MAIN_DB_PREFIX."paiementfourn as p, ".MAIN_DB_PREFIX."paiementfourn_facturefourn as pf"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture_fourn as f"; $sql .= " ON pf.fk_facturefourn = f.rowid"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s"; $sql .= " ON f.fk_soc = s.rowid"; $sql .= " WHERE p.rowid = pf.fk_paiementfourn "; if ($year) { $sql .= " AND p.datep between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } } if ($socid) { $sql .= " AND f.fk_soc = ".$socid; } $sql .= " GROUP BY nom, s.rowid"; $sql .= " ORDER BY nom, s.rowid"; 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 $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 in (1,2)"; if ($year) { $sql .= " AND f.datef between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY dm"; $sql .= " ORDER 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); $amount = $amount - $obj->amount; $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 $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 in (1,2)"; if ($year) { $sql .= " AND f.datef between '".$year."-01-01 00:00:00' and '".$year."-12-31 23:59:59'"; } $sql .= " GROUP BY dm"; $sql .= " ORDER 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); $amount = $amount + $obj->amount; $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 r�ellement d�j� pay�e $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"; $sql .= " ORDER 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); $amount = $amount - $obj->amount; $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++; } } $db->free($result); } else { dolibarr_print_error($db); } print ""; print "\n"; if ($modecompta == 'CREANCES-DETTES') print "\n"; print "\n"; print "\n"; // TVA r�cup�r�e $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"; $sql .= " ORDER 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); $amount = $amount + $obj->amount; $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++; } } $db->free($result); } 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 deductibles */ 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 deductibles */ 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")." socid."\">$objp->nom	".price($objp->amount_ht)."	".price($objp->amount_ttc)."
	".$langs->trans("Bills")." ".$langs->trans("Other")." (".$langs->trans("PaymentsNotLinkedToInvoice").")\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")." socid."\">".$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($amount)."	".price($amount)."
	".$langs->trans("VATToCollect")."	".price($amount)."	".price($amount)."
	".$langs->trans("VATPayed")."	".price($amount)."	".price($amount)."
	".$langs->trans("VATCollected")."	".price($amount)."	".price($amount)."
'.price($subtotal_ht).'			'.price($subtotal_ttc).'
Prestations/Charges NON deductibles
	'.$obj->nom.'	'.price(-$obj->amount).'	'.price(-$obj->amount).'
	'.$langs->trans("None").'
'.price(-$subtotal_ht).'			'.price(-$subtotal_ttc).'
Prestations/Charges deductibles
	'.$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$'); ?>