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',
'withdrawals'));
36 if (!$user->rights->prelevement->bons->lire)
43 $action =
GETPOST(
'action',
'alpha');
46 $socid =
GETPOST(
'socid',
'int');
49 $limit =
GETPOST(
'limit',
'int')?
GETPOST(
'limit',
'int'):$conf->liste_limit;
50 $sortfield =
GETPOST(
'sortfield',
'alpha');
51 $sortorder =
GETPOST(
'sortorder',
'alpha');
53 if (empty($page) || $page == -1) { $page = 0; }
54 $offset = $limit * $page;
55 $pageprev = $page - 1;
56 $pagenext = $page + 1;
58 if (! $sortfield) $sortfield=
'pl.fk_soc';
59 if (! $sortorder) $sortorder=
'DESC';
64 include DOL_DOCUMENT_ROOT.
'/core/actions_fetchobject.inc.php';
71 if ( $action ==
'confirm_delete' )
73 $res=$object->delete($user);
76 header(
"Location: index.php");
82 if ( $action ==
'confirm_credite' &&
GETPOST(
'confirm',
'alpha') ==
'yes')
84 $res=$object->set_credite();
87 header(
"Location: card.php?id=".$id);
92 if ($action ==
'infotrans' && $user->rights->prelevement->bons->send)
94 require_once DOL_DOCUMENT_ROOT.
'/core/lib/files.lib.php';
117 $error = $object->set_infotrans($user, $dt,
GETPOST(
'methode',
'alpha'));
121 header(
"Location: card.php?id=".$id.
"&error=$error");
127 if ($action ==
'infocredit' && $user->rights->prelevement->bons->credit)
131 $error = $object->set_infocredit($user, $dt);
135 header(
"Location: card.php?id=".$id.
"&error=$error");
148 llxHeader(
'',$langs->trans(
"WithdrawalsReceipts"));
153 dol_fiche_head($head,
'prelevement', $langs->trans(
"WithdrawalsReceipts"), -1,
'payment');
155 if (
GETPOST(
'error',
'alpha')!=
'')
157 print '<div class="error">'.$object->getErrorString(
GETPOST(
'error',
'alpha')).
'</div>';
166 $linkback =
'<a href="'.DOL_URL_ROOT.
'/compta/prelevement/bons.php">'.$langs->trans(
"BackToList").
'</a>';
170 print '<div class="fichecenter">';
171 print '<div class="underbanner clearboth"></div>';
172 print '<table class="border" width="100%">';
175 print '<tr><td class="titlefield">'.$langs->trans(
"Date").
'</td><td>'.
dol_print_date($object->datec,
'day').
'</td></tr>';
176 print '<tr><td>'.$langs->trans(
"Amount").
'</td><td>'.
price($object->amount).
'</td></tr>';
185 if($object->date_trans <> 0)
187 $muser =
new User($db);
188 $muser->fetch($object->user_trans);
190 print '<tr><td>'.$langs->trans(
"TransData").
'</td><td>';
192 print ' '.$langs->trans(
"By").
' '.$muser->getFullName($langs).
'</td></tr>';
193 print '<tr><td>'.$langs->trans(
"TransMetod").
'</td><td>';
194 print $object->methodes_trans[$object->method_trans];
197 if($object->date_credit <> 0)
199 print '<tr><td>'.$langs->trans(
'CreditDate').
'</td><td>';
208 print '<div class="underbanner clearboth"></div>';
209 print '<table class="border" width="100%">';
212 $result=$acc->fetch($conf->global->PRELEVEMENT_ID_BANKACCOUNT);
214 print '<tr><td class="titlefield">';
215 print $langs->trans(
"BankToReceiveWithdraw");
219 print $acc->getNomUrl(1);
223 print '<tr><td class="titlefield">';
224 print $langs->trans(
"WithdrawalFile").
'</td><td>';
225 $relativepath =
'receipts/'.$object->ref.
'.xml';
226 print '<a data-ajax="false" href="'.DOL_URL_ROOT.
'/document.php?type=text/plain&modulepart=prelevement&file='.urlencode($relativepath).
'">'.$relativepath.
'</a>';
227 print '</td></tr></table>';
235 if (empty($object->date_trans) && $user->rights->prelevement->bons->send && $action==
'settransmitted')
237 print '<form method="post" name="userfile" action="card.php?id='.$object->id.
'" enctype="multipart/form-data">';
238 print '<input type="hidden" name="token" value="'.$_SESSION[
'newtoken'].
'">';
239 print '<input type="hidden" name="action" value="infotrans">';
240 print '<table class="noborder" width="100%">';
241 print '<tr class="liste_titre">';
242 print '<td colspan="3">'.$langs->trans(
"NotifyTransmision").
'</td></tr>';
243 print '<tr class="oddeven"><td>'.$langs->trans(
"TransData").
'</td><td>';
244 print $form->selectDate(
'',
'',
'',
'',
'',
"userfile", 1, 1);
246 print '<tr class="oddeven"><td>'.$langs->trans(
"TransMetod").
'</td><td>';
247 print $form->selectarray(
"methode",$object->methodes_trans);
253 print '</table><br>';
254 print '<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans(
"SetToStatusSent")).
'"></div>';
259 if (! empty($object->date_trans) && $object->date_credit == 0 && $user->rights->prelevement->bons->credit && $action==
'setcredited')
261 print '<form name="infocredit" method="post" action="card.php?id='.$object->id.
'">';
262 print '<input type="hidden" name="token" value="'.$_SESSION[
'newtoken'].
'">';
263 print '<input type="hidden" name="action" value="infocredit">';
264 print '<table class="noborder" width="100%">';
265 print '<tr class="liste_titre">';
266 print '<td colspan="3">'.$langs->trans(
"NotifyCredit").
'</td></tr>';
267 print '<tr class="oddeven"><td>'.$langs->trans(
'CreditDate').
'</td><td>';
268 print $form->selectDate(
'',
'',
'',
'',
'',
"infocredit", 1, 1);
271 print '<br>'.$langs->trans(
"ThisWillAlsoAddPaymentOnInvoice");
272 print '<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans(
"ClassCredited")).
'"></div>';
279 if ($action !=
'settransmitted' && $action !=
'setcredited')
281 print "\n<div class=\"tabsAction\">\n";
283 if (empty($object->date_trans) && $user->rights->prelevement->bons->send)
285 print "<a class=\"butAction\" href=\"card.php?action=settransmitted&id=".$object->id.
"\">".$langs->trans(
"SetToStatusSent").
"</a>";
288 if (! empty($object->date_trans) && $object->date_credit == 0)
290 print "<a class=\"butAction\" href=\"card.php?action=setcredited&id=".$object->id.
"\">".$langs->trans(
"ClassCredited").
"</a>";
293 print "<a class=\"butActionDelete\" href=\"card.php?action=confirm_delete&id=".$object->id.
"\">".$langs->trans(
"Delete").
"</a>";
304 $sql =
"SELECT pl.rowid, pl.statut, pl.amount,";
305 $sql.=
" s.rowid as socid, s.nom as name";
306 $sql.=
" FROM ".MAIN_DB_PREFIX.
"prelevement_lignes as pl";
307 $sql.=
", ".MAIN_DB_PREFIX.
"prelevement_bons as pb";
308 $sql.=
", ".MAIN_DB_PREFIX.
"societe as s";
309 $sql.=
" WHERE pl.fk_prelevement_bons = ".$id;
310 $sql.=
" AND pl.fk_prelevement_bons = pb.rowid";
311 $sql.=
" AND pb.entity = ".$conf->entity;
312 $sql.=
" AND pl.fk_soc = s.rowid";
313 if ($socid) $sql.=
" AND s.rowid = ".$socid;
314 $sql.= $db->order($sortfield, $sortorder);
317 $nbtotalofrecords =
'';
318 if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST))
320 $result = $db->query($sql);
321 $nbtotalofrecords = $db->num_rows($result);
322 if (($page * $limit) > $nbtotalofrecords)
329 $sql.= $db->plimit($limit+1, $offset);
331 $result = $db->query($sql);
335 $num = $db->num_rows($result);
338 $urladd =
"&id=".$id;
340 print_barre_liste($langs->trans(
"Lines"), $page, $_SERVER[
"PHP_SELF"], $urladd, $sortfield, $sortorder,
'', $num, $nbtotalofrecords,
'');
342 print '<div class="div-table-responsive-no-min">';
343 print
'<table class="noborder" width="100%" cellspacing="0" cellpadding="4">';
344 print
'<tr class="liste_titre">';
355 while ($i < min($num,$conf->liste_limit))
357 $obj = $db->fetch_object($result);
359 print
'<tr class="oddeven">';
363 print $ligne->LibStatut($obj->statut,2);
365 print
'<a href="'.DOL_URL_ROOT.
'/compta/prelevement/ligne.php?id='.$obj->rowid.
'">';
366 print sprintf(
"%06s",$obj->rowid);
370 $thirdparty->fetch($obj->socid);
372 print $thirdparty->getNomUrl(1);
375 print
'<td align="right">'.price($obj->amount).
"</td>\n";
379 if ($obj->statut == 3)
381 print
'<b>'.$langs->trans(
"StatusRefused").
'</b>';
390 $total += $obj->amount;
397 print
'<tr class="liste_total">';
398 print
'<td>'.$langs->trans(
"Total").
'</td>';
399 print
'<td> </td>';
400 print
'<td align="right">';
401 if ($total != $object->amount) print
img_warning(
"AmountOfFileDiffersFromSumOfInvoices");
404 print
'<td> </td>';
img_warning($titlealt='default', $moreatt='')
Show warning logo.
GETPOST($paramname, $check='none', $method=0, $filter=null, $options=null, $noreplace=0)
Return value of a param into GET or POST supervariable.
print
Draft customers invoices.
dol_mktime($hour, $minute, $second, $month, $day, $year, $gm=false, $check=1)
Return a timestamp date built from detailed informations (by default a local PHP server timestamp) Re...
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.
Class to manage Dolibarr users.
dol_print_error($db='', $error='', $errors=null)
Affiche message erreur system avec toutes les informations pour faciliter le diagnostic et la remonte...
Class to manage bank accounts.
accessforbidden($message='', $printheader=1, $printfooter=1, $showonlymessage=0)
Show a message to say access is forbidden and stop program Calling this function terminate execution ...
print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $morehtmlcenter='', $num=-1, $totalnboflines='', $picto='title_generic.png', $pictoisfullpath=0, $morehtmlright='', $morecss='', $limit=-1, $hideselectlimit=0, $hidenavigation=0)
Print a title with navigation controls for pagination.
Class to manage third parties objects (customers, suppliers, prospects...)
Class to manage withdrawal receipts.
dol_fiche_end($notab=0)
Show tab footer of a card.
if($_POST["cancel"]==$langs->trans("Cancel") &&! $id) if($action=='add' && $_POST["cancel"]<> $langs->trans("Cancel")) if($action=='delete') if($id) $form
Actions.
prelevement_prepare_head(BonPrelevement $object)
Prepare array with list of tabs.
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...
dol_print_date($time, $format='', $tzoutput='tzserver', $outputlangs='', $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
print_liste_field_titre($name, $file="", $field="", $begin="", $moreparam="", $moreattrib="", $sortfield="", $sortorder="", $prefix="", $tooltip="")
Show title line of an array.
dol_fiche_head($links=array(), $active='0', $title='', $notab=0, $picto='', $pictoisfullpath=0, $morehtmlright='', $morecss='')
Show tab header of a card.
Class to manage withdrawals.