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