dolibarr  19.0.0-dev
index.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2013 Olivier Geffroy <jeff@jeffinfo.com>
3  * Copyright (C) 2013-2014 Florian Henry <florian.henry@open-concept.pro>
4  * Copyright (C) 2013-2022 Alexandre Spangaro <aspangaro@open-dsi.fr>
5  * Copyright (C) 2014 Juanjo Menent <jmenent@2byte.es>
6  * Copyright (C) 2015 Jean-François Ferry <jfefe@aternatik.fr>
7  *
8  * This program is free software; you can redistribute it and/or modify
9  * it under the terms of the GNU General Public License as published by
10  * the Free Software Foundation; either version 3 of the License, or
11  * (at your option) any later version.
12  *
13  * This program is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16  * GNU General Public License for more details.
17  *
18  * You should have received a copy of the GNU General Public License
19  * along with this program. If not, see <https://www.gnu.org/licenses/>.
20  *
21  */
22 
29 // Load Dolibarr environment
30 require '../../main.inc.php';
31 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
32 require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
33 require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
34 require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
35 require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
36 
37 // Load translation files required by the page
38 $langs->loadLangs(array("compta", "bills", "other", "accountancy"));
39 
40 $validatemonth = GETPOST('validatemonth', 'int');
41 $validateyear = GETPOST('validateyear', 'int');
42 
43 // Security check
44 if (!isModEnabled('accounting')) {
46 }
47 if ($user->socid > 0) {
49 }
50 if (!$user->hasRight('accounting', 'bind', 'write')) {
52 }
53 
54 $accountingAccount = new AccountingAccount($db);
55 
56 $month_start = ($conf->global->SOCIETE_FISCAL_MONTH_START ? ($conf->global->SOCIETE_FISCAL_MONTH_START) : 1);
57 if (GETPOST("year", 'int')) {
58  $year_start = GETPOST("year", 'int');
59 } else {
60  $year_start = dol_print_date(dol_now(), '%Y');
61  if (dol_print_date(dol_now(), '%m') < $month_start) {
62  $year_start--; // If current month is lower that starting fiscal month, we start last year
63  }
64 }
65 $year_end = $year_start + 1;
66 $month_end = $month_start - 1;
67 if ($month_end < 1) {
68  $month_end = 12;
69  $year_end--;
70 }
71 $search_date_start = dol_mktime(0, 0, 0, $month_start, 1, $year_start);
72 $search_date_end = dol_get_last_day($year_end, $month_end);
73 $year_current = $year_start;
74 
75 // Validate History
76 $action = GETPOST('action', 'aZ09');
77 
78 $chartaccountcode = dol_getIdFromCode($db, getDolGlobalInt('CHARTOFACCOUNTS'), 'accounting_system', 'rowid', 'pcg_version');
79 
80 // Security check
81 if (!isModEnabled('accounting')) {
83 }
84 if ($user->socid > 0) {
86 }
87 if (!$user->hasRight('accounting', 'mouvements', 'lire')) {
89 }
90 
91 
92 /*
93  * Actions
94  */
95 
96 if (($action == 'clean' || $action == 'validatehistory') && $user->hasRight('accounting', 'bind', 'write')) {
97  // Clean database by removing binding done on non existing or no more existing accounts
98  $db->begin();
99  $sql1 = "UPDATE ".$db->prefix()."facturedet as fd";
100  $sql1 .= " SET fk_code_ventilation = 0";
101  $sql1 .= ' WHERE fd.fk_code_ventilation NOT IN';
102  $sql1 .= ' (SELECT accnt.rowid ';
103  $sql1 .= ' FROM '.$db->prefix().'accounting_account as accnt';
104  $sql1 .= ' INNER JOIN '.$db->prefix().'accounting_system as syst';
105  $sql1 .= " ON accnt.fk_pcg_version = syst.pcg_version AND syst.rowid = ".((int) getDolGlobalInt('CHARTOFACCOUNTS'))." AND accnt.entity = ".((int) $conf->entity).")";
106  $sql1 .= " AND fd.fk_facture IN (SELECT rowid FROM ".$db->prefix()."facture WHERE entity = ".((int) $conf->entity).")";
107  $sql1 .= " AND fk_code_ventilation <> 0";
108 
109  dol_syslog("htdocs/accountancy/customer/index.php fixaccountancycode", LOG_DEBUG);
110  $resql1 = $db->query($sql1);
111  if (!$resql1) {
112  $error++;
113  $db->rollback();
114  setEventMessages($db->lasterror(), null, 'errors');
115  } else {
116  $db->commit();
117  }
118  // End clean database
119 }
120 
121 if ($action == 'validatehistory') {
122  $error = 0;
123  $nbbinddone = 0;
124  $nbbindfailed = 0;
125  $notpossible = 0;
126 
127  $db->begin();
128 
129  // Now make the binding. Bind automatically only for product with a dedicated account that exists into chart of account, others need a manual bind
130  // Customer Invoice lines (must be same request than into page list.php for manual binding)
131  $sql = "SELECT f.rowid as facid, f.ref as ref, f.datef, f.type as ftype, f.situation_cycle_ref, f.fk_facture_source,";
132  $sql .= " l.rowid, l.fk_product, l.description, l.total_ht, l.fk_code_ventilation, l.product_type as type_l, l.situation_percent, l.tva_tx as tva_tx_line, l.vat_src_code,";
133  $sql .= " p.rowid as product_id, p.ref as product_ref, p.label as product_label, p.fk_product_type as type, p.tva_tx as tva_tx_prod,";
134  if (!empty($conf->global->MAIN_PRODUCT_PERENTITY_SHARED)) {
135  $sql .= " ppe.accountancy_code_sell as code_sell, ppe.accountancy_code_sell_intra as code_sell_intra, ppe.accountancy_code_sell_export as code_sell_export,";
136  } else {
137  $sql .= " p.accountancy_code_sell as code_sell, p.accountancy_code_sell_intra as code_sell_intra, p.accountancy_code_sell_export as code_sell_export,";
138  }
139  $sql .= " aa.rowid as aarowid, aa2.rowid as aarowid_intra, aa3.rowid as aarowid_export, aa4.rowid as aarowid_thirdparty,";
140  $sql .= " co.code as country_code, co.label as country_label,";
141  $sql .= " s.tva_intra,";
142  if (!empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED)) {
143  $sql .= " spe.accountancy_code_sell as company_code_sell"; // accounting code for product but stored on thirdparty
144  } else {
145  $sql .= " s.accountancy_code_sell as company_code_sell"; // accounting code for product but stored on thirdparty
146  }
147  $sql .= " FROM ".$db->prefix()."facture as f";
148  $sql .= " INNER JOIN ".$db->prefix()."societe as s ON s.rowid = f.fk_soc";
149  if (!empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED)) {
150  $sql .= " LEFT JOIN " . $db->prefix() . "societe_perentity as spe ON spe.fk_soc = s.rowid AND spe.entity = " . ((int) $conf->entity);
151  }
152  $sql .= " LEFT JOIN ".$db->prefix()."c_country as co ON co.rowid = s.fk_pays ";
153  $sql .= " INNER JOIN ".$db->prefix()."facturedet as l ON f.rowid = l.fk_facture"; // the main table
154  $sql .= " LEFT JOIN ".$db->prefix()."product as p ON p.rowid = l.fk_product";
155  if (!empty($conf->global->MAIN_PRODUCT_PERENTITY_SHARED)) {
156  $sql .= " LEFT JOIN " . $db->prefix() . "product_perentity as ppe ON ppe.fk_product = p.rowid AND ppe.entity = " . ((int) $conf->entity);
157  }
158  $alias_societe_perentity = empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED) ? "s" : "spe";
159  $alias_product_perentity = empty($conf->global->MAIN_PRODUCT_PERENTITY_SHARED) ? "p" : "ppe";
160  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa ON " . $alias_product_perentity . ".accountancy_code_sell = aa.account_number AND aa.active = 1 AND aa.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa.entity = ".$conf->entity;
161  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa2 ON " . $alias_product_perentity . ".accountancy_code_sell_intra = aa2.account_number AND aa2.active = 1 AND aa2.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa2.entity = ".$conf->entity;
162  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa3 ON " . $alias_product_perentity . ".accountancy_code_sell_export = aa3.account_number AND aa3.active = 1 AND aa3.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa3.entity = ".$conf->entity;
163  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa4 ON " . $alias_societe_perentity . ".accountancy_code_sell = aa4.account_number AND aa4.active = 1 AND aa4.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa4.entity = ".$conf->entity;
164  $sql .= " WHERE f.fk_statut > 0 AND l.fk_code_ventilation <= 0";
165  $sql .= " AND l.product_type <= 2";
166  $sql .= " AND f.entity IN (".getEntity('invoice', 0).")"; // We don't share object for accountancy
167  if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
168  $sql .= " AND f.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
169  }
170  if ($validatemonth && $validateyear) {
171  $sql .= dolSqlDateFilter('f.datef', 0, $validatemonth, $validateyear);
172  }
173 
174  dol_syslog('htdocs/accountancy/customer/index.php');
175 
176  $result = $db->query($sql);
177  if (!$result) {
178  $error++;
179  setEventMessages($db->lasterror(), null, 'errors');
180  } else {
181  $num_lines = $db->num_rows($result);
182 
183  $facture_static = new Facture($db);
184 
185  $isSellerInEEC = isInEEC($mysoc);
186 
187  $thirdpartystatic = new Societe($db);
188  $facture_static = new Facture($db);
189  $facture_static_det = new FactureLigne($db);
190  $product_static = new Product($db);
191 
192  $i = 0;
193  while ($i < min($num_lines, 10000)) { // No more than 10000 at once
194  $objp = $db->fetch_object($result);
195 
196  $thirdpartystatic->id = !empty($objp->socid) ? $objp->socid : 0;
197  $thirdpartystatic->name = !empty($objp->name) ? $objp->name : "";
198  $thirdpartystatic->client = !empty($objp->client) ? $objp->client : "";
199  $thirdpartystatic->fournisseur = !empty($objp->fournisseur) ? $objp->fournisseur : "";
200  $thirdpartystatic->code_client = !empty($objp->code_client) ? $objp->code_client : "";
201  $thirdpartystatic->code_compta_client = !empty($objp->code_compta_client) ? $objp->code_compta_client : "";
202  $thirdpartystatic->code_fournisseur = !empty($objp->code_fournisseur) ? $objp->code_fournisseur : "";
203  $thirdpartystatic->code_compta_fournisseur = !empty($objp->code_compta_fournisseur) ? $objp->code_compta_fournisseur : "";
204  $thirdpartystatic->email = !empty($objp->email) ? $objp->email : "";
205  $thirdpartystatic->country_code = !empty($objp->country_code) ? $objp->country_code : "";
206  $thirdpartystatic->tva_intra = !empty($objp->tva_intra) ? $objp->tva_intra : "";
207  $thirdpartystatic->code_compta_product = !empty($objp->company_code_sell) ? $objp->company_code_sell : ""; // The accounting account for product stored on thirdparty object (for level3 suggestion)
208 
209  $product_static->ref = $objp->product_ref;
210  $product_static->id = $objp->product_id;
211  $product_static->type = $objp->type;
212  $product_static->label = $objp->product_label;
213  $product_static->status = !empty($objp->status) ? $objp->status : 0;
214  $product_static->status_buy = !empty($objp->status_buy) ? $objp->status_buy : 0;
215  $product_static->accountancy_code_sell = $objp->code_sell;
216  $product_static->accountancy_code_sell_intra = $objp->code_sell_intra;
217  $product_static->accountancy_code_sell_export = $objp->code_sell_export;
218  $product_static->accountancy_code_buy = !empty($objp->code_buy) ? $objp->code_buy : "";
219  $product_static->accountancy_code_buy_intra = !empty($objp->code_buy_intra) ? $objp->code_buy_intra : "";
220  $product_static->accountancy_code_buy_export = !empty($objp->code_buy_export) ? $objp->code_buy_export : "";
221  $product_static->tva_tx = $objp->tva_tx_prod;
222 
223  $facture_static->ref = $objp->ref;
224  $facture_static->id = $objp->facid;
225  $facture_static->type = $objp->ftype;
226  $facture_static->date = $db->jdate($objp->datef);
227  $facture_static->fk_facture_source = $objp->fk_facture_source;
228 
229  $facture_static_det->id = $objp->rowid;
230  $facture_static_det->total_ht = $objp->total_ht;
231  $facture_static_det->tva_tx = $objp->tva_tx_line;
232  $facture_static_det->vat_src_code = $objp->vat_src_code;
233  $facture_static_det->product_type = $objp->type_l;
234  $facture_static_det->desc = $objp->description;
235 
236  $accountingAccountArray = array(
237  'dom'=>$objp->aarowid,
238  'intra'=>$objp->aarowid_intra,
239  'export'=>$objp->aarowid_export,
240  'thirdparty' =>$objp->aarowid_thirdparty);
241 
242  $code_sell_p_notset = '';
243  $code_sell_t_notset = '';
244 
245  $suggestedid = 0;
246 
247  $return=$accountingAccount->getAccountingCodeToBind($thirdpartystatic, $mysoc, $product_static, $facture_static, $facture_static_det, $accountingAccountArray, 'customer');
248  if (!is_array($return) && $return < 0) {
249  setEventMessage($accountingAccount->error, 'errors');
250  } else {
251  $suggestedid = $return['suggestedid'];
252  $suggestedaccountingaccountfor = $return['suggestedaccountingaccountfor'];
253 
254  if (!empty($suggestedid) && $suggestedaccountingaccountfor != '' && $suggestedaccountingaccountfor != 'eecwithoutvatnumber') {
255  $suggestedid = $return['suggestedid'];
256  } else {
257  $suggestedid = 0;
258  }
259  }
260 
261  if ($suggestedid > 0) {
262  $sqlupdate = "UPDATE ".MAIN_DB_PREFIX."facturedet";
263  $sqlupdate .= " SET fk_code_ventilation = ".((int) $suggestedid);
264  $sqlupdate .= " WHERE fk_code_ventilation <= 0 AND product_type <= 2 AND rowid = ".((int) $facture_static_det->id);
265 
266  $resqlupdate = $db->query($sqlupdate);
267  if (!$resqlupdate) {
268  $error++;
269  setEventMessages($db->lasterror(), null, 'errors');
270  $nbbindfailed++;
271  break;
272  } else {
273  $nbbinddone++;
274  }
275  } else {
276  $notpossible++;
277  $nbbindfailed++;
278  }
279 
280  $i++;
281  }
282  if ($num_lines > 10000) {
283  $notpossible += ($num_lines - 10000);
284  }
285  }
286 
287  if ($error) {
288  $db->rollback();
289  } else {
290  $db->commit();
291  setEventMessages($langs->trans('AutomaticBindingDone', $nbbinddone, $notpossible), null, ($notpossible ? 'warnings' : 'mesgs'));
292  if ($nbbindfailed) {
293  setEventMessages($langs->trans('DoManualBindingForFailedRecord', $nbbindfailed), null, 'warnings');
294  }
295  }
296 }
297 
298 
299 /*
300  * View
301  */
302 
303 llxHeader('', $langs->trans("CustomersVentilation"));
304 
305 $textprevyear = '<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current - 1).'">'.img_previous().'</a>';
306 $textnextyear = '&nbsp;<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current + 1).'">'.img_next().'</a>';
307 
308 
309 print load_fiche_titre($langs->trans("CustomersVentilation")." ".$textprevyear." ".$langs->trans("Year")." ".$year_start." ".$textnextyear, '', 'title_accountancy');
310 
311 print '<span class="opacitymedium">'.$langs->trans("DescVentilCustomer").'</span><br>';
312 print '<span class="opacitymedium hideonsmartphone">'.$langs->trans("DescVentilMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
313 print '</span><br>';
314 
315 if (getDolGlobalInt('INVOICE_USE_SITUATION') == 1) {
316  print info_admin($langs->trans("SorryThisModuleIsNotCompatibleWithTheExperimentalFeatureOfSituationInvoices"));
317  print "<br>";
318 }
319 
320 $y = $year_current;
321 
322 $buttonbind = '<a class="butAction" href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&token='.newToken().'">'.img_picto($langs->trans("ValidateHistory"), 'link', 'class="pictofixedwidth fa-color-unset"').$langs->trans("ValidateHistory").'</a>';
323 
324 print_barre_liste(img_picto('', 'unlink', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesNotBound"), '', '', '', '', '', '', -1, '', '', 0, $buttonbind, '', 0, 1, 1);
325 //print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');
326 
327 print '<div class="div-table-responsive-no-min">';
328 print '<table class="noborder centpercent">';
329 print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
330 print '<td>'.$langs->trans("Label").'</td>';
331 for ($i = 1; $i <= 12; $i++) {
332  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
333  if ($j > 12) {
334  $j -= 12;
335  }
336  $cursormonth = $j;
337  if ($cursormonth > 12) {
338  $cursormonth -= 12;
339  }
340  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
341  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
342 
343  print '<td width="60" class="right">';
344  if (!empty($tmp['mday'])) {
345  $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
346  $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
347  print '<a href="'.DOL_URL_ROOT.'/accountancy/customer/list.php?'.$param.'">';
348  }
349  print $langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT));
350  if (!empty($tmp['mday'])) {
351  print '</a>';
352  }
353  print '</td>';
354 }
355 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
356 
357 $sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
358 $sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
359 for ($i = 1; $i <= 12; $i++) {
360  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
361  if ($j > 12) {
362  $j -= 12;
363  }
364  $sql .= " SUM(".$db->ifsql("MONTH(f.datef)=".$j, "fd.total_ht", "0").") AS month".str_pad($j, 2, "0", STR_PAD_LEFT).",";
365 }
366 $sql .= " SUM(fd.total_ht) as total";
367 $sql .= " FROM ".MAIN_DB_PREFIX."facturedet as fd";
368 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture as f ON f.rowid = fd.fk_facture";
369 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = fd.fk_code_ventilation";
370 $sql .= " WHERE f.datef >= '".$db->idate($search_date_start)."'";
371 $sql .= " AND f.datef <= '".$db->idate($search_date_end)."'";
372 // Define begin binding date
373 if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
374  $sql .= " AND f.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
375 }
376 $sql .= " AND f.fk_statut > 0";
377 $sql .= " AND fd.product_type <= 2";
378 $sql .= " AND f.entity IN (".getEntity('invoice', 0).")"; // We don't share object for accountancy
379 $sql .= " AND aa.account_number IS NULL";
380 if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
381  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.",".Facture::TYPE_REPLACEMENT.",".Facture::TYPE_CREDIT_NOTE.",".Facture::TYPE_SITUATION.")";
382 } else {
383  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.",".Facture::TYPE_REPLACEMENT.",".Facture::TYPE_CREDIT_NOTE.",".Facture::TYPE_DEPOSIT.",".Facture::TYPE_SITUATION.")";
384 }
385 $sql .= " GROUP BY fd.fk_code_ventilation,aa.account_number,aa.label";
386 
387 dol_syslog('htdocs/accountancy/customer/index.php', LOG_DEBUG);
388 $resql = $db->query($sql);
389 if ($resql) {
390  $num = $db->num_rows($resql);
391 
392  while ($row = $db->fetch_row($resql)) {
393  // TODO When INVOICE_USE_SITUATION = 1, values here are wrong. There is no compensation on bad stored amounts
394  //$situation_ratio = 1;
395  //if (getDolGlobalInt('INVOICE_USE_SITUATION') == 1) {
396  //}
397 
398  print '<tr class="oddeven">';
399  print '<td>';
400  if ($row[0] == 'tobind') {
401  print '<span class="opacitymedium">'.$langs->trans("Unknown").'</span>';
402  } else {
403  print length_accountg($row[0]);
404  }
405  print '</td>';
406  print '<td>';
407  if ($row[0] == 'tobind') {
408  $startmonth = ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1);
409  if ($startmonth > 12) {
410  $startmonth -= 12;
411  }
412  $startyear = ($startmonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
413  $endmonth = ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) + 11;
414  if ($endmonth > 12) {
415  $endmonth -= 12;
416  }
417  $endyear = ($endmonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
418  print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/customer/list.php?search_date_startday=1&search_date_startmonth='.((int) $startmonth).'&search_date_startyear='.((int) $startyear).'&search_date_endday=&search_date_endmonth='.((int) $endmonth).'&search_date_endyear='.((int) $endyear), $langs->transnoentitiesnoconv("ToBind"));
419  } else {
420  print $row[1];
421  }
422  print '</td>';
423  for ($i = 2; $i <= 13; $i++) {
424  $cursormonth = (($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) + $i - 2);
425  if ($cursormonth > 12) {
426  $cursormonth -= 12;
427  }
428  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
429  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
430 
431  print '<td class="right nowraponall amount">';
432  print price($row[$i]);
433  // Add link to make binding
434  if (!empty(price2num($row[$i]))) {
435  print '<a href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&year='.$y.'&validatemonth='.((int) $cursormonth).'&validateyear='.((int) $cursoryear).'&token='.newToken().'">';
436  print img_picto($langs->trans("ValidateHistory").' ('.$langs->trans('Month'.str_pad($cursormonth, 2, '0', STR_PAD_LEFT)).' '.$cursoryear.')', 'link', 'class="marginleft2"');
437  print '</a>';
438  }
439  print '</td>';
440  }
441  print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
442  print '</tr>';
443  }
444  $db->free($resql);
445 
446  if ($num == 0) {
447  print '<tr class="oddeven"><td colspan="16">';
448  print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
449  print '</td></tr>';
450  }
451 } else {
452  print $db->lasterror(); // Show last sql error
453 }
454 print "</table>\n";
455 print '</div>';
456 
457 
458 print '<br>';
459 
460 
461 print_barre_liste(img_picto('', 'link', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
462 //print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesBound"), '', '');
463 
464 print '<div class="div-table-responsive-no-min">';
465 print '<table class="noborder centpercent">';
466 print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
467 print '<td>'.$langs->trans("Label").'</td>';
468 for ($i = 1; $i <= 12; $i++) {
469  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
470  if ($j > 12) {
471  $j -= 12;
472  }
473  $cursormonth = $j;
474  if ($cursormonth > 12) {
475  $cursormonth -= 12;
476  }
477  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
478  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
479 
480  print '<td width="60" class="right">';
481  if (!empty($tmp['mday'])) {
482  $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
483  $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
484  print '<a href="'.DOL_URL_ROOT.'/accountancy/customer/lines.php?'.$param.'">';
485  }
486  print $langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT));
487  if (!empty($tmp['mday'])) {
488  print '</a>';
489  }
490  print '</td>';
491 }
492 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
493 
494 $sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
495 $sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
496 for ($i = 1; $i <= 12; $i++) {
497  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
498  if ($j > 12) {
499  $j -= 12;
500  }
501  $sql .= " SUM(".$db->ifsql("MONTH(f.datef)=".$j, "fd.total_ht", "0").") AS month".str_pad($j, 2, "0", STR_PAD_LEFT).",";
502 }
503 $sql .= " SUM(fd.total_ht) as total";
504 $sql .= " FROM ".MAIN_DB_PREFIX."facturedet as fd";
505 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture as f ON f.rowid = fd.fk_facture";
506 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."accounting_account as aa ON aa.rowid = fd.fk_code_ventilation";
507 $sql .= " WHERE f.datef >= '".$db->idate($search_date_start)."'";
508 $sql .= " AND f.datef <= '".$db->idate($search_date_end)."'";
509 // Define begin binding date
510 if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
511  $sql .= " AND f.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
512 }
513 $sql .= " AND f.entity IN (".getEntity('invoice', 0).")"; // We don't share object for accountancy
514 $sql .= " AND f.fk_statut > 0";
515 $sql .= " AND fd.product_type <= 2";
516 if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
517  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.", ".Facture::TYPE_REPLACEMENT.", ".Facture::TYPE_CREDIT_NOTE.", ".Facture::TYPE_SITUATION.")";
518 } else {
519  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.", ".Facture::TYPE_REPLACEMENT.", ".Facture::TYPE_CREDIT_NOTE.", ".Facture::TYPE_DEPOSIT.", ".Facture::TYPE_SITUATION.")";
520 }
521 $sql .= " AND aa.account_number IS NOT NULL";
522 $sql .= " GROUP BY fd.fk_code_ventilation,aa.account_number,aa.label";
523 $sql .= ' ORDER BY aa.account_number';
524 
525 dol_syslog('htdocs/accountancy/customer/index.php');
526 $resql = $db->query($sql);
527 if ($resql) {
528  $num = $db->num_rows($resql);
529 
530  while ($row = $db->fetch_row($resql)) {
531  // TODO When INVOICE_USE_SITUATION = 1, values here are wrong. There is no compensation on bad stored amounts
532  //$situation_ratio = 1;
533  //if (getDolGlobalInt('INVOICE_USE_SITUATION') == 1) {
534  //}
535 
536  print '<tr class="oddeven">';
537  print '<td>';
538  if ($row[0] == 'tobind') {
539  print $langs->trans("Unknown");
540  } else {
541  print length_accountg($row[0]);
542  }
543  print '</td>';
544 
545  print '<td>';
546  if ($row[0] == 'tobind') {
547  print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/customer/list.php?search_year='.((int) $y), $langs->transnoentitiesnoconv("ToBind"));
548  } else {
549  print $row[1];
550  }
551  print '</td>';
552 
553  for ($i = 2; $i <= 13; $i++) {
554  $cursormonth = (($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) + $i - 2);
555  if ($cursormonth > 12) {
556  $cursormonth -= 12;
557  }
558  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
559  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
560 
561  print '<td class="right nowraponall amount">';
562  print price($row[$i]);
563  print '</td>';
564  }
565  print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
566  print '</tr>';
567  }
568  $db->free($resql);
569 
570  if ($num == 0) {
571  print '<tr class="oddeven"><td colspan="16">';
572  print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
573  print '</td></tr>';
574  }
575 } else {
576  print $db->lasterror(); // Show last sql error
577 }
578 print "</table>\n";
579 print '</div>';
580 
581 
582 if (getDolGlobalString('SHOW_TOTAL_OF_PREVIOUS_LISTS_IN_LIN_PAGE')) { // This part of code looks strange. Why showing a report that should rely on result of this step ?
583  print '<br>';
584  print '<br>';
585 
586  print_barre_liste($langs->trans("OtherInfo"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
587  //print load_fiche_titre($langs->trans("OtherInfo"), '', '');
588 
589  print '<div class="div-table-responsive-no-min">';
590  print '<table class="noborder centpercent">';
591  print '<tr class="liste_titre"><td lass="left">'.$langs->trans("TotalVente").'</td>';
592  for ($i = 1; $i <= 12; $i++) {
593  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
594  if ($j > 12) {
595  $j -= 12;
596  }
597  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT)).'</td>';
598  }
599  print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
600 
601  $sql = "SELECT '".$db->escape($langs->trans("TotalVente"))."' AS total,";
602  for ($i = 1; $i <= 12; $i++) {
603  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
604  if ($j > 12) {
605  $j -= 12;
606  }
607  $sql .= " SUM(".$db->ifsql("MONTH(f.datef)=".$j, "fd.total_ht", "0").") AS month".str_pad($j, 2, "0", STR_PAD_LEFT).",";
608  }
609  $sql .= " SUM(fd.total_ht) as total";
610  $sql .= " FROM ".MAIN_DB_PREFIX."facturedet as fd";
611  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture as f ON f.rowid = fd.fk_facture";
612  $sql .= " WHERE f.datef >= '".$db->idate($search_date_start)."'";
613  $sql .= " AND f.datef <= '".$db->idate($search_date_end)."'";
614  // Define begin binding date
615  if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
616  $sql .= " AND f.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
617  }
618  $sql .= " AND f.entity IN (".getEntity('invoice', 0).")"; // We don't share object for accountancy
619  $sql .= " AND f.fk_statut > 0";
620  $sql .= " AND fd.product_type <= 2";
621  if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
622  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.", ".Facture::TYPE_REPLACEMENT.", ".Facture::TYPE_CREDIT_NOTE.", ".Facture::TYPE_SITUATION.")";
623  } else {
624  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.", ".Facture::TYPE_REPLACEMENT.", ".Facture::TYPE_CREDIT_NOTE.", ".Facture::TYPE_DEPOSIT.", ".Facture::TYPE_SITUATION.")";
625  }
626 
627  dol_syslog('htdocs/accountancy/customer/index.php');
628  $resql = $db->query($sql);
629  if ($resql) {
630  $num = $db->num_rows($resql);
631 
632  while ($row = $db->fetch_row($resql)) {
633  print '<tr><td>'.$row[0].'</td>';
634  for ($i = 1; $i <= 12; $i++) {
635  print '<td class="right nowraponall amount">'.price($row[$i]).'</td>';
636  }
637  print '<td class="right nowraponall amount"><b>'.price($row[13]).'</b></td>';
638  print '</tr>';
639  }
640  $db->free($resql);
641  } else {
642  print $db->lasterror(); // Show last sql error
643  }
644  print "</table>\n";
645  print '</div>';
646 
647  if (isModEnabled('margin')) {
648  print "<br>\n";
649  print '<div class="div-table-responsive-no-min">';
650  print '<table class="noborder centpercent">';
651  print '<tr class="liste_titre"><td>'.$langs->trans("TotalMarge").'</td>';
652  for ($i = 1; $i <= 12; $i++) {
653  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
654  if ($j > 12) {
655  $j -= 12;
656  }
657  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT)).'</td>';
658  }
659  print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
660 
661  if (getDolGlobalInt('INVOICE_USE_SITUATION') == 1) {
662  // With old situation invoice setup
663  $sql = "SELECT '".$db->escape($langs->trans("Vide"))."' AS marge,";
664  for ($i = 1; $i <= 12; $i++) {
665  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
666  if ($j > 12) {
667  $j -= 12;
668  }
669  $sql .= " SUM(".$db->ifsql("MONTH(f.datef)=".$j,
670  " (".$db->ifsql("fd.total_ht < 0",
671  " (-1 * (abs(fd.total_ht) - (fd.buy_price_ht * fd.qty * (fd.situation_percent / 100))))", // TODO This is bugged, we must use the percent for the invoice and fd.situation_percent is cumulated percent !
672  " (fd.total_ht - (fd.buy_price_ht * fd.qty * (fd.situation_percent / 100)))").")",
673  0).") AS month".str_pad($j, 2, '0', STR_PAD_LEFT).",";
674  }
675  $sql .= " SUM(".$db->ifsql("fd.total_ht < 0",
676  " (-1 * (abs(fd.total_ht) - (fd.buy_price_ht * fd.qty * (fd.situation_percent / 100))))", // TODO This is bugged, we must use the percent for the invoice and fd.situation_percent is cumulated percent !
677  " (fd.total_ht - (fd.buy_price_ht * fd.qty * (fd.situation_percent / 100)))").") as total";
678  } else {
679  $sql = "SELECT '".$db->escape($langs->trans("Vide"))."' AS marge,";
680  for ($i = 1; $i <= 12; $i++) {
681  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
682  if ($j > 12) {
683  $j -= 12;
684  }
685  $sql .= " SUM(".$db->ifsql("MONTH(f.datef)=".$j,
686  " (".$db->ifsql("fd.total_ht < 0",
687  " (-1 * (abs(fd.total_ht) - (fd.buy_price_ht * fd.qty)))",
688  " (fd.total_ht - (fd.buy_price_ht * fd.qty))").")",
689  0).") AS month".str_pad($j, 2, '0', STR_PAD_LEFT).",";
690  }
691  $sql .= " SUM(".$db->ifsql("fd.total_ht < 0",
692  " (-1 * (abs(fd.total_ht) - (fd.buy_price_ht * fd.qty)))",
693  " (fd.total_ht - (fd.buy_price_ht * fd.qty))").") as total";
694  }
695  $sql .= " FROM ".MAIN_DB_PREFIX."facturedet as fd";
696  $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."facture as f ON f.rowid = fd.fk_facture";
697  $sql .= " WHERE f.datef >= '".$db->idate($search_date_start)."'";
698  $sql .= " AND f.datef <= '".$db->idate($search_date_end)."'";
699  // Define begin binding date
700  if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
701  $sql .= " AND f.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
702  }
703  $sql .= " AND f.entity IN (".getEntity('invoice', 0).")"; // We don't share object for accountancy
704  $sql .= " AND f.fk_statut > 0";
705  $sql .= " AND fd.product_type <= 2";
706  if (!empty($conf->global->FACTURE_DEPOSITS_ARE_JUST_PAYMENTS)) {
707  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.", ".Facture::TYPE_REPLACEMENT.", ".Facture::TYPE_CREDIT_NOTE.", ".Facture::TYPE_SITUATION.")";
708  } else {
709  $sql .= " AND f.type IN (".Facture::TYPE_STANDARD.", ".Facture::TYPE_REPLACEMENT.", ".Facture::TYPE_CREDIT_NOTE.", ".Facture::TYPE_DEPOSIT.", ".Facture::TYPE_SITUATION.")";
710  }
711  dol_syslog('htdocs/accountancy/customer/index.php');
712  $resql = $db->query($sql);
713  if ($resql) {
714  $num = $db->num_rows($resql);
715 
716  while ($row = $db->fetch_row($resql)) {
717  print '<tr><td>'.$row[0].'</td>';
718  for ($i = 1; $i <= 12; $i++) {
719  print '<td class="right nowraponall amount">'.price(price2num($row[$i])).'</td>';
720  }
721  print '<td class="right nowraponall amount"><b>'.price(price2num($row[13])).'</b></td>';
722  print '</tr>';
723  }
724  $db->free($resql);
725  } else {
726  print $db->lasterror(); // Show last sql error
727  }
728  print "</table>\n";
729  print '</div>';
730  }
731 }
732 
733 // End of page
734 llxFooter();
735 $db->close();
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
Class to manage accounting accounts.
Class to manage invoices.
const TYPE_REPLACEMENT
Replacement invoice.
const TYPE_SITUATION
Situation invoice.
const TYPE_DEPOSIT
Deposit invoice.
const TYPE_CREDIT_NOTE
Credit note invoice.
Class to manage invoice lines.
Class to manage products or services.
Class to manage third parties objects (customers, suppliers, prospects...)
isInEEC($object)
Return if a country of an object is inside the EEC (European Economic Community)
if(isModEnabled('facture') && $user->hasRight('facture', 'lire')) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') && $user->hasRight('don', 'lire')) if(isModEnabled('tax') &&!empty($user->rights->tax->charges->lire)) if(isModEnabled('facture') &&isModEnabled('commande') && $user->hasRight("commande", "lire") &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $sql
Social contributions to pay.
Definition: index.php:746
dolSqlDateFilter($datefield, $day_date, $month_date, $year_date, $excludefirstand=0, $gm=false)
Generate a SQL string to make a filter into a range (for second of date until last second of date).
Definition: date.lib.php:359
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
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...
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
setEventMessage($mesgs, $style='mesgs', $noduplicate=0)
Set event message in dol_events session object.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
dol_getIdFromCode($db, $key, $tablename, $fieldkey='code', $fieldid='id', $entityfilter=0, $filters='')
Return an id or code from a code or id.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
img_previous($titlealt='default', $moreatt='')
Show previous logo.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
info_admin($text, $infoonimgalt=0, $nodiv=0, $admin='1', $morecss='hideonsmartphone', $textfordropdown='')
Show information for admin users or standard users.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
img_next($titlealt='default', $moreatt='')
Show next logo.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
isModEnabled($module)
Is Dolibarr module enabled.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
llxFooter()
Footer empty.
Definition: index.php:71
if(!defined('NOTOKENRENEWAL')) if(!defined('NOLOGIN')) if(!defined('NOCSRFCHECK')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) if(!defined('NOIPCHECK')) if(!defined('NOBROWSERNOTIF')) llxHeader()
Header empty.
Definition: index.php:63
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.