* Copyright (C) 2004 Eric Seigne * Copyright (C) 2004-2013 Laurent Destailleur * Copyright (C) 2006 Yannick Warnier * Copyright (C) 2014 Ferran Marcet * * 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 3 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, see . */ /** * \file htdocs/compta/tva/clients.php * \ingroup tax * \brief Page des societes */ require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/report.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/tax.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php'; require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/tva.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/ccountry.class.php'; $langs->load("bills"); $langs->load("compta"); $langs->load("companies"); $langs->load("products"); $langs->load("other"); // Date range $year=GETPOST("year"); if (empty($year)) { $year_current = strftime("%Y",dol_now()); $year_start = $year_current; } else { $year_current = $year; $year_start = $year; } $date_start=dol_mktime(0,0,0,$_REQUEST["date_startmonth"],$_REQUEST["date_startday"],$_REQUEST["date_startyear"]); $date_end=dol_mktime(23,59,59,$_REQUEST["date_endmonth"],$_REQUEST["date_endday"],$_REQUEST["date_endyear"]); // Quarter if (empty($date_start) || empty($date_end)) {// We define date_start and date_end $q=GETPOST("q"); if (empty($q)) { if (isset($_REQUEST["month"])) { $date_start=dol_get_first_day($year_start,$_REQUEST["month"],false); $date_end=dol_get_last_day($year_start,$_REQUEST["month"],false); } else { $month_current = strftime("%m",dol_now()); if ($month_current >= 10) $q=4; elseif ($month_current >= 7) $q=3; elseif ($month_current >= 4) $q=2; else $q=1; } } if ($q==1) { $date_start=dol_get_first_day($year_start,1,false); $date_end=dol_get_last_day($year_start,3,false); } if ($q==2) { $date_start=dol_get_first_day($year_start,4,false); $date_end=dol_get_last_day($year_start,6,false); } if ($q==3) { $date_start=dol_get_first_day($year_start,7,false); $date_end=dol_get_last_day($year_start,9,false); } if ($q==4) { $date_start=dol_get_first_day($year_start,10,false); $date_end=dol_get_last_day($year_start,12,false); } } $min = GETPOST("min"); if (empty($min)) { $min = 0; } // Define modetax (0 or 1) // 0=normal, 1=option vat for services is on debit $modetax = $conf->global->TAX_MODE; if (isset($_REQUEST["modetax"])) $modetax=$_REQUEST["modetax"]; if (empty($modetax)) $modetax=0; // Security check $socid = GETPOST('socid','int'); if ($user->societe_id) { $socid=$user->societe_id; } $result = restrictedArea($user, 'tax', '', '', 'charges'); /* * View */ $form=new Form($db); $company_static=new Societe($db); $morequerystring=''; $listofparams=array('date_startmonth','date_startyear','date_startday','date_endmonth','date_endyear','date_endday'); foreach($listofparams as $param) { if (GETPOST($param)!='') { $morequerystring.=($morequerystring?'&':'').$param.'='.GETPOST($param); } } $special_report = false; if (isset($_REQUEST['extra_report']) && $_REQUEST['extra_report'] == 1) { $special_report = true; } llxHeader('','','','',0,0,'','',$morequerystring); $fsearch.='
'; $fsearch.=' '; $fsearch.=' '; $fsearch.=' '.$langs->trans("SalesTurnoverMinimum").': '; $fsearch.=' '; // Affiche en-tete du rapport if ($modetax==1) { // Calculate on invoice for goods and services $name=$langs->trans("VATReportByCustomersInDueDebtMode"); $calcmode=$langs->trans("CalcModeVATDebt"); $calcmode.='
('.$langs->trans("TaxModuleSetupToModifyRules",DOL_URL_ROOT.'/admin/taxes.php').')'; //$name.='
('.$langs->trans("SeeVATReportInInputOutputMode",'','').')'; $period=$form->select_date($date_start,'date_start',0,0,0,'',1,0,1).' - '.$form->select_date($date_end,'date_end',0,0,0,'',1,0,1); //$periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesVATDueServices"); $description.='
'; $description.=$langs->trans("RulesVATDueProducts"); //if ($conf->global->MAIN_MODULE_COMPTABILITE || $conf->global->MAIN_MODULE_ACCOUNTING) $description.='
'.img_warning().' '.$langs->trans('OptionVatInfoModuleComptabilite'); //if (! empty($conf->global->MAIN_MODULE_COMPTABILITE)) $description.='
'.$langs->trans("WarningDepositsNotIncluded"); if (! empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) { $description.='
'.$langs->trans("DepositsAreNotIncluded"); } else { $description.='
'.$langs->trans("DepositsAreIncluded"); } $description.=$fsearch; $description.='
' . ' ' . $langs->trans('SimpleReport') . '' . '
' . ' ' . $langs->trans('AddExtraReport') . '' . '
'; $builddate=time(); //$exportlink=$langs->trans("NotYetAvailable"); $elementcust=$langs->trans("CustomersInvoices"); $productcust=$langs->trans("Description"); $amountcust=$langs->trans("AmountHT"); if ($mysoc->tva_assuj) { $vatcust.=' ('.$langs->trans("ToPay").')'; } $elementsup=$langs->trans("SuppliersInvoices"); $productsup=$langs->trans("Description"); $amountsup=$langs->trans("AmountHT"); if ($mysoc->tva_assuj) { $vatsup.=' ('.$langs->trans("ToGetBack").')'; } } if ($modetax==0) { // Invoice for goods, payment for services $name=$langs->trans("VATReportByCustomersInInputOutputMode"); $calcmode=$langs->trans("CalcModeVATEngagement"); $calcmode.='
('.$langs->trans("TaxModuleSetupToModifyRules",DOL_URL_ROOT.'/admin/taxes.php').')'; //$name.='
('.$langs->trans("SeeVATReportInDueDebtMode",'','').')'; $period=$form->select_date($date_start,'date_start',0,0,0,'',1,0,1).' - '.$form->select_date($date_end,'date_end',0,0,0,'',1,0,1); //$periodlink=($year_start?"".img_previous()." ".img_next()."":""); $description=$langs->trans("RulesVATInServices"); $description.=' '.$langs->trans("DepositsAreIncluded"); $description.='
'; $description.=$langs->trans("RulesVATInProducts"); if (! empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) { $description .= ' ' . $langs->trans("DepositsAreNotIncluded"); } else { $description .= ' ' . $langs->trans("DepositsAreIncluded"); } //if ($conf->global->MAIN_MODULE_COMPTABILITE || $conf->global->MAIN_MODULE_ACCOUNTING) $description.='
'.img_warning().' '.$langs->trans('OptionVatInfoModuleComptabilite'); //if (! empty($conf->global->MAIN_MODULE_COMPTABILITE)) $description.='
'.$langs->trans("WarningDepositsNotIncluded"); $description.=$fsearch; $description.='
' . ' ' . $langs->trans('SimpleReport') . '' . '
' . ' ' . $langs->trans('AddExtraReport') . '' . '
'; $builddate=time(); //$exportlink=$langs->trans("NotYetAvailable"); $elementcust=$langs->trans("CustomersInvoices"); $productcust=$langs->trans("Description"); $amountcust=$langs->trans("AmountHT"); if ($mysoc->tva_assuj) { $vatcust.=' ('.$langs->trans("ToPay").')'; } $elementsup=$langs->trans("SuppliersInvoices"); $productsup=$langs->trans("Description"); $amountsup=$langs->trans("AmountHT"); if ($mysoc->tva_assuj) { $vatsup.=' ('.$langs->trans("ToGetBack").')'; } } report_header($name,$nomlink,$period,$periodlink,$description,$builddate,$exportlink,array(),$calcmode); $vatcust=$langs->trans("VATReceived"); $vatsup=$langs->trans("VATPaid"); // VAT Received //print "
"; //print_titre($vatcust); print ""; print ""; print '"; print '"; print ""; print ""; print ""; print "\n"; $coll_list = vat_by_thirdparty($db,0,$date_start,$date_end,$modetax,'sell'); $action = "tvaclient"; $object = &$coll_list; $parameters["mode"] = $modetax; $parameters["start"] = $date_start; $parameters["end"] = $date_end; $parameters["direction"] = 'sell'; // Initialize technical object to manage hooks of expenses. Note that conf->hooks_modules contains array array $hookmanager->initHooks(array('externalbalance')); $reshook=$hookmanager->executeHooks('addStatisticLine',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks if (is_array($coll_list)) { $var=true; $total = 0; $totalamount = 0; $i = 1; foreach ($coll_list as $coll) { if ($min == 0 or ($min > 0 && $coll->amount > $min)) { $var=!$var; $intra = str_replace($find,$replace,$coll->tva_intra); if(empty($intra)) { if($coll->assuj == '1') { $intra = $langs->trans('Unknown'); } else { //$intra = $langs->trans('NotRegistered'); $intra = ''; } } print ""; print '"; $company_static->id=$coll->socid; $company_static->name=$coll->name; $company_static->client=1; print ''; $find = array(' ','.'); $replace = array('',''); print '"; print ""; print ""; $totalamount = $totalamount + $coll->amount; $total = $total + $coll->tva; print "\n"; $i++; } } $x_coll_sum = $total; print ''; print ''; print ''; print ''; } else { $langs->load("errors"); 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("AmountHTVATRealReceived")."	".$vatcust."
'.$i."	'.$company_static->getNomUrl(1,'customer').'	'.$intra."	".price($coll->amount)."	".price($coll->tva)."
'.$langs->trans("Total").':			'.price($totalamount).'	'.price($total).'
' . $langs->trans("ErrorNoAccountancyModuleLoaded") . '
' . $langs->trans("FeatureNotYetAvailable") . '
' . $langs->trans("Error") . '

'; // VAT Paid //print "
"; //print_titre($vatsup); //print ""; print ""; print '"; print '"; print ""; print ""; print ""; print "\n"; $company_static=new Societe($db); $coll_list = vat_by_thirdparty($db,0,$date_start,$date_end,$modetax,'buy'); $parameters["direction"] = 'buy'; $reshook=$hookmanager->executeHooks('addStatisticLine',$parameters,$object,$action); // Note that $action and $object may have been modified by some hooks if (is_array($coll_list)) { $var=true; $total = 0; $totalamount = 0; $i = 1; foreach ($coll_list as $coll) { if ($min == 0 or ($min > 0 && $coll->amount > $min)) { $var=!$var; $intra = str_replace($find,$replace,$coll->tva_intra); if (empty($intra)) { if ($coll->assuj == '1') { $intra = $langs->trans('Unknown'); } else { //$intra = $langs->trans('NotRegistered'); $intra = ''; } } print ""; print '"; $company_static->id=$coll->socid; $company_static->name=$coll->name; $company_static->fournisseur=1; print ''; $find = array(' ','.'); $replace = array('',''); print '"; print ""; print ""; $totalamount = $totalamount + $coll->amount; $total = $total + $coll->tva; print "\n"; $i++; } } $x_paye_sum = $total; print ''; print ''; print ''; print ''; print '

