dolibarr  17.0.4
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  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program. If not, see <https://www.gnu.org/licenses/>.
19  */
20 
26 require '../../main.inc.php';
27 require_once DOL_DOCUMENT_ROOT.'/core/lib/product.lib.php';
28 require_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.commande.class.php';
29 require_once DOL_DOCUMENT_ROOT.'/product/class/product.class.php';
30 require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
31 
32 // Load translation files required by the page
33 $langs->loadLangs(array('orders', 'products', 'companies'));
34 
35 $id = GETPOST('id', 'int');
36 $ref = GETPOST('ref', 'alpha');
37 
38 // Security check
39 $fieldvalue = (!empty($id) ? $id : (!empty($ref) ? $ref : ''));
40 $fieldtype = (!empty($ref) ? 'ref' : 'rowid');
41 $socid = '';
42 if (!empty($user->socid)) {
43  $socid = $user->socid;
44 }
45 
46 // Initialize technical object to manage hooks of page. Note that conf->hooks_modules contains array of hook context
47 $hookmanager->initHooks(array('productstatssupplierorder'));
48 
49 $mesg = '';
50 
51 // Load variable for pagination
52 $limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
53 $sortfield = GETPOST('sortfield', 'aZ09comma');
54 $sortorder = GETPOST('sortorder', 'aZ09comma');
55 $page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
56 if (empty($page) || $page == -1) {
57  $page = 0;
58 } // If $page is not defined, or '' or -1
59 $offset = $limit * $page;
60 $pageprev = $page - 1;
61 $pagenext = $page + 1;
62 if (!$sortorder) {
63  $sortorder = "DESC";
64 }
65 if (!$sortfield) {
66  $sortfield = "c.date_commande";
67 }
68 $search_month = GETPOST('search_month', 'int');
69 $search_year = GETPOST('search_year', 'int');
70 
71 if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter', 'alpha')) {
72  $search_month = '';
73  $search_year = '';
74 }
75 
76 $result = restrictedArea($user, 'produit|service', $fieldvalue, 'product&product', '', '', $fieldtype);
77 
78 
79 /*
80  * View
81  */
82 
83 $supplierorderstatic = new CommandeFournisseur($db);
84 $societestatic = new Societe($db);
85 
86 $form = new Form($db);
87 $formother = new FormOther($db);
88 
89 if ($id > 0 || !empty($ref)) {
90  $product = new Product($db);
91  $result = $product->fetch($id, $ref);
92 
93  $object = $product;
94 
95  $parameters = array('id' => $id);
96  $reshook = $hookmanager->executeHooks('doActions', $parameters, $product, $action); // Note that $action and $object may have been modified by some hooks
97  if ($reshook < 0) {
98  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
99  }
100 
101  llxHeader("", "", $langs->trans("CardProduct".$product->type));
102 
103  if ($result > 0) {
104  $head = product_prepare_head($product);
105  $titre = $langs->trans("CardProduct".$product->type);
106  $picto = ($product->type == Product::TYPE_SERVICE ? 'service' : 'product');
107  print dol_get_fiche_head($head, 'referers', $titre, -1, $picto);
108 
109  $reshook = $hookmanager->executeHooks('formObjectOptions', $parameters, $product, $action); // Note that $action and $object may have been modified by hook
110  print $hookmanager->resPrint;
111  if ($reshook < 0) {
112  setEventMessages($hookmanager->error, $hookmanager->errors, 'errors');
113  }
114 
115  $linkback = '<a href="'.DOL_URL_ROOT.'/product/list.php?restore_lastsearch_values=1">'.$langs->trans("BackToList").'</a>';
116 
117  $shownav = 1;
118  if ($user->socid && !in_array('product', explode(',', $conf->global->MAIN_MODULES_FOR_EXTERNAL))) {
119  $shownav = 0;
120  }
121 
122  dol_banner_tab($object, 'ref', $linkback, $shownav, 'ref');
123 
124  print '<div class="fichecenter">';
125 
126  print '<div class="underbanner clearboth"></div>';
127  print '<table class="border tableforfield" width="100%">';
128 
129  $nboflines = show_stats_for_company($product, $socid);
130 
131  print "</table>";
132 
133  print '</div>';
134  print '<div style="clear:both"></div>';
135 
136  print dol_get_fiche_end();
137 
138 
139  if ($user->rights->fournisseur->commande->lire) {
140  $sql = "SELECT DISTINCT s.nom as name, s.rowid as socid, s.code_client,";
141  $sql .= " c.rowid, d.total_ht as total_ht, c.ref,";
142  $sql .= " c.date_commande, c.fk_statut as statut, c.rowid as commandeid, d.rowid, d.qty";
143  $sql .= ", c.date_livraison";
144  if (empty($user->rights->societe->client->voir) && !$socid) {
145  $sql .= ", sc.fk_soc, sc.fk_user ";
146  }
147  $sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
148  $sql .= ", ".MAIN_DB_PREFIX."commande_fournisseur as c";
149  $sql .= ", ".MAIN_DB_PREFIX."commande_fournisseurdet as d";
150  if (empty($user->rights->societe->client->voir) && !$socid) {
151  $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
152  }
153  $sql .= " WHERE c.fk_soc = s.rowid";
154  $sql .= " AND c.entity IN (".getEntity('supplier_order').")";
155  $sql .= " AND d.fk_commande = c.rowid";
156  $sql .= " AND d.fk_product = ".((int) $product->id);
157  if (!empty($search_month)) {
158  $sql .= ' AND MONTH(c.date_commande) IN ('.$db->sanitize($search_month).')';
159  }
160  if (!empty($search_year)) {
161  $sql .= ' AND YEAR(c.date_commande) IN ('.$db->sanitize($search_year).')';
162  }
163  if (empty($user->rights->societe->client->voir) && !$socid) {
164  $sql .= " AND s.rowid = sc.fk_soc AND sc.fk_user = ".((int) $user->id);
165  }
166  if ($socid) {
167  $sql .= " AND c.fk_soc = ".((int) $socid);
168  }
169  $sql .= $db->order($sortfield, $sortorder);
170 
171  // Calcul total qty and amount for global if full scan list
172  $total_ht = 0;
173  $total_qty = 0;
174 
175  // Count total nb of records
176  $totalofrecords = '';
177  if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
178  $result = $db->query($sql);
179  $totalofrecords = $db->num_rows($result);
180  }
181 
182  $sql .= $db->plimit($limit + 1, $offset);
183 
184  $result = $db->query($sql);
185  if ($result) {
186  $num = $db->num_rows($result);
187 
188  $option = '&id='.$product->id;
189 
190  if ($limit > 0 && $limit != $conf->liste_limit) {
191  $option .= '&limit='.urlencode($limit);
192  }
193  if (!empty($search_month)) {
194  $option .= '&search_month='.urlencode($search_month);
195  }
196  if (!empty($search_year)) {
197  $option .= '&search_year='.urlencode($search_year);
198  }
199 
200  print '<form method="post" action="'.$_SERVER['PHP_SELF'].'?id='.$product->id.'" name="search_form">'."\n";
201  print '<input type="hidden" name="token" value="'.newToken().'">';
202  if (!empty($sortfield)) {
203  print '<input type="hidden" name="sortfield" value="'.$sortfield.'"/>';
204  }
205  if (!empty($sortorder)) {
206  print '<input type="hidden" name="sortorder" value="'.$sortorder.'"/>';
207  }
208 
209  print_barre_liste($langs->trans("SuppliersOrders"), $page, $_SERVER["PHP_SELF"], $option, $sortfield, $sortorder, '', $num, $totalofrecords, '', 0, '', '', $limit, 0, 0, 1);
210 
211  if (!empty($page)) {
212  $option .= '&page='.urlencode($page);
213  }
214 
215  print '<div class="liste_titre liste_titre_bydiv centpercent">';
216  print '<div class="divsearchfield">';
217  print $langs->trans('Period').' ('.$langs->trans("OrderDate").') - ';
218  print $langs->trans('Month').':<input class="flat" type="text" size="4" name="search_month" value="'.$search_month.'"> ';
219  print $langs->trans('Year').':'.$formother->selectyear($search_year ? $search_year : - 1, 'search_year', 1, 20, 5);
220  print '<div style="vertical-align: middle; display: inline-block">';
221  print '<input type="image" class="liste_titre" name="button_search" src="'.img_picto($langs->trans("Search"), 'search.png', '', '', 1).'" value="'.dol_escape_htmltag($langs->trans("Search")).'" title="'.dol_escape_htmltag($langs->trans("Search")).'">';
222  print '<input type="image" class="liste_titre" name="button_removefilter" src="'.img_picto($langs->trans("Search"), 'searchclear.png', '', '', 1).'" value="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'" title="'.dol_escape_htmltag($langs->trans("RemoveFilter")).'">';
223  print '</div>';
224  print '</div>';
225  print '</div>';
226 
227  $i = 0;
228  print '<div class="div-table-responsive">';
229  print '<table class="tagtable liste listwithfilterbefore centpercent">';
230  print '<tr class="liste_titre">';
231  print_liste_field_titre("Ref", $_SERVER["PHP_SELF"], "c.rowid", "", $option, '', $sortfield, $sortorder);
232  print_liste_field_titre("Company", $_SERVER["PHP_SELF"], "s.nom", "", $option, '', $sortfield, $sortorder);
233  print_liste_field_titre("SupplierCode", $_SERVER["PHP_SELF"], "s.code_client", "", $option, '', $sortfield, $sortorder);
234  print_liste_field_titre("OrderDate", $_SERVER["PHP_SELF"], "c.date_commande", "", $option, 'align="center"', $sortfield, $sortorder);
235  print_liste_field_titre('DateDeliveryPlanned', $_SERVER['PHP_SELF'], 'c.date_livraison', '', $option, 'align="center"', $sortfield, $sortorder);
236  print_liste_field_titre("Qty", $_SERVER["PHP_SELF"], "d.qty", "", $option, 'align="center"', $sortfield, $sortorder);
237  print_liste_field_titre("AmountHT", $_SERVER["PHP_SELF"], "c.total_ht", "", $option, 'align="right"', $sortfield, $sortorder);
238  print_liste_field_titre("Status", $_SERVER["PHP_SELF"], "c.fk_statut", "", $option, 'align="right"', $sortfield, $sortorder);
239  print "</tr>\n";
240 
241  if ($num > 0) {
242  while ($i < min($num, $limit)) {
243  $objp = $db->fetch_object($result);
244 
245  $total_ht += $objp->total_ht;
246  $total_qty += $objp->qty;
247 
248  $supplierorderstatic->id = $objp->commandeid;
249  $supplierorderstatic->ref = $objp->ref;
250  $supplierorderstatic->statut = $objp->statut;
251  $societestatic->fetch($objp->socid);
252 
253  print '<tr class="oddeven">';
254  print '<td>';
255  print $supplierorderstatic->getNomUrl(1);
256  print "</td>\n";
257  print '<td>'.$societestatic->getNomUrl(1).'</td>';
258  print "<td>".$objp->code_client."</td>\n";
259  print '<td class="center">';
260  print dol_print_date($db->jdate($objp->date_commande), 'dayhour')."</td>";
261  // delivery planned date
262  print '<td class="center">';
263  print dol_print_date($db->jdate($objp->date_livraison), 'dayhour');
264  print '</td>';
265  print '<td class="center">'.$objp->qty."</td>\n";
266  print '<td align="right">'.price($objp->total_ht)."</td>\n";
267  print '<td align="right">'.$supplierorderstatic->getLibStatut(4).'</td>';
268  print "</tr>\n";
269  $i++;
270  }
271  }
272  print '<tr class="liste_total">';
273  if ($num < $limit) {
274  print '<td class="left">'.$langs->trans("Total").'</td>';
275  } else {
276  print '<td class="left">'.$langs->trans("Totalforthispage").'</td>';
277  }
278  print '<td colspan="3"></td>';
279  // delivery planned date
280  print '<td></td>';
281  print '<td class="center">'.$total_qty.'</td>';
282  print '<td align="right">'.price($total_ht).'</td>';
283  print '<td></td>';
284  print "</table>";
285  print '</div>';
286  print '</form>';
287  } else {
288  dol_print_error($db);
289  }
290  $db->free($result);
291  }
292  }
293 } else {
294  dol_print_error();
295 }
296 
297 // End of page
298 llxFooter();
299 $db->close();
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Definition: wrapper.php:56
llxFooter()
Empty footer.
Definition: wrapper.php:70
Class to manage predefined suppliers products.
Class to manage generation of HTML components Only common components must be here.
Classe 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...)
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
dol_banner_tab($object, $paramid, $morehtml='', $shownav=1, $fieldid='rowid', $fieldref='ref', $morehtmlref='', $moreparam='', $nodbprefix=0, $morehtmlleft='', $morehtmlstatus='', $onlybanner=0, $morehtmlright='')
Show tab footer of a card.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='')
Show tabs of a record.
dol_escape_htmltag($stringtoescape, $keepb=0, $keepn=0, $noescapetags='', $escapeonlyhtmltags=0)
Returns text escaped for inclusion in HTML alt or title tags, or into values of HTML input fields.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
dol_get_fiche_end($notab=0)
Return tab footer of a card.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='')
Set event messages in dol_events session object.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $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.
print_barre_liste($titre, $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.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
product_prepare_head($object)
Prepare array with list of tabs.
Definition: product.lib.php:35
show_stats_for_company($product, $socid)
Show stats for company.
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.