dolibarr  18.0.0-alpha
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  // Get bank account for the payment
122  $acc = new Account($db);
123  $fk_bank_account = $object->fk_bank_account;
124  if (empty($fk_bank_account)) {
125  $fk_bank_account = ($object->type == 'bank-transfer' ? getDolGlobalInt('PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') : getDolGlobalInt('PRELEVEMENT_ID_BANKACCOUNT'));
126  }
127  if ($fk_bank_account > 0) {
128  $result = $acc->fetch($fk_bank_account);
129  }
130 
131  $labelofbankfield = "BankToReceiveWithdraw";
132  if ($object->type == 'bank-transfer') {
133  $labelofbankfield = 'BankToPayCreditTransfer';
134  }
135 
136  print '<tr><td class="titlefieldcreate">';
137  print $form->textwithpicto($langs->trans("BankAccount"), $langs->trans($labelofbankfield));
138  print '</td>';
139  print '<td>';
140  if ($acc->id > 0) {
141  print $acc->getNomUrl(1);
142  }
143  print '</td>';
144  print '</tr>';
145 
146  print '<tr><td class="titlefieldcreate">';
147  $labelfororderfield = 'WithdrawalFile';
148  if ($object->type == 'bank-transfer') {
149  $labelfororderfield = 'CreditTransferFile';
150  }
151  print $langs->trans($labelfororderfield).'</td><td>';
152  $relativepath = 'receipts/'.$object->ref.'.xml';
153  $modulepart = 'prelevement';
154  if ($object->type == 'bank-transfer') {
155  $modulepart = 'paymentbybanktransfer';
156  }
157  print '<a data-ajax="false" href="'.DOL_URL_ROOT.'/document.php?type=text/plain&amp;modulepart='.$modulepart.'&amp;file='.urlencode($relativepath).'">'.$relativepath;
158  print img_picto('', 'download', 'class="paddingleft"');
159  print '</a>';
160  print '</td></tr></table>';
161 
162  print '</div>';
163 
164  print dol_get_fiche_end();
165  } else {
166  dol_print_error($db);
167  }
168 
169  /*
170  * Stats
171  */
172  $line = new LignePrelevement($db);
173 
174  $sql = "SELECT sum(pl.amount), pl.statut";
175  $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_lignes as pl";
176  $sql .= " WHERE pl.fk_prelevement_bons = ".((int) $object->id);
177  $sql .= " GROUP BY pl.statut";
178 
179  $resql = $db->query($sql);
180  if ($resql) {
181  $num = $db->num_rows($resql);
182  $i = 0;
183 
184  print load_fiche_titre($langs->trans("StatisticsByLineStatus"), '', '');
185 
186  print"\n<!-- debut table -->\n";
187  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
188  print '<table class="noborder centpercent">';
189  print '<tr class="liste_titre">';
190  print '<td>'.$langs->trans("Status").'</td><td class="right">'.$langs->trans("Amount").'</td><td class="right">%</td></tr>';
191 
192  while ($i < $num) {
193  $row = $db->fetch_row($resql);
194 
195  print '<tr class="oddeven"><td>';
196 
197  print $line->LibStatut($row[1], 1);
198 
199  print '</td>';
200 
201  print '<td class="right"><span class="amount">';
202  print price($row[0]);
203  print '</span></td>';
204 
205  print '<td class="right">';
206  if ($object->amount) {
207  print round($row[0] / $object->amount * 100, 2)." %";
208  }
209  print '</td>';
210 
211  print "</tr>\n";
212 
213 
214  $i++;
215  }
216 
217  print "</table>";
218  print "</div>";
219 
220  $db->free($resql);
221  } else {
222  print $db->error().' '.$sql;
223  }
224 }
225 
226 // End of page
227 llxFooter();
228 $db->close();
llxFooter
llxFooter()
Empty footer.
Definition: wrapper.php:70
LignePrelevement
Class to manage withdrawals.
Definition: ligneprelevement.class.php:32
$sql
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)) $sql
Social contributions to pay.
Definition: index.php:745
load_fiche_titre
load_fiche_titre($titre, $morehtmlright='', $picto='generic', $pictoisfullpath=0, $id='', $morecssontable='', $morehtmlcenter='')
Load a title with picto.
Definition: functions.lib.php:5363
GETPOST
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
Definition: functions.lib.php:530
dol_print_error
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
Definition: functions.lib.php:4994
$form
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
Definition: card.php:143
dol_banner_tab
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.
Definition: functions.lib.php:2097
dol_print_date
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
Definition: functions.lib.php:2566
img_picto
img_picto($titlealt, $picto, $moreatt='', $pictoisfullpath=false, $srconly=0, $notitle=0, $alt='', $morecss='', $marginleftonlyshort=2)
Show picto whatever it's its name (generic function)
Definition: functions.lib.php:4025
llxHeader
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
BonPrelevement
Class to manage withdrawal receipts.
Definition: bonprelevement.class.php:43
dol_get_fiche_head
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='')
Show tabs of a record.
Definition: functions.lib.php:1873
restrictedArea
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.
Definition: security.lib.php:341
dol_get_fiche_end
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Definition: functions.lib.php:2069
User
Class to manage Dolibarr users.
Definition: user.class.php:44
GETPOSTISSET
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
Definition: functions.lib.php:431
price
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.
Definition: functions.lib.php:5708
prelevement_prepare_head
prelevement_prepare_head(BonPrelevement $object)
Prepare array with list of tabs.
Definition: prelevement.lib.php:34
accessforbidden
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program.
Definition: security.lib.php:1106
getDolGlobalInt
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
Definition: functions.lib.php:96
Account
Class to manage bank accounts.
Definition: account.class.php:39