Go to the documentation of this file.
28 require
'../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.
'/core/lib/prelevement.lib.php';
30 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
31 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/bonprelevement.class.php';
32 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/rejetprelevement.class.php';
33 require_once DOL_DOCUMENT_ROOT.
'/compta/paiement/class/paiement.class.php';
34 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
37 $langs->loadLangs(array(
"banks",
"categories",
'withdrawals',
'bills'));
40 if ($user->socid > 0) {
48 $type =
GETPOST(
'type',
'aZ09');
51 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
52 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
53 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
55 if (empty($page) || $page == -1) {
58 $offset = $limit * $page;
59 $pageprev = $page - 1;
60 $pagenext = $page + 1;
65 include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
68 if ($user->socid > 0) {
72 $type = $object->type;
73 if ($type ==
'bank-transfer') {
74 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
85 llxHeader(
'', $langs->trans(
"WithdrawalsReceipts"));
87 if ($id > 0 || $ref) {
88 if ($object->fetch($id, $ref) >= 0) {
90 print
dol_get_fiche_head($head,
'rejects', $langs->trans(
"WithdrawalsReceipts"), -1,
'payment');
92 $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>';
96 print
'<div class="fichecenter">';
97 print
'<div class="underbanner clearboth"></div>';
98 print
'<table class="border centpercent tableforfield">'.
"\n";
101 print
'<tr><td class="titlefieldcreate">'.$langs->trans(
"Date").
'</td><td>'.
dol_print_date($object->datec,
'day').
'</td></tr>';
102 print
'<tr><td>'.$langs->trans(
"Amount").
'</td><td><span class="amount">'.
price($object->amount).
'</span></td></tr>';
104 if (!empty($object->date_trans)) {
105 $muser =
new User($db);
106 $muser->fetch($object->user_trans);
108 print
'<tr><td>'.$langs->trans(
"TransData").
'</td><td>';
110 print
' <span class="opacitymedium">'.$langs->trans(
"By").
'</span> '.$muser->getNomUrl(-1).
'</td></tr>';
111 print
'<tr><td>'.$langs->trans(
"TransMetod").
'</td><td>';
112 print $object->methodes_trans[$object->method_trans];
115 if (!empty($object->date_credit)) {
116 print
'<tr><td>'.$langs->trans(
'CreditDate').
'</td><td>';
125 print
'<div class="underbanner clearboth"></div>';
126 print
'<table class="border centpercent tableforfield">';
130 $fk_bank_account = $object->fk_bank_account;
131 if (empty($fk_bank_account)) {
132 $fk_bank_account = ($object->type ==
'bank-transfer' ?
getDolGlobalInt(
'PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') :
getDolGlobalInt(
'PRELEVEMENT_ID_BANKACCOUNT'));
134 if ($fk_bank_account > 0) {
135 $result = $acc->fetch($fk_bank_account);
138 $labelofbankfield =
"BankToReceiveWithdraw";
139 if ($object->type ==
'bank-transfer') {
140 $labelofbankfield =
'BankToPayCreditTransfer';
143 print
'<tr><td class="titlefieldcreate">';
144 print
$form->textwithpicto($langs->trans(
"BankAccount"), $langs->trans($labelofbankfield));
148 print $acc->getNomUrl(1);
153 $modulepart =
'prelevement';
154 if ($object->type ==
'bank-transfer') {
155 $modulepart =
'paymentbybanktransfer';
158 print
'<tr><td class="titlefieldcreate">';
159 $labelfororderfield =
'WithdrawalFile';
160 if ($object->type ==
'bank-transfer') {
161 $labelfororderfield =
'CreditTransferFile';
163 print $langs->trans($labelfororderfield).
'</td><td>';
166 $labelentity = $conf->entity;
167 $relativepath =
'receipts/'.$object->ref.
'-'.$labelentity.
'.xml';
169 if ($type !=
'bank-transfer') {
170 $dir = $conf->prelevement->dir_output;
172 $dir = $conf->paymentbybanktransfer->dir_output;
175 $relativepath =
'receipts/'.$object->ref.
'.xml';
178 $relativepath =
'receipts/'.$object->ref.
'.xml';
181 print
'<a data-ajax="false" href="'.DOL_URL_ROOT.
'/document.php?type=text/plain&modulepart='.$modulepart.
'&file='.urlencode($relativepath).
'">'.$relativepath;
182 print
img_picto(
'',
'download',
'class="paddingleft"');
184 print
'</td></tr></table>';
200 $sql =
"SELECT pl.rowid, pl.amount, pl.statut";
201 $sql .=
" , s.rowid as socid, s.nom as name";
202 $sql .=
" , pr.motif, pr.afacturer, pr.fk_facture";
203 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_bons as p";
204 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
205 $sql .=
" , ".MAIN_DB_PREFIX.
"societe as s";
206 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_rejet as pr";
207 $sql .=
" WHERE p.rowid=".((int) $object->id);
208 $sql .=
" AND pl.fk_prelevement_bons = p.rowid";
209 $sql .=
" AND p.entity = ".$conf->entity;
210 $sql .=
" AND pl.fk_soc = s.rowid";
211 $sql .=
" AND pl.statut = 3 ";
212 $sql .=
" AND pr.fk_prelevement_lignes = pl.rowid";
216 $sql .=
" ORDER BY pl.amount DESC";
219 $nbtotalofrecords =
'';
221 $result = $db->query(
$sql);
222 $nbtotalofrecords = $db->num_rows($result);
223 if (($page * $limit) > $nbtotalofrecords) {
229 $sql .= $db->plimit($limit + 1, $offset);
231 $resql = $db->query(
$sql);
233 $num = $db->num_rows($resql);
235 print_barre_liste($langs->trans(
"Rejects"), $page, $_SERVER[
"PHP_SELF"], $urladd, $sortfield, $sortorder,
'', $num, $nbtotalofrecords,
'');
237 print
"\n<!-- debut table -->\n";
238 print
'<div class="div-table-responsive-no-min">';
239 print
'<table class="noborder centpercent">';
240 print
'<tr class="liste_titre">';
241 print
'<td>'.$langs->trans(
"Line").
'</td><td>'.$langs->trans(
"ThirdParty").
'</td><td class="right">'.$langs->trans(
"Amount").
'</td>';
242 print
'<td>'.$langs->trans(
"Reason").
'</td><td align="center">'.$langs->trans(
"ToBill").
'</td><td class="center">'.$langs->trans(
"Invoice").
'</td></tr>';
249 $obj = $db->fetch_object($resql);
251 print
'<tr class="oddeven"><td>';
253 print
'<a href="'.DOL_URL_ROOT.
'/compta/prelevement/line.php?id='.$obj->rowid.
'">';
254 print
img_picto(
'',
'statut'.$obj->statut).
' ';
255 print substr(
'000000'.$obj->rowid, -6);
257 print
'<td><a href="'.DOL_URL_ROOT.
'/comm/card.php?socid='.$obj->socid.
'">'.$obj->name.
"</a></td>\n";
259 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
260 print
'<td>'.$rej->motifs[$obj->motif].
'</td>';
262 print
'<td class="center">'.yn($obj->afacturer).
'</td>';
263 print
'<td class="center">'.$obj->fk_facture.
'</td>';
266 $total += $obj->amount;
271 print
'<tr><td colspan="6"><span class="opacitymedium">'.$langs->trans(
"None").
'</span></td></tr>';
275 print
'<tr class="liste_total"><td> </td>';
276 print
'<td class="liste_total">'.$langs->trans(
"Total").
'</td>';
277 print
'<td class="right"><span class="amount">'.price($total).
"</span></td>\n";
278 print
'<td colspan="3"> </td>';
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...
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
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_is_file($pathoffile)
Return if path is a file.
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)
if(!defined('NOREQUIRESOC')) if(!defined('NOREQUIRETRAN')) if(!defined('NOTOKENRENEWAL')) if(!defined('NOREQUIREMENU')) if(!defined('NOREQUIREHTML')) if(!defined('NOREQUIREAJAX')) llxHeader()
Empty header.
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.
if(isModEnabled('facture') && $user->hasRight('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') && $user->hasRight('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.
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.
dol_get_fiche_end($notab=0)
Return tab footer of a card.
isModEnabled($module)
Is Dolibarr module enabled.
dol_get_fiche_head($links=array(), $active='', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limittoshow=0, $moretabssuffix='', $dragdropfile=0)
Show tabs of a record.
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.
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.
getDolGlobalInt($key, $default=0)
Return dolibarr global constant int value.
Class to manage bank accounts.