28 require
'../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/bonprelevement.class.php';
30 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
33 $langs->loadLangs(array(
'banks',
'categories',
'withdrawals'));
35 $contextpage =
GETPOST(
'contextpage',
'aZ') ?
GETPOST(
'contextpage',
'aZ') :
'directdebitcredittransferlist';
37 $type =
GETPOST(
'type',
'aZ09');
39 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
40 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
41 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
43 if (empty($page) || $page == -1) {
46 $offset = $limit * $page;
47 $pageprev = $page - 1;
48 $pagenext = $page + 1;
53 $sortfield =
"p.datec";
56 $optioncss =
GETPOST(
'optioncss',
'alpha');
57 $mode =
GETPOST(
'mode',
'alpha');
61 $statut =
GETPOST(
'statut',
'int');
62 $search_ref =
GETPOST(
'search_ref',
'alpha');
63 $search_amount =
GETPOST(
'search_amount',
'alpha');
66 $hookmanager->initHooks(array(
'withdrawalsreceiptslist'));
68 $usercancreate = $user->rights->prelevement->bons->creer;
69 if ($type ==
'bank-transfer') {
70 $usercancreate = $user->rights->paymentbybanktransfer->create;
74 $socid =
GETPOST(
'socid',
'int');
76 $socid = $user->socid;
78 if ($type ==
'bank-transfer') {
79 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
89 if (
GETPOST(
'button_removefilter_x',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
99 llxHeader(
'', $langs->trans(
"WithdrawalsReceipts"));
101 $sql =
"SELECT p.rowid, p.ref, p.amount, p.statut, p.datec";
105 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_bons as p";
106 $sql .=
" WHERE p.entity IN (".getEntity(
'invoice').
")";
107 if ($type ==
'bank-transfer') {
108 $sql .=
" AND p.type = 'bank-transfer'";
110 $sql .=
" AND p.type = 'debit-order'";
115 if ($search_amount) {
121 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
123 $sqlforcount = preg_replace(
'/^'.preg_quote($sqlfields,
'/').
'/',
'SELECT COUNT(*) as nbtotalofrecords',
$sql);
124 $sqlforcount = preg_replace(
'/GROUP BY .*$/',
'', $sqlforcount);
125 $resql = $db->query($sqlforcount);
127 $objforcount = $db->fetch_object($resql);
141 $sql .= $db->order($sortfield, $sortorder);
143 $sql .= $db->plimit($limit + 1, $offset);
146 $result = $db->query(
$sql);
148 $num = $db->num_rows($result);
153 $param .=
'&mode='.urlencode($mode);
155 if (!empty($contextpage) && $contextpage != $_SERVER[
"PHP_SELF"]) {
156 $param .=
'&contextpage='.urlencode($contextpage);
158 if ($type ==
'bank-transfer') {
159 $param .=
'&type=bank-transfer';
161 if ($limit > 0 && $limit != $conf->liste_limit) {
162 $param .=
'&limit='.urlencode($limit);
164 $param .=
"&statut=".urlencode($statut);
166 $selectedfields =
'';
169 $newcardbutton .=
dolGetButtonTitle($langs->trans(
'ViewList'),
'',
'fa fa-bars imgforviewmode', $_SERVER[
"PHP_SELF"].
'?mode=common'.preg_replace(
'/(&|\?)*mode=[^&]+/',
'', $param),
'', ((empty($mode) || $mode ==
'common') ? 2 : 1), array(
'morecss'=>
'reposition'));
170 $newcardbutton .=
dolGetButtonTitle($langs->trans(
'ViewKanban'),
'',
'fa fa-th-list imgforviewmode', $_SERVER[
"PHP_SELF"].
'?mode=kanban'.preg_replace(
'/(&|\?)*mode=[^&]+/',
'', $param),
'', ($mode ==
'kanban' ? 2 : 1), array(
'morecss'=>
'reposition'));
171 if ($usercancreate) {
172 $newcardbutton .=
dolGetButtonTitle($langs->trans(
'NewStandingOrder'),
'',
'fa fa-plus-circle', DOL_URL_ROOT.
'/compta/prelevement/create.php?type='.urlencode($type));
176 print
'<form method="POST" id="searchFormList" action="'.$_SERVER[
"PHP_SELF"].
'">';
177 print
'<input type="hidden" name="token" value="'.newToken().
'">';
178 if ($optioncss !=
'') {
179 print
'<input type="hidden" name="optioncss" value="'.$optioncss.
'">';
181 print
'<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
182 print
'<input type="hidden" name="action" value="list">';
183 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'">';
184 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'">';
185 print
'<input type="hidden" name="contextpage" value="'.$contextpage.
'">';
186 print
'<input type="hidden" name="mode" value="'.$mode.
'">';
189 print
'<input type="hidden" name="type" value="'.$type.
'">';
191 $titlekey =
"WithdrawalsReceipts";
192 $title = $langs->trans(
"WithdrawalsReceipts");
193 if ($type ==
'bank-transfer') {
194 $titlekey =
"BankTransferReceipts";
195 $title = $langs->trans(
"BankTransferReceipts");
198 print_barre_liste($title, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num,
$nbtotalofrecords,
'generic', 0, $newcardbutton,
'', $limit, 0, 0, 1);
202 print
'<div class="div-table-responsive">';
203 print
'<table class="tagtable liste'.($moreforfilter ?
" listwithfilterbefore" :
"").
'">'.
"\n";
205 print
'<tr class="liste_titre">';
206 print
'<td class="liste_titre"><input type="text" class="flat maxwidth100" name="search_ref" value="'.dol_escape_htmltag($search_ref).
'"></td>';
207 print
'<td class="liste_titre"> </td>';
208 print
'<td class="liste_titre right"><input type="text" class="flat maxwidth100" name="search_amount" value="'.dol_escape_htmltag($search_amount).
'"></td>';
209 print
'<td class="liste_titre"> </td>';
210 print
'<td class="liste_titre maxwidthsearch">';
211 $searchpicto =
$form->showFilterButtons();
216 print
'<tr class="liste_titre">';
218 print_liste_field_titre(
"Date", $_SERVER[
"PHP_SELF"],
"p.datec",
"", $param,
'', $sortfield, $sortorder,
'center ');
219 print_liste_field_titre(
"Amount", $_SERVER[
"PHP_SELF"],
"p.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
221 print
getTitleFieldOfList($selectedfields, 0, $_SERVER[
"PHP_SELF"],
"",
'', $param,
'', $sortfield, $sortorder,
'maxwidthsearch center ').
"\n";
227 while ($i < min($num, $limit)) {
228 $obj = $db->fetch_object($result);
230 $directdebitorder->id = $obj->rowid;
231 $directdebitorder->ref = $obj->ref;
232 $directdebitorder->date_echeance = $obj->datec;
233 $directdebitorder->total = $obj->amount;
234 $directdebitorder->statut = $obj->statut;
236 if ($mode ==
'kanban') {
238 print
'<tr><td colspan="12">';
239 print
'<div class="box-flex-container kanban">';
243 print $directdebitorder->getKanbanView(
'');
244 if ($i == (min($num, $limit) - 1)) {
249 print
'<tr class="oddeven">';
252 print $directdebitorder->getNomUrl(1);
255 print
'<td class="center">'.dol_print_date($db->jdate($obj->datec),
'day').
"</td>\n";
257 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
259 print
'<td class="right">';
260 print $bon->LibStatut($obj->statut, 5);
263 print
'<td class="right"></td>'.
"\n";
270 print
'<tr><td colspan="5"><span class="opacitymedium">'.$langs->trans(
"None").
'</span></td></tr>';