dolibarr 18.0.6
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
28require '../../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
30require_once DOL_DOCUMENT_ROOT.'/core/lib/accounting.lib.php';
31require_once DOL_DOCUMENT_ROOT.'/core/lib/company.lib.php';
32require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
33require_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
42if (!isModEnabled('accounting')) {
43 accessforbidden();
44}
45if ($user->socid > 0) {
46 accessforbidden();
47}
48if (!$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);
55if (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;
65if ($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
79if (!isModEnabled('accounting')) {
80 accessforbidden();
81}
82if ($user->socid > 0) {
83 accessforbidden();
84}
85if (!$user->hasRight('accounting', 'mouvements', 'lire')) {
86 accessforbidden();
87}
88
89
90/*
91 * Actions
92 */
93
94if (($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
119if ($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
301llxHeader('', $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
306print load_fiche_titre($langs->trans("SuppliersVentilation")." ".$textprevyear."&nbsp;".$langs->trans("Year")."&nbsp;".$year_start."&nbsp;".$textnextyear, '', 'title_accountancy');
307
308print '<span class="opacitymedium">'.$langs->trans("DescVentilSupplier").'</span><br>';
309print '<span class="opacitymedium hideonsmartphone">'.$langs->trans("DescVentilMore", $langs->transnoentitiesnoconv("ValidateHistory"), $langs->transnoentitiesnoconv("ToBind")).'<br>';
310print '</span><br>';
311
312$y = $year_current;
313
314$buttonbind = '<a class="butAction smallpaddingimp" href="'.$_SERVER['PHP_SELF'].'?action=validatehistory&token='.newToken().'">'.img_picto('', 'link', 'class="paddingright fa-color-unset smallpaddingimp"').$langs->trans("ValidateHistory").'</a>';
315
316
317print_barre_liste(img_picto('', 'unlink', 'class="paddingright fa-color-unset"').$langs->trans("OverviewOfAmountOfLinesNotBound"), '', '', '', '', '', '', -1, '', '', 0, '', '', 0, 1, 1, 0, $buttonbind);
318//print load_fiche_titre($langs->trans("OverviewOfAmountOfLinesNotBound"), $buttonbind, '');
319
320print '<div class="div-table-responsive-no-min">';
321print '<table class="noborder centpercent">';
322print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
323print '<td>'.$langs->trans("Label").'</td>';
324for ($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}
348print '<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,";
352for ($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
366if (!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";
373if (!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
380dol_syslog('htdocs/accountancy/supplier/index.php', LOG_DEBUG);
381$resql = $db->query($sql);
382if ($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}
442print "</table>\n";
443print '</div>';
444
445
446print '<br>';
447
448
449print_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
452print '<div class="div-table-responsive-no-min">';
453print '<table class="noborder centpercent">';
454print '<tr class="liste_titre"><td class="minwidth100">'.$langs->trans("Account").'</td>';
455print '<td>'.$langs->trans("Label").'</td>';
456for ($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}
480print '<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,";
484for ($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
498if (!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";
504if (!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
513dol_syslog('htdocs/accountancy/supplier/index.php');
514$resql = $db->query($sql);
515if ($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}
554print "</table>\n";
555print '</div>';
556
557
558if (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
625llxFooter();
626$db->close();
length_accountg
length_accountg($account)
Return General accounting account with defined length (used for product and miscellaneous)
Definition accounting.lib.php:94
llxHeader
if(!defined('NOREQUIRESOC')) if(!defined( 'NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined( 'NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined( 'NOREQUIREAJAX')) llxHeader()
Empty header.
Definition wrapper.php:56
llxFooter
llxFooter()
Empty footer.
Definition wrapper.php:70
AccountingAccount
Class to manage accounting accounts.
Definition accountingaccount.class.php:37
FactureFournisseur
Class to manage suppliers invoices.
Definition fournisseur.facture.class.php:52
FactureFournisseur\TYPE_DEPOSIT
const TYPE_DEPOSIT
Deposit invoice.
Definition fournisseur.facture.class.php:346
FactureFournisseur\TYPE_CREDIT_NOTE
const TYPE_CREDIT_NOTE
Credit note invoice.
Definition fournisseur.facture.class.php:341
FactureFournisseur\TYPE_REPLACEMENT
const TYPE_REPLACEMENT
Replacement invoice.
Definition fournisseur.facture.class.php:336
Product
Class to manage products or services.
Definition product.class.php:47
Societe
Class to manage third parties objects (customers, suppliers, prospects...)
Definition societe.class.php:52
SupplierInvoiceLine
Class to manage line invoices.
Definition fournisseur.facture.class.php:3377
isInEEC
isInEEC($object)
Return if a country of an object is inside the EEC (European Economic Community)
Definition company.lib.php:786
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:360
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:596
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:3015
load_fiche_titre
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
Definition functions.lib.php:5526
price2num
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
Definition functions.lib.php:6004
setEventMessage
setEventMessage($mesgs, $style='mesgs', $noduplicate=0)
Set event message in dol_events session object.
Definition functions.lib.php:8691
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:5878
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:2722
dol_now
dol_now($mode='auto')
Return date for now.
Definition functions.lib.php:3103
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
Definition functions.lib.php:156
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:4182
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:9145
img_previous
img_previous($titlealt='default', $moreatt='')
Show previous logo.
Definition functions.lib.php:4886
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:614
setEventMessages
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0)
Set event messages in dol_events session object.
Definition functions.lib.php:8727
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:5579
img_next
img_next($titlealt='default', $moreatt='')
Show next logo.
Definition functions.lib.php:4867
getDolGlobalString
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
Definition functions.lib.php:142
dol_syslog
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
Definition functions.lib.php:1788
dol_getdate
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.
Definition functions.lib.php:2972
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:1647
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:1185
Generated on Mon Sep 2 2024 01:00:30 for dolibarr by Doxygen 1.11.0