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/ligneprelevement.class.php';
30 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/bonprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
34 $langs->loadLangs(array(
'banks',
'categories',
'bills',
'companies',
'withdrawals'));
37 $action =
GETPOST(
'action',
'aZ09');
40 $socid =
GETPOST(
'socid',
'int');
41 $type =
GETPOST(
'type',
'aZ09');
44 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
45 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
46 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
48 if (empty($page) || $page == -1) {
51 $offset = $limit * $page;
52 $pageprev = $page - 1;
53 $pagenext = $page + 1;
56 $sortfield =
'pl.fk_soc';
65 include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
67 $hookmanager->initHooks(array(
'directdebitprevcard',
'globalcard',
'directdebitprevlist'));
69 $type = $object->type;
71 if ($type ==
'bank-transfer') {
72 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
83 $reshook = $hookmanager->executeHooks(
'doActions',
$parameters, $object, $action);
88 if (empty($reshook)) {
89 if ($action ==
'confirm_delete') {
90 $savtype = $object->type;
91 $res = $object->delete($user);
93 if ($savtype ==
'bank-transfer') {
94 header(
"Location: ".DOL_URL_ROOT.
'/compta/paymentbybanktransfer/index.php');
96 header(
"Location: ".DOL_URL_ROOT.
'/compta/prelevement/index.php');
102 if ($action ==
'infotrans' && (($user->rights->prelevement->bons->send && $object->type !=
'bank-transfer') || ($user->rights->paymentbybanktransfer->send && $object->type ==
'bank-transfer'))) {
103 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
126 $error = $object->set_infotrans($user, $dt,
GETPOST(
'methode',
'alpha'));
129 header(
"Location: card.php?id=".$id.
"&error=$error");
135 if ($action ==
'infocredit' && (($user->rights->prelevement->bons->credit && $object->type !=
'bank-transfer') || ($user->rights->paymentbybanktransfer->debit && $object->type ==
'bank-transfer'))) {
138 if (($object->type !=
'bank-transfer' && $object->statut == BonPrelevement::STATUS_CREDITED) || ($object->type ==
'bank-transfer' && $object->statut == BonPrelevement::STATUS_DEBITED)) {
142 $error = $object->set_infocredit($user, $dt);
159 llxHeader(
'', $langs->trans(
"WithdrawalsReceipts"));
161 if ($id > 0 || $ref) {
163 print
dol_get_fiche_head($head,
'prelevement', $langs->trans(
"WithdrawalsReceipts"), -1,
'payment');
165 if (
GETPOST(
'error',
'alpha') !=
'') {
166 print
'<div class="error">'.$object->getErrorString(
GETPOST(
'error',
'alpha')).
'</div>';
169 $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>';
173 print
'<div class="fichecenter">';
174 print
'<div class="underbanner clearboth"></div>';
175 print
'<table class="border centpercent tableforfield">';
177 print
'<tr><td class="titlefieldcreate">'.$langs->trans(
"Date").
'</td><td>'.
dol_print_date($object->datec,
'day').
'</td></tr>';
179 print
'<tr><td>'.$langs->trans(
"Amount").
'</td><td><span class="amount">'.
price($object->amount).
'</span></td></tr>';
188 if (!empty($object->date_trans)) {
189 $muser =
new User($db);
190 $muser->fetch($object->user_trans);
192 print
'<tr><td>'.$langs->trans(
"TransData").
'</td><td>';
194 print
' <span class="opacitymedium">'.$langs->trans(
"By").
'</span> '.$muser->getNomUrl(-1).
'</td></tr>';
195 print
'<tr><td>'.$langs->trans(
"TransMetod").
'</td><td>';
196 print $object->methodes_trans[$object->method_trans];
199 if (!empty($object->date_credit)) {
200 print
'<tr><td>'.$langs->trans(
'CreditDate').
'</td><td>';
209 print
'<div class="underbanner clearboth"></div>';
210 print
'<table class="border centpercent tableforfield">';
213 $result = $acc->fetch(($object->type ==
'bank-transfer' ? $conf->global->PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT : $conf->global->PRELEVEMENT_ID_BANKACCOUNT));
215 print
'<tr><td class="titlefieldcreate">';
216 $labelofbankfield =
"BankToReceiveWithdraw";
217 if ($object->type ==
'bank-transfer') {
218 $labelofbankfield =
'BankToPayCreditTransfer';
220 print $langs->trans($labelofbankfield);
224 print $acc->getNomUrl(1);
229 print
'<tr><td class="titlefieldcreate">';
230 $labelfororderfield =
'WithdrawalFile';
231 if ($object->type ==
'bank-transfer') {
232 $labelfororderfield =
'CreditTransferFile';
234 print $langs->trans($labelfororderfield).
'</td><td>';
235 $relativepath =
'receipts/'.$object->ref.
'.xml';
236 $modulepart =
'prelevement';
237 if ($object->type ==
'bank-transfer') {
238 $modulepart =
'paymentbybanktransfer';
240 print
'<a data-ajax="false" href="'.DOL_URL_ROOT.
'/document.php?type=text/plain&modulepart='.$modulepart.
'&file='.urlencode($relativepath).
'">'.$relativepath;
241 print
img_picto(
'',
'download',
'class="paddingleft"');
247 $reshook = $hookmanager->executeHooks(
'formObjectOptions',
$parameters, $object, $action);
248 print $hookmanager->resPrint;
260 if ($action ==
'delete') {
261 $formconfirm =
$form->formconfirm($_SERVER[
"PHP_SELF"].
'?id='.$object->id, $langs->trans(
'Delete'), $langs->trans(
'ConfirmDeleteObject'),
'confirm_delete',
'', 0, 1);
274 if (empty($object->date_trans) && $user->rights->prelevement->bons->send && $action ==
'settransmitted') {
275 print
'<form method="post" name="userfile" action="card.php?id='.$object->id.
'" enctype="multipart/form-data">';
276 print
'<input type="hidden" name="token" value="'.newToken().
'">';
277 print
'<input type="hidden" name="action" value="infotrans">';
278 print
'<table class="noborder centpercent">';
279 print
'<tr class="liste_titre">';
280 print
'<td colspan="3">'.$langs->trans(
"NotifyTransmision").
'</td></tr>';
281 print
'<tr class="oddeven"><td>'.$langs->trans(
"TransData").
'</td><td>';
282 print
$form->selectDate(
'',
'',
'',
'',
'',
"userfile", 1, 1);
284 print
'<tr class="oddeven"><td>'.$langs->trans(
"TransMetod").
'</td><td>';
285 print
$form->selectarray(
"methode", $object->methodes_trans);
287 print
'</table><br>';
288 print
'<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans(
"SetToStatusSent")).
'"></div>';
293 if (!empty($object->date_trans) && empty($object->date_credit) && $user->rights->prelevement->bons->credit && $action ==
'setcredited') {
294 $btnLabel = ($object->type ==
'bank-transfer') ? $langs->trans(
"ClassDebited") : $langs->trans(
"ClassCredited");
295 print
'<form name="infocredit" method="post" action="card.php?id='.$object->id.
'">';
296 print
'<input type="hidden" name="token" value="'.newToken().
'">';
297 print
'<input type="hidden" name="action" value="infocredit">';
298 print
'<table class="noborder centpercent">';
299 print
'<tr class="liste_titre">';
300 print
'<td colspan="3">'.$langs->trans(
"NotifyCredit").
'</td></tr>';
301 print
'<tr class="oddeven"><td>'.$langs->trans(
'CreditDate').
'</td><td>';
302 print
$form->selectDate(-1,
'',
'',
'',
'',
"infocredit", 1, 1);
305 print
'<br><div class="center"><span class="opacitymedium">'.$langs->trans(
"ThisWillAlsoAddPaymentOnInvoice").
'</span></div>';
306 print
'<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($btnLabel).
'"></div>';
312 if ($action !=
'settransmitted' && $action !=
'setcredited') {
313 print
"\n".
'<div class="tabsAction">'.
"\n";
315 $reshook = $hookmanager->executeHooks(
'addMoreActionsButtons',
$parameters, $object, $action);
316 if (empty($reshook)) {
317 if (empty($object->date_trans)) {
318 if ($object->type ==
'bank-transfer') print
dolGetButtonAction($langs->trans(
"SetToStatusSent"),
'',
'default',
'card.php?action=settransmitted&token='.newToken().
'&id='.$object->id,
'', $user->rights->paymentbybanktransfer->send);
319 else print
dolGetButtonAction($langs->trans(
"SetToStatusSent"),
'',
'default',
'card.php?action=settransmitted&token='.newToken().
'&id='.$object->id,
'', $user->rights->prelevement->bons->send);
321 if (!empty($object->date_trans) && empty($object->date_credit)) {
322 if ($object->type ==
'bank-transfer') print
dolGetButtonAction($langs->trans(
"ClassDebited"),
'',
'default',
'card.php?action=setcredited&token='.newToken().
'&id='.$object->id,
'', $user->rights->paymentbybanktransfer->debit);
323 else print
dolGetButtonAction($langs->trans(
"ClassCredited"),
'',
'default',
'card.php?action=setcredited&token='.newToken().
'&id='.$object->id,
'', $user->rights->prelevement->bons->credit);
326 if ($object->type ==
'bank-transfer') print
dolGetButtonAction($langs->trans(
"Delete"),
'',
'delete',
'card.php?action=delete&token='.newToken().
'&id='.$object->id,
'', $user->rights->paymentbybanktransfer->create);
327 else print
dolGetButtonAction($langs->trans(
"Delete"),
'',
'delete',
'card.php?action=delete&token='.newToken().
'&id='.$object->id,
'', $user->rights->prelevement->bons->creer);
338 $sql =
"SELECT pl.rowid, pl.statut, pl.amount,";
339 $sql .=
" s.rowid as socid, s.nom as name";
340 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
341 $sql .=
", ".MAIN_DB_PREFIX.
"prelevement_bons as pb";
342 $sql .=
", ".MAIN_DB_PREFIX.
"societe as s";
343 $sql .=
" WHERE pl.fk_prelevement_bons = ".((int) $id);
344 $sql .=
" AND pl.fk_prelevement_bons = pb.rowid";
345 $sql .=
" AND pb.entity = ".$conf->entity;
346 $sql .=
" AND pl.fk_soc = s.rowid";
348 $sql .=
" AND s.rowid = ".((int) $socid);
350 $sql .= $db->order($sortfield, $sortorder);
353 $nbtotalofrecords =
'';
354 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
355 $result = $db->query($sql);
356 $nbtotalofrecords = $db->num_rows($result);
357 if (($page * $limit) > $nbtotalofrecords) {
364 $sql .= $db->plimit($limit + 1, $offset);
366 $result = $db->query($sql);
369 $num = $db->num_rows($result);
372 $urladd =
"&id=".urlencode($id);
373 if ($limit > 0 && $limit != $conf->liste_limit) {
374 $urladd .=
'&limit='.urlencode($limit);
377 print
'<form method="get" action="'.$_SERVER [
'PHP_SELF'].
'" name="search_form">'.
"\n";
378 print
'<input type="hidden" name="id" value="'.$id.
'"/>';
379 print
'<input type="hidden" name="socid" value="'.$socid.
'"/>';
381 print
'<input type="hidden" name="page" value="'.$page.
'"/>';
383 if (!empty($limit)) {
384 print
'<input type="hidden" name="limit" value="'.$limit.
'"/>';
386 if (!empty($sortfield)) {
387 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'"/>';
389 if (!empty($sortorder)) {
390 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'"/>';
392 print_barre_liste($langs->trans(
"Lines"), $page, $_SERVER[
"PHP_SELF"], $urladd, $sortfield, $sortorder,
'', $num, $nbtotalofrecords,
'', 0,
'',
'', $limit);
394 print
'<div class="div-table-responsive-no-min">';
395 print
'<table class="noborder liste" width="100%" cellpadding="4">';
396 print
'<tr class="liste_titre">';
405 while ($i < min($num, $limit)) {
406 $obj = $db->fetch_object($result);
408 print
'<tr class="oddeven">';
412 print
'<a class="valignmiddle" href="'.DOL_URL_ROOT.
'/compta/prelevement/line.php?id='.$obj->rowid.
'&type='.$object->type.
'&token='.
newToken().
'">';
413 print $ligne->LibStatut($obj->statut, 2);
414 print
'<span class="paddingleft">'.$obj->rowid.
'</span>';
417 $thirdparty =
new Societe($db);
418 $thirdparty->fetch($obj->socid);
420 print $thirdparty->getNomUrl(1);
423 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
425 print
'<td class="right">';
427 if ($obj->statut == 3) {
428 print
'<b>'.$langs->trans(
"StatusRefused").
'</b>';
430 if ($object->statut == BonPrelevement::STATUS_CREDITED) {
431 if ($obj->statut == 2) {
432 if ($user->rights->prelevement->bons->credit) {
434 print
'<a href="line.php?action=rejet&type='.$object->type.
'&id='.$obj->rowid.
'&token='.
newToken().
'">'.$langs->trans(
"StandingOrderReject").
'</a>';
446 $total += $obj->amount;
454 print
'<tr class="liste_total">';
455 print
'<td>'.$langs->trans(
"Total").
'</td>';
456 print
'<td> </td>';
457 print
'<td class="right">';
458 if (empty($offset) && $num <= $limit) {
460 if ($total != $object->amount) {
461 print
img_warning($langs->trans(
"TotalAmountOfdirectDebitOrderDiffersFromSumOfLines"));
466 print
'<td> </td>';
Class to manage third parties objects (customers, suppliers, prospects...)
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.
Class to manage withdrawals.
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...
img_warning($titlealt='default', $moreatt='', $morecss='pictowarning')
Show warning logo.
if($cancel &&! $id) if($action=='add' &&! $cancel) if($action=='delete') if($id) $form
Actions.
dolGetButtonAction($label, $html='', $actionType='default', $url='', $id='', $userRight=1, $params=array())
Function dolGetButtonAction.
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.
price2num($amount, $rounding='', $option=0)
Function that return a number with universal decimal format (decimal separator is '.
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.
$formconfirm
if ($action == 'delbookkeepingyear') {
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.
newToken()
Return the value of token currently saved into session with name 'newtoken'.
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.
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="", $forcenowrapcolumntitle=0)
Show title line of an array.
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.
setEventMessages($mesg, $mesgs, $style='mesgs', $messagekey='')
Set event messages in dol_events session object.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm='auto', $check=1)
Return a timestamp date built from detailed informations (by default a local PHP server timestamp) Re...
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.