dolibarr  18.0.0-alpha
clients.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2011-2014 Juanjo Menent <jmenent@2byte.es>
3  * Copyright (C) 2014 Ferran Marcet <fmarcet@2byte.es>
4  * Copyright (C) 2018 Frédéric France <frederic.france@netlogic.fr>
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program. If not, see <https://www.gnu.org/licenses/>.
18  */
19 
26 // Load Dolibarr environment
27 require '../../main.inc.php';
28 require_once DOL_DOCUMENT_ROOT.'/core/lib/report.lib.php';
29 require_once DOL_DOCUMENT_ROOT.'/core/lib/tax.lib.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
31 require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/tva.class.php';
32 require_once DOL_DOCUMENT_ROOT.'/compta/localtax/class/localtax.class.php';
33 
34 // Load translation files required by the page
35 $langs->loadLangs(array("other", "compta", "banks", "bills", "companies", "product", "trips", "admin"));
36 
37 $local = GETPOST('localTaxType', 'int');
38 
39 // Date range
40 $year = GETPOST("year", "int");
41 if (empty($year)) {
42  $year_current = dol_print_date(dol_now('gmt'), "%Y", 'gmt');
43  $year_start = $year_current;
44 } else {
45  $year_current = $year;
46  $year_start = $year;
47 }
48 $date_start = dol_mktime(0, 0, 0, GETPOST("date_startmonth"), GETPOST("date_startday"), GETPOST("date_startyear"));
49 $date_end = dol_mktime(23, 59, 59, GETPOST("date_endmonth"), GETPOST("date_endday"), GETPOST("date_endyear"));
50 // Quarter
51 if (empty($date_start) || empty($date_end)) { // We define date_start and date_end
52  $q = GETPOST("q");
53  if (empty($q)) {
54  if (GETPOST("month")) {
55  $date_start = dol_get_first_day($year_start, GETPOST("month"), false);
56  $date_end = dol_get_last_day($year_start, GETPOST("month"), false);
57  } else {
58  $date_start = dol_get_first_day($year_start, empty($conf->global->SOCIETE_FISCAL_MONTH_START) ? 1 : $conf->global->SOCIETE_FISCAL_MONTH_START, false);
59  if (empty($conf->global->MAIN_INFO_VAT_RETURN) || $conf->global->MAIN_INFO_VAT_RETURN == 2) {
60  $date_end = dol_time_plus_duree($date_start, 3, 'm') - 1;
61  } elseif ($conf->global->MAIN_INFO_VAT_RETURN == 3) {
62  $date_end = dol_time_plus_duree($date_start, 1, 'y') - 1;
63  } elseif ($conf->global->MAIN_INFO_VAT_RETURN == 1) {
64  $date_end = dol_time_plus_duree($date_start, 1, 'm') - 1;
65  }
66  }
67  } else {
68  if ($q == 1) {
69  $date_start = dol_get_first_day($year_start, 1, false);
70  $date_end = dol_get_last_day($year_start, 3, false);
71  }
72  if ($q == 2) {
73  $date_start = dol_get_first_day($year_start, 4, false);
74  $date_end = dol_get_last_day($year_start, 6, false);
75  }
76  if ($q == 3) {
77  $date_start = dol_get_first_day($year_start, 7, false);
78  $date_end = dol_get_last_day($year_start, 9, false);
79  }
80  if ($q == 4) {
81  $date_start = dol_get_first_day($year_start, 10, false);
82  $date_end = dol_get_last_day($year_start, 12, false);
83  }
84  }
85 }
86 
87 $min = price2num(GETPOST("min", "alpha"));
88 if (empty($min)) {
89  $min = 0;
90 }
91 
92 // Define modetax (0 or 1)
93 // 0=normal, 1=option vat for services is on debit, 2=option on payments for products
94 $modetax = $conf->global->TAX_MODE;
95 if (GETPOSTISSET("modetax")) {
96  $modetax = GETPOST("modetax", 'int');
97 }
98 if (empty($modetax)) {
99  $modetax = 0;
100 }
101 
102 // Security check
103 $socid = GETPOST('socid', 'int');
104 if ($user->socid) {
105  $socid = $user->socid;
106 }
107 $result = restrictedArea($user, 'tax', '', '', 'charges');
108 
109 if (empty($local)) {
110  accessforbidden('Parameter localTaxType is missing');
111  exit;
112 }
113 
114 
115 $calc = 0;
116 /*
117  * View
118  */
119 
120 $form = new Form($db);
121 $company_static = new Societe($db);
122 
123 $morequerystring = '';
124 $listofparams = array('date_startmonth', 'date_startyear', 'date_startday', 'date_endmonth', 'date_endyear', 'date_endday');
125 foreach ($listofparams as $param) {
126  if (GETPOST($param) != '') {
127  $morequerystring .= ($morequerystring ? '&' : '').$param.'='.GETPOST($param);
128  }
129 }
130 
131 llxHeader('', '', '', '', 0, 0, '', '', $morequerystring);
132 
133 
134 $name = $langs->transcountry($local == 1 ? "LT1ReportByCustomers" : "LT2ReportByCustomers", $mysoc->country_code);
135 
136 $fsearch = '<!-- hidden fields for form -->';
137 $fsearch .= '<input type="hidden" name="token" value="'.newToken().'">';
138 $fsearch .= '<input type="hidden" name="modetax" value="'.$modetax.'">';
139 $fsearch .= '<input type="hidden" name="localTaxType" value="'.$local.'">';
140 $fsearch .= $langs->trans("SalesTurnoverMinimum").': ';
141 $fsearch .= '<input type="text" name="min" id="min" value="'.$min.'" size="6">';
142 
143 $calc = $conf->global->MAIN_INFO_LOCALTAX_CALC.$local;
144 // Affiche en-tete du rapport
145 if ($calc == 0 || $calc == 1) { // Calculate on invoice for goods and services
146  $calcmode = $calc == 0 ? $langs->trans("CalcModeLT".$local) : $langs->trans("CalcModeLT".$local."Rec");
147  $calcmode .= ' <span class="opacitymedium">('.$langs->trans("TaxModuleSetupToModifyRulesLT", DOL_URL_ROOT.'/admin/company.php').')</span>';
148  $period = $form->selectDate($date_start, 'date_start', 0, 0, 0, '', 1, 0).' - '.$form->selectDate($date_end, 'date_end', 0, 0, 0, '', 1, 0);
149  if (!empty($conf->global->MAIN_MODULE_COMPTABILITE)) {
150  $description .= '<br>'.$langs->trans("WarningDepositsNotIncluded");
151  }
152  $description .= $fsearch;
153  $description .= ' <span class="opacitymedium">('.$langs->trans("TaxModuleSetupToModifyRulesLT", DOL_URL_ROOT.'/admin/company.php').')</span>';
154  $builddate = dol_now();
155 
156  $elementcust = $langs->trans("CustomersInvoices");
157  $productcust = $langs->trans("Description");
158  $amountcust = $langs->trans("AmountHT");
159  $elementsup = $langs->trans("SuppliersInvoices");
160  $productsup = $langs->trans("Description");
161  $amountsup = $langs->trans("AmountHT");
162 }
163 if ($calc == 2) { // Invoice for goods, payment for services
164  $calcmode = $langs->trans("CalcModeLT2Debt");
165  $calcmode .= ' <span class="opacitymedium">('.$langs->trans("TaxModuleSetupToModifyRulesLT", DOL_URL_ROOT.'/admin/company.php').')</span>';
166  $period = $form->selectDate($date_start, 'date_start', 0, 0, 0, '', 1, 0).' - '.$form->selectDate($date_end, 'date_end', 0, 0, 0, '', 1, 0);
167  if (!empty($conf->global->MAIN_MODULE_COMPTABILITE)) {
168  $description .= '<br>'.$langs->trans("WarningDepositsNotIncluded");
169  }
170  $description .= $fsearch;
171  $description .= '<span class="opacitymedium">('.$langs->trans("TaxModuleSetupToModifyRulesLT", DOL_URL_ROOT.'/admin/company.php').')</span>';
172  $builddate = dol_now();
173 
174  $elementcust = $langs->trans("CustomersInvoices");
175  $productcust = $langs->trans("Description");
176  $amountcust = $langs->trans("AmountHT");
177  $elementsup = $langs->trans("SuppliersInvoices");
178  $productsup = $langs->trans("Description");
179  $amountsup = $langs->trans("AmountHT");
180 }
181 report_header($name, '', $period, $periodlink, $description, $builddate, $exportlink, array(), $calcmode);
182 
183 
184 $vatcust = $langs->transcountry($local == 1 ? "LT1" : "LT2", $mysoc->country_code);
185 $vatsup = $langs->transcountry($local == 1 ? "LT1" : "LT2", $mysoc->country_code);
186 
187 print '<div class="div-table-responsive">';
188 print '<table class="noborder centpercent">';
189 
190 // IRPF that the customer has retained me
191 if ($calc == 0 || $calc == 2) {
192  print '<tr class="liste_titre">';
193  print '<td class="left">'.$langs->trans("Num").'</td>';
194  print '<td class="left">'.$langs->trans("Customer").'</td>';
195  print '<td>'.$langs->transcountry("ProfId1", $mysoc->country_code).'</td>';
196  print '<td class="right">'.$langs->trans("TotalHT").'</td>';
197  print '<td class="right">'.$vatcust.'</td>';
198  print "</tr>\n";
199 
200  $coll_list = tax_by_thirdparty('localtax'.$local, $db, 0, $date_start, $date_end, $modetax, 'sell');
201 
202  $action = "tvaclient";
203  $object = &$coll_list;
204  $parameters["mode"] = $modetax;
205  $parameters["start"] = $date_start;
206  $parameters["end"] = $date_end;
207  $parameters["direction"] = 'sell';
208  $parameters["type"] = 'localtax'.$local;
209 
210  // Initialize technical object to manage hooks of expenses. Note that conf->hooks_modules contains array array
211  $hookmanager->initHooks(array('externalbalance'));
212  $reshook = $hookmanager->executeHooks('addVatLine', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
213 
214  if (is_array($coll_list)) {
215  $total = 0;
216  $totalamount = 0;
217  $i = 1;
218  foreach ($coll_list as $coll) {
219  if (($min == 0 || ($min > 0 && $coll->amount > $min)) && ($local == 1 ? $coll->localtax1 : $coll->localtax2) != 0) {
220  $intra = str_replace($find, $replace, $coll->tva_intra);
221  if (empty($intra)) {
222  if ($coll->assuj == '1') {
223  $intra = $langs->trans('Unknown');
224  } else {
225  $intra = '';
226  }
227  }
228  print '<tr class="oddeven">';
229  print '<td class="nowrap">'.$i."</td>";
230  $company_static->id = $coll->socid;
231  $company_static->name = $coll->name;
232  print '<td class="nowrap">'.$company_static->getNomUrl(1).'</td>';
233  $find = array(' ', '.');
234  $replace = array('', '');
235  print '<td class="nowrap">'.$intra.'</td>';
236  print '<td class="nowrap right">'.price($coll->amount).'</td>';
237  print '<td class="nowrap right">'.price($local == 1 ? $coll->localtax1 : $coll->localtax2).'</td>';
238  $totalamount = $totalamount + $coll->amount;
239  $total = $total + ($local == 1 ? $coll->localtax1 : $coll->localtax2);
240  print "</tr>\n";
241  $i++;
242  }
243  }
244  $x_coll_sum = $total;
245 
246  print '<tr class="liste_total"><td class="right" colspan="3">'.$langs->trans("Total").':</td>';
247  print '<td class="nowrap right">'.price($totalamount).'</td>';
248  print '<td class="nowrap right">'.price($total).'</td>';
249  print '</tr>';
250  } else {
251  $langs->load("errors");
252  if ($coll_list == -1) {
253  print '<tr><td colspan="5">'.$langs->trans("ErrorNoAccountancyModuleLoaded").'</td></tr>';
254  } elseif ($coll_list == -2) {
255  print '<tr><td colspan="5">'.$langs->trans("FeatureNotYetAvailable").'</td></tr>';
256  } else {
257  print '<tr><td colspan="5">'.$langs->trans("Error").'</td></tr>';
258  }
259  }
260 }
261 
262 // IRPF I retained my supplier
263 if ($calc == 0 || $calc == 1) {
264  print '<tr class="liste_titre">';
265  print '<td class="left">'.$langs->trans("Num")."</td>";
266  print '<td class="left">'.$langs->trans("Supplier")."</td>";
267  print '<td>'.$langs->transcountry("ProfId1", $mysoc->country_code).'</td>';
268  print '<td class="right">'.$langs->trans("TotalHT").'</td>';
269  print '<td class="right">'.$vatsup.'</td>';
270  print "</tr>\n";
271 
272  $company_static = new Societe($db);
273 
274  $coll_list = tax_by_thirdparty('localtax'.$local, $db, 0, $date_start, $date_end, $modetax, 'buy');
275  $parameters["direction"] = 'buy';
276  $parameters["type"] = 'localtax'.$local;
277 
278  $reshook = $hookmanager->executeHooks('addVatLine', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks
279  if (is_array($coll_list)) {
280  $total = 0;
281  $totalamount = 0;
282  $i = 1;
283  foreach ($coll_list as $coll) {
284  if (($min == 0 || ($min > 0 && $coll->amount > $min)) && ($local == 1 ? $coll->localtax1 : $coll->localtax2) != 0) {
285  $intra = str_replace($find, $replace, $coll->tva_intra);
286  if (empty($intra)) {
287  if ($coll->assuj == '1') {
288  $intra = $langs->trans('Unknown');
289  } else {
290  $intra = '';
291  }
292  }
293  print '<tr class="oddeven">';
294  print '<td class="nowrap">'.$i."</td>";
295  $company_static->id = $coll->socid;
296  $company_static->name = $coll->name;
297  print '<td class="nowrap">'.$company_static->getNomUrl(1).'</td>';
298  $find = array(' ', '.');
299  $replace = array('', '');
300  print '<td class="nowrap">'.$intra."</td>";
301  print '<td class="nowrap right">'.price($coll->amount).'</td>';
302  print '<td class="nowrap right">'.price($local == 1 ? $coll->localtax1 : $coll->localtax2).'</td>';
303  $totalamount = $totalamount + $coll->amount;
304  $total = $total + ($local == 1 ? $coll->localtax1 : $coll->localtax2);
305  print "</tr>\n";
306  $i++;
307  }
308  }
309  $x_paye_sum = $total;
310 
311  print '<tr class="liste_total"><td class="right" colspan="3">'.$langs->trans("Total").':</td>';
312  print '<td class="nowrap right">'.price($totalamount).'</td>';
313  print '<td class="nowrap right">'.price($total).'</td>';
314  print '</tr>';
315  } else {
316  $langs->load("errors");
317  if ($coll_list == -1) {
318  print '<tr><td colspan="5">'.$langs->trans("ErrorNoAccountancyModuleLoaded").'</td></tr>';
319  } elseif ($coll_list == -2) {
320  print '<tr><td colspan="5">'.$langs->trans("FeatureNotYetAvailable").'</td></tr>';
321  } else {
322  print '<tr><td colspan="5">'.$langs->trans("Error").'</td></tr>';
323  }
324  }
325 }
326 
327 if ($calc == 0) {
328  // Total to pay
329  print '<tr><td colspan="5"></td></tr>';
330 
331  $diff = $x_coll_sum - $x_paye_sum;
332  print '<tr class="liste_total">';
333  print '<td class="liste_total" colspan="4">'.$langs->trans("TotalToPay").($q ? ', '.$langs->trans("Quadri").' '.$q : '').'</td>';
334  print '<td class="liste_total nowrap right"><b>'.price(price2num($diff, 'MT'))."</b></td>\n";
335  print "</tr>\n";
336 }
337 
338 print '</table>';
339 print '</div>';
340 
341 
342 // End of page
343 llxFooter();
344 $db->close();
Societe
Class to manage third parties objects (customers, suppliers, prospects...)
Definition: societe.class.php:50
llxFooter
llxFooter()
Empty footer.
Definition: wrapper.php:70
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition: functions.lib.php:530
$form
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition: functions.lib.php:5834
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
Definition: functions.lib.php:2566
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Definition: wrapper.php:56
dol_get_first_day
dol_get_first_day($year, $month=1, $gm=false)
Return GMT time for first day of a month or year.
Definition: date.lib.php:576
tax_by_thirdparty
tax_by_thirdparty($type, $db, $y, $date_start, $date_end, $modetax, $direction, $m=0, $q=0)
Look for collectable VAT clients in the chosen year (and month)
Definition: tax.lib.php:112
dol_get_last_day
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
Definition: date.lib.php:595
restrictedArea
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.
Definition: security.lib.php:341
dol_time_plus_duree
dol_time_plus_duree($time, $duration_value, $duration_unit, $ruleforendofmonth=0)
Add a delay to a date.
Definition: date.lib.php:122
GETPOSTISSET
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
Definition: functions.lib.php:431
Form
Class to manage generation of HTML components Only common components must be here.
Definition: html.form.class.php:52
dol_now
dol_now($mode='auto')
Return date for now.
Definition: functions.lib.php:2947
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition: security.lib.php:1106
dol_mktime
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed informations (by default a local PHP server timestamp) Re...
Definition: functions.lib.php:2859
report_header
report_header($reportname, $notused, $period, $periodlink, $description, $builddate, $exportlink='', $moreparam=array(), $calcmode='', $varlink='')
Show header of a report.
Definition: report.lib.php:41