dolibarr 21.0.0-beta
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
45// Load translation files required by the page
46$langs->loadLangs(array('companies', 'bills', 'products', 'supplier_proposal'));
47
48$id = GETPOSTINT('id');
49$ref = GETPOST('ref', 'alpha');
50
51// Security check
52$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
53$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
54$socid = '';
55if (!empty($user->socid)) {
56 $socid = $user->socid;
57}
58
59// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
60$hookmanager->initHooks(array('productstatsinvoice'));
61
62$showmessage = GETPOST('showmessage');
63
64// Load variable for pagination
65$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
66$sortfield = GETPOST('sortfield', 'aZ09comma');
67$sortorder = GETPOST('sortorder', 'aZ09comma');
68$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
69if (empty($page) || $page == -1) {
70 $page = 0;
71} // If $page is not defined, or '' or -1
72$offset = $limit * $page;
73$pageprev = $page - 1;
74$pagenext = $page + 1;
75if (!$sortorder) {
76 $sortorder = "DESC";
77}
78if (!$sortfield) {
79 $sortfield = "f.datec";
80}
81
82$search_month = GETPOSTINT('search_month');
83$search_year = GETPOSTINT('search_year');
84
85if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
86 $search_month = '';
87 $search_year = '';
88}
89
90$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
91
92
93/*
94 * View
95 */
96
97$invoicestatic = new FactureRec($db);
98$societestatic = new Societe($db);
99
100$form = new Form($db);
101$formother = new FormOther($db);
102
103if ($id > 0 || !empty($ref)) {
104 $product = new Product($db);
105 $result = $product->fetch($id, $ref);
106
107 $object = $product;
108
109 $parameters = array('id' => $id);
110 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
111 if ($reshook < 0) {
112 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
113 }
114
115 $title = $langs->trans('ProductServiceCard');
116 $helpurl = '';
117 $shortlabel = dol_trunc($object->label, 16);
118 if (GETPOST("type") == '0' || ($object->type == Product::TYPE_PRODUCT)) {
119 $title = $langs->trans('Product')." ".$shortlabel." - ".$langs->trans('Referers');
120 $helpurl = 'EN:Module_Products|FR:Module_Produits|ES:M&oacute;dulo_Productos';
121 }
122 if (GETPOST("type") == '1' || ($object->type == Product::TYPE_SERVICE)) {
123 $title = $langs->trans('Service')." ".$shortlabel." - ".$langs->trans('Referers');
124 $helpurl = 'EN:Module_Services_En|FR:Module_Services|ES:M&oacute;dulo_Servicios';
125 }
126
127 llxHeader('', $title, $helpurl, '', 0, 0, '', '', 'mod-product page-stats_facturerec');
128
129 if ($result > 0) {
130 $head = product_prepare_head($product);
131 $titre = $langs->trans("CardProduct".$product->type);
132 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
133 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
134
135 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
136 print $hookmanager->resPrint;
137 if ($reshook < 0) {
138 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
139 }
140
141 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
142
143 $shownav = 1;
144 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
145 $shownav = 0;
146 }
147
148 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
149
150 print '<div class="fichecenter">';
151
152 print '<div class="underbanner clearboth"></div>';
153 print '<table class="border tableforfield" width="100%">';
154
155 $nboflines = show_stats_for_company($product, $socid);
156
157 print "</table>";
158
159 print '</div>';
160 print '<div class="clearboth"></div>';
161
162 print dol_get_fiche_end();
163
164 if ($showmessage && $nboflines > 1) {
165 print '<span class="opacitymedium">'.$langs->trans("ClinkOnALinkOfColumn", $langs->transnoentitiesnoconv("Referers")).'</span>';
166 } elseif ($user->hasRight('facture', 'lire')) {
167 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client,";
168 $sql .= "f.rowid as facid, 0 as type, f.titre as title, f.datec, f.suspended as suspended,";
169 $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
170 if (!$user->hasRight('societe', 'client', 'voir')) {
171 $sql .= ", sc.fk_soc, sc.fk_user ";
172 }
173 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
174 $sql .= ", ".MAIN_DB_PREFIX."facture_rec as f";
175 $sql .= ", ".MAIN_DB_PREFIX."facturedet_rec as d";
176 if (!$user->hasRight('societe', 'client', 'voir')) {
177 $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
178 }
179 $sql .= " WHERE f.fk_soc = s.rowid";
180 $sql .= " AND f.entity IN (".getEntity('invoice').")";
181 $sql .= " AND d.fk_facture = f.rowid";
182 $sql .= " AND d.fk_product = ".((int) $product->id);
183 if (!empty($search_month)) {
184 $sql .= ' AND MONTH(f.datec) IN ('.$db->sanitize($search_month).')';
185 }
186 if (!empty($search_year)) {
187 $sql .= ' AND YEAR(f.datec) IN ('.$db->sanitize($search_year).')';
188 }
189 if (!$user->hasRight('societe', 'client', 'voir')) {
190 $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
191 }
192 if ($socid) {
193 $sql .= " AND f.fk_soc = ".((int) $socid);
194 }
195 $sql .= $db->order($sortfield, $sortorder);
196
197 // Calcul total qty and amount for global if full scan list
198 $total_ht = 0;
199 $total_qty = 0;
200
201 // Count total nb of records
202 $totalofrecords = '';
203 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
204 $result = $db->query($sql);
205 $totalofrecords = $db->num_rows($result);
206 }
207
208 $sql .= $db->plimit($limit + 1, $offset);
209
210 $result = $db->query($sql);
211 if ($result) {
212 $num = $db->num_rows($result);
213
214 $option = '&id='.$product->id;
215
216 if ($limit > 0 && $limit != $conf->liste_limit) {
217 $option .= '&limit='.((int) $limit);
218 }
219 if (!empty($search_month)) {
220 $option .= '&search_month='.urlencode((string) ($search_month));
221 }
222 if (!empty($search_year)) {
223 $option .= '&search_year='.urlencode((string) ($search_year));
224 }
225
226 print '<form method="post" action="'.$_SERVER ['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
227 print '<input type="hidden" name="token" value="'.newToken().'">';
228 if (!empty($sortfield)) {
229 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
230 }
231 if (!empty($sortorder)) {
232 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
233 }
234
235 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
236 print_barre_liste($langs->trans("CustomersInvoices"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
237
238 if (!empty($page)) {
239 $option .= '&page='.urlencode((string) ($page));
240 }
241
242 print '<div class="liste_titre liste_titre_bydiv centpercent">';
243 print '<div class="divsearchfield">';
244 print $langs->trans('Period').' ('.$langs->trans("DateInvoice").') - ';
245 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.($search_month > 0 ? $search_month : '').'"> ';
246 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
247 print '<div style="vertical-align: middle; display: inline-block">';
248 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")).'">';
249 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")).'">';
250 print '</div>';
251 print '</div>';
252 print '</div>';
253
254 $i = 0;
255 print '<div class="div-table-responsive">';
256 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
257 print '<tr class="liste_titre">';
258 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "s.rowid", "", $option, '', $sortfield, $sortorder);
259 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
260 print_liste_field_titre("CustomerCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
261 print_liste_field_titre("DateInvoice", $_SERVER["PHP_SELF"], "f.datec", "", $option, 'align="center"', $sortfield, $sortorder);
262 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
263 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "d.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
264 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "f.suspended", "", $option, 'align="right"', $sortfield, $sortorder);
265 print "</tr>\n";
266
267 if ($num > 0) {
268 while ($i < min($num, $limit)) {
269 $objp = $db->fetch_object($result);
270
271 if ($objp->type == FactureRec::TYPE_CREDIT_NOTE) {
272 $objp->qty = -($objp->qty);
273 }
274
275 $total_ht += $objp->total_ht;
276 $total_qty += $objp->qty;
277
278 $invoicestatic->id = $objp->facid;
279 $invoicestatic->ref = $objp->title;
280 $societestatic->fetch($objp->socid);
281 $paiement = $invoicestatic->getSommePaiement();
282
283 print '<tr class="oddeven">';
284 print '<td>';
285 print $invoicestatic->getNomUrl(1);
286 print "</td>\n";
287 print '<td>'.$societestatic->getNomUrl(1).'</td>';
288 print "<td>".$objp->code_client."</td>\n";
289 print '<td class="center">';
290 print dol_print_date($db->jdate($objp->datec), 'dayhour')."</td>";
291 print '<td class="center">'.$objp->qty."</td>\n";
292 print '<td align="right">'.price($objp->total_ht)."</td>\n";
293 print '<td align="right">'.$invoicestatic->LibStatut(1, $objp->suspended, 5, $paiement, $objp->type).'</td>';
294 print "</tr>\n";
295 $i++;
296 }
297 }
298 print '<tr class="liste_total">';
299 if ($num < $limit && empty($offset)) {
300 print '<td>'.$langs->trans("Total").'</td>';
301 } else {
302 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
303 }
304 print '<td colspan="3"></td>';
305 print '<td class="center">'.$total_qty.'</td>';
306 print '<td align="right">'.price($total_ht).'</td>';
307 print '<td></td>';
308 print "</table>";
309 print '</div>';
310 print '</form>';
311 } else {
312 dol_print_error($db);
313 }
314 $db->free($result);
315 }
316 }
317} else {
319}
320
321// End of page
322llxFooter();
323$db->close();
$id
Definition account.php:48
if( $user->socid > 0) if(! $user->hasRight('accounting', 'chartofaccount')) $object
Definition card.php:66
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:71
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.
print_barre_liste($title, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='generic', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $selectlimitsuffix=0, $hidenavigation=0, $pagenavastextinput=0, $morehtmlrightbeforearrow='')
Print a title with navigation controls for pagination.
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.
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...
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...
Definition member.php:79
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.