dolibarr  20.0.0-beta
box_graph_invoices_supplier_permonth.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2013 Laurent Destailleur <eldy@users.sourceforge.net>
3  * Copyright (C) 2024 Frédéric France <frederic.france@free.fr>
4  *
5  * This program is free software; you can redistribute it and/or modify
6  * it under the terms of the GNU General Public License as published by
7  * the Free Software Foundation; either version 3 of the License, or
8  * (at your option) any later version.
9  *
10  * This program is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13  * GNU General Public License for more details.
14  *
15  * You should have received a copy of the GNU General Public License
16  * along with this program. If not, see <https://www.gnu.org/licenses/>.
17  */
18 
24 include_once DOL_DOCUMENT_ROOT.'/core/boxes/modules_boxes.php';
25 
26 
31 {
32  public $boxcode = "invoicessupplierpermonth";
33  public $boximg = "object_bill";
34  public $boxlabel = "BoxSuppliersInvoicesPerMonth";
35  public $depends = array("fournisseur");
36 
37  public $widgettype = 'graph';
38 
45  public function __construct($db, $param)
46  {
47  global $user;
48 
49  $this->db = $db;
50 
51  $this->hidden = !$user->hasRight('fournisseur', 'facture', 'lire');
52  }
53 
60  public function loadBox($max = 5)
61  {
62  global $conf, $user, $langs;
63 
64  $this->max = $max;
65 
66  $refreshaction = 'refresh_'.$this->boxcode;
67 
68  include_once DOL_DOCUMENT_ROOT.'/fourn/class/fournisseur.facture.class.php';
69 
70  $startmonth = getDolGlobalInt('SOCIETE_FISCAL_MONTH_START', 1);
71  if (!getDolGlobalString('GRAPH_USE_FISCAL_YEAR')) {
72  $startmonth = 1;
73  }
74 
75  $text = $langs->trans("BoxSuppliersInvoicesPerMonth", $max);
76  $this->info_box_head = array(
77  'text' => $text,
78  'limit'=> dol_strlen($text),
79  'graph'=> 1,
80  'sublink'=>'',
81  'subtext'=>$langs->trans("Filter"),
82  'subpicto'=>'filter.png',
83  'subclass'=>'linkobject boxfilter',
84  'target'=>'none' // Set '' to get target="_blank"
85  );
86 
87  $dir = ''; // We don't need a path because image file will not be saved into disk
88  $prefix = '';
89  $socid = 0;
90  if ($user->socid) {
91  $socid = $user->socid;
92  }
93  if (!$user->hasRight('societe', 'client', 'voir')) {
94  $prefix .= 'private-'.$user->id.'-'; // If user has no permission to see all, output dir is specific to user
95  }
96 
97  if ($user->hasRight('fournisseur', 'facture', 'lire')) {
98  $param_year = 'DOLUSERCOOKIE_box_'.$this->boxcode.'_year';
99  $param_shownb = 'DOLUSERCOOKIE_box_'.$this->boxcode.'_shownb';
100  $param_showtot = 'DOLUSERCOOKIE_box_'.$this->boxcode.'_showtot';
101 
102  include_once DOL_DOCUMENT_ROOT.'/core/class/dolgraph.class.php';
103  include_once DOL_DOCUMENT_ROOT.'/compta/facture/class/facturestats.class.php';
104  $autosetarray = preg_split("/[,;:]+/", GETPOST('DOL_AUTOSET_COOKIE'));
105  if (in_array('DOLUSERCOOKIE_box_'.$this->boxcode, $autosetarray)) {
106  $endyear = GETPOSTINT($param_year);
107  $shownb = GETPOST($param_shownb, 'alpha');
108  $showtot = GETPOST($param_showtot, 'alpha');
109  } else {
110  $tmparray = (!empty($_COOKIE['DOLUSERCOOKIE_box_'.$this->boxcode]) ? json_decode($_COOKIE['DOLUSERCOOKIE_box_'.$this->boxcode], true) : array());
111  $endyear = (!empty($tmparray['year']) ? $tmparray['year'] : '');
112  $shownb = (!empty($tmparray['shownb']) ? $tmparray['shownb'] : '');
113  $showtot = (!empty($tmparray['showtot']) ? $tmparray['showtot'] : '');
114  }
115  if (empty($shownb) && empty($showtot)) {
116  $shownb = 1;
117  $showtot = 1;
118  }
119  $nowarray = dol_getdate(dol_now(), true);
120  if (empty($endyear)) {
121  $endyear = $nowarray['year'];
122  }
123  $startyear = $endyear - getDolGlobalInt('MAIN_NB_OF_YEAR_IN_WIDGET_GRAPH', 3) + 1;
124 
125  $mode = 'supplier';
126  $WIDTH = (($shownb && $showtot) || !empty($conf->dol_optimize_smallscreen)) ? '256' : '320';
127  $HEIGHT = '192';
128 
129  $stats = new FactureStats($this->db, $socid, $mode, 0);
130 
131  // Build graphic number of object. $data = array(array('Lib',val1,val2,val3),...)
132  if ($shownb) {
133  $data1 = $stats->getNbByMonthWithPrevYear($endyear, $startyear, (GETPOST('action', 'aZ09') == $refreshaction ? -1 : (3600 * 24)), ($WIDTH < 300 ? 2 : 0), $startmonth);
134 
135  $filenamenb = $dir."/".$prefix."invoicessuppliernbinyear-".$endyear.".png";
136  // default value for customer mode
137  $fileurlnb = DOL_URL_ROOT.'/viewimage.php?modulepart=billstatssupplier&file=invoicessuppliernbinyear-'.$endyear.'.png';
138 
139  $px1 = new DolGraph();
140  $mesg = $px1->isGraphKo();
141  if (!$mesg) {
142  $langs->load("bills");
143 
144  $px1->SetData($data1);
145  unset($data1);
146  $i = $startyear;
147  $legend = array();
148  while ($i <= $endyear) {
149  if ($startmonth != 1) {
150  $legend[] = sprintf("%d/%d", $i - 2001, $i - 2000);
151  } else {
152  $legend[] = $i;
153  }
154  $i++;
155  }
156  $px1->SetLegend($legend);
157  $px1->SetMaxValue($px1->GetCeilMaxValue());
158  $px1->SetWidth($WIDTH);
159  $px1->SetHeight($HEIGHT);
160  $px1->SetYLabel($langs->trans("NumberOfBills"));
161  $px1->SetShading(3);
162  $px1->SetHorizTickIncrement(1);
163  $px1->SetCssPrefix("cssboxes");
164  $px1->mode = 'depth';
165  $px1->SetTitle($langs->trans("NumberOfBillsByMonth"));
166 
167  $px1->draw($filenamenb, $fileurlnb);
168  }
169  }
170 
171  // Build graphic number of object. $data = array(array('Lib',val1,val2,val3),...)
172  if ($showtot) {
173  $data2 = $stats->getAmountByMonthWithPrevYear($endyear, $startyear, (GETPOST('action', 'aZ09') == $refreshaction ? -1 : (3600 * 24)), ($WIDTH < 300 ? 2 : 0), $startmonth);
174 
175  $filenamenb = $dir."/".$prefix."invoicessupplieramountinyear-".$endyear.".png";
176  // default value for customer mode
177  $fileurlnb = DOL_URL_ROOT.'/viewimage.php?modulepart=billstatssupplier&file=invoicessupplieramountinyear-'.$endyear.'.png';
178 
179  $px2 = new DolGraph();
180  $mesg = $px2->isGraphKo();
181  if (!$mesg) {
182  $langs->load("bills");
183 
184  $px2->SetData($data2);
185  unset($data2);
186  $i = $startyear;
187  $legend = array();
188  while ($i <= $endyear) {
189  if ($startmonth != 1) {
190  $legend[] = sprintf("%d/%d", $i - 2001, $i - 2000);
191  } else {
192  $legend[] = $i;
193  }
194  $i++;
195  }
196  $px2->SetLegend($legend);
197  $px2->SetMaxValue($px2->GetCeilMaxValue());
198  $px2->SetWidth($WIDTH);
199  $px2->SetHeight($HEIGHT);
200  $px2->SetYLabel($langs->trans("AmountOfBillsHT"));
201  $px2->SetShading(3);
202  $px2->SetHorizTickIncrement(1);
203  $px2->SetCssPrefix("cssboxes");
204  $px2->mode = 'depth';
205  $px2->SetTitle($langs->trans("AmountOfBillsByMonthHT"));
206 
207  $px2->draw($filenamenb, $fileurlnb);
208  }
209  }
210 
211  if (empty($conf->use_javascript_ajax)) {
212  $langs->load("errors");
213  $mesg = $langs->trans("WarningFeatureDisabledWithDisplayOptimizedForBlindNoJs");
214  }
215 
216  if (!$mesg) {
217  $stringtoshow = '';
218  $stringtoshow .= '<script nonce="'.getNonce().'" type="text/javascript">
219  jQuery(document).ready(function() {
220  jQuery("#idsubimg'.$this->boxcode.'").click(function() {
221  jQuery("#idfilter'.$this->boxcode.'").toggle();
222  });
223  });
224  </script>';
225  $stringtoshow .= '<div class="center hideobject" id="idfilter'.$this->boxcode.'">'; // hideobject is to start hidden
226  $stringtoshow .= '<form class="flat formboxfilter" method="POST" action="'.$_SERVER["PHP_SELF"].'">';
227  $stringtoshow .= '<input type="hidden" name="token" value="'.newToken().'">';
228  $stringtoshow .= '<input type="hidden" name="action" value="'.$refreshaction.'">';
229  $stringtoshow .= '<input type="hidden" name="page_y" value="">';
230  $stringtoshow .= '<input type="hidden" name="DOL_AUTOSET_COOKIE" value="DOLUSERCOOKIE_box_'.$this->boxcode.':year,shownb,showtot">';
231  $stringtoshow .= '<input type="checkbox" name="'.$param_shownb.'"'.($shownb ? ' checked' : '').'> '.$langs->trans("NumberOfBillsByMonth");
232  $stringtoshow .= ' &nbsp; ';
233  $stringtoshow .= '<input type="checkbox" name="'.$param_showtot.'"'.($showtot ? ' checked' : '').'> '.$langs->trans("AmountOfBillsByMonthHT");
234  $stringtoshow .= '<br>';
235  $stringtoshow .= $langs->trans("Year").' <input class="flat" size="4" type="text" name="'.$param_year.'" value="'.$endyear.'">';
236  $stringtoshow .= '<input type="image" class="reposition inline-block valigntextbottom" alt="'.$langs->trans("Refresh").'" src="'.img_picto($langs->trans("Refresh"), 'refresh.png', '', '', 1).'">';
237  $stringtoshow .= '</form>';
238  $stringtoshow .= '</div>';
239  if ($shownb && $showtot) {
240  $stringtoshow .= '<div class="fichecenter">';
241  $stringtoshow .= '<div class="fichehalfleft">';
242  }
243  if ($shownb) {
244  $stringtoshow .= $px1->show();
245  }
246  if ($shownb && $showtot) {
247  $stringtoshow .= '</div>';
248  $stringtoshow .= '<div class="fichehalfright">';
249  }
250  if ($showtot) {
251  $stringtoshow .= $px2->show();
252  }
253  if ($shownb && $showtot) {
254  $stringtoshow .= '</div>';
255  $stringtoshow .= '</div>';
256  }
257  $this->info_box_contents[0][0] = array('tr'=>'class="oddeven nohover"', 'td' => 'class="nohover center"', 'textnoformat'=>$stringtoshow);
258  } else {
259  $this->info_box_contents[0][0] = array('tr'=>'class="oddeven nohover"', 'td' => 'class="nohover left"', 'maxlength'=>500, 'text' => $mesg);
260  }
261  } else {
262  $this->info_box_contents[0][0] = array(
263  'td' => 'class="nohover left"',
264  'text' => '<span class="opacitymedium">'.$langs->trans("ReadPermissionNotAllowed").'</span>'
265  );
266  }
267  }
268 
277  public function showBox($head = null, $contents = null, $nooutput = 0)
278  {
279  return parent::showBox($this->info_box_head, $this->info_box_contents, $nooutput);
280  }
281 }
Class to build graphs.
Class to manage stats for invoices (customer and supplier)
Class ModeleBoxes.
Class to manage the box to show last invoices.
loadBox($max=5)
Load data into info_box_contents array to show array later.
showBox($head=null, $contents=null, $nooutput=0)
Method to show box.
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=0, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOSTINT($paramname, $method=0)
Return the value of a $_GET or $_POST supervariable, converted into integer.
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_getdate($timestamp, $fast=false, $forcetimezone='')
Return an array with locale date info.