* Copyright (C) 2004 Éric Seigne * Copyright (C) 2004-2008 Laurent Destailleur * Copyright (C) 2006 Yannick Warnier * * 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/tva/clients.php \ingroup tax \brief Page des societes \version $Id$ */ require("./pre.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/report.lib.php"); require_once(DOL_DOCUMENT_ROOT."/lib/tax.lib.php"); require_once(DOL_DOCUMENT_ROOT."/compta/tva/tva.class.php"); $langs->load("bills"); $langs->load("compta"); $langs->load("companies"); $langs->load("products"); $year=$_GET["year"]; if ($year == 0 or $year!=intval(strval($year))) { $year_current = strftime("%Y",time()); $year_start = $year_current; } else { $year_current = $year; $year_start = $year; } $min = $_GET["min"]; if($min == 0 or $min!=floatval(strval($min))){ $min = 0.00; }else{ //keep min } // Define modetax (0 or 1) $modetax = $conf->global->TAX_MODE; if ($_GET["modetax"]) $modetax=$_GET["modetax"]; /* * Code */ llxHeader(); $company_static=new Societe($db); //print_fiche_titre($langs->trans("VAT"),""); $fsearch='

'; $fsearch.=' '; $fsearch.=' '.$langs->trans("SalesTurnover").' '.$langs->trans("Minimum").': '; $fsearch.=' '; $fsearch.=' '; $fsearch.='

'; // Affiche en-tête du rapport if ($modetax==1) // Calculate on invoice for goods and services { $nom=$langs->trans("VATReportByCustomersInDueDebtMode"); $nom.='
('.$langs->trans("SeeVATReportInInputOutputMode",'','').')'; $period=$year_start; $periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesVATDue"); if ($conf->global->MAIN_MODULE_COMPTABILITE) $description.='
'.img_warning().' '.$langs->trans('OptionVatInfoModuleComptabilite'); $description.=$fsearch; $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); $elementcust=$langs->trans("CustomersInvoices"); $productcust=$langs->trans("Description"); $amountcust=$langs->trans("AmountHT"); $vatcust=$langs->trans("VATReceived"); if ($conf->global->FACTURE_TVAOPTION != 'franchise') $vatcust.=' ('.$langs->trans("ToPay").')'; $elementsup=$langs->trans("SuppliersInvoices"); $productsup=$langs->trans("Description"); $amountsup=$langs->trans("AmountHT"); $vatsup=$langs->trans("VATPayed"); if ($conf->global->FACTURE_TVAOPTION != 'franchise') $vatsup.=' ('.$langs->trans("ToGetBack").')'; } if ($modetax==0) // Invoice for goods, payment for services { $nom=$langs->trans("VATReportByCustomersInInputOutputMode"); $nom.='
('.$langs->trans("SeeVATReportInDueDebtMode",'','').')'; $period=$year_start; $periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesVATIn"); if ($conf->global->MAIN_MODULE_COMPTABILITE) $description.='
'.img_warning().' '.$langs->trans('OptionVatInfoModuleComptabilite'); $description.=$fsearch; $builddate=time(); $exportlink=$langs->trans("NotYetAvailable"); $elementcust=$langs->trans("CustomersInvoices"); $productcust=$langs->trans("Description"); $amountcust=$langs->trans("AmountHT"); $vatcust=$langs->trans("VATReceived"); if ($conf->global->FACTURE_TVAOPTION != 'franchise') $vatcust.=' ('.$langs->trans("ToPay").')'; $elementsup=$langs->trans("SuppliersInvoices"); $productsup=$langs->trans("Description"); $amountsup=$langs->trans("AmountHT"); $vatsup=$langs->trans("VATPayed"); if ($conf->global->FACTURE_TVAOPTION != 'franchise') $vatsup.=' ('.$langs->trans("ToGetBack").')'; } report_header($nom,$nomlink,$period,$periodlink,$description,$builddate,$exportlink); // VAT Received print "
"; print_fiche_titre($vatcust); print ""; print ""; print '"; print '"; print ""; print ""; print ""; print "\n"; $coll_list = vat_by_thirdparty($db,$year_current,$modetax,'sell'); if (is_array($coll_list)) { $var=true; $total = 0; $subtotal = 0; $i = 1; foreach($coll_list as $coll) { if($min == 0 or ($min>0 and $coll[2]>$min)) { $var=!$var; $intra = str_replace($find,$replace,$coll[1]); if(empty($intra)) { if($coll[4] == '1') { $intra = $langs->trans('Unknown'); } else { $intra = $langs->trans('NotRegistered'); } } print ""; print ""; $company_static->id=$coll[5]; $company_static->nom=$coll[0]; print ''; $find = array(' ','.'); $replace = array('',''); print ""; print ""; print ""; $total = $total + $coll[3]; print "\n"; $i++; } } print ''; print ''; } else { if ($coll_list == -1) print ''; else if ($coll_list == -2) print ''; else print ''; } print '

'.$langs->trans("Num")."	'.$langs->trans("Customer")."	".$langs->trans("VATIntra")."	".$langs->trans("SalesTurnover")." ".$langs->trans("HT")."	".$vatcust."
".$i."	'.$company_static->getNomUrl(1).'	".$intra."	".price($coll[2])."	".price($coll[3])."
'.$langs->trans("TotalVATReceived").':				'.price($total).'
'.$langs->trans("NoAccountancyModuleLoaded").'
'.$langs->trans("FeatureNotYetAvailable").'
'.$langs->trans("Error").'

'; // VAT Payed print "
"; print_fiche_titre($vatsup); print ""; print ""; print '"; print '"; print ""; print ""; print ""; print "\n"; $company_static=new Societe($db); $coll_list = vat_by_thirdparty($db,$year_current,$modetax,'buy'); if (is_array($coll_list)) { $var=true; $total = 0; $subtotal = 0; $i = 1; foreach($coll_list as $coll) { if($min == 0 or ($min>0 and $coll[2]>$min)) { $var=!$var; $intra = str_replace($find,$replace,$coll[1]); if(empty($intra)) { if($coll[4] == '1') { $intra = $langs->trans('Unknown'); } else { $intra = $langs->trans('NotRegistered'); } } print ""; print ""; $company_static->id=$coll[5]; $company_static->nom=$coll[0]; print ''; $find = array(' ','.'); $replace = array('',''); print ""; print ""; print ""; $total = $total + $coll[3]; print "\n"; $i++; } } print ''; print ''; } else { if ($coll_list == -1) print ''; else if ($coll_list == -2) print ''; else print ''; } print '

'.$langs->trans("Num")."	'.$langs->trans("Supplier")."	".$langs->trans("VATIntra")."	".$langs->trans("Outcome")." ".$langs->trans("HT")."	".$vatsup."
".$i."	'.$company_static->getNomUrl(1).'	".$intra."	".price($coll[2])."	".price($coll[3])."
'.$langs->trans("TotalVATReceived").':				'.price($total).'
'.$langs->trans("NoAccountancyModuleLoaded").'
'.$langs->trans("FeatureNotYetAvailable").'
'.$langs->trans("Error").'

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