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 21/** 22 * \file htdocs/compta/prelevement/fiche-rejet.php 23 * \ingroup prelevement 24 * \brief Debit order or credit transfer reject 25 */ 26 27require '../../main.inc.php'; 28require_once DOL_DOCUMENT_ROOT.'/core/lib/prelevement.lib.php'; 29require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php'; 30require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/rejetprelevement.class.php'; 31require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php'; 32require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php'; 33 34// Load translation files required by the page 35$langs->loadLangs(array("banks", "categories", 'withdrawals', 'bills')); 36 37// Security check 38if ($user->socid > 0) { 39 accessforbidden(); 40} 41 42// Get supervariables 43$prev_id = GETPOST('id', 'int'); 44$ref = GETPOST('ref', 'alpha'); 45 46$type = GETPOST('type', 'aZ09'); 47 48// Load variable for pagination 49$limit = GETPOST('limit', 'int') ?GETPOST('limit', 'int') : $conf->liste_limit; 50$sortfield = GETPOST('sortfield', 'aZ09comma'); 51$sortorder = GETPOST('sortorder', 'aZ09comma'); 52$page = GETPOSTISSET('pageplusone') ? (GETPOST('pageplusone') - 1) : GETPOST("page", 'int'); 53if (empty($page) || $page == -1) { 54 $page = 0; 55} // If $page is not defined, or '' or -1 56$offset = $limit * $page; 57$pageprev = $page - 1; 58$pagenext = $page + 1; 59 60$object = new BonPrelevement($db); 61 62// Load object 63include 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 64 65if (!$user->rights->prelevement->bons->lire && $object->type != 'bank-transfer') { 66 accessforbidden(); 67} 68if (!$user->rights->paymentbybanktransfer->read && $object->type == 'bank-transfer') { 69 accessforbidden(); 70} 71 72 73 74/* 75 * View 76 */ 77 78llxHeader('', $langs->trans("WithdrawalsReceipts")); 79 80if ($prev_id > 0 || $ref) { 81 if ($object->fetch($prev_id, $ref) >= 0) { 82 $head = prelevement_prepare_head($object); 83 print dol_get_fiche_head($head, 'rejects', $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="titlefield">'.$langs->trans("Ref").'</td><td>'.$object->getNomUrl(1).'</td></tr>'; 94 print '<tr><td class="titlefield">'.$langs->trans("Date").'</td><td>'.dol_print_date($object->datec, 'day').'</td></tr>'; 95 print '<tr><td>'.$langs->trans("Amount").'</td><td>'.price($object->amount).'</td></tr>'; 96 97 if ($object->date_trans <> 0) { 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 ' <span class="opacitymedium">'.$langs->trans("By").'</span> '.$muser->getFullName($langs).'</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 ($object->date_credit <> 0) { 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($conf->global->PRELEVEMENT_ID_BANKACCOUNT); 123 124 print '<tr><td class="titlefield">'; 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="titlefield">'; 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&modulepart='.$modulepart.'&file='.urlencode($relativepath).'">'.$relativepath.'</a>'; 150 print '</td></tr></table>'; 151 152 print '</div>'; 153 154 print dol_get_fiche_end(); 155 } else { 156 dol_print_error($db); 157 } 158} 159 160 161$rej = new RejetPrelevement($db, $user, $type); 162 163/* 164 * List errors 165 */ 166$sql = "SELECT pl.rowid, pl.amount, pl.statut"; 167$sql .= " , s.rowid as socid, s.nom as name"; 168$sql .= " , pr.motif, pr.afacturer, pr.fk_facture"; 169$sql .= " FROM ".MAIN_DB_PREFIX."prelevement_bons as p"; 170$sql .= " , ".MAIN_DB_PREFIX."prelevement_lignes as pl"; 171$sql .= " , ".MAIN_DB_PREFIX."societe as s"; 172$sql .= " , ".MAIN_DB_PREFIX."prelevement_rejet as pr"; 173$sql .= " WHERE p.rowid=".((int) $object->id); 174$sql .= " AND pl.fk_prelevement_bons = p.rowid"; 175$sql .= " AND p.entity = ".$conf->entity; 176$sql .= " AND pl.fk_soc = s.rowid"; 177$sql .= " AND pl.statut = 3 "; 178$sql .= " AND pr.fk_prelevement_lignes = pl.rowid"; 179/*if ($socid) { 180 $sql .= " AND s.rowid = ".((int) $socid); 181}*/ 182$sql .= " ORDER BY pl.amount DESC"; 183 184// Count total nb of records 185$nbtotalofrecords = ''; 186if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) { 187 $result = $db->query($sql); 188 $nbtotalofrecords = $db->num_rows($result); 189 if (($page * $limit) > $nbtotalofrecords) { // if total resultset is smaller then paging size (filtering), goto and load page 0 190 $page = 0; 191 $offset = 0; 192 } 193} 194 195$sql .= $db->plimit($limit + 1, $offset); 196 197$resql = $db->query($sql); 198if ($resql) { 199 $num = $db->num_rows($resql); 200 201 print_barre_liste($langs->trans("Rejects"), $page, $_SERVER["PHP_SELF"], $urladd, $sortfield, $sortorder, '', $num, $nbtotalofrecords, ''); 202 203 print"\n<!-- debut table -->\n"; 204 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 205 print '<table class="noborder" width="100%" cellpadding="4">'; 206 print '<tr class="liste_titre">'; 207 print '<td>'.$langs->trans("Line").'</td><td>'.$langs->trans("ThirdParty").'</td><td class="right">'.$langs->trans("Amount").'</td>'; 208 print '<td>'.$langs->trans("Reason").'</td><td align="center">'.$langs->trans("ToBill").'</td><td class="center">'.$langs->trans("Invoice").'</td></tr>'; 209 210 $total = 0; 211 212 if ($num > 0) { 213 $i = 0; 214 while ($i < $num) { 215 $obj = $db->fetch_object($resql); 216 217 print '<tr class="oddeven"><td>'; 218 219 print '<a href="'.DOL_URL_ROOT.'/compta/prelevement/line.php?id='.$obj->rowid.'">'; 220 print img_picto('', 'statut'.$obj->statut).' '; 221 print substr('000000'.$obj->rowid, -6); 222 print '</a></td>'; 223 print '<td><a href="'.DOL_URL_ROOT.'/comm/card.php?socid='.$obj->socid.'">'.$obj->name."</a></td>\n"; 224 225 print '<td class="right"><span class="amount">'.price($obj->amount)."</span></td>\n"; 226 print '<td>'.$rej->motifs[$obj->motif].'</td>'; 227 228 print '<td class="center">'.yn($obj->afacturer).'</td>'; 229 print '<td class="center">'.$obj->fk_facture.'</td>'; 230 print "</tr>\n"; 231 232 $total += $obj->amount; 233 234 $i++; 235 } 236 } else { 237 print '<tr><td colspan="6" class="opacitymedium">'.$langs->trans("None").'</td></tr>'; 238 } 239 240 if ($num > 0) { 241 print '<tr class="liste_total"><td> </td>'; 242 print '<td class="liste_total">'.$langs->trans("Total").'</td>'; 243 print '<td class="right"><span class="amount">'.price($total)."</span></td>\n"; 244 print '<td colspan="3"> </td>'; 245 print "</tr>\n"; 246 } 247 print "</table>\n"; 248 print '</div>'; 249 250 $db->free($resql); 251} else { 252 dol_print_error($db); 253} 254 255// End of page 256llxFooter(); 257$db->close(); 258