'.$langs->trans("Num")."	'.$langs->trans("Supplier")."	".$langs->trans("VATIntra")."	".$langs->trans("AmountHTVATRealPaid")."	".$vatsup."
'.$i."	'.$company_static->getNomUrl(1,'supplier').'	'.$intra."	".price($coll->amount)."	".price($coll->tva)."
'.$langs->trans("Total").':			'.price($totalamount).'	'.price($total).'

'; // Total to pay print '

'; print ''; $diff = $x_coll_sum - $x_paye_sum; print ''; print ''; print '\n"; print "\n"; } else { $langs->load("errors"); if ($coll_list == -1) { print ''; } else if ($coll_list == -2) { print ''; } else { print ''; } } print '

'.$langs->trans("TotalToPay").($q?', '.$langs->trans("Quadri").' '.$q:'').'				'.price(price2num($diff,'MT'))."
' . $langs->trans("ErrorNoAccountancyModuleLoaded") . '
' . $langs->trans("FeatureNotYetAvailable") . '
' . $langs->trans("Error") . '

'; if ($special_report) { // Get country 2-letters code global $mysoc; $country_id = $mysoc->country_id; $country = new Ccountry($db); $country->fetch($country_id); // Print listing of other-country customers as additional report // This matches tax requirements to list all same-country customers (only) print '

