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/ligneprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/bonprelevement.class.php';
32 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
35 $langs->loadLangs(array(
'banks',
'categories',
'bills',
'companies',
'withdrawals'));
38 $action =
GETPOST(
'action',
'aZ09');
41 $socid =
GETPOST(
'socid',
'int');
42 $type =
GETPOST(
'type',
'aZ09');
45 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
46 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
47 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
49 if (empty($page) || $page == -1) {
52 $offset = $limit * $page;
53 $pageprev = $page - 1;
54 $pagenext = $page + 1;
57 $sortfield =
'pl.rowid';
66 include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
68 $hookmanager->initHooks(array(
'directdebitprevcard',
'globalcard',
'directdebitprevlist'));
70 $type = $object->type;
72 if ($type ==
'bank-transfer') {
73 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
75 $permissiontoadd = $user->hasRight(
'paymentbybanktransfer',
'read');
76 $permissiontosend = $user->hasRight(
'paymentbybanktransfer',
'send');
77 $permissiontocreditdebit = $user->hasRight(
'paymentbybanktransfer',
'debit');
78 $permissiontodelete = $user->hasRight(
'paymentbybanktransfer',
'read');
82 $permissiontoadd = $user->hasRight(
'prelevement',
'bons',
'read');
83 $permissiontosend = $user->hasRight(
'prelevement',
'bons',
'send');
84 $permissiontocreditdebit = $user->hasRight(
'prelevement',
'bons',
'credit');
85 $permissiontodelete = $user->hasRight(
'prelevement',
'bons',
'read');
95 $reshook = $hookmanager->executeHooks(
'doActions',
$parameters, $object, $action);
100 if (empty($reshook)) {
101 if ($action ==
'setbankaccount' && $permissiontoadd) {
103 $object->fk_bank_account =
GETPOST(
'fk_bank_account',
'int');
104 $object->update($user);
107 if ($action ==
'infotrans' && $permissiontosend) {
108 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
131 $error = $object->set_infotrans($user, $dt,
GETPOST(
'methode',
'alpha'));
134 header(
"Location: card.php?id=".$id.
"&error=$error");
140 if ($action ==
'infocredit' && $permissiontocreditdebit) {
143 if (($object->type !=
'bank-transfer' && $object->statut == BonPrelevement::STATUS_CREDITED) || ($object->type ==
'bank-transfer' && $object->statut == BonPrelevement::STATUS_DEBITED)) {
147 $error = $object->set_infocredit($user, $dt);
155 if ($action ==
'confirm_delete' && $permissiontodelete) {
156 $savtype = $object->type;
157 $res = $object->delete($user);
159 if ($savtype ==
'bank-transfer') {
160 header(
"Location: ".DOL_URL_ROOT.
'/compta/paymentbybanktransfer/index.php');
162 header(
"Location: ".DOL_URL_ROOT.
'/compta/prelevement/index.php');
177 llxHeader(
'', $langs->trans(
"WithdrawalsReceipts"));
179 if ($id > 0 || $ref) {
181 print
dol_get_fiche_head($head,
'prelevement', $langs->trans(
"WithdrawalsReceipts"), -1,
'payment');
183 if (
GETPOST(
'error',
'alpha') !=
'') {
184 print
'<div class="error">'.$object->getErrorString(
GETPOST(
'error',
'alpha')).
'</div>';
187 $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>';
191 print
'<div class="fichecenter">';
192 print
'<div class="underbanner clearboth"></div>';
193 print
'<table class="border centpercent tableforfield">';
195 print
'<tr><td class="titlefieldcreate">'.$langs->trans(
"Date").
'</td><td>'.
dol_print_date($object->datec,
'day').
'</td></tr>';
197 print
'<tr><td>'.$langs->trans(
"Amount").
'</td><td><span class="amount">'.
price($object->amount).
'</span></td></tr>';
199 if (!empty($object->date_trans)) {
200 $muser =
new User($db);
201 $muser->fetch($object->user_trans);
203 print
'<tr><td>'.$langs->trans(
"TransData").
'</td><td>';
205 print
' <span class="opacitymedium">'.$langs->trans(
"By").
'</span> '.$muser->getNomUrl(-1).
'</td></tr>';
206 print
'<tr><td>'.$langs->trans(
"TransMetod").
'</td><td>';
207 print $object->methodes_trans[$object->method_trans];
210 if (!empty($object->date_credit)) {
211 print
'<tr><td>'.$langs->trans(
'CreditDate').
'</td><td>';
220 print
'<div class="underbanner clearboth"></div>';
221 print
'<table class="border centpercent tableforfield">';
225 $fk_bank_account = $object->fk_bank_account;
226 if (empty($fk_bank_account)) {
227 $fk_bank_account = ($object->type ==
'bank-transfer' ?
getDolGlobalInt(
'PAYMENTBYBANKTRANSFER_ID_BANKACCOUNT') :
getDolGlobalInt(
'PRELEVEMENT_ID_BANKACCOUNT'));
229 if ($fk_bank_account > 0) {
230 $result = $acc->fetch($fk_bank_account);
234 $labelofbankfield =
"BankToReceiveWithdraw";
235 if ($object->type ==
'bank-transfer') {
236 $labelofbankfield =
'BankToPayCreditTransfer';
239 $caneditbank = $permissiontoadd;
240 if ($object->status != $object::STATUS_DRAFT) {
252 print
'<tr><td class="nowrap">';
253 print
'<table class="nobordernopadding centpercent"><tr><td class="nowrap">';
254 print
$form->textwithpicto($langs->trans(
"BankAccount"), $langs->trans($labelofbankfield));
256 if (($action !=
'editbankaccount') && $caneditbank) {
257 print
'<td class="right"><a class="editfielda" href="'.$_SERVER[
"PHP_SELF"].
'?action=editfkbankaccount&token='.
newToken().
'&id='.$object->id.
'">'.
img_edit($langs->trans(
'SetBankAccount'), 1).
'</a></td>';
259 print
'</tr></table>';
261 if ($action ==
'editfkbankaccount') {
262 $form->formSelectAccount($_SERVER[
'PHP_SELF'].
'?id='.$object->id, $fk_bank_account,
'fk_bank_account', 0);
264 $form->formSelectAccount($_SERVER[
'PHP_SELF'].
'?id='.$object->id, $fk_bank_account,
'none');
270 print
'<tr><td class="titlefieldcreate">';
271 $labelfororderfield =
'WithdrawalFile';
272 if ($object->type ==
'bank-transfer') {
273 $labelfororderfield =
'CreditTransferFile';
275 print $langs->trans($labelfororderfield).
'</td><td>';
276 $relativepath =
'receipts/'.$object->ref.
'.xml';
277 $modulepart =
'prelevement';
278 if ($object->type ==
'bank-transfer') {
279 $modulepart =
'paymentbybanktransfer';
281 print
'<a data-ajax="false" href="'.DOL_URL_ROOT.
'/document.php?type=text/plain&modulepart='.$modulepart.
'&file='.urlencode($relativepath).
'">'.$relativepath;
282 print
img_picto(
'',
'download',
'class="paddingleft"');
288 $reshook = $hookmanager->executeHooks(
'formObjectOptions',
$parameters, $object, $action);
289 print $hookmanager->resPrint;
301 if ($action ==
'delete') {
302 $formconfirm =
$form->formconfirm($_SERVER[
"PHP_SELF"].
'?id='.$object->id, $langs->trans(
'Delete'), $langs->trans(
'ConfirmDeleteObject'),
'confirm_delete',
'', 0, 1);
315 if (empty($object->date_trans) && (($user->rights->prelevement->bons->send && $object->type !=
'bank-transfer') || ($user->rights->paymentbybanktransfer->send && $object->type ==
'bank-transfer')) && $action ==
'settransmitted') {
316 print
'<form method="post" name="userfile" action="card.php?id='.$object->id.
'" enctype="multipart/form-data">';
317 print
'<input type="hidden" name="token" value="'.newToken().
'">';
318 print
'<input type="hidden" name="action" value="infotrans">';
319 print
'<table class="noborder centpercent">';
320 print
'<tr class="liste_titre">';
321 print
'<td colspan="3">'.$langs->trans(
"NotifyTransmision").
'</td></tr>';
322 print
'<tr class="oddeven"><td>'.$langs->trans(
"TransData").
'</td><td>';
323 print
$form->selectDate(
'',
'',
'',
'',
'',
"userfile", 1, 1);
325 print
'<tr class="oddeven"><td>'.$langs->trans(
"TransMetod").
'</td><td>';
326 print
$form->selectarray(
"methode", $object->methodes_trans);
329 print
'<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans(
"SetToStatusSent")).
'"></div>';
334 if (!empty($object->date_trans) && empty($object->date_credit) && (($user->rights->prelevement->bons->credit && $object->type !=
'bank-transfer') || ($user->rights->paymentbybanktransfer->debit && $object->type ==
'bank-transfer')) && $action ==
'setcredited') {
335 $btnLabel = ($object->type ==
'bank-transfer') ? $langs->trans(
"ClassDebited") : $langs->trans(
"ClassCredited");
336 print
'<form name="infocredit" method="post" action="card.php?id='.$object->id.
'">';
337 print
'<input type="hidden" name="token" value="'.newToken().
'">';
338 print
'<input type="hidden" name="action" value="infocredit">';
339 print
'<table class="noborder centpercent">';
340 print
'<tr class="liste_titre">';
341 print
'<td colspan="3">'.$langs->trans(
"NotifyCredit").
'</td></tr>';
342 print
'<tr class="oddeven"><td>'.$langs->trans(
'CreditDate').
'</td><td>';
343 print
$form->selectDate(-1,
'',
'',
'',
'',
"infocredit", 1, 1);
346 print
'<br><div class="center"><span class="opacitymedium">'.$langs->trans(
"ThisWillAlsoAddPaymentOnInvoice").
'</span></div>';
347 print
'<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($btnLabel).
'"></div>';
353 if ($action !=
'settransmitted' && $action !=
'setcredited') {
354 print
"\n".
'<div class="tabsAction">'.
"\n";
356 $reshook = $hookmanager->executeHooks(
'addMoreActionsButtons',
$parameters, $object, $action);
357 if (empty($reshook)) {
358 if (empty($object->date_trans)) {
359 if ($object->type ==
'bank-transfer') print
dolGetButtonAction($langs->trans(
"SetToStatusSent"),
'',
'default',
'card.php?action=settransmitted&token='.newToken().
'&id='.$object->id,
'', $user->rights->paymentbybanktransfer->send);
360 else print
dolGetButtonAction($langs->trans(
"SetToStatusSent"),
'',
'default',
'card.php?action=settransmitted&token='.newToken().
'&id='.$object->id,
'', $user->rights->prelevement->bons->send);
362 if (!empty($object->date_trans) && empty($object->date_credit)) {
363 if ($object->type ==
'bank-transfer') print
dolGetButtonAction($langs->trans(
"ClassDebited"),
'',
'default',
'card.php?action=setcredited&token='.newToken().
'&id='.$object->id,
'', $user->rights->paymentbybanktransfer->debit);
364 else print
dolGetButtonAction($langs->trans(
"ClassCredited"),
'',
'default',
'card.php?action=setcredited&token='.newToken().
'&id='.$object->id,
'', $user->rights->prelevement->bons->credit);
367 if ($object->type ==
'bank-transfer') print
dolGetButtonAction($langs->trans(
"Delete"),
'',
'delete',
'card.php?action=delete&token='.newToken().
'&id='.$object->id,
'', $user->rights->paymentbybanktransfer->create);
368 else print
dolGetButtonAction($langs->trans(
"Delete"),
'',
'delete',
'card.php?action=delete&token='.newToken().
'&id='.$object->id,
'', $user->rights->prelevement->bons->creer);
379 $sql =
"SELECT pl.rowid, pl.statut, pl.amount,";
380 $sql .=
" s.rowid as socid, s.nom as name";
381 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
382 $sql .=
", ".MAIN_DB_PREFIX.
"prelevement_bons as pb";
383 $sql .=
", ".MAIN_DB_PREFIX.
"societe as s";
384 $sql .=
" WHERE pl.fk_prelevement_bons = ".((int) $id);
385 $sql .=
" AND pl.fk_prelevement_bons = pb.rowid";
386 $sql .=
" AND pb.entity = ".((int) $conf->entity);
387 $sql .=
" AND pl.fk_soc = s.rowid";
389 $sql .=
" AND s.rowid = ".((int) $socid);
391 $sql .= $db->order($sortfield, $sortorder);
395 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
396 $result = $db->query(
$sql);
405 $sql .= $db->plimit($limit + 1, $offset);
407 $result = $db->query(
$sql);
410 $num = $db->num_rows($result);
413 $urladd =
"&id=".urlencode($id);
414 if ($limit > 0 && $limit != $conf->liste_limit) {
415 $urladd .=
'&limit='.urlencode($limit);
418 print
'<form method="POST" action="'.$_SERVER [
'PHP_SELF'].
'" name="search_form">'.
"\n";
419 print
'<input type="hidden" name="token" value="'.newToken().
'"/>';
420 print
'<input type="hidden" name="id" value="'.$id.
'"/>';
421 print
'<input type="hidden" name="socid" value="'.$socid.
'"/>';
423 print
'<input type="hidden" name="page" value="'.$page.
'"/>';
425 if (!empty($limit)) {
426 print
'<input type="hidden" name="limit" value="'.$limit.
'"/>';
428 if (!empty($sortfield)) {
429 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'"/>';
431 if (!empty($sortorder)) {
432 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'"/>';
434 print_barre_liste($langs->trans(
"Lines"), $page, $_SERVER[
"PHP_SELF"], $urladd, $sortfield, $sortorder,
'', $num,
$nbtotalofrecords,
'', 0,
'',
'', $limit);
436 print
'<div class="div-table-responsive-no-min">';
437 print
'<table class="noborder liste" width="100%" cellpadding="4">';
438 print
'<tr class="liste_titre">';
441 print_liste_field_titre(
"Amount", $_SERVER[
"PHP_SELF"],
"pl.amount",
"", $urladd,
'class="right"', $sortfield, $sortorder);
447 while ($i < min($num, $limit)) {
448 $obj = $db->fetch_object($result);
450 print
'<tr class="oddeven">';
454 print
'<a class="valignmiddle" href="'.DOL_URL_ROOT.
'/compta/prelevement/line.php?id='.$obj->rowid.
'&type='.$object->type.
'&token='.
newToken().
'">';
455 print $ligne->LibStatut($obj->statut, 2);
456 print
'<span class="paddingleft">'.$obj->rowid.
'</span>';
459 $thirdparty =
new Societe($db);
460 $thirdparty->fetch($obj->socid);
462 print $thirdparty->getNomUrl(1);
465 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
467 print
'<td class="right">';
469 if ($obj->statut == 3) {
470 print
'<b>'.$langs->trans(
"StatusRefused").
'</b>';
472 if ($object->statut == BonPrelevement::STATUS_CREDITED) {
473 if ($obj->statut == 2) {
474 if ($user->rights->prelevement->bons->credit) {
476 print
'<a href="line.php?action=rejet&type='.$object->type.
'&id='.$obj->rowid.
'&token='.
newToken().
'">'.$langs->trans(
"StandingOrderReject").
'</a>';
488 $total += $obj->amount;
496 print
'<tr class="liste_total">';
497 print
'<td>'.$langs->trans(
"Total").
'</td>';
498 print
'<td> </td>';
499 print
'<td class="right">';
500 if (empty($offset) && $num <= $limit) {
502 if ($total != $object->amount) {
503 print
img_warning($langs->trans(
"TotalAmountOfdirectDebitOrderDiffersFromSumOfLines"));
508 print
'<td> </td>';