dolibarr  18.0.0-alpha
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  // Get bank account for the payment
128  $acc = new Account($db);
129  $fk_bank_account = $object->fk_bank_account;
130  if (empty($fk_bank_account)) {
131  $fk_bank_account = ($object->type == 'bank-transfer' ? getDolGlobalInt('PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') : getDolGlobalInt('PRELEVEMENT_ID_BANKACCOUNT'));
132  }
133  if ($fk_bank_account > 0) {
134  $result = $acc->fetch($fk_bank_account);
135  }
136 
137  $labelofbankfield = "BankToReceiveWithdraw";
138  if ($object->type == 'bank-transfer') {
139  $labelofbankfield = 'BankToPayCreditTransfer';
140  }
141 
142  print '<tr><td class="titlefieldcreate">';
143  print $form->textwithpicto($langs->trans("BankAccount"), $langs->trans($labelofbankfield));
144  print '</td>';
145  print '<td>';
146  if ($acc->id > 0) {
147  print $acc->getNomUrl(1);
148  }
149  print '</td>';
150  print '</tr>';
151 
152  print '<tr><td class="titlefieldcreate">';
153  $labelfororderfield = 'WithdrawalFile';
154  if ($object->type == 'bank-transfer') {
155  $labelfororderfield = 'CreditTransferFile';
156  }
157  print $langs->trans($labelfororderfield).'</td><td>';
158  $relativepath = 'receipts/'.$object->ref.'.xml';
159  $modulepart = 'prelevement';
160  if ($object->type == 'bank-transfer') {
161  $modulepart = 'paymentbybanktransfer';
162  }
163  print '<a data-ajax="false" href="'.DOL_URL_ROOT.'/document.php?type=text/plain&amp;modulepart='.$modulepart.'&amp;file='.urlencode($relativepath).'">'.$relativepath;
164  print img_picto('', 'download', 'class="paddingleft"');
165  print '</a>';
166  print '</td></tr></table>';
167 
168  print '</div>';
169 
170  print dol_get_fiche_end();
171  } else {
172  dol_print_error($db);
173  }
174 }
175 
176 
177 $rej = new RejetPrelevement($db, $user, $type);
178 
179 /*
180  * List errors
181  */
182 $sql = "SELECT pl.rowid, pl.amount, pl.statut";
183 $sql .= " , s.rowid as socid, s.nom as name";
184 $sql .= " , pr.motif, pr.afacturer, pr.fk_facture";
185 $sql .= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p";
186 $sql .= " , ".MAIN_DB_PREFIX."prelevement_lignes as pl";
187 $sql .= " , ".MAIN_DB_PREFIX."societe as s";
188 $sql .= " , ".MAIN_DB_PREFIX."prelevement_rejet as pr";
189 $sql .= " WHERE p.rowid=".((int) $object->id);
190 $sql .= " AND pl.fk_prelevement_bons = p.rowid";
191 $sql .= " AND p.entity = ".$conf->entity;
192 $sql .= " AND pl.fk_soc = s.rowid";
193 $sql .= " AND pl.statut = 3 ";
194 $sql .= " AND pr.fk_prelevement_lignes = pl.rowid";
195 /*if ($socid) {
196  $sql .= " AND s.rowid = ".((int) $socid);
197 }*/
198 $sql .= " ORDER BY pl.amount DESC";
199 
200 // Count total nb of records
201 $nbtotalofrecords = '';
202 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
203  $result = $db->query($sql);
204  $nbtotalofrecords = $db->num_rows($result);
205  if (($page * $limit) > $nbtotalofrecords) { // if total resultset is smaller then paging size (filtering), goto and load page 0
206  $page = 0;
207  $offset = 0;
208  }
209 }
210 
211 $sql .= $db->plimit($limit + 1, $offset);
212 
213 $resql = $db->query($sql);
214 if ($resql) {
215  $num = $db->num_rows($resql);
216 
217  print_barre_liste($langs->trans("Rejects"), $page, $_SERVER["PHP_SELF"], $urladd, $sortfield, $sortorder, '', $num, $nbtotalofrecords, '');
218 
219  print"\n<!-- debut table -->\n";
220  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
221  print '<table class="noborder centpercent">';
222  print '<tr class="liste_titre">';
223  print '<td>'.$langs->trans("Line").'</td><td>'.$langs->trans("ThirdParty").'</td><td class="right">'.$langs->trans("Amount").'</td>';
224  print '<td>'.$langs->trans("Reason").'</td><td align="center">'.$langs->trans("ToBill").'</td><td class="center">'.$langs->trans("Invoice").'</td></tr>';
225 
226  $total = 0;
227 
228  if ($num > 0) {
229  $i = 0;
230  while ($i < $num) {
231  $obj = $db->fetch_object($resql);
232 
233  print '<tr class="oddeven"><td>';
234 
235  print '<a href="'.DOL_URL_ROOT.'/compta/prelevement/line.php?id='.$obj->rowid.'">';
236  print img_picto('', 'statut'.$obj->statut).' ';
237  print substr('000000'.$obj->rowid, -6);
238  print '</a></td>';
239  print '<td><a href="'.DOL_URL_ROOT.'/comm/card.php?socid='.$obj->socid.'">'.$obj->name."</a></td>\n";
240 
241  print '<td class="right"><span class="amount">'.price($obj->amount)."</span></td>\n";
242  print '<td>'.$rej->motifs[$obj->motif].'</td>';
243 
244  print '<td class="center">'.yn($obj->afacturer).'</td>';
245  print '<td class="center">'.$obj->fk_facture.'</td>';
246  print "</tr>\n";
247 
248  $total += $obj->amount;
249 
250  $i++;
251  }
252  } else {
253  print '<tr><td colspan="6"><span class="opacitymedium">'.$langs->trans("None").'</span></td></tr>';
254  }
255 
256  if ($num > 0) {
257  print '<tr class="liste_total"><td>&nbsp;</td>';
258  print '<td class="liste_total">'.$langs->trans("Total").'</td>';
259  print '<td class="right"><span class="amount">'.price($total)."</span></td>\n";
260  print '<td colspan="3">&nbsp;</td>';
261  print "</tr>\n";
262  }
263  print "</table>\n";
264  print '</div>';
265 
266  $db->free($resql);
267 } else {
268  dol_print_error($db);
269 }
270 
271 // End of page
272 llxFooter();
273 $db->close();
llxFooter
llxFooter()
Empty footer.
Definition: wrapper.php:70
$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
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
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:5416
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
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: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
$nbtotalofrecords
$nbtotalofrecords
Count total nb of records.
Definition: list.php:329
Account
Class to manage bank accounts.
Definition: account.class.php:39