?i»?
Current Path : /home/s/c/g/scgforma/www/soc064/htdocs/compta/prelevement/ |
Current File : /home/s/c/g/scgforma/www/soc064/htdocs/compta/prelevement/card.php |
<?php /* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org> * Copyright (C) 2005-2010 Laurent Destailleur <eldy@users.sourceforge.net> * Copyright (C) 2010-2016 Juanjo Menent <jmenent@2byte.es> * Copyright (C) 2018 Frédéric France <frederic.france@netlogic.fr> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 3 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see <http://www.gnu.org/licenses/>. */ /** * \file htdocs/compta/prelevement/card.php * \ingroup prelevement * \brief Card of a direct debit */ require '../../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/prelevement.lib.php'; require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/ligneprelevement.class.php'; require_once DOL_DOCUMENT_ROOT.'/compta/prelevement/class/bonprelevement.class.php'; require_once DOL_DOCUMENT_ROOT.'/compta/bank/class/account.class.php'; // Load translation files required by the page $langs->loadLangs(array('banks', 'categories','bills','withdrawals')); if (!$user->rights->prelevement->bons->lire) accessforbidden(); // Security check if ($user->societe_id > 0) accessforbidden(); // Get supervariables $action = GETPOST('action', 'alpha'); $id = GETPOST('id', 'int'); $ref = GETPOST('ref', 'alpha'); $socid = GETPOST('socid', 'int'); // Load variable for pagination $limit = GETPOST('limit', 'int')?GETPOST('limit', 'int'):$conf->liste_limit; $sortfield = GETPOST('sortfield', 'alpha'); $sortorder = GETPOST('sortorder', 'alpha'); $page = GETPOST('page', 'int'); if (empty($page) || $page == -1) { $page = 0; } // If $page is not defined, or '' or -1 $offset = $limit * $page; $pageprev = $page - 1; $pagenext = $page + 1; if (! $sortfield) $sortfield='pl.fk_soc'; if (! $sortorder) $sortorder='DESC'; $object = new BonPrelevement($db, ""); // Load object include DOL_DOCUMENT_ROOT.'/core/actions_fetchobject.inc.php'; // Must be include, not include_once // Must be include, not include_once. Include fetch and fetch_thirdparty but not fetch_optionals $hookmanager->initHooks(array('directdebitprevcard','globalcard')); /* * Actions */ $parameters = array('socid' => $socid); $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks if ($reshook < 0) setEventMessages($hookmanager->error, $hookmanager->errors, 'errors'); if (empty($reshook)) { if ( $action == 'confirm_delete' ) { $res=$object->delete($user); if ($res > 0) { header("Location: index.php"); exit; } } // Seems to no be used and replaced with $action == 'infocredit' if ( $action == 'confirm_credite' && GETPOST('confirm', 'alpha') == 'yes') { $res=$object->set_credite(); if ($res >= 0) { header("Location: card.php?id=".$id); exit; } } if ($action == 'infotrans' && $user->rights->prelevement->bons->send) { require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php'; $dt = dol_mktime(12, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int')); /* if ($_FILES['userfile']['name'] && basename($_FILES['userfile']['name'],".ps") == $object->ref) { $dir = $conf->prelevement->dir_output.'/receipts'; if (dol_move_uploaded_file($_FILES['userfile']['tmp_name'], $dir . "/" . dol_unescapefile($_FILES['userfile']['name']),1) > 0) { $object->set_infotrans($user, $dt, GETPOST('methode','alpha')); } header("Location: card.php?id=".$id); exit; } else { dol_syslog("Fichier invalide",LOG_WARNING); $mesg='BadFile'; }*/ $error = $object->set_infotrans($user, $dt, GETPOST('methode', 'alpha')); if ($error) { header("Location: card.php?id=".$id."&error=$error"); exit; } } // Set direct debit order to credited, create payment and close invoices if ($action == 'infocredit' && $user->rights->prelevement->bons->credit) { $dt = dol_mktime(12, 0, 0, GETPOST('remonth', 'int'), GETPOST('reday', 'int'), GETPOST('reyear', 'int')); $error = $object->set_infocredit($user, $dt); if ($error) { header("Location: card.php?id=".$id."&error=$error"); exit; } } } /* * View */ $form = new Form($db); llxHeader('', $langs->trans("WithdrawalsReceipts")); if ($id > 0 || $ref) { $head = prelevement_prepare_head($object); dol_fiche_head($head, 'prelevement', $langs->trans("WithdrawalsReceipts"), -1, 'payment'); if (GETPOST('error', 'alpha')!='') { print '<div class="error">'.$object->getErrorString(GETPOST('error', 'alpha')).'</div>'; } /*if ($action == 'credite') { print $form->formconfirm("card.php?id=".$object->id,$langs->trans("ClassCredited"),$langs->trans("ClassCreditedConfirm"),"confirm_credite",'',1,1); }*/ $linkback = '<a href="'.DOL_URL_ROOT.'/compta/prelevement/bons.php">'.$langs->trans("BackToList").'</a>'; dol_banner_tab($object, 'ref', $linkback, 1, 'ref', 'ref'); print '<div class="fichecenter">'; print '<div class="underbanner clearboth"></div>'; print '<table class="border" width="100%">'; //print '<tr><td class="titlefield">'.$langs->trans("Ref").'</td><td>'.$object->getNomUrl(1).'</td></tr>'; print '<tr><td class="titlefield">'.$langs->trans("Date").'</td><td>'.dol_print_date($object->datec, 'day').'</td></tr>'; print '<tr><td>'.$langs->trans("Amount").'</td><td>'.price($object->amount).'</td></tr>'; // Status /* print '<tr><td>'.$langs->trans('Status').'</td>'; print '<td>'.$object->getLibStatut(1).'</td>'; print '</tr>'; */ if($object->date_trans <> 0) { $muser = new User($db); $muser->fetch($object->user_trans); print '<tr><td>'.$langs->trans("TransData").'</td><td>'; print dol_print_date($object->date_trans, 'day'); print ' '.$langs->trans("By").' '.$muser->getFullName($langs).'</td></tr>'; print '<tr><td>'.$langs->trans("TransMetod").'</td><td>'; print $object->methodes_trans[$object->method_trans]; print '</td></tr>'; } if($object->date_credit <> 0) { print '<tr><td>'.$langs->trans('CreditDate').'</td><td>'; print dol_print_date($object->date_credit, 'day'); print '</td></tr>'; } print '</table>'; print '<br>'; print '<div class="underbanner clearboth"></div>'; print '<table class="border" width="100%">'; $acc = new Account($db); $result=$acc->fetch($conf->global->PRELEVEMENT_ID_BANKACCOUNT); print '<tr><td class="titlefield">'; print $langs->trans("BankToReceiveWithdraw"); print '</td>'; print '<td>'; if ($acc->id > 0) print $acc->getNomUrl(1); print '</td>'; print '</tr>'; print '<tr><td class="titlefield">'; print $langs->trans("WithdrawalFile").'</td><td>'; $relativepath = 'receipts/'.$object->ref.'.xml'; print '<a data-ajax="false" href="'.DOL_URL_ROOT.'/document.php?type=text/plain&modulepart=prelevement&file='.urlencode($relativepath).'">'.$relativepath.'</a>'; print '</td></tr></table>'; print '</div>'; dol_fiche_end(); $formconfirm = ''; // Confirmation to delete if ($action == 'delete') { $formconfirm = $form->formconfirm($_SERVER["PHP_SELF"] . '?id=' . $object->id, $langs->trans('Delete'), $langs->trans('ConfirmDeleteObject'), 'confirm_delete', '', 0, 1); } // Call Hook formConfirm /*$parameters = array(); $reshook = $hookmanager->executeHooks('formConfirm', $parameters, $object, $action); // Note that $action and $object may have been modified by hook if (empty($reshook)) $formconfirm.=$hookmanager->resPrint; elseif ($reshook > 0) $formconfirm=$hookmanager->resPrint;*/ // Print form confirm print $formconfirm; if (empty($object->date_trans) && $user->rights->prelevement->bons->send && $action=='settransmitted') { print '<form method="post" name="userfile" action="card.php?id='.$object->id.'" enctype="multipart/form-data">'; print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">'; print '<input type="hidden" name="action" value="infotrans">'; print '<table class="noborder" width="100%">'; print '<tr class="liste_titre">'; print '<td colspan="3">'.$langs->trans("NotifyTransmision").'</td></tr>'; print '<tr class="oddeven"><td>'.$langs->trans("TransData").'</td><td>'; print $form->selectDate('', '', '', '', '', "userfile", 1, 1); print '</td></tr>'; print '<tr class="oddeven"><td>'.$langs->trans("TransMetod").'</td><td>'; print $form->selectarray("methode", $object->methodes_trans); print '</td></tr>'; /* print '<tr><td width="20%">'.$langs->trans("File").'</td><td>'; print '<input type="hidden" name="max_file_size" value="'.$conf->maxfilesize.'">'; print '<input class="flat" type="file" name="userfile"><br>'; print '</td></tr>';*/ print '</table><br>'; print '<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans("SetToStatusSent")).'"></div>'; print '</form>'; print '<br>'; } if (! empty($object->date_trans) && $object->date_credit == 0 && $user->rights->prelevement->bons->credit && $action=='setcredited') { print '<form name="infocredit" method="post" action="card.php?id='.$object->id.'">'; print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">'; print '<input type="hidden" name="action" value="infocredit">'; print '<table class="noborder" width="100%">'; print '<tr class="liste_titre">'; print '<td colspan="3">'.$langs->trans("NotifyCredit").'</td></tr>'; print '<tr class="oddeven"><td>'.$langs->trans('CreditDate').'</td><td>'; print $form->selectDate('', '', '', '', '', "infocredit", 1, 1); print '</td></tr>'; print '</table>'; print '<br>'.$langs->trans("ThisWillAlsoAddPaymentOnInvoice"); print '<div class="center"><input type="submit" class="button" value="'.dol_escape_htmltag($langs->trans("ClassCredited")).'"></div>'; print '</form>'; print '<br>'; } // Actions if ($action != 'settransmitted' && $action != 'setcredited') { print "\n<div class=\"tabsAction\">\n"; if (empty($object->date_trans) && $user->rights->prelevement->bons->send) { print "<a class=\"butAction\" href=\"card.php?action=settransmitted&id=".$object->id."\">".$langs->trans("SetToStatusSent")."</a>"; } if (! empty($object->date_trans) && $object->date_credit == 0) { print "<a class=\"butAction\" href=\"card.php?action=setcredited&id=".$object->id."\">".$langs->trans("ClassCredited")."</a>"; } print "<a class=\"butActionDelete\" href=\"card.php?action=delete&id=".$object->id."\">".$langs->trans("Delete")."</a>"; print "</div>"; } $ligne=new LignePrelevement($db, $user); /* * Lines into withdraw request */ $sql = "SELECT pl.rowid, pl.statut, pl.amount,"; $sql.= " s.rowid as socid, s.nom as name"; $sql.= " FROM ".MAIN_DB_PREFIX."prelevement_lignes as pl"; $sql.= ", ".MAIN_DB_PREFIX."prelevement_bons as pb"; $sql.= ", ".MAIN_DB_PREFIX."societe as s"; $sql.= " WHERE pl.fk_prelevement_bons = ".$id; $sql.= " AND pl.fk_prelevement_bons = pb.rowid"; $sql.= " AND pb.entity = ".$conf->entity; $sql.= " AND pl.fk_soc = s.rowid"; if ($socid) $sql.= " AND s.rowid = ".$socid; $sql.= $db->order($sortfield, $sortorder); // Count total nb of records $nbtotalofrecords = ''; if (empty($conf->global->MAIN_DISABLE_FULL_SCANLIST)) { $result = $db->query($sql); $nbtotalofrecords = $db->num_rows($result); if (($page * $limit) > $nbtotalofrecords) // if total resultset is smaller then paging size (filtering), goto and load page 0 { $page = 0; $offset = 0; } } $sql.= $db->plimit($limit+1, $offset); $result = $db->query($sql); if ($result) { $num = $db->num_rows($result); $i = 0; $urladd = "&id=".$id; print_barre_liste($langs->trans("Lines"), $page, $_SERVER["PHP_SELF"], $urladd, $sortfield, $sortorder, '', $num, $nbtotalofrecords, ''); print '<div class="div-table-responsive-no-min">'; // You can use div-table-responsive-no-min if you dont need reserved height for your table print '<table class="noborder" width="100%" cellspacing="0" cellpadding="4">'; print '<tr class="liste_titre">'; print_liste_field_titre("Lines", $_SERVER["PHP_SELF"], "pl.rowid", '', $urladd); print_liste_field_titre("ThirdParty", $_SERVER["PHP_SELF"], "s.nom", '', $urladd); print_liste_field_titre("Amount", $_SERVER["PHP_SELF"], "pl.amount", "", $urladd, 'class="right"'); print_liste_field_titre(''); print "</tr>\n"; $total = 0; while ($i < min($num, $conf->liste_limit)) { $obj = $db->fetch_object($result); print '<tr class="oddeven">'; // Status of line print "<td>"; print $ligne->LibStatut($obj->statut, 2); print " "; print '<a href="'.DOL_URL_ROOT.'/compta/prelevement/ligne.php?id='.$obj->rowid.'">'; print sprintf("%06s", $obj->rowid); print '</a></td>'; $thirdparty=new Societe($db); $thirdparty->fetch($obj->socid); print '<td>'; print $thirdparty->getNomUrl(1); print "</td>\n"; print '<td class="right">'.price($obj->amount)."</td>\n"; print '<td>'; if ($obj->statut == 3) { print '<b>'.$langs->trans("StatusRefused").'</b>'; } else { print " "; } print '</td></tr>'; $total += $obj->amount; $i++; } if ($num > 0) { print '<tr class="liste_total">'; print '<td>'.$langs->trans("Total").'</td>'; print '<td> </td>'; print '<td class="right">'; if (empty($offset) && $num <= $limit) // If we have all record on same page, then the following test/warning can be done { if ($total != $object->amount) print img_warning("TotalAmountOfdirectDebitOrderDiffersFromSumOfLines"); } print price($total); print "</td>\n"; print '<td> </td>'; print "</tr>\n"; } print "</table>"; print '</div>'; $db->free($result); } else { dol_print_error($db); } } // End of page llxFooter(); $db->close();