print '<td class="liste_titre"> </td>';
print '<td class="liste_titre" align="right"><input type="image" class="liste_titre" src="'.DOL_URL_ROOT.'/theme/'.$conf->theme.'/img/search.png" name="button_search" value="'.dol_escape_htmltag($langs->trans("Search")).'" title="'.dol_escape_htmltag($langs->trans("Search")).'"></td>';
print '</tr>';
print '</form>';
$var=True;
while ($i < min($num,$conf->liste_limit))
{
$obj = $db->fetch_object($result);
$var=!$var;
print "<tr $bc[$var]><td>";
print $ligne->LibStatut($obj->statut_ligne,2);
print " ";
print '<a href="'.DOL_URL_ROOT.'/compta/prelevement/ligne.php?id='.$obj->rowid_ligne.'">';
print substr('000000'.$obj->rowid_ligne, -6);
print '</a></td>';
print '<td>';
print $bon->LibStatut($obj->statut,2);
print " ";
print '<a href="fiche.php?id='.$obj->rowid.'">'.$obj->ref."</a></td>\n";
print '<td><a href="'.DOL_URL_ROOT.'/compta/facture.php?facid='.$obj->facid.'">';
print img_object($langs->trans("ShowBill"),"bill");
$sql .= " WHERE pl.fk_prelevement_bons = " . $prev_id;
$sql .= " GROUP BY pl.statut";
$resql = $db->query($sql);
if ($resql) {
$num = $db->num_rows($resql);
$i = 0;
print_fiche_titre($langs->trans("StatisticsByLineStatus"), '', '');
print "\n<!-- debut table -->\n";
print '<table class="noborder" width="100%" cellspacing="0" cellpadding="4">';
print '<tr class="liste_titre">';
print '<td>' . $langs->trans("Status") . '</td><td align="right">' . $langs->trans("Amount") . '</td><td align="right">%</td></tr>';
$var = false;
while ($i < $num) {
$row = $db->fetch_row($resql);
print "<tr " . $bc[$var] . "><td>";
print $ligne->LibStatut($row[1], 1);
print '</td><td align="right">';
print price($row[0]);
print '</td><td align="right">';
print round($row[0] / $bon->amount * 100, 2) . " %";
print '</td>';
print "</tr>\n";
$var = !$var;
$i++;
}
print "</table>";
$db->free($resql);
} else {
print $db->error() . ' ' . $sql;
}
}
$head[$h][0] = DOL_URL_ROOT . '/compta/prelevement/ligne.php?id=' . $id;
$head[$h][1] = $langs->trans("Card");
$hselected = $h;
$h++;
if ($id) {
$lipre = new LignePrelevement($db, $user);
if ($lipre->fetch($id) == 0) {
$bon = new BonPrelevement($db);
$bon->fetch($lipre->bon_rowid);
dol_fiche_head($head, $hselected, $langs->trans("StandingOrder"));
print '<table class="border" width="100%">';
print '<tr><td width="20%">' . $langs->trans("WithdrawalsReceipts") . '</td><td>';
print $bon->getNomUrl(1) . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("Date") . '</td><td>' . dol_print_date($bon->datec, 'day') . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("Amount") . '</td><td>' . price($lipre->amount) . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("Status") . '</td><td>' . $lipre->LibStatut($lipre->statut, 1) . '</td></tr>';
if ($lipre->statut == 3) {
$rej = new RejetPrelevement($db, $user);
$resf = $rej->fetch($lipre->id);
if ($resf == 0) {
print '<tr><td width="20%">' . $langs->trans("RefusedReason") . '</td><td>' . $rej->motif . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("RefusedData") . '</td><td>';
if ($rej->date_rejet == 0) {
/* Historique pour certaines install */
print $langs->trans("Unknown");
} else {
print dol_print_date($rej->date_rejet, 'day');
}
print '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("RefusedInvoicing") . '</td><td>' . $rej->invoicing . '</td></tr>';
} else {
$head[$h][1] = $langs->trans("Card");
$hselected = $h;
$h++;
if ($id) {
$lipre = new LignePrelevement($db, $user);
if ($lipre->fetch($id) == 0) {
$bon = new BonPrelevement($db);
$bon->fetch($lipre->bon_rowid);
dol_fiche_head($head, $hselected, $langs->trans("StandingOrder"));
print '<table class="border" width="100%">';
print '<tr><td width="20%">' . $langs->trans("WithdrawalReceipt") . '</td><td>';
print '<a href="fiche.php?id=' . $lipre->bon_rowid . '">' . $lipre->bon_ref . '</a></td></tr>';
print '<tr><td width="20%">' . $langs->trans("Date") . '</td><td>' . dol_print_date($bon->datec, 'day') . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("Amount") . '</td><td>' . price($lipre->amount) . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("Status") . '</td><td>';
print $lipre->LibStatut($lipre->statut, 1) . '</td></tr>';
if ($lipre->statut == 3) {
$rej = new RejetPrelevement($db, $user);
$resf = $rej->fetch($lipre->id);
if ($resf == 0) {
print '<tr><td width="20%">' . $langs->trans("RefusedReason") . '</td><td>' . $rej->motif . '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("RefusedData") . '</td><td>';
if ($rej->date_rejet == 0) {
/* Historique pour certaines install */
print $langs->trans("Unknown");
} else {
print dol_print_date($rej->date_rejet, 'day');
}
print '</td></tr>';
print '<tr><td width="20%">' . $langs->trans("RefusedInvoicing") . '</td><td>' . $rej->invoicing . '</td></tr>';
} else {
$num = $db->num_rows($result);
$i = 0;
print_barre_liste($langs->trans("WithdrawsRefused"), $page, $_SERVER["PHP_SELF"], $urladd, $sortfield, $sortorder, '', $num);
print "\n<!-- debut table -->\n";
print '<table class="noborder" width="100%" cellspacing="0" cellpadding="4">';
print '<tr class="liste_titre">';
print_liste_field_titre($langs->trans("Line"), $_SERVER["PHP_SELF"], "p.ref", '', $urladd);
print_liste_field_titre($langs->trans("ThirdParty"), $_SERVER["PHP_SELF"], "s.nom", '', $urladd);
print_liste_field_titre($langs->trans("Reason"), $_SERVER["PHP_SELF"], "pr.motif", "", $urladd);
print "</tr>\n";
$var = True;
$total = 0;
while ($i < min($num, $conf->liste_limit)) {
$obj = $db->fetch_object($result);
print "<tr " . $bc[$var] . "><td>";
print $ligne->LibStatut($obj->statut, 2) . ' ';
print '<a href="' . DOL_URL_ROOT . '/compta/prelevement/ligne.php?id=' . $obj->rowid . '">';
print substr('000000' . $obj->rowid, -6) . "</a></td>";
print '<td><a href="' . DOL_URL_ROOT . '/comm/card.php?socid=' . $obj->socid . '">' . stripslashes($obj->nom) . "</a></td>\n";
print '<td>' . $rej->motifs[$obj->motif] . '</td>';
print "</tr>\n";
$var = !$var;
$i++;
}
print "</table>";
$db->free($result);
} else {
dol_print_error($db);
}
llxFooter();
$db->close();
