Go to the documentation of this file.
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/rejetprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.
'/compta/paiement/class/paiement.class.php';
32 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
35 $langs->loadLangs(array(
"banks",
"categories",
'withdrawals',
'bills'));
38 if ($user->socid > 0) {
46 $type =
GETPOST(
'type',
'aZ09');
49 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
50 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
51 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
53 if (empty($page) || $page == -1) {
56 $offset = $limit * $page;
57 $pageprev = $page - 1;
58 $pagenext = $page + 1;
63 include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
66 if ($user->socid > 0) {
70 $type = $object->type;
71 if ($type ==
'bank-transfer') {
72 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
83 llxHeader(
'', $langs->trans(
"WithdrawalsReceipts"));
85 if ($id > 0 || $ref) {
86 if ($object->fetch($id, $ref) >= 0) {
88 print
dol_get_fiche_head($head,
'rejects', $langs->trans(
"WithdrawalsReceipts"), -1,
'payment');
90 $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>';
94 print
'<div class="fichecenter">';
95 print
'<div class="underbanner clearboth"></div>';
96 print
'<table class="border centpercent tableforfield">'.
"\n";
99 print
'<tr><td class="titlefieldcreate">'.$langs->trans(
"Date").
'</td><td>'.
dol_print_date($object->datec,
'day').
'</td></tr>';
100 print
'<tr><td>'.$langs->trans(
"Amount").
'</td><td><span class="amount">'.
price($object->amount).
'</span></td></tr>';
102 if ($object->date_trans <> 0) {
103 $muser =
new User($db);
104 $muser->fetch($object->user_trans);
106 print
'<tr><td>'.$langs->trans(
"TransData").
'</td><td>';
108 print
' <span class="opacitymedium">'.$langs->trans(
"By").
'</span> '.$muser->getNomUrl(-1).
'</td></tr>';
109 print
'<tr><td>'.$langs->trans(
"TransMetod").
'</td><td>';
110 print $object->methodes_trans[$object->method_trans];
113 if ($object->date_credit <> 0) {
114 print
'<tr><td>'.$langs->trans(
'CreditDate').
'</td><td>';
123 print
'<div class="underbanner clearboth"></div>';
124 print
'<table class="border centpercent tableforfield">';
127 $result = $acc->fetch($conf->global->PRELEVEMENT_ID_BANKACCOUNT);
129 print
'<tr><td class="titlefieldcreate">';
130 $labelofbankfield =
"BankToReceiveWithdraw";
131 if ($object->type ==
'bank-transfer') {
132 $labelofbankfield =
'BankToPayCreditTransfer';
134 print $langs->trans($labelofbankfield);
138 print $acc->getNomUrl(1);
143 print
'<tr><td class="titlefieldcreate">';
144 $labelfororderfield =
'WithdrawalFile';
145 if ($object->type ==
'bank-transfer') {
146 $labelfororderfield =
'CreditTransferFile';
148 print $langs->trans($labelfororderfield).
'</td><td>';
149 $relativepath =
'receipts/'.$object->ref.
'.xml';
150 $modulepart =
'prelevement';
151 if ($object->type ==
'bank-transfer') {
152 $modulepart =
'paymentbybanktransfer';
154 print
'<a data-ajax="false" href="'.DOL_URL_ROOT.
'/document.php?type=text/plain&modulepart='.$modulepart.
'&file='.urlencode($relativepath).
'">'.$relativepath;
155 print
img_picto(
'',
'download',
'class="paddingleft"');
157 print
'</td></tr></table>';
173 $sql =
"SELECT pl.rowid, pl.amount, pl.statut";
174 $sql .=
" , s.rowid as socid, s.nom as name";
175 $sql .=
" , pr.motif, pr.afacturer, pr.fk_facture";
176 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_bons as p";
177 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
178 $sql .=
" , ".MAIN_DB_PREFIX.
"societe as s";
179 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_rejet as pr";
180 $sql .=
" WHERE p.rowid=".((int) $object->id);
181 $sql .=
" AND pl.fk_prelevement_bons = p.rowid";
182 $sql .=
" AND p.entity = ".$conf->entity;
183 $sql .=
" AND pl.fk_soc = s.rowid";
184 $sql .=
" AND pl.statut = 3 ";
185 $sql .=
" AND pr.fk_prelevement_lignes = pl.rowid";
189 $sql .=
" ORDER BY pl.amount DESC";
192 $nbtotalofrecords =
'';
193 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
194 $result = $db->query($sql);
195 $nbtotalofrecords = $db->num_rows($result);
196 if (($page * $limit) > $nbtotalofrecords) {
202 $sql .= $db->plimit($limit + 1, $offset);
204 $resql = $db->query($sql);
206 $num = $db->num_rows(
$resql);
208 print_barre_liste($langs->trans(
"Rejects"), $page, $_SERVER[
"PHP_SELF"], $urladd, $sortfield, $sortorder,
'', $num, $nbtotalofrecords,
'');
210 print
"\n<!-- debut table -->\n";
211 print
'<div class="div-table-responsive-no-min">';
212 print
'<table class="noborder centpercent">';
213 print
'<tr class="liste_titre">';
214 print
'<td>'.$langs->trans(
"Line").
'</td><td>'.$langs->trans(
"ThirdParty").
'</td><td class="right">'.$langs->trans(
"Amount").
'</td>';
215 print
'<td>'.$langs->trans(
"Reason").
'</td><td align="center">'.$langs->trans(
"ToBill").
'</td><td class="center">'.$langs->trans(
"Invoice").
'</td></tr>';
222 $obj = $db->fetch_object(
$resql);
224 print
'<tr class="oddeven"><td>';
226 print
'<a href="'.DOL_URL_ROOT.
'/compta/prelevement/line.php?id='.$obj->rowid.
'">';
227 print
img_picto(
'',
'statut'.$obj->statut).
' ';
228 print substr(
'000000'.$obj->rowid, -6);
230 print
'<td><a href="'.DOL_URL_ROOT.
'/comm/card.php?socid='.$obj->socid.
'">'.$obj->name.
"</a></td>\n";
232 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
233 print
'<td>'.$rej->motifs[$obj->motif].
'</td>';
235 print
'<td class="center">'.yn($obj->afacturer).
'</td>';
236 print
'<td class="center">'.$obj->fk_facture.
'</td>';
239 $total += $obj->amount;
244 print
'<tr><td colspan="6" class="opacitymedium">'.$langs->trans(
"None").
'</td></tr>';
248 print
'<tr class="liste_total"><td> </td>';
249 print
'<td class="liste_total">'.$langs->trans(
"Total").
'</td>';
250 print
'<td class="right"><span class="amount">'.price($total).
"</span></td>\n";
251 print
'<td colspan="3"> </td>';
restrictedArea($user, $features, $objectid=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.
GETPOST($paramname, $check='alphanohtml', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
dol_print_error($db='', $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
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.
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)
Class to manage withdrawal receipts.
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.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='')
Show tabs of a record.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
Class to manage Dolibarr users.
GETPOSTISSET($paramname)
Return true if we are in a context of submitting the parameter $paramname from a POST of a form.
Class to manage standing orders rejects.
if(isModEnabled('facture') &&!empty($user->rights->facture->lire)) if((isModEnabled('fournisseur') &&empty($conf->global->MAIN_USE_NEW_SUPPLIERMOD) && $user->rights->fournisseur->facture->lire)||(isModEnabled('supplier_invoice') && $user->rights->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->rights->commande->lire &&empty($conf->global->WORKFLOW_DISABLE_CREATE_INVOICE_FROM_ORDER)) $resql
Social contributions to pay.
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.
prelevement_prepare_head(BonPrelevement $object)
Prepare array with list of tabs.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0, $params=null)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOCSRFCHECK')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
Class to manage bank accounts.