'.$langs->trans('OtherCountriesCustomersReport').'

'; print $langs->trans('BasedOnTwoFirstLettersOfVATNumberBeingDifferentFromYourCompanyCountry'); $coll_list = vat_by_thirdparty($db, 0, $date_start, $date_end, $modetax, 'sell'); print ""; print ""; print '"; print '"; print ""; print ""; print ""; print "\n"; if (is_array($coll_list)) { $var = true; $total = 0; $totalamount = 0; $i = 1; foreach ($coll_list as $coll) { if (substr($coll->tva_intra, 0, 2) == $country->code) { // Only use different-country VAT codes continue; } if ($min == 0 or ($min > 0 && $coll->amount > $min)) { $var = !$var; $intra = str_replace($find, $replace, $coll->tva_intra); if (empty($intra)) { if ($coll->assuj == '1') { $intra = $langs->trans('Unknown'); } else { //$intra = $langs->trans('NotRegistered'); $intra = ''; } } print ""; print '"; $company_static->id = $coll->socid; $company_static->name = $coll->name; $company_static->client = 1; print ''; $find = array(' ', '.'); $replace = array('', ''); print '"; print ""; print ""; $totalamount = $totalamount + $coll->amount; $total = $total + $coll->tva; print "\n"; $i++; } } $x_coll_sum = $total; print ''; print ''; print ''; print ''; } else { $langs->load("errors"); 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("AmountHTVATRealReceived") . "	" . $vatcust . "
' . $i . "	' . $company_static->getNomUrl(1, 'customer') . '	' . $intra . "	" . price($coll->amount) . "	" . price($coll->tva) . "
' . $langs->trans("Total") . ':			' . price($totalamount) . '	' . price($total) . '
' . $langs->trans("ErrorNoAccountancyModuleLoaded") . '
' . $langs->trans("FeatureNotYetAvailable") . '
' . $langs->trans("Error") . '

'; // Print listing of same-country customers as additional report // This matches tax requirements to list all same-country customers (only) print '

'.$langs->trans('SameCountryCustomersWithVAT').'

'; print $langs->trans('BasedOnTwoFirstLettersOfVATNumberBeingTheSameAsYourCompanyCountry'); $coll_list = vat_by_thirdparty($db, 0, $date_start, $date_end, $modetax, 'sell'); print ""; print ""; print '"; print '"; print ""; print ""; print ""; print "\n"; if (is_array($coll_list)) { $var = true; $total = 0; $totalamount = 0; $i = 1; foreach ($coll_list as $coll) { if (substr($coll->tva_intra, 0, 2) != $country->code) { // Only use same-country VAT codes continue; } if ($min == 0 or ($min > 0 && $coll->amount > $min)) { $var = !$var; $intra = str_replace($find, $replace, $coll->tva_intra); if (empty($intra)) { if ($coll->assuj == '1') { $intra = $langs->trans('Unknown'); } else { //$intra = $langs->trans('NotRegistered'); $intra = ''; } } print ""; print '"; $company_static->id = $coll->socid; $company_static->name = $coll->name; $company_static->client = 1; print ''; $find = array(' ', '.'); $replace = array('', ''); print '"; print ""; print ""; $totalamount = $totalamount + $coll->amount; $total = $total + $coll->tva; print "\n"; $i++; } } $x_coll_sum = $total; print ''; print ''; print ''; print ''; } else { $langs->load("errors"); 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("AmountHTVATRealReceived") . "	" . $vatcust . "
' . $i . "	' . $company_static->getNomUrl(1, 'customer') . '	' . $intra . "	" . price($coll->amount) . "	" . price($coll->tva) . "
' . $langs->trans("Total") . ':			' . price($totalamount) . '	' . price($total) . '
' . $langs->trans("ErrorNoAccountancyModuleLoaded") . '
' . $langs->trans("FeatureNotYetAvailable") . '
' . $langs->trans("Error") . '

'; } llxFooter(); $db->close();