dolibarr 21.0.0-alpha
facture_fournisseur.php
Go to the documentation of this file.
1<?php
2/* Copyright (C) 2003-2007 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3 * Copyright (C) 2004-2018 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2013 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.'/fourn/class/fournisseur.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', 'companies', 'supplier_proposal'));
38
39$id = GETPOSTINT('id');
40$ref = GETPOST('ref', 'alpha');
41
42// Security check
43$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
44$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
45$socid = '';
46if (!empty($user->socid)) {
47 $socid = $user->socid;
48}
49
50// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
51$hookmanager->initHooks(array('productstatssupplierinvoice'));
52
53$option = '';
54
55// Load variable for pagination
56$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
57$sortfield = GETPOST('sortfield', 'aZ09comma');
58$sortorder = GETPOST('sortorder', 'aZ09comma');
59$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
60if (empty($page) || $page == -1) {
61 $page = 0;
62} // If $page is not defined, or '' or -1
63$offset = $limit * $page;
64$pageprev = $page - 1;
65$pagenext = $page + 1;
66if (!$sortorder) {
67 $sortorder = "DESC";
68}
69if (!$sortfield) {
70 $sortfield = "f.datef";
71}
72$search_month = GETPOSTINT('search_month');
73$search_year = GETPOSTINT('search_year');
74
75if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
76 $search_month = '';
77 $search_year = '';
78}
79
80$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
81
82
83/*
84 * View
85 */
86
87$supplierinvoicestatic = new FactureFournisseur($db);
88$societestatic = new Societe($db);
89
90$form = new Form($db);
91$formother = new FormOther($db);
92
93if ($id > 0 || !empty($ref)) {
94 $product = new Product($db);
95 $result = $product->fetch($id, $ref);
96
97 $object = $product;
98
99 $parameters = array('id' => $id);
100 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
101 if ($reshook < 0) {
102 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
103 }
104
105 llxHeader("", "", $langs->trans("CardProduct".$product->type), '', 0, 0, '', '', 'mod-product page-stats_facture_fournisseur');
106
107 if ($result > 0) {
108 $head = product_prepare_head($product);
109 $titre = $langs->trans("CardProduct".$product->type);
110 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
111 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
112
113 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
114 print $hookmanager->resPrint;
115 if ($reshook < 0) {
116 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
117 }
118
119 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
120
121 $shownav = 1;
122 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
123 $shownav = 0;
124 }
125
126 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
127
128 print '<div class="fichecenter">';
129
130 print '<div class="underbanner clearboth"></div>';
131 print '<table class="border tableforfield" width="100%">';
132
133 $nboflines = show_stats_for_company($product, $socid);
134
135 print "</table>";
136
137 print '</div>';
138 print '<div class="clearboth"></div>';
139
140 print dol_get_fiche_end();
141
142
143 if ($user->hasRight('fournisseur', 'facture', 'lire')) {
144 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client, d.rowid, d.total_ht as line_total_ht,";
145 $sql .= " f.rowid as facid, f.ref, f.ref_supplier, f.datef, f.libelle as label, f.total_ht, f.total_ttc, f.total_tva, f.paye, f.fk_statut as statut, d.qty";
146 if (!$user->hasRight('societe', 'client', 'voir')) {
147 $sql .= ", sc.fk_soc, sc.fk_user ";
148 }
149 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
150 $sql .= ", ".MAIN_DB_PREFIX."facture_fourn as f";
151 $sql .= ", ".MAIN_DB_PREFIX."facture_fourn_det as d";
152 if (!$user->hasRight('societe', 'client', 'voir')) {
153 $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
154 }
155 $sql .= " WHERE f.fk_soc = s.rowid";
156 $sql .= " AND f.entity IN (".getEntity('facture_fourn').")";
157 $sql .= " AND d.fk_facture_fourn = f.rowid";
158 $sql .= " AND d.fk_product = ".((int) $product->id);
159 if (!empty($search_month)) {
160 $sql .= ' AND MONTH(f.datef) IN ('.$db->sanitize($search_month).')';
161 }
162 if (!empty($search_year)) {
163 $sql .= ' AND YEAR(f.datef) IN ('.$db->sanitize($search_year).')';
164 }
165 if (!$user->hasRight('societe', 'client', 'voir')) {
166 $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
167 }
168 if ($socid) {
169 $sql .= " AND f.fk_soc = ".((int) $socid);
170 }
171 $sql .= " ORDER BY $sortfield $sortorder ";
172
173 // Calcul total qty and amount for global if full scan list
174 $total_ht = 0;
175 $total_qty = 0;
176
177 // Count total nb of records
178 $totalofrecords = '';
179 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
180 $result = $db->query($sql);
181 $totalofrecords = $db->num_rows($result);
182 }
183
184 $sql .= $db->plimit($limit + 1, $offset);
185
186 $result = $db->query($sql);
187 if ($result) {
188 $num = $db->num_rows($result);
189
190 $option .= '&id='.$product->id;
191
192 if ($limit > 0 && $limit != $conf->liste_limit) {
193 $option .= '&limit='.((int) $limit);
194 }
195 if (!empty($search_month)) {
196 $option .= '&search_month='.urlencode((string) ($search_month));
197 }
198 if (!empty($search_year)) {
199 $option .= '&search_year='.urlencode((string) ($search_year));
200 }
201
202 print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
203 print '<input type="hidden" name="token" value="'.newToken().'">';
204 if (!empty($sortfield)) {
205 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
206 }
207 if (!empty($sortorder)) {
208 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
209 }
210
211 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
212 print_barre_liste($langs->trans("SuppliersInvoices"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
213
214 if (!empty($page)) {
215 $option .= '&page='.urlencode((string) ($page));
216 }
217
218 print '<div class="liste_titre liste_titre_bydiv centpercent">';
219 print '<div class="divsearchfield">';
220 print $langs->trans('Period').' ('.$langs->trans("DateInvoice").') - ';
221 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.($search_month > 0 ? $search_month : '').'"> ';
222 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
223 print '<div style="vertical-align: middle; display: inline-block">';
224 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")).'">';
225 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")).'">';
226 print '</div>';
227 print '</div>';
228 print '</div>';
229
230 $i = 0;
231 print '<div class="div-table-responsive">';
232 print '<table class="tagtable liste listwithfilterbefore" width="100%">';
233 print '<tr class="liste_titre">';
234 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "s.rowid", "", $option, '', $sortfield, $sortorder);
235 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
236 print_liste_field_titre("SupplierCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
237 print_liste_field_titre("DateInvoice", $_SERVER["PHP_SELF"], "f.datef", "", $option, 'align="center"', $sortfield, $sortorder);
238 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
239 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "d.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
240 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "f.paye,f.fk_statut", "", $option, 'align="right"', $sortfield, $sortorder);
241 print "</tr>\n";
242
243 if ($num > 0) {
244 while ($i < min($num, $limit)) {
245 $objp = $db->fetch_object($result);
246
247 $total_ht += $objp->line_total_ht;
248 $total_qty += $objp->qty;
249
250 $supplierinvoicestatic->id = $objp->facid;
251 $supplierinvoicestatic->ref = $objp->ref;
252 $supplierinvoicestatic->ref_supplier = $objp->ref_supplier;
253 $supplierinvoicestatic->libelle = $objp->label; // deprecated
254 $supplierinvoicestatic->label = $objp->label;
255 $supplierinvoicestatic->total_ht = $objp->total_ht;
256 $supplierinvoicestatic->total_ttc = $objp->total_ttc;
257 $supplierinvoicestatic->total_tva = $objp->total_tva;
258
259 $societestatic->fetch($objp->socid);
260
261 print '<tr class="oddeven">';
262 print '<td>';
263 print $supplierinvoicestatic->getNomUrl(1);
264 print "</td>\n";
265 print '<td>'.$societestatic->getNomUrl(1).'</td>';
266 print "<td>".$objp->code_client."</td>\n";
267 print '<td class="center">';
268 print dol_print_date($db->jdate($objp->datef), 'dayhour')."</td>";
269 print '<td class="center">'.$objp->qty."</td>\n";
270 print '<td align="right">'.price($objp->line_total_ht)."</td>\n";
271 print '<td align="right">'.$supplierinvoicestatic->LibStatut($objp->paye, $objp->statut, 5, $supplierinvoicestatic->getSommePaiement()).'</td>';
272 print "</tr>\n";
273 $i++;
274 }
275 }
276 print '<tr class="liste_total">';
277 if ($num < $limit && empty($offset)) {
278 print '<td>'.$langs->trans("Total").'</td>';
279 } else {
280 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
281 }
282 print '<td colspan="3"></td>';
283 print '<td class="center">'.$total_qty.'</td>';
284 print '<td align="right">'.price($total_ht).'</td>';
285 print '<td></td>';
286 print "</table>";
287 print '</div>';
288 print '</form>';
289 } else {
290 dol_print_error($db);
291 }
292 $db->free($result);
293 }
294 }
295} else {
297}
298
299// End of page
300llxFooter();
301$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 suppliers invoices.
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_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...
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.