dolibarr  19.0.0-dev
index.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2013-2014 Olivier Geffroy <jeff@jeffinfo.com>
3  * Copyright (C) 2013-2021 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  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program. If not, see <https://www.gnu.org/licenses/>.
19  */
20 
27 // Load Dolibarr environment
28 require '../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
31 require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
32 require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
33 require_once DOL_DOCUMENT_ROOT.'/accountancy/class/accountingaccount.class.php';
34 
35 // Load translation files required by the page
36 $langs->loadLangs(array("compta", "bills", "other", "accountancy"));
37 
38 $validatemonth = GETPOST('validatemonth', 'int');
39 $validateyear = GETPOST('validateyear', 'int');
40 
41 // Security check
42 if (!isModEnabled('accounting')) {
43  accessforbidden();
44 }
45 if ($user->socid > 0) {
46  accessforbidden();
47 }
48 if (!$user->hasRight('accounting', 'bind', 'write')) {
49  accessforbidden();
50 }
51 
52 $accountingAccount = new AccountingAccount($db);
53 
54 $month_start = ($conf->global->SOCIETE_FISCAL_MONTH_START ? ($conf->global->SOCIETE_FISCAL_MONTH_START) : 1);
55 if (GETPOST("year", 'int')) {
56  $year_start = GETPOST("year", 'int');
57 } else {
58  $year_start = dol_print_date(dol_now(), '%Y');
59  if (dol_print_date(dol_now(), '%m') < $month_start) {
60  $year_start--; // If current month is lower that starting fiscal month, we start last year
61  }
62 }
63 $year_end = $year_start + 1;
64 $month_end = $month_start - 1;
65 if ($month_end < 1) {
66  $month_end = 12;
67  $year_end--;
68 }
69 $search_date_start = dol_mktime(0, 0, 0, $month_start, 1, $year_start);
70 $search_date_end = dol_get_last_day($year_end, $month_end);
71 $year_current = $year_start;
72 
73 // Validate History
74 $action = GETPOST('action', 'aZ09');
75 
76 $chartaccountcode = dol_getIdFromCode($db, getDolGlobalInt('CHARTOFACCOUNTS'), 'accounting_system', 'rowid', 'pcg_version');
77 
78 // Security check
79 if (!isModEnabled('accounting')) {
80  accessforbidden();
81 }
82 if ($user->socid > 0) {
83  accessforbidden();
84 }
85 if (!$user->hasRight('accounting', 'mouvements', 'lire')) {
86  accessforbidden();
87 }
88 
89 
90 /*
91  * Actions
92  */
93 
94 if (($action == 'clean' || $action == 'validatehistory') && $user->hasRight('accounting', 'bind', 'write')) {
95  // Clean database
96  $db->begin();
97  $sql1 = "UPDATE ".$db->prefix()."facture_fourn_det as fd";
98  $sql1 .= " SET fk_code_ventilation = 0";
99  $sql1 .= ' WHERE fd.fk_code_ventilation NOT IN';
100  $sql1 .= ' (SELECT accnt.rowid ';
101  $sql1 .= " FROM ".$db->prefix()."accounting_account as accnt";
102  $sql1 .= " INNER JOIN ".$db->prefix()."accounting_system as syst";
103  $sql1 .= " ON accnt.fk_pcg_version = syst.pcg_version AND syst.rowid = ".getDolGlobalInt('CHARTOFACCOUNTS')." AND accnt.entity = ".((int) $conf->entity).")";
104  $sql1 .= " AND fd.fk_facture_fourn IN (SELECT rowid FROM ".$db->prefix()."facture_fourn WHERE entity = ".((int) $conf->entity).")";
105  $sql1 .= " AND fk_code_ventilation <> 0";
106 
107  dol_syslog("htdocs/accountancy/customer/index.php fixaccountancycode", LOG_DEBUG);
108  $resql1 = $db->query($sql1);
109  if (!$resql1) {
110  $error++;
111  $db->rollback();
112  setEventMessages($db->lasterror(), null, 'errors');
113  } else {
114  $db->commit();
115  }
116  // End clean database
117 }
118 
119 if ($action == 'validatehistory') {
120  $error = 0;
121  $nbbinddone = 0;
122  $nbbindfailed = 0;
123  $notpossible = 0;
124 
125  $db->begin();
126 
127  // Now make the binding. Bind automatically only for product with a dedicated account that exists into chart of account, others need a manual bind
128  // Supplier Invoice Lines (must be same request than into page list.php for manual binding)
129  $sql = "SELECT f.rowid as facid, f.ref, f.ref_supplier, f.libelle as invoice_label, f.datef, f.type as ftype, f.fk_facture_source,";
130  $sql .= " l.rowid, l.fk_product, l.description, l.total_ht, l.fk_code_ventilation, l.product_type as type_l, l.tva_tx as tva_tx_line, l.vat_src_code,";
131  $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,";
132  if (!empty($conf->global->MAIN_PRODUCT_PERENTITY_SHARED)) {
133  $sql .= " ppe.accountancy_code_buy as code_buy, ppe.accountancy_code_buy_intra as code_buy_intra, ppe.accountancy_code_buy_export as code_buy_export,";
134  } else {
135  $sql .= " p.accountancy_code_buy as code_buy, p.accountancy_code_buy_intra as code_buy_intra, p.accountancy_code_buy_export as code_buy_export,";
136  }
137  $sql .= " aa.rowid as aarowid, aa2.rowid as aarowid_intra, aa3.rowid as aarowid_export, aa4.rowid as aarowid_thirdparty,";
138  $sql .= " co.code as country_code, co.label as country_label,";
139  $sql .= " s.tva_intra,";
140  if (!empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED)) {
141  $sql .= " spe.accountancy_code_buy as company_code_buy";
142  } else {
143  $sql .= " s.accountancy_code_buy as company_code_buy";
144  }
145  $sql .= " FROM ".$db->prefix()."facture_fourn as f";
146  $sql .= " INNER JOIN ".$db->prefix()."societe as s ON s.rowid = f.fk_soc";
147  if (!empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED)) {
148  $sql .= " LEFT JOIN " . $db->prefix() . "societe_perentity as spe ON spe.fk_soc = s.rowid AND spe.entity = " . ((int) $conf->entity);
149  }
150  $sql .= " LEFT JOIN ".$db->prefix()."c_country as co ON co.rowid = s.fk_pays ";
151  $sql .= " INNER JOIN ".$db->prefix()."facture_fourn_det as l ON f.rowid = l.fk_facture_fourn";
152  $sql .= " LEFT JOIN ".$db->prefix()."product as p ON p.rowid = l.fk_product";
153  if (!empty($conf->global->MAIN_PRODUCT_PERENTITY_SHARED)) {
154  $sql .= " LEFT JOIN " . $db->prefix() . "product_perentity as ppe ON ppe.fk_product = p.rowid AND ppe.entity = " . ((int) $conf->entity);
155  }
156  $alias_societe_perentity = empty($conf->global->MAIN_COMPANY_PERENTITY_SHARED) ? "s" : "spe";
157  $alias_product_perentity = empty($conf->global->MAIN_PRODUCT_PERENTITY_SHARED) ? "p" : "ppe";
158  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa ON " . $alias_product_perentity . ".accountancy_code_buy = aa.account_number AND aa.active = 1 AND aa.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa.entity = ".$conf->entity;
159  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa2 ON " . $alias_product_perentity . ".accountancy_code_buy_intra = aa2.account_number AND aa2.active = 1 AND aa2.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa2.entity = ".$conf->entity;
160  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa3 ON " . $alias_product_perentity . ".accountancy_code_buy_export = aa3.account_number AND aa3.active = 1 AND aa3.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa3.entity = ".$conf->entity;
161  $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa4 ON " . $alias_product_perentity . ".accountancy_code_buy = aa4.account_number AND aa4.active = 1 AND aa4.fk_pcg_version = '".$db->escape($chartaccountcode)."' AND aa4.entity = ".$conf->entity;
162  $sql .= " WHERE f.fk_statut > 0 AND l.fk_code_ventilation <= 0";
163  $sql .= " AND l.product_type <= 2";
164  $sql .= " AND f.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy
165  if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
166  $sql .= " AND f.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
167  }
168  if ($validatemonth && $validateyear) {
169  $sql .= dolSqlDateFilter('f.datef', 0, $validatemonth, $validateyear);
170  }
171 
172  dol_syslog('htdocs/accountancy/supplier/index.php');
173 
174  $result = $db->query($sql);
175  if (!$result) {
176  $error++;
177  setEventMessages($db->lasterror(), null, 'errors');
178  } else {
179  $num_lines = $db->num_rows($result);
180 
181  $isBuyerInEEC = isInEEC($mysoc);
182 
183  $thirdpartystatic = new Societe($db);
184  $facture_static = new FactureFournisseur($db);
185  $facture_static_det = new SupplierInvoiceLine($db);
186  $product_static = new Product($db);
187 
188  $i = 0;
189  while ($i < min($num_lines, 10000)) { // No more than 10000 at once
190  $objp = $db->fetch_object($result);
191 
192  $thirdpartystatic->id = $objp->socid;
193  $thirdpartystatic->name = $objp->name;
194  $thirdpartystatic->client = $objp->client;
195  $thirdpartystatic->fournisseur = $objp->fournisseur;
196  $thirdpartystatic->code_client = $objp->code_client;
197  $thirdpartystatic->code_compta_client = $objp->code_compta_client;
198  $thirdpartystatic->code_fournisseur = $objp->code_fournisseur;
199  $thirdpartystatic->code_compta_fournisseur = $objp->code_compta_fournisseur;
200  $thirdpartystatic->email = $objp->email;
201  $thirdpartystatic->country_code = $objp->country_code;
202  $thirdpartystatic->tva_intra = $objp->tva_intra;
203  $thirdpartystatic->code_compta_product = $objp->company_code_buy; // The accounting account for product stored on thirdparty object (for level3 suggestion)
204 
205  $product_static->ref = $objp->product_ref;
206  $product_static->id = $objp->product_id;
207  $product_static->type = $objp->type;
208  $product_static->label = $objp->product_label;
209  $product_static->status = $objp->status;
210  $product_static->status_buy = $objp->status_buy;
211  $product_static->accountancy_code_sell = $objp->code_sell;
212  $product_static->accountancy_code_sell_intra = $objp->code_sell_intra;
213  $product_static->accountancy_code_sell_export = $objp->code_sell_export;
214  $product_static->accountancy_code_buy = $objp->code_buy;
215  $product_static->accountancy_code_buy_intra = $objp->code_buy_intra;
216  $product_static->accountancy_code_buy_export = $objp->code_buy_export;
217  $product_static->tva_tx = $objp->tva_tx_prod;
218 
219  $facture_static->ref = $objp->ref;
220  $facture_static->id = $objp->facid;
221  $facture_static->type = $objp->ftype;
222  $facture_static->ref_supplier = $objp->ref_supplier;
223  $facture_static->label = $objp->invoice_label;
224  $facture_static->date = $db->jdate($objp->datef);
225  $facture_static->fk_facture_source = $objp->fk_facture_source;
226 
227  $facture_static_det->id = $objp->rowid;
228  $facture_static_det->total_ht = $objp->total_ht;
229  $facture_static_det->tva_tx = $objp->tva_tx_line;
230  $facture_static_det->vat_src_code = $objp->vat_src_code;
231  $facture_static_det->product_type = $objp->type_l;
232  $facture_static_det->desc = $objp->description;
233 
234  $accountingAccountArray = array(
235  'dom'=>$objp->aarowid,
236  'intra'=>$objp->aarowid_intra,
237  'export'=>$objp->aarowid_export,
238  'thirdparty' =>$objp->aarowid_thirdparty);
239 
240  $code_buy_p_notset = '';
241  $code_buy_t_notset = '';
242 
243  $suggestedid = 0;
244 
245  $return = $accountingAccount->getAccountingCodeToBind($mysoc, $thirdpartystatic, $product_static, $facture_static, $facture_static_det, $accountingAccountArray, 'supplier');
246  if (!is_array($return) && $return<0) {
247  setEventMessage($accountingAccount->error, 'errors');
248  } else {
249  $suggestedid = $return['suggestedid'];
250  $suggestedaccountingaccountfor = $return['suggestedaccountingaccountfor'];
251 
252  if (!empty($suggestedid) && $suggestedaccountingaccountfor != '' && $suggestedaccountingaccountfor != 'eecwithoutvatnumber') {
253  $suggestedid = $return['suggestedid'];
254  } else {
255  $suggestedid = 0;
256  }
257  }
258 
259  if ($suggestedid > 0) {
260  $sqlupdate = "UPDATE ".$db->prefix()."facture_fourn_det";
261  $sqlupdate .= " SET fk_code_ventilation = ".((int) $suggestedid);
262  $sqlupdate .= " WHERE fk_code_ventilation <= 0 AND product_type <= 2 AND rowid = ".((int) $facture_static_det->id);
263 
264  $resqlupdate = $db->query($sqlupdate);
265  if (!$resqlupdate) {
266  $error++;
267  setEventMessages($db->lasterror(), null, 'errors');
268  $nbbindfailed++;
269  break;
270  } else {
271  $nbbinddone++;
272  }
273  } else {
274  $notpossible++;
275  $nbbindfailed++;
276  }
277 
278  $i++;
279  }
280  if ($num_lines > 10000) {
281  $notpossible += ($num_lines - 10000);
282  }
283  }
284 
285  if ($error) {
286  $db->rollback();
287  } else {
288  $db->commit();
289  setEventMessages($langs->trans('AutomaticBindingDone', $nbbinddone, $notpossible), null, ($notpossible ? 'warnings' : 'mesgs'));
290  if ($nbbindfailed) {
291  setEventMessages($langs->trans('DoManualBindingForFailedRecord', $nbbindfailed), null, 'warnings');
292  }
293  }
294 }
295 
296 
297 /*
298  * View
299  */
300 
301 llxHeader('', $langs->trans("SuppliersVentilation"));
302 
303 $textprevyear = '<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current - 1).'">'.img_previous().'</a>';
304 $textnextyear = '&nbsp;<a href="'.$_SERVER["PHP_SELF"].'?year='.($year_current + 1).'">'.img_next().'</a>';
305 
306 print load_fiche_titre($langs->trans("SuppliersVentilation")." ".$textprevyear."&nbsp;".$langs->trans("Year")."&nbsp;".$year_start."&nbsp;".$textnextyear, '', 'title_accountancy');
307 
308 print '<span class="opacitymedium">'.$langs->trans("DescVentilSupplier").'</span><br>';
309 print '<span class="opacitymedium hideonsmartphone">'.$langs->trans("DescVentilMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
310 print '</span><br>';
311 
312 $y = $year_current;
313 
314 $buttonbind = '<a class="butAction" href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&token='.newToken().'">'.img_picto('', 'link', 'class="paddingright fa-color-unset"').$langs->trans("ValidateHistory").'</a>';
315 
316 
317 print_barre_liste(img_picto('', 'unlink', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesNotBound"), '', '', '', '', '', '', -1, '', '', 0, $buttonbind, '', 0, 1, 1);
318 //print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');
319 
320 print '<div class="div-table-responsive-no-min">';
321 print '<table class="noborder centpercent">';
322 print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
323 print '<td>'.$langs->trans("Label").'</td>';
324 for ($i = 1; $i <= 12; $i++) {
325  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
326  if ($j > 12) {
327  $j -= 12;
328  }
329  $cursormonth = $j;
330  if ($cursormonth > 12) {
331  $cursormonth -= 12;
332  }
333  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
334  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
335 
336  print '<td width="60" class="right">';
337  if (!empty($tmp['mday'])) {
338  $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
339  $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
340  print '<a href="'.DOL_URL_ROOT.'/accountancy/supplier/list.php?'.$param.'">';
341  }
342  print $langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT));
343  if (!empty($tmp['mday'])) {
344  print '</a>';
345  }
346  print '</td>';
347 }
348 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
349 
350 $sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
351 $sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
352 for ($i = 1; $i <= 12; $i++) {
353  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
354  if ($j > 12) {
355  $j -= 12;
356  }
357  $sql .= " SUM(".$db->ifsql("MONTH(ff.datef)=".$j, "ffd.total_ht", "0").") AS month".str_pad($j, 2, "0", STR_PAD_LEFT).",";
358 }
359 $sql .= " SUM(ffd.total_ht) as total";
360 $sql .= " FROM ".$db->prefix()."facture_fourn_det as ffd";
361 $sql .= " LEFT JOIN ".$db->prefix()."facture_fourn as ff ON ff.rowid = ffd.fk_facture_fourn";
362 $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa ON aa.rowid = ffd.fk_code_ventilation";
363 $sql .= " WHERE ff.datef >= '".$db->idate($search_date_start)."'";
364 $sql .= " AND ff.datef <= '".$db->idate($search_date_end)."'";
365 // Define begin binding date
366 if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
367  $sql .= " AND ff.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
368 }
369 $sql .= " AND ff.fk_statut > 0";
370 $sql .= " AND ffd.product_type <= 2";
371 $sql .= " AND ff.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy
372 $sql .= " AND aa.account_number IS NULL";
373 if (!empty($conf->global->FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS)) {
374  $sql .= " AND ff.type IN (".FactureFournisseur::TYPE_STANDARD.",".FactureFournisseur::TYPE_REPLACEMENT.",".FactureFournisseur::TYPE_CREDIT_NOTE.")";
375 } else {
376  $sql .= " AND ff.type IN (".FactureFournisseur::TYPE_STANDARD.",".FactureFournisseur::TYPE_REPLACEMENT.",".FactureFournisseur::TYPE_CREDIT_NOTE.",".FactureFournisseur::TYPE_DEPOSIT.")";
377 }
378 $sql .= " GROUP BY ffd.fk_code_ventilation,aa.account_number,aa.label";
379 
380 dol_syslog('htdocs/accountancy/supplier/index.php', LOG_DEBUG);
381 $resql = $db->query($sql);
382 if ($resql) {
383  $num = $db->num_rows($resql);
384 
385  while ($row = $db->fetch_row($resql)) {
386  print '<tr class="oddeven">';
387  print '<td>';
388  if ($row[0] == 'tobind') {
389  print '<span class="opacitymedium">'.$langs->trans("Unknown").'</span>';
390  } else {
391  print length_accountg($row[0]);
392  }
393  print '</td>';
394  print '<td>';
395  if ($row[0] == 'tobind') {
396  $startmonth = ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1);
397  if ($startmonth > 12) {
398  $startmonth -= 12;
399  }
400  $startyear = ($startmonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
401  $endmonth = ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) + 11;
402  if ($endmonth > 12) {
403  $endmonth -= 12;
404  }
405  $endyear = ($endmonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
406  print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/supplier/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"));
407  } else {
408  print $row[1];
409  }
410  print '</td>';
411  for ($i = 2; $i <= 13; $i++) {
412  $cursormonth = (($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) + $i - 2);
413  if ($cursormonth > 12) {
414  $cursormonth -= 12;
415  }
416  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
417  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
418 
419  print '<td class="right nowraponall amount">';
420  print price($row[$i]);
421  // Add link to make binding
422  if (!empty(price2num($row[$i]))) {
423  print '<a href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&year='.$y.'&validatemonth='.((int) $cursormonth).'&validateyear='.((int) $cursoryear).'&token='.newToken().'">';
424  print img_picto($langs->trans("ValidateHistory").' ('.$langs->trans('Month'.str_pad($cursormonth, 2, '0', STR_PAD_LEFT)).' '.$cursoryear.')', 'link', 'class="marginleft2"');
425  print '</a>';
426  }
427  print '</td>';
428  }
429  print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
430  print '</tr>';
431  }
432  $db->free($resql);
433 
434  if ($num == 0) {
435  print '<tr class="oddeven"><td colspan="16">';
436  print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
437  print '</td></tr>';
438  }
439 } else {
440  print $db->lasterror(); // Show last sql error
441 }
442 print "</table>\n";
443 print '</div>';
444 
445 
446 print '<br>';
447 
448 
449 print_barre_liste(img_picto('', 'link', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
450 //print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesBound"), '', '');
451 
452 print '<div class="div-table-responsive-no-min">';
453 print '<table class="noborder centpercent">';
454 print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
455 print '<td>'.$langs->trans("Label").'</td>';
456 for ($i = 1; $i <= 12; $i++) {
457  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
458  if ($j > 12) {
459  $j -= 12;
460  }
461  $cursormonth = $j;
462  if ($cursormonth > 12) {
463  $cursormonth -= 12;
464  }
465  $cursoryear = ($cursormonth < ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1)) ? $y + 1 : $y;
466  $tmp = dol_getdate(dol_get_last_day($cursoryear, $cursormonth, 'gmt'), false, 'gmt');
467 
468  print '<td width="60" class="right">';
469  if (!empty($tmp['mday'])) {
470  $param = 'search_date_startday=1&search_date_startmonth='.$cursormonth.'&search_date_startyear='.$cursoryear;
471  $param .= '&search_date_endday='.$tmp['mday'].'&search_date_endmonth='.$tmp['mon'].'&search_date_endyear='.$tmp['year'];
472  print '<a href="'.DOL_URL_ROOT.'/accountancy/supplier/lines.php?'.$param.'">';
473  }
474  print $langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT));
475  if (!empty($tmp['mday'])) {
476  print '</a>';
477  }
478  print '</td>';
479 }
480 print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
481 
482 $sql = "SELECT ".$db->ifsql('aa.account_number IS NULL', "'tobind'", 'aa.account_number')." AS codecomptable,";
483 $sql .= " ".$db->ifsql('aa.label IS NULL', "'tobind'", 'aa.label')." AS intitule,";
484 for ($i = 1; $i <= 12; $i++) {
485  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
486  if ($j > 12) {
487  $j -= 12;
488  }
489  $sql .= " SUM(".$db->ifsql("MONTH(ff.datef)=".$j, "ffd.total_ht", "0").") AS month".str_pad($j, 2, "0", STR_PAD_LEFT).",";
490 }
491 $sql .= " SUM(ffd.total_ht) as total";
492 $sql .= " FROM ".$db->prefix()."facture_fourn_det as ffd";
493 $sql .= " LEFT JOIN ".$db->prefix()."facture_fourn as ff ON ff.rowid = ffd.fk_facture_fourn";
494 $sql .= " LEFT JOIN ".$db->prefix()."accounting_account as aa ON aa.rowid = ffd.fk_code_ventilation";
495 $sql .= " WHERE ff.datef >= '".$db->idate($search_date_start)."'";
496 $sql .= " AND ff.datef <= '".$db->idate($search_date_end)."'";
497 // Define begin binding date
498 if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
499  $sql .= " AND ff.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
500 }
501 $sql .= " AND ff.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy
502 $sql .= " AND ff.fk_statut > 0";
503 $sql .= " AND ffd.product_type <= 2";
504 if (!empty($conf->global->FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS)) {
505  $sql .= " AND ff.type IN (".FactureFournisseur::TYPE_STANDARD.", ".FactureFournisseur::TYPE_REPLACEMENT.", ".FactureFournisseur::TYPE_CREDIT_NOTE.")";
506 } else {
507  $sql .= " AND ff.type IN (".FactureFournisseur::TYPE_STANDARD.", ".FactureFournisseur::TYPE_REPLACEMENT.", ".FactureFournisseur::TYPE_CREDIT_NOTE.", ".FactureFournisseur::TYPE_DEPOSIT.")";
508 }
509 $sql .= " AND aa.account_number IS NOT NULL";
510 $sql .= " GROUP BY ffd.fk_code_ventilation,aa.account_number,aa.label";
511 $sql .= ' ORDER BY aa.account_number';
512 
513 dol_syslog('htdocs/accountancy/supplier/index.php');
514 $resql = $db->query($sql);
515 if ($resql) {
516  $num = $db->num_rows($resql);
517 
518  while ($row = $db->fetch_row($resql)) {
519  print '<tr class="oddeven">';
520  print '<td>';
521  if ($row[0] == 'tobind') {
522  print $langs->trans("Unknown");
523  } else {
524  print length_accountg($row[0]);
525  }
526  print '</td>';
527 
528  print '<td class="tdoverflowmax300"'.(empty($row[1]) ? '' : ' title="'.dol_escape_htmltag($row[1]).'"').'>';
529  if ($row[0] == 'tobind') {
530  print $langs->trans("UseMenuToSetBindindManualy", DOL_URL_ROOT.'/accountancy/supplier/list.php?search_year='.((int) $y), $langs->transnoentitiesnoconv("ToBind"));
531  } else {
532  print dol_escape_htmltag($row[1]);
533  }
534  print '</td>';
535 
536  for ($i = 2; $i <= 13; $i++) {
537  print '<td class="right nowraponall amount">';
538  print price($row[$i]);
539  print '</td>';
540  }
541  print '<td class="right nowraponall amount"><b>'.price($row[14]).'</b></td>';
542  print '</tr>';
543  }
544  $db->free($resql);
545 
546  if ($num == 0) {
547  print '<tr class="oddeven"><td colspan="16">';
548  print '<span class="opacitymedium">'.$langs->trans("NoRecordFound").'</span>';
549  print '</td></tr>';
550  }
551 } else {
552  print $db->lasterror(); // Show last sql error
553 }
554 print "</table>\n";
555 print '</div>';
556 
557 
558 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 ?
559  print '<br>';
560  print '<br>';
561 
562  print_barre_liste($langs->trans("OtherInfo"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1);
563  //print load_fiche_titre($langs->trans("OtherInfo"), '', '');
564 
565  print '<div class="div-table-responsive-no-min">';
566  print '<table class="noborder centpercent">';
567  print '<tr class="liste_titre"><td>'.$langs->trans("Total").'</td>';
568  for ($i = 1; $i <= 12; $i++) {
569  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
570  if ($j > 12) {
571  $j -= 12;
572  }
573  print '<td width="60" class="right">'.$langs->trans('MonthShort'.str_pad($j, 2, '0', STR_PAD_LEFT)).'</td>';
574  }
575  print '<td width="60" class="right"><b>'.$langs->trans("Total").'</b></td></tr>';
576 
577  $sql = "SELECT '".$db->escape($langs->trans("CAHTF"))."' AS label,";
578  for ($i = 1; $i <= 12; $i++) {
579  $j = $i + ($conf->global->SOCIETE_FISCAL_MONTH_START ? $conf->global->SOCIETE_FISCAL_MONTH_START : 1) - 1;
580  if ($j > 12) {
581  $j -= 12;
582  }
583  $sql .= " SUM(".$db->ifsql("MONTH(ff.datef)=".$j, "ffd.total_ht", "0").") AS month".str_pad($j, 2, "0", STR_PAD_LEFT).",";
584  }
585  $sql .= " SUM(ffd.total_ht) as total";
586  $sql .= " FROM ".$db->prefix()."facture_fourn_det as ffd";
587  $sql .= " LEFT JOIN ".$db->prefix()."facture_fourn as ff ON ff.rowid = ffd.fk_facture_fourn";
588  $sql .= " WHERE ff.datef >= '".$db->idate($search_date_start)."'";
589  $sql .= " AND ff.datef <= '".$db->idate($search_date_end)."'";
590  // Define begin binding date
591  if (!empty($conf->global->ACCOUNTING_DATE_START_BINDING)) {
592  $sql .= " AND ff.datef >= '".$db->idate($conf->global->ACCOUNTING_DATE_START_BINDING)."'";
593  }
594  $sql .= " AND ff.entity IN (".getEntity('facture_fourn', 0).")"; // We don't share object for accountancy
595  $sql .= " AND ff.fk_statut > 0";
596  $sql .= " AND ffd.product_type <= 2";
597  if (!empty($conf->global->FACTURE_SUPPLIER_DEPOSITS_ARE_JUST_PAYMENTS)) {
598  $sql .= " AND ff.type IN (".FactureFournisseur::TYPE_STANDARD.", ".FactureFournisseur::TYPE_REPLACEMENT.", ".FactureFournisseur::TYPE_CREDIT_NOTE.")";
599  } else {
600  $sql .= " AND ff.type IN (".FactureFournisseur::TYPE_STANDARD.", ".FactureFournisseur::TYPE_REPLACEMENT.", ".FactureFournisseur::TYPE_CREDIT_NOTE.", ".FactureFournisseur::TYPE_DEPOSIT.")";
601  }
602 
603  dol_syslog('htdocs/accountancy/supplier/index.php');
604  $resql = $db->query($sql);
605  if ($resql) {
606  $num = $db->num_rows($resql);
607 
608  while ($row = $db->fetch_row($resql)) {
609  print '<tr><td>'.$row[0].'</td>';
610  for ($i = 1; $i <= 12; $i++) {
611  print '<td class="right nowraponall amount">'.price($row[$i]).'</td>';
612  }
613  print '<td class="right nowraponall amount"><b>'.price($row[13]).'</b></td>';
614  print '</tr>';
615  }
616  $db->free($resql);
617  } else {
618  print $db->lasterror(); // Show last sql error
619  }
620  print "</table>\n";
621  print '</div>';
622 }
623 
624 // End of page
625 llxFooter();
626 $db->close();
dol_getdate
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
Definition: functions.lib.php:2925
Societe
Class to manage third parties objects (customers, suppliers, prospects...)
Definition: societe.class.php:51
FactureFournisseur\TYPE_CREDIT_NOTE
const TYPE_CREDIT_NOTE
Credit note invoice.
Definition: fournisseur.facture.class.php:341
dol_escape_htmltag
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0, $cleanalsojavascript=0)
Returns text escaped for inclusion in HTML alt or title or value tags, or into values of HTML input f...
Definition: functions.lib.php:1600
load_fiche_titre
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
Definition: functions.lib.php:5477
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:609
FactureFournisseur
Class to manage suppliers invoices.
Definition: fournisseur.facture.class.php:51
setEventMessage
setEventMessage($mesgs, $style='mesgs', $noduplicate=0)
Set event message in dol_events session object.
Definition: functions.lib.php:8637
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition: functions.lib.php:5955
SupplierInvoiceLine
Class to manage line invoices.
Definition: fournisseur.facture.class.php:3359
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:2675
img_picto
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
Definition: functions.lib.php:4135
llxFooter
llxFooter()
Footer empty.
Definition: index.php:71
img_next
img_next($titlealt='default', $moreatt='')
Show next logo.
Definition: functions.lib.php:4820
dol_getIdFromCode
dol_getIdFromCode($db, $key, $tablename, $fieldkey='code', $fieldid='id', $entityfilter=0, $filters='')
Return an id or code from a code or id.
Definition: functions.lib.php:9091
length_accountg
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
Definition: accounting.lib.php:94
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition: functions.lib.php:1741
print_barre_liste
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.
Definition: functions.lib.php:5530
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
Definition: functions.lib.php:8673
llxHeader
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
$sql
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
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
newToken
newToken()
Return the value of token currently saved into session with name 'newtoken'.
Definition: functions.lib.php:11654
isModEnabled
isModEnabled($module)
Is Dolibarr module enabled.
Definition: functions.lib.php:207
getDolGlobalString
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition: functions.lib.php:142
AccountingAccount
Class to manage accounting accounts.
Definition: accountingaccount.class.php:36
FactureFournisseur\TYPE_DEPOSIT
const TYPE_DEPOSIT
Deposit invoice.
Definition: fournisseur.facture.class.php:346
Product
Class to manage products or services.
Definition: product.class.php:46
dol_now
dol_now($mode='auto')
Return date for now.
Definition: functions.lib.php:3056
dolSqlDateFilter
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
price
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.
Definition: functions.lib.php:5829
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:1169
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:2968
img_previous
img_previous($titlealt='default', $moreatt='')
Show previous logo.
Definition: functions.lib.php:4839
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
Definition: functions.lib.php:156
isInEEC
isInEEC($object)
Return if a country of an object is inside the EEC (European Economic Community)
Definition: company.lib.php:785
FactureFournisseur\TYPE_REPLACEMENT
const TYPE_REPLACEMENT
Replacement invoice.
Definition: fournisseur.facture.class.php:336
Generated on Fri Dec 1 2023 01:00:33 for dolibarr by Doxygen 1.8.17