dolibarr  17.0.4
fiche-stat.php
Go to the documentation of this file.
1 <?php
2 /* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3  * Copyright (C) 2005 Laurent Destailleur <eldy@users.sourceforge.net>
4  * Copyright (C) 2010-2012 Juanjo Menent <jmenent@2byte.es>
5  *
6  * This program is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 3 of the License, or
9  * (at your option) any later version.
10  *
11  * This program is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program. If not, see <https://www.gnu.org/licenses/>.
18  */
19 
26 // Load Dolibarr environment
27 require '../../main.inc.php';
28 require_once DOL_DOCUMENT_ROOT.'/core/lib/prelevement.lib.php';
29 require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php';
30 require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/ligneprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
32 
33 // Load translation files required by the page
34 $langs->loadLangs(array("banks", "categories", 'withdrawals', 'bills'));
35 
36 // Get supervariables
37 $id = GETPOST('id', 'int');
38 $ref = GETPOST('ref', 'alpha');
39 
40 $type = GETPOST('type', 'aZ09');
41 
42 // Load variable for pagination
43 $limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
44 $sortfield = GETPOST('sortfield', 'aZ09comma');
45 $sortorder = GETPOST('sortorder', 'aZ09comma');
46 $page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
47 if (empty($page) || $page == -1) {
48  $page = 0;
49 } // If $page is not defined, or '' or -1
50 $offset = $limit * $page;
51 $pageprev = $page - 1;
52 $pagenext = $page + 1;
53 
54 
55 $object = new BonPrelevement($db);
56 
57 // Load object
58 include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be include, not include_once // Must be include, not include_once. Include fetch and fetch_thirdparty but not fetch_optionals
59 
60 // Security check
61 if ($user->socid > 0) {
63 }
64 
65 $type = $object->type;
66 if ($type == 'bank-transfer') {
67  $result = restrictedArea($user, 'paymentbybanktransfer', '', '', '');
68 } else {
69  $result = restrictedArea($user, 'prelevement', '', '', 'bons');
70 }
71 
72 
73 
74 /*
75  * View
76  */
77 
78 llxHeader('', $langs->trans("WithdrawalsReceipts"));
79 
80 if ($id > 0 || $ref) {
81  if ($object->fetch($id, $ref) >= 0) {
82  $head = prelevement_prepare_head($object);
83  print dol_get_fiche_head($head, 'statistics', $langs->trans("WithdrawalsReceipts"), -1, 'payment');
84 
85  $linkback = '<a href="'.DOL_URL_ROOT.'/compta/prelevement/orders_list.php?restore_lastsearch_values=1'.($object->type != 'bank-transfer' ? '' : '&type=bank-transfer').'">'.$langs->trans("BackToList").'</a>';
86 
87  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref');
88 
89  print '<div class="fichecenter">';
90  print '<div class="underbanner clearboth"></div>';
91  print '<table class="border centpercent tableforfield">'."\n";
92 
93  //print '<tr><td class="titlefieldcreate">'.$langs->trans("Ref").'</td><td>'.$object->getNomUrl(1).'</td></tr>';
94  print '<tr><td class="titlefieldcreate">'.$langs->trans("Date").'</td><td>'.dol_print_date($object->datec, 'day').'</td></tr>';
95  print '<tr><td>'.$langs->trans("Amount").'</td><td><span class="amount">'.price($object->amount).'</span></td></tr>';
96 
97  if (!empty($object->date_trans)) {
98  $muser = new User($db);
99  $muser->fetch($object->user_trans);
100 
101  print '<tr><td>'.$langs->trans("TransData").'</td><td>';
102  print dol_print_date($object->date_trans, 'day');
103  print ' &nbsp; <span class="opacitymedium">'.$langs->trans("By").'</span> '.$muser->getNomUrl(-1).'</td></tr>';
104  print '<tr><td>'.$langs->trans("TransMetod").'</td><td>';
105  print $object->methodes_trans[$object->method_trans];
106  print '</td></tr>';
107  }
108  if (!empty($object->date_credit)) {
109  print '<tr><td>'.$langs->trans('CreditDate').'</td><td>';
110  print dol_print_date($object->date_credit, 'day');
111  print '</td></tr>';
112  }
113 
114  print '</table>';
115 
116  print '<br>';
117 
118  print '<div class="underbanner clearboth"></div>';
119  print '<table class="border centpercent tableforfield">';
120 
121  $acc = new Account($db);
122  $result = $acc->fetch(($object->type == 'bank-transfer' ? $conf->global->PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT : $conf->global->PRELEVEMENT_ID_BANKACCOUNT));
123 
124  print '<tr><td class="titlefieldcreate">';
125  $labelofbankfield = "BankToReceiveWithdraw";
126  if ($object->type == 'bank-transfer') {
127  $labelofbankfield = 'BankToPayCreditTransfer';
128  }
129  print $langs->trans($labelofbankfield);
130  print '</td>';
131  print '<td>';
132  if ($acc->id > 0) {
133  print $acc->getNomUrl(1);
134  }
135  print '</td>';
136  print '</tr>';
137 
138  print '<tr><td class="titlefieldcreate">';
139  $labelfororderfield = 'WithdrawalFile';
140  if ($object->type == 'bank-transfer') {
141  $labelfororderfield = 'CreditTransferFile';
142  }
143  print $langs->trans($labelfororderfield).'</td><td>';
144  $relativepath = 'receipts/'.$object->ref.'.xml';
145  $modulepart = 'prelevement';
146  if ($object->type == 'bank-transfer') {
147  $modulepart = 'paymentbybanktransfer';
148  }
149  print '<a data-ajax="false" href="'.DOL_URL_ROOT.'/document.php?type=text/plain&amp;modulepart='.$modulepart.'&amp;file='.urlencode($relativepath).'">'.$relativepath;
150  print img_picto('', 'download', 'class="paddingleft"');
151  print '</a>';
152  print '</td></tr></table>';
153 
154  print '</div>';
155 
156  print dol_get_fiche_end();
157  } else {
158  dol_print_error($db);
159  }
160 
161  /*
162  * Stats
163  */
164  $line = new LignePrelevement($db);
165 
166  $sql = "SELECT sum(pl.amount), pl.statut";
167  $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_lignes as pl";
168  $sql .= " WHERE pl.fk_prelevement_bons = ".((int) $object->id);
169  $sql .= " GROUP BY pl.statut";
170 
171  $resql = $db->query($sql);
172  if ($resql) {
173  $num = $db->num_rows($resql);
174  $i = 0;
175 
176  print load_fiche_titre($langs->trans("StatisticsByLineStatus"), '', '');
177 
178  print"\n<!-- debut table -->\n";
179  print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you dont need reserved height for your table
180  print '<table class="noborder centpercent">';
181  print '<tr class="liste_titre">';
182  print '<td>'.$langs->trans("Status").'</td><td class="right">'.$langs->trans("Amount").'</td><td class="right">%</td></tr>';
183 
184  while ($i < $num) {
185  $row = $db->fetch_row($resql);
186 
187  print '<tr class="oddeven"><td>';
188 
189  print $line->LibStatut($row[1], 1);
190 
191  print '</td>';
192 
193  print '<td class="right"><span class="amount">';
194  print price($row[0]);
195  print '</span></td>';
196 
197  print '<td class="right">';
198  if ($object->amount) {
199  print round($row[0] / $object->amount * 100, 2)." %";
200  }
201  print '</td>';
202 
203  print "</tr>\n";
204 
205 
206  $i++;
207  }
208 
209  print "</table>";
210  print "</div>";
211 
212  $db->free($resql);
213  } else {
214  print $db->error().' '.$sql;
215  }
216 }
217 
218 // End of page
219 llxFooter();
220 $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 bank accounts.
Class to manage withdrawal receipts.
Class to manage withdrawals.
Class to manage Dolibarr users.
Definition: user.class.php:47
if(isModEnabled('facture') &&!empty($user->rights->facture->lire)) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->hasRight("fournisseur", "facture", "lire"))||(isModEnabled('supplier_invoice') && $user->hasRight("supplier_invoice", "lire"))) if(isModEnabled('don') &&!empty($user->rights->don->lire)) if(isModEnabled('tax') &&!empty($user->rights->tax->charges->lire)) if(isModEnabled('facture') &&isModEnabled('commande') && $user->hasRight("commande", "lire") &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $resql
Social contributions to pay.
Definition: index.php:745
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.
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='')
Show tabs of a record.
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.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
prelevement_prepare_head(BonPrelevement $object)
Prepare array with list of tabs.
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.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.