dolibarr 21.0.0-alpha
facture.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2016 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2014 Juanjo Menent <jmenent@2byte.es>
6 * Copyright (C) 2014 Florian Henry <florian.henry@open-concept.pro>
7 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
8 *
9 * This program is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU General Public License as published by
11 * the Free Software Foundation; either version 3 of the License, or
12 * (at your option) any later version.
13 *
14 * This program is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU General Public License for more details.
18 *
19 * You should have received a copy of the GNU General Public License
20 * along with this program. If not, see <https://www.gnu.org/licenses/>.
21 */
22
29// Load Dolibarr environment
30require '../../main.inc.php';
31require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
32require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture.class.php';
33require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
34require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
35
36// Load translation files required by the page
37$langs->loadLangs(array('companies', 'bills', 'products', 'supplier_proposal'));
38
39$action = GETPOST('action', 'aZ');
40
41$id = GETPOSTINT('id');
42$ref = GETPOST('ref', 'alpha');
43
44// Security check
45$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
46$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
47$socid = '';
48if (!empty($user->socid)) {
49 $socid = $user->socid;
50}
51
52// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
53$hookmanager->initHooks(array('productstatsinvoice'));
54$extrafields = new ExtraFields($db);
55
56// Fetch optionals attributes and labels
57$extrafields->fetch_name_optionals_label('facture');
58
59$search_array_options = $extrafields->getOptionalsFromPost('facture', '', 'search_');
60
61$showmessage = GETPOST('showmessage');
62
63// Load variable for pagination
64$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
65$sortfield = GETPOST('sortfield', 'aZ09comma');
66$sortorder = GETPOST('sortorder', 'aZ09comma');
67$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
68if (empty($page) || $page == -1) {
69 $page = 0;
70} // If $page is not defined, or '' or -1
71$offset = $limit * $page;
72$pageprev = $page - 1;
73$pagenext = $page + 1;
74if (!$sortorder) {
75 $sortorder = "DESC";
76}
77if (!$sortfield) {
78 $sortfield = "f.datef";
79}
80
81$option = '';
82
83$search_date_startday = GETPOSTINT('search_date_startday');
84if (!empty($search_date_startday)) {
85 $option .= '&search_date_startday='.$search_date_startday;
86}
87$search_date_startmonth = GETPOSTINT('search_date_startmonth');
88if (!empty($search_date_startmonth)) {
89 $option .= '&search_date_startmonth='.$search_date_startmonth;
90}
91$search_date_startyear = GETPOSTINT('search_date_startyear');
92if (!empty($search_date_startyear)) {
93 $option .= '&search_date_startyear='.$search_date_startyear;
94}
95$search_date_endday = GETPOSTINT('search_date_endday');
96if (!empty($search_date_endday)) {
97 $option .= '&search_date_endday='.$search_date_endday;
98}
99$search_date_endmonth = GETPOSTINT('search_date_endmonth');
100if (!empty($search_date_endmonth)) {
101 $option .= '&search_date_endmonth='.$search_date_endmonth;
102}
103$search_date_endyear = GETPOSTINT('search_date_endyear');
104if (!empty($search_date_endyear)) {
105 $option .= '&search_date_endyear='.$search_date_endyear;
106}
107$search_date_start = dol_mktime(0, 0, 0, $search_date_startmonth, $search_date_startday, $search_date_startyear); // Use tzserver
108$search_date_end = dol_mktime(23, 59, 59, $search_date_endmonth, $search_date_endday, $search_date_endyear);
109
110if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
111 $search_date_startday = '';
112 $search_date_startmonth = '';
113 $search_date_startyear = '';
114 $search_date_endday = '';
115 $search_date_endmonth = '';
116 $search_date_endyear = '';
117 $search_date_start = '';
118 $search_date_end = '';
119}
120
121$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
122
123
124/*
125 * View
126 */
127
128$invoicestatic = new Facture($db);
129$societestatic = new Societe($db);
130
131$form = new Form($db);
132$formother = new FormOther($db);
133
134if ($id > 0 || !empty($ref)) {
135 $product = new Product($db);
136 $result = $product->fetch($id, $ref);
137
138 $object = $product;
139
140 $parameters = array('id' => $id);
141 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
142 if ($reshook < 0) {
143 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
144 }
145
146 $title = $langs->trans('ProductServiceCard');
147 $helpurl = '';
148 $shortlabel = dol_trunc($object->label, 16);
149 if (GETPOST("type") == '0' || ($object->type == Product::TYPE_PRODUCT)) {
150 $title = $langs->trans('Product')." ".$shortlabel." - ".$langs->trans('Referers');
151 $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
152 }
153 if (GETPOST("type") == '1' || ($object->type == Product::TYPE_SERVICE)) {
154 $title = $langs->trans('Service')." ".$shortlabel." - ".$langs->trans('Referers');
155 $helpurl = 'EN:Module_Services_En|FR:Module_Services|ES:M&oacute;dulo_Servicios';
156 }
157
158 llxHeader('', $title, $helpurl, '', 0, 0, '', '', '', 'mod-product page-stats_facture');
159
160 if ($result > 0) {
161 $head = product_prepare_head($product);
162 $titre = $langs->trans("CardProduct".$product->type);
163 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
164 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
165
166 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
167 print $hookmanager->resPrint;
168 if ($reshook < 0) {
169 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
170 }
171
172 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1&type='.$object->type.'">'.$langs->trans("BackToList").'</a>';
173
174 $shownav = 1;
175 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
176 $shownav = 0;
177 }
178
179 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
180
181 print '<div class="fichecenter">';
182
183 print '<div class="underbanner clearboth"></div>';
184 print '<table class="border tableforfield centpercent">';
185
186 $nboflines = show_stats_for_company($product, $socid);
187
188 print "</table>";
189
190 print '</div>';
191 print '<div class="clearboth"></div>';
192
193 print dol_get_fiche_end();
194
195 if ($showmessage && $nboflines > 1) {
196 print '<span class="opacitymedium">'.$langs->trans("ClinkOnALinkOfColumn", $langs->transnoentitiesnoconv("Referers")).'</span>';
197 } elseif ($user->hasRight('facture', 'lire')) {
198 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client,";
199 $sql .= " f.ref, f.datef, f.paye, f.type, f.fk_statut as statut, f.rowid as facid,";
200 $sql .= " d.rowid, d.total_ht as total_ht, d.qty"; // We must keep the d.rowid here to not loose record because of the distinct used to ignore duplicate line when link on societe_commerciaux is used
201 if (!$user->hasRight('societe', 'client', 'voir')) {
202 $sql .= ", sc.fk_soc, sc.fk_user ";
203 }
204 // Add fields from extrafields
205 if (!empty($extrafields->attributes['facture']['label'])) {
206 foreach ($extrafields->attributes['facture']['label'] as $key => $val) {
207 $sql .= ($extrafields->attributes['facture']['type'][$key] != 'separate' ? ", ef.".$key." as options_".$key : '');
208 }
209 }
210 // Add fields from hooks
211 $parameters = array();
212 $reshook = $hookmanager->executeHooks('printFieldListSelect', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
213 $sql .= $hookmanager->resPrint;
214 $sql = preg_replace('/,\s*$/', '', $sql);
215
216 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
217 $sql .= ", ".MAIN_DB_PREFIX."facture as f";
218 if (isset($extrafields->attributes['facture']['label']) && is_array($extrafields->attributes['facture']['label']) && count($extrafields->attributes['facture']['label'])) {
219 $sql .= " LEFT JOIN ".MAIN_DB_PREFIX.'facture'."_extrafields as ef on (f.rowid = ef.fk_object)";
220 }
221 $sql .= ", ".MAIN_DB_PREFIX."facturedet as d";
222 if (!$user->hasRight('societe', 'client', 'voir')) {
223 $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
224 }
225 // Add table from hooks
226 $parameters = array();
227 $reshook = $hookmanager->executeHooks('printFieldListFrom', $parameters, $object); // Note that $action and $object may have been modified by hook
228 $sql .= $hookmanager->resPrint;
229
230 $sql .= " WHERE f.fk_soc = s.rowid";
231 $sql .= " AND f.entity IN (".getEntity('invoice').")";
232 $sql .= " AND d.fk_facture = f.rowid";
233 $sql .= " AND d.fk_product = ".((int) $product->id);
234 if ($search_date_start) {
235 $sql .= " AND f.datef >= '".$db->idate($search_date_start)."'";
236 }
237 if ($search_date_end) {
238 $sql .= " AND f.datef <= '".$db->idate($search_date_end)."'";
239 }
240 if (!$user->hasRight('societe', 'client', 'voir')) {
241 $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
242 }
243 if ($socid) {
244 $sql .= " AND f.fk_soc = ".((int) $socid);
245 }
246 // Add where from extra fields
247 $extrafieldsobjectkey = 'facture';
248 include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_list_search_sql.tpl.php';
249 // Add where from hooks
250 $parameters = array();
251 $reshook = $hookmanager->executeHooks('printFieldListWhere', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
252 $sql .= $hookmanager->resPrint;
253
254 // Add HAVING from hooks
255 $parameters = array();
256 $reshook = $hookmanager->executeHooks('printFieldListHaving', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
257 $sql .= empty($hookmanager->resPrint) ? "" : " HAVING 1=1 ".$hookmanager->resPrint;
258
259 $sql .= $db->order($sortfield, $sortorder);
260
261 // Calcul total qty and amount for global if full scan list
262 $total_ht = 0;
263 $total_qty = 0;
264
265 // Count total nb of records
266 $totalofrecords = '';
267 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
268 $result = $db->query($sql);
269 $totalofrecords = $db->num_rows($result);
270 }
271
272 $sql .= $db->plimit($limit + 1, $offset);
273
274 $result = $db->query($sql);
275 if ($result) {
276 $num = $db->num_rows($result);
277
278 $option .= '&id='.$product->id;
279
280 if ($limit > 0 && $limit != $conf->liste_limit) {
281 $option .= '&limit='.((int) $limit);
282 }
283
284 // Add $param from extra fields
285 include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_list_search_param.tpl.php';
286 // Add $param from hooks
287 $parameters = array('param' => &$param);
288 $reshook = $hookmanager->executeHooks('printFieldListSearchParam', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
289 $option .= $hookmanager->resPrint;
290
291 print '<form method="post" action="'.$_SERVER ['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
292 print '<input type="hidden" name="token" value="'.newToken().'">';
293 if (!empty($sortfield)) {
294 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
295 }
296 if (!empty($sortorder)) {
297 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
298 }
299
300 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
301 print_barre_liste($langs->trans("CustomersInvoices"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
302
303 if (!empty($page)) {
304 $option .= '&page='.urlencode((string) ($page));
305 }
306
307 print '<div class="liste_titre liste_titre_bydiv centpercent">';
308 print '<div class="divsearchfield">';
309 print $langs->trans('Period').' ('.$langs->trans("DateInvoice").') - ';
310 print $form->selectDate($search_date_start ? $search_date_start : -1, 'search_date_start', 0, 0, 1, '', 1, 0, 0, '', '', '', '', 1, '', $langs->trans('From'));
311 print $form->selectDate($search_date_end ? $search_date_end : -1, 'search_date_end', 0, 0, 1, '', 1, 0, 0, '', '', '', '', 1, '', $langs->trans('to'));
312 $parameters = array();
313 $reshook = $hookmanager->executeHooks('printFieldPreListTitle', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
314 print $hookmanager->resPrint;
315
316 print '<div style="vertical-align: middle; display: inline-block">';
317 print '<input type="image" class="liste_titre" name="button_search" src="'.img_picto($langs->trans("Search"), 'search.png', '', 0, 1).'" value="'.dol_escape_htmltag($langs->trans("Search")).'" title="'.dol_escape_htmltag($langs->trans("Search")).'">';
318 print '<input type="image" class="liste_titre" name="button_removefilter" src="'.img_picto($langs->trans("Search"), 'searchclear.png', '', 0, 1).'" value="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'" title="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'">';
319 print '</div>';
320 print '</div>';
321 print '</div>';
322
323 $i = 0;
324 print '<div class="div-table-responsive">';
325 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
326 print '<tr class="liste_titre">';
327 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "s.rowid", "", $option, '', $sortfield, $sortorder);
328 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
329 print_liste_field_titre("CustomerCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
330 print_liste_field_titre("DateInvoice", $_SERVER["PHP_SELF"], "f.datef", "", $option, 'align="center"', $sortfield, $sortorder);
331 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
332 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "d.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
333 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "f.paye,f.fk_statut", "", $option, 'align="right"', $sortfield, $sortorder);
334 // Hook fields
335 $parameters = array('param' => $option, 'sortfield' => $sortfield, 'sortorder' => $sortorder);
336 $reshook = $hookmanager->executeHooks('printFieldListTitle', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
337 print $hookmanager->resPrint;
338 print "</tr>\n";
339
340 if ($num > 0) {
341 while ($i < min($num, $limit)) {
342 $objp = $db->fetch_object($result);
343
344 if ($objp->type == Facture::TYPE_CREDIT_NOTE) {
345 $objp->qty = -($objp->qty);
346 }
347
348 $total_ht += $objp->total_ht;
349 $total_qty += $objp->qty;
350
351 $invoicestatic->id = $objp->facid;
352 $invoicestatic->ref = $objp->ref;
353 $societestatic->fetch($objp->socid);
354 $paiement = $invoicestatic->getSommePaiement();
355
356 print '<tr class="oddeven">';
357 print '<td>';
358 print $invoicestatic->getNomUrl(1);
359 print "</td>\n";
360 print '<td>'.$societestatic->getNomUrl(1).'</td>';
361 print "<td>".$objp->code_client."</td>\n";
362 print '<td class="center">';
363 print dol_print_date($db->jdate($objp->datef), 'dayhour')."</td>";
364 print '<td class="center">'.$objp->qty."</td>\n";
365 print '<td class="right">'.price($objp->total_ht)."</td>\n";
366 print '<td class="right">'.$invoicestatic->LibStatut($objp->paye, $objp->statut, 5, $paiement, $objp->type).'</td>';
367 // Fields from hook
368 $parameters = array();
369 $reshook = $hookmanager->executeHooks('printFieldListValue', $parameters, $object, $action); // Note that $action and $object may have been modified by hook
370 print $hookmanager->resPrint;
371 print "</tr>\n";
372 $i++;
373 }
374 }
375 print '<tr class="liste_total">';
376 if ($num < $limit && empty($offset)) {
377 print '<td>'.$langs->trans("Total").'</td>';
378 } else {
379 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
380 }
381 print '<td colspan="3"></td>';
382 print '<td class="center">'.$total_qty.'</td>';
383 print '<td class="right">'.price($total_ht).'</td>';
384 print '<td></td>';
385 print "</table>";
386 print '</div>';
387 print '</form>';
388 } else {
389 dol_print_error($db);
390 }
391 $db->free($result);
392 }
393 }
394} else {
396}
397
398// End of page
399llxFooter();
400$db->close();
$id
Definition account.php:39
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:58
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 standard extra fields.
Class to manage invoices.
const TYPE_CREDIT_NOTE
Credit note invoice.
Class to manage generation of HTML components Only common components must be here.
Class permettant la generation de composants html autre Only common components are here.
Class to manage products or services.
const TYPE_PRODUCT
Regular product.
const TYPE_SERVICE
Service.
Class to manage third parties objects (customers, suppliers, prospects...)
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...
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='', $noduplicate=0, $attop=0)
Set event messages in dol_events session object.
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
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).
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
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.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_trunc($string, $size=40, $trunc='right', $stringencoding='UTF-8', $nodot=0, $display=0)
Truncate a string to a particular length adding '…' if string larger than length.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
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...
product_prepare_head($object)
Prepare array with list of tabs.
show_stats_for_company($product, $socid)
Show stats for a product.
restrictedArea(User $user, $features, $object=0, $tableandshare='', $feature2='', $dbt_keyfield='fk_soc', $dbt_select='rowid', $isdraft=0, $mode=0)
Check permissions of a user to show a page and an object.