28 require
'../../main.inc.php';
29 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/bonprelevement.class.php';
30 require_once DOL_DOCUMENT_ROOT.
'/compta/prelevement/class/ligneprelevement.class.php';
31 require_once DOL_DOCUMENT_ROOT.
'/compta/bank/class/account.class.php';
34 $langs->loadLangs(array(
'banks',
'withdrawals',
'companies',
'categories'));
36 $action =
GETPOST(
'action',
'aZ09') ?
GETPOST(
'action',
'aZ09') :
'view';
37 $massaction =
GETPOST(
'massaction',
'alpha');
38 $show_files =
GETPOST(
'show_files',
'int');
39 $confirm =
GETPOST(
'confirm',
'alpha');
40 $cancel =
GETPOST(
'cancel',
'alpha');
41 $toselect =
GETPOST(
'toselect',
'array');
42 $contextpage =
GETPOST(
'contextpage',
'aZ') ?
GETPOST(
'contextpage',
'aZ') :
'directdebitcredittransferlinelist';
43 $backtopage =
GETPOST(
'backtopage',
'alpha');
44 $optioncss =
GETPOST(
'optioncss',
'aZ');
46 $type =
GETPOST(
'type',
'aZ09');
48 $limit =
GETPOST(
'limit',
'int') ?
GETPOST(
'limit',
'int') : $conf->liste_limit;
49 $sortfield =
GETPOST(
'sortfield',
'aZ09comma');
50 $sortorder =
GETPOST(
'sortorder',
'aZ09comma');
52 if (empty($page) || $page == -1) {
55 $offset = $limit * $page;
56 $pageprev = $page - 1;
57 $pagenext = $page + 1;
62 $sortfield =
"p.datec";
65 $search_line =
GETPOST(
'search_line',
'alpha');
66 $search_bon =
GETPOST(
'search_bon',
'alpha');
67 $search_code =
GETPOST(
'search_code',
'alpha');
68 $search_company =
GETPOST(
'search_company',
'alpha');
69 $statut =
GETPOST(
'statut',
'int');
75 $hookmanager->initHooks(array(
'withdrawalsreceiptslineslist'));
78 $socid =
GETPOST(
'socid',
'int');
80 $socid = $user->socid;
82 if ($type ==
'bank-transfer') {
83 $result =
restrictedArea($user,
'paymentbybanktransfer',
'',
'',
'');
93 if (
GETPOST(
'button_removefilter_x',
'alpha') ||
GETPOST(
'button_removefilter.x',
'alpha') ||
GETPOST(
'button_removefilter',
'alpha')) {
108 llxHeader(
'', $langs->trans(
"WithdrawalsLines"));
110 $sql =
"SELECT p.rowid, p.ref, p.statut as status, p.datec";
111 $sql .=
" , f.rowid as facid, f.ref as invoiceref, f.total_ttc";
112 $sql .=
" , s.rowid as socid, s.nom as name, s.code_client, s.code_fournisseur, s.email";
113 $sql .=
" , pl.amount, pl.statut as statut_ligne, pl.rowid as rowid_ligne";
114 $sql .=
" FROM ".MAIN_DB_PREFIX.
"prelevement_bons as p";
115 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
116 $sql .=
" , ".MAIN_DB_PREFIX.
"prelevement_facture as pf";
117 if ($type ==
'bank-transfer') {
118 $sql .=
" , ".MAIN_DB_PREFIX.
"facture_fourn as f";
120 $sql .=
" , ".MAIN_DB_PREFIX.
"facture as f";
122 $sql .=
" , ".MAIN_DB_PREFIX.
"societe as s";
123 $sql .=
" WHERE pl.fk_prelevement_bons = p.rowid";
124 $sql .=
" AND pf.fk_prelevement_lignes = pl.rowid";
125 if ($type ==
'bank-transfer') {
126 $sql .=
" AND pf.fk_facture_fourn = f.rowid";
128 $sql .=
" AND pf.fk_facture = f.rowid";
130 $sql .=
" AND f.fk_soc = s.rowid";
131 $sql .=
" AND f.entity IN (".getEntity(
'invoice').
")";
133 $sql .=
" AND s.rowid = ".((int) $socid);
136 $sql .=
" AND pl.rowid = '".$db->escape($search_line).
"'";
141 if ($type ==
'bank-transfer') {
150 if ($search_company) {
154 $sql .= $db->order($sortfield, $sortorder);
157 $nbtotalofrecords =
'';
158 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) {
159 $result = $db->query($sql);
160 $nbtotalofrecords = $db->num_rows($result);
161 if (($page * $limit) > $nbtotalofrecords) {
167 $sql .= $db->plimit($limit + 1, $offset);
169 $result = $db->query($sql);
171 $num = $db->num_rows($result);
174 $param =
"&statut=".urlencode($statut);
175 $param .=
"&search_bon=".urlencode($search_bon);
176 if ($type ==
'bank-transfer') {
177 $param .=
'&type=bank-transfer';
179 if ($limit > 0 && $limit != $conf->liste_limit) {
180 $param .=
'&limit='.urlencode($limit);
183 print
"\n<!-- debut table -->\n";
184 print
'<form method="POST" id="searchFormList" action="'.$_SERVER[
"PHP_SELF"].
'">'.
"\n";
185 if ($optioncss !=
'') {
186 print
'<input type="hidden" name="optioncss" value="'.$optioncss.
'">';
188 print
'<input type="hidden" name="token" value="'.newToken().
'">';
189 print
'<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
190 print
'<input type="hidden" name="action" value="list">';
191 print
'<input type="hidden" name="sortfield" value="'.$sortfield.
'">';
192 print
'<input type="hidden" name="sortorder" value="'.$sortorder.
'">';
193 print
'<input type="hidden" name="contextpage" value="'.$contextpage.
'">';
195 print
'<input type="hidden" name="type" value="'.$type.
'">';
198 $title = $langs->trans(
"WithdrawalsLines");
199 if ($type ==
'bank-transfer') {
200 $title = $langs->trans(
"CreditTransferLines");
202 print_barre_liste($title, $page, $_SERVER[
"PHP_SELF"], $param, $sortfield, $sortorder,
'', $num, $nbtotalofrecords,
'generic', 0,
'',
'', $limit, 0, 0, 1);
206 print
'<div class="div-table-responsive">';
207 print
'<table class="tagtable liste'.($moreforfilter ?
" listwithfilterbefore" :
"").
'">'.
"\n";
209 print
'<tr class="liste_titre">';
210 print
'<td class="liste_titre"><input type="text" class="flat" name="search_line" value="'.dol_escape_htmltag($search_line).
'" size="6"></td>';
211 print
'<td class="liste_titre"><input type="text" class="flat" name="search_bon" value="'.dol_escape_htmltag($search_bon).
'" size="6"></td>';
212 print
'<td class="liste_titre"> </td>';
213 print
'<td class="liste_titre"><input type="text" class="flat" name="search_company" value="'.dol_escape_htmltag($search_company).
'" size="6"></td>';
214 print
'<td class="liste_titre center"><input type="text" class="flat" name="search_code" value="'.dol_escape_htmltag($search_code).
'" size="6"></td>';
215 print
'<td class="liste_titre"> </td>';
216 print
'<td class="liste_titre"> </td>';
217 print
'<td class="liste_titre maxwidthsearch">';
218 $searchpicto =
$form->showFilterButtons();
223 $columntitle =
"WithdrawalsReceipts";
224 $columntitlethirdparty =
"CustomerCode";
225 $columncodethirdparty =
"s.code_client";
226 if ($type ==
'bank-transfer') {
227 $columntitle =
"BankTransferReceipts";
228 $columntitlethirdparty =
"SupplierCode";
229 $columncodethirdparty =
"s.code_fournisseur";
232 print
'<tr class="liste_titre">';
237 print_liste_field_titre($columntitlethirdparty, $_SERVER[
"PHP_SELF"], $columncodethirdparty,
'', $param,
'', $sortfield, $sortorder,
'center ');
238 print_liste_field_titre(
"Date", $_SERVER[
"PHP_SELF"],
"p.datec",
"", $param,
'', $sortfield, $sortorder,
'center ');
239 print_liste_field_titre(
"Amount", $_SERVER[
"PHP_SELF"],
"pl.amount",
"", $param,
'', $sortfield, $sortorder,
'right ');
244 while ($i < min($num, $limit)) {
245 $obj = $db->fetch_object($result);
247 $bon->id = $obj->rowid;
248 $bon->ref = $obj->ref;
249 $bon->statut = $obj->status;
251 $company->id = $obj->socid;
252 $company->name = $obj->name;
253 $company->email = $obj->email;
254 $company->code_client = $obj->code_client;
256 print
'<tr class="oddeven">';
259 print $bon->getNomUrl(1);
263 print $line->LibStatut($obj->statut_ligne, 2);
265 print
'<a href="'.DOL_URL_ROOT.
'/compta/prelevement/line.php?id='.$obj->rowid_ligne.
'">';
266 print substr(
'000000'.$obj->rowid_ligne, -6);
270 $link_to_bill =
'/compta/facture/card.php?facid=';
271 $link_title =
'Invoice';
272 $link_picto =
'bill';
273 if ($type ==
'bank-transfer') {
274 $link_to_bill =
'/fourn/facture/card.php?facid=';
275 $link_title =
'SupplierInvoice';
276 $link_picto =
'supplier_invoice';
278 print
'<a href="'.DOL_URL_ROOT.$link_to_bill.$obj->facid.
'">';
279 print
img_object($langs->trans($link_title), $link_picto);
280 print
' '.$obj->invoiceref.
"</td>\n";
285 print $company->getNomUrl(1);
289 print
'<td class="center">';
290 $link_to_tab =
'/comm/card.php?socid=';
291 $link_code = $obj->code_client;
292 if ($type ==
'bank-transfer') {
293 $link_to_tab =
'/fourn/card.php?socid=';
294 $link_code = $obj->code_fournisseur;
296 print
'<a href="'.DOL_URL_ROOT.$link_to_tab.$company->id.
'">'.$link_code.
"</a></td>\n";
298 print
'<td class="center">'.dol_print_date($db->jdate($obj->datec),
'day').
"</td>\n";
300 print
'<td class="right"><span class="amount">'.price($obj->amount).
"</span></td>\n";
302 print
'<td> </td>';
308 print
'<tr><td colspan="8"><span class="opacitymedium">'.$langs->trans(
"None").
'</span></td></tr>';