dolibarr  17.0.3
fiche-rejet.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) 2005-2010 Regis Houssin <regis.houssin@inodbox.com>
5  * Copyright (C) 2010-2012 Juanjo Menent <jmenent@2byte.es>
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 
27 // Load Dolibarr environment
28 require '../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.'/core/lib/prelevement.lib.php';
30 require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/rejetprelevement.class.php';
32 require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
33 require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php';
34 
35 // Load translation files required by the page
36 $langs->loadLangs(array("banks", "categories", 'withdrawals', 'bills'));
37 
38 // Security check
39 if ($user->socid > 0) {
41 }
42 
43 // Get supervariables
44 $id = GETPOST('id', 'int');
45 $ref = GETPOST('ref', 'alpha');
46 
47 $type = GETPOST('type', 'aZ09');
48 
49 // Load variable for pagination
50 $limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit;
51 $sortfield = GETPOST('sortfield', 'aZ09comma');
52 $sortorder = GETPOST('sortorder', 'aZ09comma');
53 $page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int');
54 if (empty($page) || $page == -1) {
55  $page = 0;
56 } // If $page is not defined, or '' or -1
57 $offset = $limit * $page;
58 $pageprev = $page - 1;
59 $pagenext = $page + 1;
60 
61 $object = new BonPrelevement($db);
62 
63 // Load object
64 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
65 
66 // Security check
67 if ($user->socid > 0) {
69 }
70 
71 $type = $object->type;
72 if ($type == 'bank-transfer') {
73  $result = restrictedArea($user, 'paymentbybanktransfer', '', '', '');
74 } else {
75  $result = restrictedArea($user, 'prelevement', '', '', 'bons');
76 }
77 
78 
79 
80 /*
81  * View
82  */
83 
84 llxHeader('', $langs->trans("WithdrawalsReceipts"));
85 
86 if ($id > 0 || $ref) {
87  if ($object->fetch($id, $ref) >= 0) {
88  $head = prelevement_prepare_head($object);
89  print dol_get_fiche_head($head, 'rejects', $langs->trans("WithdrawalsReceipts"), -1, 'payment');
90 
91  $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>';
92 
93  dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref');
94 
95  print '<div class="fichecenter">';
96  print '<div class="underbanner clearboth"></div>';
97  print '<table class="border centpercent tableforfield">'."\n";
98 
99  //print '<tr><td class="titlefieldcreate">'.$langs->trans("Ref").'</td><td>'.$object->getNomUrl(1).'</td></tr>';
100  print '<tr><td class="titlefieldcreate">'.$langs->trans("Date").'</td><td>'.dol_print_date($object->datec, 'day').'</td></tr>';
101  print '<tr><td>'.$langs->trans("Amount").'</td><td><span class="amount">'.price($object->amount).'</span></td></tr>';
102 
103  if (!empty($object->date_trans)) {
104  $muser = new User($db);
105  $muser->fetch($object->user_trans);
106 
107  print '<tr><td>'.$langs->trans("TransData").'</td><td>';
108  print dol_print_date($object->date_trans, 'day');
109  print ' &nbsp; <span class="opacitymedium">'.$langs->trans("By").'</span> '.$muser->getNomUrl(-1).'</td></tr>';
110  print '<tr><td>'.$langs->trans("TransMetod").'</td><td>';
111  print $object->methodes_trans[$object->method_trans];
112  print '</td></tr>';
113  }
114  if (!empty($object->date_credit)) {
115  print '<tr><td>'.$langs->trans('CreditDate').'</td><td>';
116  print dol_print_date($object->date_credit, 'day');
117  print '</td></tr>';
118  }
119 
120  print '</table>';
121 
122  print '<br>';
123 
124  print '<div class="underbanner clearboth"></div>';
125  print '<table class="border centpercent tableforfield">';
126 
127  $acc = new Account($db);
128  $result = $acc->fetch(($object->type == 'bank-transfer' ? $conf->global->PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT : $conf->global->PRELEVEMENT_ID_BANKACCOUNT));
129 
130  print '<tr><td class="titlefieldcreate">';
131  $labelofbankfield = "BankToReceiveWithdraw";
132  if ($object->type == 'bank-transfer') {
133  $labelofbankfield = 'BankToPayCreditTransfer';
134  }
135  print $langs->trans($labelofbankfield);
136  print '</td>';
137  print '<td>';
138  if ($acc->id > 0) {
139  print $acc->getNomUrl(1);
140  }
141  print '</td>';
142  print '</tr>';
143 
144  print '<tr><td class="titlefieldcreate">';
145  $labelfororderfield = 'WithdrawalFile';
146  if ($object->type == 'bank-transfer') {
147  $labelfororderfield = 'CreditTransferFile';
148  }
149  print $langs->trans($labelfororderfield).'</td><td>';
150  $relativepath = 'receipts/'.$object->ref.'.xml';
151  $modulepart = 'prelevement';
152  if ($object->type == 'bank-transfer') {
153  $modulepart = 'paymentbybanktransfer';
154  }
155  print '<a data-ajax="false" href="'.DOL_URL_ROOT.'/document.php?type=text/plain&amp;modulepart='.$modulepart.'&amp;file='.urlencode($relativepath).'">'.$relativepath;
156  print img_picto('', 'download', 'class="paddingleft"');
157  print '</a>';
158  print '</td></tr></table>';
159 
160  print '</div>';
161 
162  print dol_get_fiche_end();
163  } else {
164  dol_print_error($db);
165  }
166 }
167 
168 
169 $rej = new RejetPrelevement($db, $user, $type);
170 
171 /*
172  * List errors
173  */
174 $sql = "SELECT pl.rowid, pl.amount, pl.statut";
175 $sql .= " , s.rowid as socid, s.nom as name";
176 $sql .= " , pr.motif, pr.afacturer, pr.fk_facture";
177 $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p";
178 $sql .= " , ".MAIN_DB_PREFIX."prelevement_lignes as pl";
179 $sql .= " , ".MAIN_DB_PREFIX."societe as s";
180 $sql .= " , ".MAIN_DB_PREFIX."prelevement_rejet as pr";
181 $sql .= " WHERE p.rowid=".((int) $object->id);
182 $sql .= " AND pl.fk_prelevement_bons = p.rowid";
183 $sql .= " AND p.entity = ".$conf->entity;
184 $sql .= " AND pl.fk_soc = s.rowid";
185 $sql .= " AND pl.statut = 3 ";
186 $sql .= " AND pr.fk_prelevement_lignes = pl.rowid";
187 /*if ($socid) {
188  $sql .= " AND s.rowid = ".((int) $socid);
189 }*/
190 $sql .= " ORDER BY pl.amount DESC";
191 
192 // Count total nb of records
193 $nbtotalofrecords = '';
194 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
195  $result = $db->query($sql);
196  $nbtotalofrecords = $db->num_rows($result);
197  if (($page * $limit) > $nbtotalofrecords) { // if total resultset is smaller then paging size (filtering), goto and load page 0
198  $page = 0;
199  $offset = 0;
200  }
201 }
202 
203 $sql .= $db->plimit($limit + 1, $offset);
204 
205 $resql = $db->query($sql);
206 if ($resql) {
207  $num = $db->num_rows($resql);
208 
209  print_barre_liste($langs->trans("Rejects"), $page, $_SERVER["PHP_SELF"], $urladd, $sortfield, $sortorder, '', $num, $nbtotalofrecords, '');
210 
211  print"\n<!-- debut table -->\n";
212  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
213  print '<table class="noborder centpercent">';
214  print '<tr class="liste_titre">';
215  print '<td>'.$langs->trans("Line").'</td><td>'.$langs->trans("ThirdParty").'</td><td class="right">'.$langs->trans("Amount").'</td>';
216  print '<td>'.$langs->trans("Reason").'</td><td align="center">'.$langs->trans("ToBill").'</td><td class="center">'.$langs->trans("Invoice").'</td></tr>';
217 
218  $total = 0;
219 
220  if ($num > 0) {
221  $i = 0;
222  while ($i < $num) {
223  $obj = $db->fetch_object($resql);
224 
225  print '<tr class="oddeven"><td>';
226 
227  print '<a href="'.DOL_URL_ROOT.'/compta/prelevement/line.php?id='.$obj->rowid.'">';
228  print img_picto('', 'statut'.$obj->statut).' ';
229  print substr('000000'.$obj->rowid, -6);
230  print '</a></td>';
231  print '<td><a href="'.DOL_URL_ROOT.'/comm/card.php?socid='.$obj->socid.'">'.$obj->name."</a></td>\n";
232 
233  print '<td class="right"><span class="amount">'.price($obj->amount)."</span></td>\n";
234  print '<td>'.$rej->motifs[$obj->motif].'</td>';
235 
236  print '<td class="center">'.yn($obj->afacturer).'</td>';
237  print '<td class="center">'.$obj->fk_facture.'</td>';
238  print "</tr>\n";
239 
240  $total += $obj->amount;
241 
242  $i++;
243  }
244  } else {
245  print '<tr><td colspan="6"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
246  }
247 
248  if ($num > 0) {
249  print '<tr class="liste_total"><td>&nbsp;</td>';
250  print '<td class="liste_total">'.$langs->trans("Total").'</td>';
251  print '<td class="right"><span class="amount">'.price($total)."</span></td>\n";
252  print '<td colspan="3">&nbsp;</td>';
253  print "</tr>\n";
254  }
255  print "</table>\n";
256  print '</div>';
257 
258  $db->free($resql);
259 } else {
260  dol_print_error($db);
261 }
262 
263 // End of page
264 llxFooter();
265 $db->close();
llxFooter
llxFooter()
Empty footer.
Definition: wrapper.php:70
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:520
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:4993
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:2082
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:2550
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:4024
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
$resql
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
print_barre_liste
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.
Definition: functions.lib.php:5413
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:1858
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:346
dol_get_fiche_end
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Definition: functions.lib.php:2054
User
Class to manage Dolibarr users.
Definition: user.class.php:46
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:421
RejetPrelevement
Class to manage standing orders rejects.
Definition: rejetprelevement.class.php:31
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:5697
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:1125
$nbtotalofrecords
$nbtotalofrecords
Count total nb of records.
Definition: list.php:329
Account
Class to manage bank accounts.
Definition: account.class.php:39