dolibarr 21.0.0-alpha
facturerec.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) 2022 Eric Seigne <eric.seigne@cap-rel.fr>
8 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
9 *
10 * This program is free software; you can redistribute it and/or modify
11 * it under the terms of the GNU General Public License as published by
12 * the Free Software Foundation; either version 3 of the License, or
13 * (at your option) any later version.
14 *
15 * This program is distributed in the hope that it will be useful,
16 * but WITHOUT ANY WARRANTY; without even the implied warranty of
17 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 * GNU General Public License for more details.
19 *
20 * You should have received a copy of the GNU General Public License
21 * along with this program. If not, see <https://www.gnu.org/licenses/>.
22 */
23
30// Load Dolibarr environment
31require '../../main.inc.php';
32require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
33require_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facture-rec.class.php';
34require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
35require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
36
37// Load translation files required by the page
38$langs->loadLangs(array('companies', 'bills', 'products', 'supplier_proposal'));
39
40$id = GETPOSTINT('id');
41$ref = GETPOST('ref', 'alpha');
42
43// Security check
44$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
45$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
46$socid = '';
47if (!empty($user->socid)) {
48 $socid = $user->socid;
49}
50
51// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
52$hookmanager->initHooks(array('productstatsinvoice'));
53
54$showmessage = GETPOST('showmessage');
55
56// Load variable for pagination
57$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
58$sortfield = GETPOST('sortfield', 'aZ09comma');
59$sortorder = GETPOST('sortorder', 'aZ09comma');
60$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
61if (empty($page) || $page == -1) {
62 $page = 0;
63} // If $page is not defined, or '' or -1
64$offset = $limit * $page;
65$pageprev = $page - 1;
66$pagenext = $page + 1;
67if (!$sortorder) {
68 $sortorder = "DESC";
69}
70if (!$sortfield) {
71 $sortfield = "f.datec";
72}
73
74$search_month = GETPOSTINT('search_month');
75$search_year = GETPOSTINT('search_year');
76
77if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
78 $search_month = '';
79 $search_year = '';
80}
81
82$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
83
84
85/*
86 * View
87 */
88
89$invoicestatic = new FactureRec($db);
90$societestatic = new Societe($db);
91
92$form = new Form($db);
93$formother = new FormOther($db);
94
95if ($id > 0 || !empty($ref)) {
96 $product = new Product($db);
97 $result = $product->fetch($id, $ref);
98
99 $object = $product;
100
101 $parameters = array('id' => $id);
102 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
103 if ($reshook < 0) {
104 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
105 }
106
107 $title = $langs->trans('ProductServiceCard');
108 $helpurl = '';
109 $shortlabel = dol_trunc($object->label, 16);
110 if (GETPOST("type") == '0' || ($object->type == Product::TYPE_PRODUCT)) {
111 $title = $langs->trans('Product')." ".$shortlabel." - ".$langs->trans('Referers');
112 $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
113 }
114 if (GETPOST("type") == '1' || ($object->type == Product::TYPE_SERVICE)) {
115 $title = $langs->trans('Service')." ".$shortlabel." - ".$langs->trans('Referers');
116 $helpurl = 'EN:Module_Services_En|FR:Module_Services|ES:M&oacute;dulo_Servicios';
117 }
118
119 llxHeader('', $title, $helpurl, '', 0, 0, '', '', 'mod-product page-stats_facturerec');
120
121 if ($result > 0) {
122 $head = product_prepare_head($product);
123 $titre = $langs->trans("CardProduct".$product->type);
124 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
125 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
126
127 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
128 print $hookmanager->resPrint;
129 if ($reshook < 0) {
130 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
131 }
132
133 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
134
135 $shownav = 1;
136 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
137 $shownav = 0;
138 }
139
140 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
141
142 print '<div class="fichecenter">';
143
144 print '<div class="underbanner clearboth"></div>';
145 print '<table class="border tableforfield" width="100%">';
146
147 $nboflines = show_stats_for_company($product, $socid);
148
149 print "</table>";
150
151 print '</div>';
152 print '<div class="clearboth"></div>';
153
154 print dol_get_fiche_end();
155
156 if ($showmessage && $nboflines > 1) {
157 print '<span class="opacitymedium">'.$langs->trans("ClinkOnALinkOfColumn", $langs->transnoentitiesnoconv("Referers")).'</span>';
158 } elseif ($user->hasRight('facture', 'lire')) {
159 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client,";
160 $sql .= "f.rowid as facid, 0 as type, f.titre as title, f.datec, f.suspended as suspended,";
161 $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
162 if (!$user->hasRight('societe', 'client', 'voir')) {
163 $sql .= ", sc.fk_soc, sc.fk_user ";
164 }
165 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
166 $sql .= ", ".MAIN_DB_PREFIX."facture_rec as f";
167 $sql .= ", ".MAIN_DB_PREFIX."facturedet_rec as d";
168 if (!$user->hasRight('societe', 'client', 'voir')) {
169 $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
170 }
171 $sql .= " WHERE f.fk_soc = s.rowid";
172 $sql .= " AND f.entity IN (".getEntity('invoice').")";
173 $sql .= " AND d.fk_facture = f.rowid";
174 $sql .= " AND d.fk_product = ".((int) $product->id);
175 if (!empty($search_month)) {
176 $sql .= ' AND MONTH(f.datec) IN ('.$db->sanitize($search_month).')';
177 }
178 if (!empty($search_year)) {
179 $sql .= ' AND YEAR(f.datec) IN ('.$db->sanitize($search_year).')';
180 }
181 if (!$user->hasRight('societe', 'client', 'voir')) {
182 $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
183 }
184 if ($socid) {
185 $sql .= " AND f.fk_soc = ".((int) $socid);
186 }
187 $sql .= $db->order($sortfield, $sortorder);
188
189 // Calcul total qty and amount for global if full scan list
190 $total_ht = 0;
191 $total_qty = 0;
192
193 // Count total nb of records
194 $totalofrecords = '';
195 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
196 $result = $db->query($sql);
197 $totalofrecords = $db->num_rows($result);
198 }
199
200 $sql .= $db->plimit($limit + 1, $offset);
201
202 $result = $db->query($sql);
203 if ($result) {
204 $num = $db->num_rows($result);
205
206 $option = '&id='.$product->id;
207
208 if ($limit > 0 && $limit != $conf->liste_limit) {
209 $option .= '&limit='.((int) $limit);
210 }
211 if (!empty($search_month)) {
212 $option .= '&search_month='.urlencode((string) ($search_month));
213 }
214 if (!empty($search_year)) {
215 $option .= '&search_year='.urlencode((string) ($search_year));
216 }
217
218 print '<form method="post" action="'.$_SERVER ['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
219 print '<input type="hidden" name="token" value="'.newToken().'">';
220 if (!empty($sortfield)) {
221 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
222 }
223 if (!empty($sortorder)) {
224 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
225 }
226
227 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
228 print_barre_liste($langs->trans("CustomersInvoices"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
229
230 if (!empty($page)) {
231 $option .= '&page='.urlencode((string) ($page));
232 }
233
234 print '<div class="liste_titre liste_titre_bydiv centpercent">';
235 print '<div class="divsearchfield">';
236 print $langs->trans('Period').' ('.$langs->trans("DateInvoice").') - ';
237 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.($search_month > 0 ? $search_month : '').'"> ';
238 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
239 print '<div style="vertical-align: middle; display: inline-block">';
240 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")).'">';
241 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")).'">';
242 print '</div>';
243 print '</div>';
244 print '</div>';
245
246 $i = 0;
247 print '<div class="div-table-responsive">';
248 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
249 print '<tr class="liste_titre">';
250 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "s.rowid", "", $option, '', $sortfield, $sortorder);
251 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
252 print_liste_field_titre("CustomerCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
253 print_liste_field_titre("DateInvoice", $_SERVER["PHP_SELF"], "f.datec", "", $option, 'align="center"', $sortfield, $sortorder);
254 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
255 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "d.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
256 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "f.suspended", "", $option, 'align="right"', $sortfield, $sortorder);
257 print "</tr>\n";
258
259 if ($num > 0) {
260 while ($i < min($num, $limit)) {
261 $objp = $db->fetch_object($result);
262
263 if ($objp->type == FactureRec::TYPE_CREDIT_NOTE) {
264 $objp->qty = -($objp->qty);
265 }
266
267 $total_ht += $objp->total_ht;
268 $total_qty += $objp->qty;
269
270 $invoicestatic->id = $objp->facid;
271 $invoicestatic->ref = $objp->title;
272 $societestatic->fetch($objp->socid);
273 $paiement = $invoicestatic->getSommePaiement();
274
275 print '<tr class="oddeven">';
276 print '<td>';
277 print $invoicestatic->getNomUrl(1);
278 print "</td>\n";
279 print '<td>'.$societestatic->getNomUrl(1).'</td>';
280 print "<td>".$objp->code_client."</td>\n";
281 print '<td class="center">';
282 print dol_print_date($db->jdate($objp->datec), 'dayhour')."</td>";
283 print '<td class="center">'.$objp->qty."</td>\n";
284 print '<td align="right">'.price($objp->total_ht)."</td>\n";
285 print '<td align="right">'.$invoicestatic->LibStatut(1, $objp->suspended, 5, $paiement, $objp->type).'</td>';
286 print "</tr>\n";
287 $i++;
288 }
289 }
290 print '<tr class="liste_total">';
291 if ($num < $limit && empty($offset)) {
292 print '<td>'.$langs->trans("Total").'</td>';
293 } else {
294 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
295 }
296 print '<td colspan="3"></td>';
297 print '<td class="center">'.$total_qty.'</td>';
298 print '<td align="right">'.price($total_ht).'</td>';
299 print '<td></td>';
300 print "</table>";
301 print '</div>';
302 print '</form>';
303 } else {
304 dol_print_error($db);
305 }
306 $db->free($result);
307 }
308 }
309} else {
311}
312
313// End of page
314llxFooter();
315$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
const TYPE_CREDIT_NOTE
Credit note invoice.
Class to manage invoice templates.
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
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.