dolibarr 21.0.0-alpha
commande_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-2009 Laurent Destailleur <eldy@users.sourceforge.net>
4 * Copyright (C) 2005-2012 Regis Houssin <regis.houssin@inodbox.com>
5 * Copyright (C) 2014 Florian Henry <florian.henry@open-concept.pro>
6 * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
7 * Copyright (C) 2024 Charlene Benke <charlene@patas-monkey.com>
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
28require '../../main.inc.php';
29require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
30require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
31require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
32require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
33require_once DOL_DOCUMENT_ROOT.'/core/class/html.formorder.class.php';
34
35// Load translation files required by the page
36$langs->loadLangs(array('orders', 'products', 'companies', 'sendings'));
37
38$id = GETPOSTINT('id');
39$ref = GETPOST('ref', 'alpha');
40
41// Security check
42$fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
43$fieldtype = (!empty($ref) ? 'ref' : 'rowid');
44$socid = '';
45if (!empty($user->socid)) {
46 $socid = $user->socid;
47}
48
49// Initialize a technical object to manage hooks of page. Note that conf->hooks_modules contains an array of hook context
50$hookmanager->initHooks(array('productstatssupplierorder'));
51
52$mesg = '';
53
54// Load variable for pagination
55$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
56$sortfield = GETPOST('sortfield', 'aZ09comma');
57$sortorder = GETPOST('sortorder', 'aZ09comma');
58$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
59if (empty($page) || $page == -1) {
60 $page = 0;
61} // If $page is not defined, or '' or -1
62$offset = $limit * $page;
63$pageprev = $page - 1;
64$pagenext = $page + 1;
65if (!$sortorder) {
66 $sortorder = "DESC";
67}
68if (!$sortfield) {
69 $sortfield = "c.date_commande";
70}
71$search_month = GETPOSTINT('search_month');
72$search_year = GETPOSTINT('search_year');
73if (GETPOSTISARRAY('search_status')) {
74 $search_status = implode(',', GETPOST('search_status', 'array:intcomma'));
75} else {
76 $search_status = (GETPOST('search_status', 'intcomma') != '' ? GETPOST('search_status', 'intcomma') : GETPOST('statut', 'intcomma'));
77}
78
79if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
80 $search_month = '';
81 $search_year = '';
82 $search_status = '';
83}
84
85$result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
86
87
88/*
89 * View
90 */
91
92$supplierorderstatic = new CommandeFournisseur($db);
93$societestatic = new Societe($db);
94
95$form = new Form($db);
96$formother = new FormOther($db);
97$formorder = new FormOrder($db);
98
99if ($id > 0 || !empty($ref)) {
100 $product = new Product($db);
101 $result = $product->fetch($id, $ref);
102
103 $object = $product;
104
105 $parameters = array('id' => $id);
106 $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
107 if ($reshook < 0) {
108 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
109 }
110
111 llxHeader("", "", $langs->trans("CardProduct".$product->type), '', 0, 0, '', '', 'mod-product page-stats_commande_fournisseur');
112
113 if ($result > 0) {
114 $head = product_prepare_head($product);
115 $titre = $langs->trans("CardProduct".$product->type);
116 $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
117 print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
118
119 $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
120 print $hookmanager->resPrint;
121 if ($reshook < 0) {
122 setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
123 }
124
125 $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
126
127 $shownav = 1;
128 if ($user->socid && !in_array('product', explode(',', getDolGlobalString('MAIN_MODULES_FOR_EXTERNAL')))) {
129 $shownav = 0;
130 }
131
132 dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
133
134 print '<div class="fichecenter">';
135
136 print '<div class="underbanner clearboth"></div>';
137 print '<table class="border tableforfield" width="100%">';
138
139 $nboflines = show_stats_for_company($product, $socid);
140
141 print "</table>";
142
143 print '</div>';
144 print '<div class="clearboth"></div>';
145
146 print dol_get_fiche_end();
147
148
149 if ($user->hasRight('fournisseur', 'commande', 'lire')) {
150 $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client,";
151 $sql .= " c.rowid, d.total_ht as total_ht, c.ref,";
152 $sql .= " c.date_livraison as delivery_date,";
153 $sql .= " c.date_commande, c.fk_statut as statut, c.rowid as commandeid, d.rowid, d.qty, d.subprice as unitprice";
154 if (!$user->hasRight('societe', 'client', 'voir')) {
155 $sql .= ", sc.fk_soc, sc.fk_user ";
156 }
157 $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
158 $sql .= ", ".MAIN_DB_PREFIX."commande_fournisseur as c";
159 $sql .= ", ".MAIN_DB_PREFIX."commande_fournisseurdet as d";
160 if (!$user->hasRight('societe', 'client', 'voir')) {
161 $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
162 }
163 $sql .= " WHERE c.fk_soc = s.rowid";
164 $sql .= " AND c.entity IN (".getEntity('supplier_order').")";
165 $sql .= " AND d.fk_commande = c.rowid";
166 $sql .= " AND d.fk_product = ".((int) $product->id);
167 if (!empty($search_month)) {
168 $sql .= " AND MONTH(c.date_commande) IN (".$db->sanitize($search_month).")";
169 }
170 if (!empty($search_year)) {
171 $sql .= " AND YEAR(c.date_commande) IN (".$db->sanitize($search_year).")";
172 }
173 if (!$user->hasRight('societe', 'client', 'voir')) {
174 $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
175 }
176 if ($socid) {
177 $sql .= " AND c.fk_soc = ".((int) $socid);
178 }
179
180 if ($search_status != '') {
181 $sql .= " AND c.fk_statut IN (".$db->sanitize($search_status).")";
182 }
183
184 $sql .= $db->order($sortfield, $sortorder);
185
186 // Calcul total qty and amount for global if full scan list
187 $total_ht = 0;
188 $total_qty = 0;
189
190 // Count total nb of records
191 $totalofrecords = '';
192 if (!getDolGlobalInt('MAIN_DISABLE_FULL_SCANLIST')) {
193 $result = $db->query($sql);
194 $totalofrecords = $db->num_rows($result);
195 }
196
197 $sql .= $db->plimit($limit + 1, $offset);
198
199 $result = $db->query($sql);
200 if ($result) {
201 $num = $db->num_rows($result);
202
203 $option = '&id='.$product->id;
204
205 if ($limit > 0 && $limit != $conf->liste_limit) {
206 $option .= '&limit='.((int) $limit);
207 }
208 if (!empty($search_month)) {
209 $option .= '&search_month='.urlencode((string) ($search_month));
210 }
211 if (!empty($search_year)) {
212 $option .= '&search_year='.urlencode((string) ($search_year));
213 }
214
215 if ($search_status != '') {
216 $param .= '&search_status='.urlencode($search_status);
217 }
218
219 print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
220 print '<input type="hidden" name="token" value="'.newToken().'">';
221 if (!empty($sortfield)) {
222 print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
223 }
224 if (!empty($sortorder)) {
225 print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
226 }
227
228 // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
229 print_barre_liste($langs->trans("SuppliersOrders"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
230
231 if (!empty($page)) {
232 $option .= '&page='.urlencode((string) ($page));
233 }
234
235 print '<div class="liste_titre liste_titre_bydiv centpercent">';
236 print '<div class="divsearchfield">';
237 print $langs->trans('Period').' ('.$langs->trans("OrderDate").') - ';
238 print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.($search_month > 0 ? $search_month : '').'"> ';
239 print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
240 print $langs->trans('Status');
241 $formorder->selectSupplierOrderStatus($search_status, 1, 'search_status');
242 print '<div style="vertical-align: middle; display: inline-block">';
243 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")).'">';
244 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")).'">';
245 print '</div>';
246 print '</div>';
247 print '</div>';
248
249 $i = 0;
250 print '<div class="div-table-responsive">';
251 print '<table class="tagtable liste listwithfilterbefore centpercent">';
252 print '<tr class="liste_titre">';
253 print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "c.rowid", "", $option, '', $sortfield, $sortorder);
254 print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
255 print_liste_field_titre("SupplierCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
256 print_liste_field_titre("OrderDate", $_SERVER["PHP_SELF"], "c.date_commande", "", $option, 'align="center"', $sortfield, $sortorder);
257 print_liste_field_titre('DateDeliveryPlanned', $_SERVER['PHP_SELF'], 'c.date_livraison', '', $option, 'align="center"', $sortfield, $sortorder);
258 print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
259 print_liste_field_titre("UnitPrice", $_SERVER["PHP_SELF"], "d.unitprice", "", $option, 'align="right"', $sortfield, $sortorder);
260 print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "d.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
261 print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "c.fk_statut", "", $option, 'align="right"', $sortfield, $sortorder);
262 print "</tr>\n";
263
264 if ($num > 0) {
265 while ($i < min($num, $limit)) {
266 $objp = $db->fetch_object($result);
267
268 $total_ht += $objp->total_ht;
269 $total_qty += $objp->qty;
270
271 $supplierorderstatic->id = $objp->commandeid;
272 $supplierorderstatic->ref = $objp->ref;
273 $supplierorderstatic->statut = $objp->statut;
274 $societestatic->fetch($objp->socid);
275
276 print '<tr class="oddeven">';
277 print '<td>';
278 print $supplierorderstatic->getNomUrl(1);
279 print "</td>\n";
280 print '<td>'.$societestatic->getNomUrl(1).'</td>';
281 print "<td>".$objp->code_client."</td>\n";
282 print '<td class="center">';
283 print dol_print_date($db->jdate($objp->date_commande), 'dayhour')."</td>";
284 // delivery planned date
285 print '<td class="center">';
286 print dol_print_date($db->jdate($objp->delivery_date), 'dayhour');
287 print '</td>';
288 print '<td class="center">'.$objp->qty."</td>\n";
289 print '<td align="right">'.price($objp->unitprice)."</td>\n";
290 print '<td align="right">'.price($objp->total_ht)."</td>\n";
291 print '<td align="right">'.$supplierorderstatic->getLibStatut(4).'</td>';
292 print "</tr>\n";
293 $i++;
294 }
295 }
296 print '<tr class="liste_total">';
297 if ($num < $limit && empty($offset)) {
298 print '<td>'.$langs->trans("Total").'</td>';
299 } else {
300 print '<td>'.$form->textwithpicto($langs->trans("Total"), $langs->trans("Totalforthispage")).'</td>';
301 }
302 print '<td colspan="3"></td>';
303 // delivery planned date
304 print '<td></td>';
305 print '<td class="center">'.$total_qty.'</td>';
306 print '<td></td>';
307 print '<td align="right">'.price($total_ht).'</td>';
308 print '<td></td>';
309 print "</table>";
310 print '</div>';
311 print '</form>';
312 } else {
313 dol_print_error($db);
314 }
315 $db->free($result);
316 }
317 }
318} else {
320}
321
322// End of page
323llxFooter();
324$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 predefined suppliers products.
Class to manage generation of HTML components Only common components must be here.
Class to manage HTML output components for orders Before adding component here, check they are not in...
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.
GETPOSTISARRAY($paramname, $method=0)
Return true if the parameter $paramname is submit from a POST OR GET as an array.
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.