dolibarr 18.0.6
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
30require '../../main.inc.php';
31require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
32require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
33require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
34require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
35require_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
44if (!isModEnabled('accounting')) {
46}
47if ($user->socid > 0) {
49}
50if (!$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);
57if (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;
67if ($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
81if (!isModEnabled('accounting')) {
83}
84if ($user->socid > 0) {
86}
87if (!$user->hasRight('accounting', 'mouvements', 'lire')) {
89}
90
91
92/*
93 * Actions
94 */
95
96if (($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
121if ($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
303llxHeader('', $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
309print load_fiche_titre($langs->trans("CustomersVentilation")." ".$textprevyear." ".$langs->trans("Year")." ".$year_start." ".$textnextyear, '', 'title_accountancy');
310
311print '<span class="opacitymedium">'.$langs->trans("DescVentilCustomer").'</span><br>';
312print '<span class="opacitymedium hideonsmartphone">'.$langs->trans("DescVentilMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
313print '</span><br>';
314
315if (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 smallpaddingimp" href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&token='.newToken().'">'.img_picto($langs->trans("ValidateHistory"), 'link', 'class="pictofixedwidth fa-color-unset"').$langs->trans("ValidateHistory").'</a>';
323
324print_barre_liste(img_picto('', 'unlink', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesNotBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1, 0, $buttonbind);
325//print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');
326
327print '<div class="div-table-responsive-no-min">';
328print '<table class="noborder centpercent">';
329print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
330print '<td>'.$langs->trans("Label").'</td>';
331for ($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}
355print '<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,";
359for ($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
373if (!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";
380if (!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
387dol_syslog('htdocs/accountancy/customer/index.php', LOG_DEBUG);
388$resql = $db->query($sql);
389if ($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}
454print "</table>\n";
455print '</div>';
456
457
458print '<br>';
459
460
461print_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
464print '<div class="div-table-responsive-no-min">';
465print '<table class="noborder centpercent">';
466print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
467print '<td>'.$langs->trans("Label").'</td>';
468for ($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}
492print '<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,";
496for ($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
510if (!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";
516if (!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
525dol_syslog('htdocs/accountancy/customer/index.php');
526$resql = $db->query($sql);
527if ($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}
578print "</table>\n";
579print '</div>';
580
581
582if (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
734llxFooter();
735$db->close();
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
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
llxFooter()
Empty footer.
Definition wrapper.php:70
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)
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:361
dol_get_last_day($year, $month=12, $gm=false)
Return GMT time for last day of a month or year.
Definition date.lib.php:597
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.
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.
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.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.