29 require
'../../main.inc.php';
30 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/bonprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/ligneprelevement.class.php';
32 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
35 $langs->loadLangs(array(
'banks',
'withdrawals',
'companies',
'categories'));
37 $action =
GETPOST(
'action',
'aZ09') ?
GETPOST(
'action',
'aZ09') :
'view';
38 $massaction =
GETPOST(
'massaction',
'alpha');
39 $show_files =
GETPOST(
'show_files',
'int');
40 $confirm =
GETPOST(
'confirm',
'alpha');
41 $cancel =
GETPOST(
'cancel',
'alpha');
42 $toselect =
GETPOST(
'toselect',
'array');
43 $contextpage =
GETPOST(
'contextpage',
'aZ') ?
GETPOST(
'contextpage',
'aZ') :
'directdebitcredittransferlinelist';
44 $backtopage =
GETPOST(
'backtopage',
'alpha');
45 $optioncss =
GETPOST(
'optioncss',
'aZ');
46 $mode =
GETPOST(
'mode',
'alpha');
48 $type =
GETPOST(
'type',
'aZ09');
50 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
51 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
52 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
54 if (empty($page) || $page == -1) {
57 $offset = $limit * $page;
58 $pageprev = $page - 1;
59 $pagenext = $page + 1;
64 $sortfield =
"p.datec";
67 $search_line =
GETPOST(
'search_line',
'alpha');
68 $search_bon =
GETPOST(
'search_bon',
'alpha');
69 $search_code =
GETPOST(
'search_code',
'alpha');
70 $search_company =
GETPOST(
'search_company',
'alpha');
71 $statut =
GETPOST(
'statut',
'int');
77 $hookmanager->initHooks(array(
'withdrawalsreceiptslineslist'));
80 $socid =
GETPOST(
'socid',
'int');
82 $socid = $user->socid;
84 if ($type ==
'bank-transfer') {
85 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
95 if (
GETPOST(
'button_removefilter_x',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
110 llxHeader(
'', $langs->trans(
"WithdrawalsLines"));
112 $sql =
"SELECT p.rowid, p.ref, p.statut as status, p.datec";
113 $sql .=
" , f.rowid as facid, f.ref as invoiceref, f.total_ttc";
114 $sql .=
" , s.rowid as socid, s.nom as name, s.code_client, s.code_fournisseur, s.email";
115 $sql .=
" , pl.amount, pl.statut as statut_ligne, pl.rowid as rowid_ligne";
119 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_bons as p";
120 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
121 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement as pf";
122 if ($type ==
'bank-transfer') {
123 $sql .=
" , ".MAIN_DB_PREFIX.
"facture_fourn as f";
125 $sql .=
" , ".MAIN_DB_PREFIX.
"facture as f";
127 $sql .=
" , ".MAIN_DB_PREFIX.
"societe as s";
128 $sql .=
" WHERE pl.fk_prelevement_bons = p.rowid";
129 $sql .=
" AND pf.fk_prelevement_lignes = pl.rowid";
130 if ($type ==
'bank-transfer') {
131 $sql .=
" AND pf.fk_facture_fourn = f.rowid";
133 $sql .=
" AND pf.fk_facture = f.rowid";
135 $sql .=
" AND f.fk_soc = s.rowid";
136 $sql .=
" AND f.entity IN (".getEntity(
'invoice').
")";
138 $sql .=
" AND s.rowid = ".((int) $socid);
141 $sql .=
" AND pl.rowid = '".$db->escape($search_line).
"'";
146 if ($type ==
'bank-transfer') {
155 if ($search_company) {
161 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
163 $sqlforcount = preg_replace(
'/^'.preg_quote($sqlfields,
'/').
'/',
'SELECT COUNT(*) as nbtotalofrecords',
$sql);
164 $sqlforcount = preg_replace(
'/GROUP BY .*$/',
'', $sqlforcount);
165 $resql = $db->query($sqlforcount);
167 $objforcount = $db->fetch_object($resql);
180 $sql .= $db->order($sortfield, $sortorder);
182 $sql .= $db->plimit($limit + 1, $offset);
185 $result = $db->query(
$sql);
187 $num = $db->num_rows($result);
190 $param =
"&statut=".urlencode($statut);
191 $param .=
"&search_bon=".urlencode($search_bon);
193 $param .=
'&mode='.urlencode($mode);
195 if ($type ==
'bank-transfer') {
196 $param .=
'&type=bank-transfer';
198 if ($limit > 0 && $limit != $conf->liste_limit) {
199 $param .=
'&limit='.urlencode($limit);
202 $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'));
203 $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'));
205 print
"\n<!-- debut table -->\n";
206 print
'<form method="POST" id="searchFormList" action="'.$_SERVER[
"PHP_SELF"].
'">'.
"\n";
207 if ($optioncss !=
'') {
208 print
'<input type="hidden" name="optioncss" value="'.$optioncss.
'">';
210 print
'<input type="hidden" name="token" value="'.newToken().
'">';
211 print
'<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
212 print
'<input type="hidden" name="action" value="list">';
213 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'">';
214 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'">';
215 print
'<input type="hidden" name="contextpage" value="'.$contextpage.
'">';
216 print
'<input type="hidden" name="mode" value="'.$mode.
'">';
219 print
'<input type="hidden" name="type" value="'.$type.
'">';
222 $title = $langs->trans(
"WithdrawalsLines");
223 if ($type ==
'bank-transfer') {
224 $title = $langs->trans(
"CreditTransferLines");
226 print_barre_liste($title, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num,
$nbtotalofrecords,
'generic', 0, $newcardbutton,
'', $limit, 0, 0, 1);
230 print
'<div class="div-table-responsive">';
231 print
'<table class="tagtable liste'.($moreforfilter ?
" listwithfilterbefore" :
"").
'">'.
"\n";
233 print
'<tr class="liste_titre">';
234 print
'<td class="liste_titre"><input type="text" class="flat" name="search_line" value="'.dol_escape_htmltag($search_line).
'" size="6"></td>';
235 print
'<td class="liste_titre"><input type="text" class="flat" name="search_bon" value="'.dol_escape_htmltag($search_bon).
'" size="6"></td>';
236 print
'<td class="liste_titre"> </td>';
237 print
'<td class="liste_titre"><input type="text" class="flat" name="search_company" value="'.dol_escape_htmltag($search_company).
'" size="6"></td>';
238 print
'<td class="liste_titre center"><input type="text" class="flat" name="search_code" value="'.dol_escape_htmltag($search_code).
'" size="6"></td>';
239 print
'<td class="liste_titre"> </td>';
240 print
'<td class="liste_titre"> </td>';
241 print
'<td class="liste_titre maxwidthsearch">';
242 $searchpicto =
$form->showFilterButtons();
247 $columntitle =
"WithdrawalsReceipts";
248 $columntitlethirdparty =
"CustomerCode";
249 $columncodethirdparty =
"s.code_client";
250 if ($type ==
'bank-transfer') {
251 $columntitle =
"BankTransferReceipts";
252 $columntitlethirdparty =
"SupplierCode";
253 $columncodethirdparty =
"s.code_fournisseur";
256 print
'<tr class="liste_titre">';
261 print_liste_field_titre($columntitlethirdparty, $_SERVER[
"PHP_SELF"], $columncodethirdparty,
'', $param,
'', $sortfield, $sortorder,
'center ');
262 print_liste_field_titre(
"Date", $_SERVER[
"PHP_SELF"],
"p.datec",
"", $param,
'', $sortfield, $sortorder,
'center ');
263 print_liste_field_titre(
"Amount", $_SERVER[
"PHP_SELF"],
"pl.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
268 while ($i < min($num, $limit)) {
269 $obj = $db->fetch_object($result);
271 $bon->id = $obj->rowid;
272 $bon->ref = $obj->ref;
273 $bon->statut = $obj->status;
274 $bon->date_echeance = $obj->datec;
275 $bon->total = $obj->amount;
277 $company->id = $obj->socid;
278 $company->name = $obj->name;
279 $company->email = $obj->email;
280 $company->code_client = $obj->code_client;
282 if ($mode ==
'kanban') {
284 print
'<tr><td colspan="12">';
285 print
'<div class="box-flex-container kanban">';
289 print $bon->getKanbanView(
'');
290 if ($i == (min($num, $limit) - 1)) {
295 print
'<tr class="oddeven">';
298 print $bon->getNomUrl(1);
302 print $line->LibStatut($obj->statut_ligne, 2);
304 print
'<a href="'.DOL_URL_ROOT.
'/compta/prelevement/line.php?id='.$obj->rowid_ligne.
'">';
305 print substr(
'000000'.$obj->rowid_ligne, -6);
309 $link_to_bill =
'/compta/facture/card.php?facid=';
310 $link_title =
'Invoice';
311 $link_picto =
'bill';
312 if ($type ==
'bank-transfer') {
313 $link_to_bill =
'/fourn/facture/card.php?facid=';
314 $link_title =
'SupplierInvoice';
315 $link_picto =
'supplier_invoice';
317 print
'<a href="'.DOL_URL_ROOT.$link_to_bill.$obj->facid.
'">';
318 print
img_object($langs->trans($link_title), $link_picto);
319 print
' '.$obj->invoiceref.
"</td>\n";
324 print $company->getNomUrl(1);
328 print
'<td class="center">';
329 $link_to_tab =
'/comm/card.php?socid=';
330 $link_code = $obj->code_client;
331 if ($type ==
'bank-transfer') {
332 $link_to_tab =
'/fourn/card.php?socid=';
333 $link_code = $obj->code_fournisseur;
335 print
'<a href="'.DOL_URL_ROOT.$link_to_tab.$company->id.
'">'.$link_code.
"</a></td>\n";
337 print
'<td class="center">'.dol_print_date($db->jdate($obj->datec),
'day').
"</td>\n";
339 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
341 print
'<td> </td>';
348 print
'<tr><td colspan="8"><span class="opacitymedium">'.$langs->trans(
"None").
'</span></td></tr>';