forked from Wavyzz/dolibarr
8d206fdfb0
upgrade were not yet received. So we prepare for GPL by uniformizing licence text keys to GPL-3+. Will move later to AGPL if all answers are positive.
450 lines
15 KiB
PHP
450 lines
15 KiB
PHP
<?php
|
||
/* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
||
* Copyright (C) 2004-2010 Laurent Destailleur <eldy@users.sourceforge.net>
|
||
* Copyright (C) 2010 Juanjo Menent <jmenent@2byte.es>
|
||
*
|
||
* 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/bank/rappro.php
|
||
* \ingroup banque
|
||
* \brief Page to reconciliate bank transactions
|
||
*/
|
||
|
||
require 'pre.inc.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/core/lib/bank.lib.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/societe/class/societe.class.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/adherents/class/adherent.class.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/compta/sociales/class/chargesociales.class.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/compta/paiement/class/paiement.class.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/compta/tva/class/tva.class.php';
|
||
require_once DOL_DOCUMENT_ROOT.'/fourn/class/paiementfourn.class.php';
|
||
|
||
$langs->load("banks");
|
||
$langs->load("bills");
|
||
|
||
if (! $user->rights->banque->consolidate) accessforbidden();
|
||
|
||
$action=GETPOST('action', 'alpha');
|
||
$id=GETPOST('account', 'int');
|
||
|
||
/*
|
||
* Actions
|
||
*/
|
||
|
||
// Conciliation
|
||
if ($action == 'rappro' && $user->rights->banque->consolidate)
|
||
{
|
||
// Definition, nettoyage parametres
|
||
$num_releve=trim($_POST["num_releve"]);
|
||
|
||
if ($num_releve)
|
||
{
|
||
$bankline=new AccountLine($db);
|
||
|
||
if (isset($_POST["rowid"]) && is_array($_POST["rowid"]))
|
||
{
|
||
foreach($_POST["rowid"] as $row)
|
||
{
|
||
if($row > 0)
|
||
{
|
||
$result=$bankline->fetch($row);
|
||
$bankline->num_releve=$num_releve; //$_POST["num_releve"];
|
||
$result=$bankline->update_conciliation($user,$_POST["cat"]);
|
||
if ($result < 0) $mesg.=$bankline->error;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
else
|
||
{
|
||
$langs->load("errors");
|
||
$mesg='<div class="error">'.$langs->trans("ErrorPleaseTypeBankTransactionReportName").'</div>';
|
||
}
|
||
}
|
||
|
||
/*
|
||
* Action suppression ecriture
|
||
*/
|
||
if ($action == 'del')
|
||
{
|
||
$accline=new AccountLine($db);
|
||
$accline->fetch($_GET["rowid"]);
|
||
$result=$accline->delete();
|
||
if ($result < 0)
|
||
{
|
||
dol_print_error($db,$accline->error);
|
||
}
|
||
}
|
||
|
||
|
||
// Load bank groups
|
||
$sql = "SELECT rowid, label FROM ".MAIN_DB_PREFIX."bank_categ ORDER BY label";
|
||
$resql = $db->query($sql);
|
||
$options="";
|
||
if ($resql)
|
||
{
|
||
$var=True;
|
||
$num = $db->num_rows($resql);
|
||
if ($num > 0) $options .= '<option value="0"'.(GETPOST('cat')?'':' selected="true"').'> </option>';
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$obj = $db->fetch_object($resql);
|
||
$options .= '<option value="'.$obj->rowid.'"'.(GETPOST('cat')==$obj->rowid?' selected="true"':'').'>'.$obj->label.'</option>'."\n";
|
||
$i++;
|
||
}
|
||
$db->free($resql);
|
||
//print $options;
|
||
}
|
||
else dol_print_error($db);
|
||
|
||
|
||
/*
|
||
* View
|
||
*/
|
||
|
||
$form=new Form($db);
|
||
|
||
llxHeader();
|
||
|
||
$societestatic=new Societe($db);
|
||
$chargestatic=new ChargeSociales($db);
|
||
$memberstatic=new Adherent($db);
|
||
$paymentstatic=new Paiement($db);
|
||
$paymentsupplierstatic=new PaiementFourn($db);
|
||
$paymentvatstatic=new TVA($db);
|
||
|
||
$acct = new Account($db);
|
||
$acct->fetch($id);
|
||
|
||
$now=dol_now();
|
||
|
||
$sql = "SELECT b.rowid, b.dateo as do, b.datev as dv, b.amount, b.label, b.rappro, b.num_releve, b.num_chq, b.fk_type as type";
|
||
$sql.= " FROM ".MAIN_DB_PREFIX."bank as b";
|
||
$sql.= " WHERE rappro=0 AND fk_account=".$acct->id;
|
||
$sql.= " ORDER BY dateo ASC";
|
||
$sql.= " LIMIT 1000"; // Limit to avoid page overload
|
||
|
||
/// ajax adjust value date
|
||
print '
|
||
<script type="text/javascript">
|
||
$(function() {
|
||
$("a.ajax").each(function(){
|
||
var current = $(this);
|
||
current.click(function()
|
||
{
|
||
$.get("'.DOL_URL_ROOT.'/core/ajax/bankconciliate.php?"+current.attr("href").split("?")[1], function(data)
|
||
{
|
||
current.parent().prev().replaceWith(data);
|
||
});
|
||
return false;
|
||
});
|
||
});
|
||
});
|
||
</script>
|
||
|
||
';
|
||
|
||
$resql = $db->query($sql);
|
||
if ($resql)
|
||
{
|
||
$var=True;
|
||
$num = $db->num_rows($resql);
|
||
|
||
print_fiche_titre($langs->trans("Reconciliation").': <a href="account.php?account='.$acct->id.'">'.$acct->label.'</a>');
|
||
print '<br>';
|
||
|
||
dol_htmloutput_mesg($mesg);
|
||
|
||
// Show last bank receipts
|
||
$nbmax=5;
|
||
$liste="";
|
||
$sql = "SELECT DISTINCT num_releve FROM ".MAIN_DB_PREFIX."bank";
|
||
$sql.= " WHERE fk_account=".$acct->id." AND num_releve IS NOT NULL";
|
||
$sql.= $db->order("num_releve","DESC");
|
||
$sql.= $db->plimit($nbmax+1);
|
||
print $langs->trans("LastAccountStatements").' : ';
|
||
$resqlr=$db->query($sql);
|
||
if ($resqlr)
|
||
{
|
||
$numr=$db->num_rows($resqlr);
|
||
$i=0;
|
||
while (($i < $numr) && ($i < $nbmax))
|
||
{
|
||
$objr = $db->fetch_object($resqlr);
|
||
$last_releve = $objr->num_releve;
|
||
$i++;
|
||
$liste='<a href="'.DOL_URL_ROOT.'/compta/bank/releve.php?account='.$acct->id.'&num='.$objr->num_releve.'">'.$objr->num_releve.'</a> '.$liste;
|
||
}
|
||
if ($numr >= $nbmax) $liste="... ".$liste;
|
||
print $liste;
|
||
if ($numr > 0) print '<br><br>';
|
||
else print '<b>'.$langs->trans("None").'</b><br><br>';
|
||
}
|
||
else
|
||
{
|
||
dol_print_error($db);
|
||
}
|
||
|
||
|
||
print '<form method="post" action="rappro.php?account='.$acct->id.'">';
|
||
print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
|
||
print "<input type=\"hidden\" name=\"action\" value=\"rappro\">";
|
||
print "<input type=\"hidden\" name=\"account\" value=\"".$acct->id."\">";
|
||
|
||
print $langs->trans("InputReceiptNumber").': ';
|
||
print '<input class="flat" name="num_releve" type="text" value="'.(GETPOST('num_releve')?GETPOST('num_releve'):$objp->num_releve).'" size="10">';
|
||
print '<br>';
|
||
if ($options)
|
||
{
|
||
print $langs->trans("EventualyAddCategory").': <select class="flat" name="cat">'.$options.'</select><br>';
|
||
}
|
||
print $langs->trans("ThenCheckLinesAndConciliate").' ';
|
||
print "<input class=\"button\" type=\"submit\" value=\"".$langs->trans("Conciliate")."\"><br>";
|
||
|
||
print '<br>';
|
||
|
||
print '<table class="liste" width="100%">';
|
||
print '<tr class="liste_titre">'."\n";
|
||
print '<td align="center">'.$langs->trans("DateOperationShort").'</td>';
|
||
print '<td align="center">'.$langs->trans("DateValueShort").'</td>';
|
||
print '<td>'.$langs->trans("Type").'</td>';
|
||
print '<td>'.$langs->trans("Description").'</td>';
|
||
print '<td align="right" width="60" nowrap="nowrap">'.$langs->trans("Debit").'</td>';
|
||
print '<td align="right" width="60" nowrap="nowrap">'.$langs->trans("Credit").'</td>';
|
||
print '<td align="center" width="80">'.$langs->trans("Action").'</td>';
|
||
print '<td align="center" width="60" nowrap="nowrap">'.$langs->trans("ToConciliate").'</td>';
|
||
print "</tr>\n";
|
||
|
||
|
||
|
||
$i = 0;
|
||
while ($i < $num)
|
||
{
|
||
$objp = $db->fetch_object($resql);
|
||
|
||
$var=!$var;
|
||
print "<tr ".$bc[$var].">";
|
||
// print '<form method="post" action="rappro.php?account='.$_GET["account"].'">';
|
||
// print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
|
||
|
||
// print "<input type=\"hidden\" name=\"rowid\" value=\"".$objp->rowid."\">";
|
||
|
||
// Date op
|
||
print '<td align="center" nowrap="nowrap">'.dol_print_date($db->jdate($objp->do),"day").'</td>';
|
||
|
||
// Date value
|
||
if (! $objp->rappro && ($user->rights->banque->modifier || $user->rights->banque->consolidate))
|
||
{
|
||
print '<td align="center" nowrap="nowrap">';
|
||
print '<span id="datevalue_'.$objp->rowid.'">'.dol_print_date($db->jdate($objp->dv),"day")."</span>";
|
||
print ' <span> ';
|
||
print '<a class="ajax" href="'.$_SERVER['PHP_SELF'].'?action=dvprev&account='.$acct->id.'&rowid='.$objp->rowid.'">';
|
||
print img_edit_remove() . "</a> ";
|
||
print '<a class="ajax" href="'.$_SERVER['PHP_SELF'].'?action=dvnext&account='.$acct->id.'&rowid='.$objp->rowid.'">';
|
||
print img_edit_add() ."</a></span>";
|
||
print '</td>';
|
||
}
|
||
else
|
||
{
|
||
print '<td align="center">';
|
||
print dol_print_date($db->jdate($objp->dv),"day");
|
||
print '</td>';
|
||
}
|
||
|
||
// Number
|
||
$label=($langs->trans("PaymentType".$objp->type)!="PaymentType".$objp->type)?$langs->trans("PaymentType".$objp->type):$objp->type; // $objp->type is a code
|
||
if ($label=='SOLD') $label='';
|
||
print '<td nowrap="nowrap">'.$label.($objp->num_chq?' '.$objp->num_chq:'').'</td>';
|
||
|
||
// Description
|
||
print '<td valign="center"><a href="'.DOL_URL_ROOT.'/compta/bank/ligne.php?rowid='.$objp->rowid.'&account='.$acct->id.'">';
|
||
$reg=array();
|
||
preg_match('/\((.+)\)/i',$objp->label,$reg); // Si texte entoure de parentheses on tente recherche de traduction
|
||
if ($reg[1] && $langs->trans($reg[1])!=$reg[1]) print $langs->trans($reg[1]);
|
||
else print $objp->label;
|
||
print '</a>';
|
||
|
||
/*
|
||
* Ajout les liens (societe, company...)
|
||
*/
|
||
$newline=1;
|
||
$links = $acct->get_url($objp->rowid);
|
||
foreach($links as $key=>$val)
|
||
{
|
||
if ($newline == 0) print ' - ';
|
||
else if ($newline == 1) print '<br>';
|
||
if ($links[$key]['type']=='payment') {
|
||
$paymentstatic->id=$links[$key]['url_id'];
|
||
print ' '.$paymentstatic->getNomUrl(2);
|
||
$newline=0;
|
||
}
|
||
elseif ($links[$key]['type']=='payment_supplier') {
|
||
$paymentsupplierstatic->id=$links[$key]['url_id'];
|
||
$paymentsupplierstatic->ref=$links[$key]['label'];
|
||
print ' '.$paymentsupplierstatic->getNomUrl(1);
|
||
$newline=0;
|
||
}
|
||
elseif ($links[$key]['type']=='company') {
|
||
$societestatic->id=$links[$key]['url_id'];
|
||
$societestatic->name=$links[$key]['label'];
|
||
print $societestatic->getNomUrl(1,'',24);
|
||
$newline=0;
|
||
}
|
||
else if ($links[$key]['type']=='sc') {
|
||
$chargestatic->id=$links[$key]['url_id'];
|
||
$chargestatic->ref=$links[$key]['url_id'];
|
||
$chargestatic->lib=$langs->trans("SocialContribution");
|
||
print ' '.$chargestatic->getNomUrl(1);
|
||
}
|
||
else if ($links[$key]['type']=='payment_sc')
|
||
{
|
||
// We don't show anything because there is 1 payment for 1 social contribution and we already show link to social contribution
|
||
/*print '<a href="'.DOL_URL_ROOT.'/compta/payment_sc/fiche.php?id='.$links[$key]['url_id'].'">';
|
||
print img_object($langs->trans('ShowPayment'),'payment').' ';
|
||
print $langs->trans("SocialContributionPayment");
|
||
print '</a>';*/
|
||
$newline=2;
|
||
}
|
||
else if ($links[$key]['type']=='payment_vat')
|
||
{
|
||
$paymentvatstatic->id=$links[$key]['url_id'];
|
||
$paymentvatstatic->ref=$links[$key]['url_id'];
|
||
$paymentvatstatic->ref=$langs->trans("VATPayment");
|
||
print ' '.$paymentvatstatic->getNomUrl(1);
|
||
}
|
||
else if ($links[$key]['type']=='banktransfert') {
|
||
print '<a href="'.DOL_URL_ROOT.'/compta/bank/ligne.php?rowid='.$links[$key]['url_id'].'">';
|
||
print img_object($langs->trans('ShowTransaction'),'payment').' ';
|
||
print $langs->trans("TransactionOnTheOtherAccount");
|
||
print '</a>';
|
||
}
|
||
else if ($links[$key]['type']=='member') {
|
||
print '<a href="'.DOL_URL_ROOT.'/adherents/fiche.php?rowid='.$links[$key]['url_id'].'">';
|
||
print img_object($langs->trans('ShowMember'),'user').' ';
|
||
print $links[$key]['label'];
|
||
print '</a>';
|
||
}
|
||
else {
|
||
//print ' - ';
|
||
print '<a href="'.$links[$key]['url'].$links[$key]['url_id'].'">';
|
||
if (preg_match('/^\((.*)\)$/i',$links[$key]['label'],$reg))
|
||
{
|
||
// Label generique car entre parentheses. On l'affiche en le traduisant
|
||
if ($reg[1]=='paiement') $reg[1]='Payment';
|
||
print $langs->trans($reg[1]);
|
||
}
|
||
else
|
||
{
|
||
print $links[$key]['label'];
|
||
}
|
||
print '</a>';
|
||
$newline=0;
|
||
}
|
||
}
|
||
print '</td>';
|
||
|
||
if ($objp->amount < 0)
|
||
{
|
||
print "<td align=\"right\" nowrap>".price($objp->amount * -1)."</td><td> </td>\n";
|
||
}
|
||
else
|
||
{
|
||
print "<td> </td><td align=\"right\" nowrap>".price($objp->amount)."</td>\n";
|
||
}
|
||
|
||
if ($objp->rappro)
|
||
{
|
||
// If line already reconciliated, we show receipt
|
||
print "<td align=\"center\" nowrap=\"nowrap\"><a href=\"releve.php?num=$objp->num_releve&account=$acct->id\">$objp->num_releve</a></td>";
|
||
}
|
||
else
|
||
{
|
||
// If not already reconciliated
|
||
if ($user->rights->banque->modifier)
|
||
{
|
||
print '<td align="center" width="30" nowrap="nowrap">';
|
||
|
||
print '<a href="'.DOL_URL_ROOT.'/compta/bank/ligne.php?rowid='.$objp->rowid.'&account='.$acct->id.'&orig_account='.$acct->id.'">';
|
||
print img_edit();
|
||
print '</a> ';
|
||
|
||
$now=dol_now();
|
||
if ($db->jdate($objp->do) <= $now) {
|
||
print '<a href="'.DOL_URL_ROOT.'/compta/bank/rappro.php?action=del&rowid='.$objp->rowid.'&account='.$acct->id.'">';
|
||
print img_delete();
|
||
print '</a>';
|
||
}
|
||
else {
|
||
print " "; // On n'empeche la suppression car le raprochement ne pourra se faire qu'apr<70>s la date pass<73>e et que l'<27>criture apparaisse bien sur le compte.
|
||
}
|
||
print "</td>";
|
||
}
|
||
else
|
||
{
|
||
print "<td align=\"center\"> </td>";
|
||
}
|
||
}
|
||
|
||
|
||
// Affiche zone saisie releve + bouton "Rapprocher"
|
||
if ($db->jdate($objp->do) <= $now)
|
||
{
|
||
|
||
print '<td align="center" nowrap="nowrap">';
|
||
print '<input class="flat" name="rowid[]" type="checkbox" value="'.$objp->rowid.'" size="1">';
|
||
// print '<input class="flat" name="num_releve" type="text" value="'.$objp->num_releve.'" size="8">';
|
||
// print ' ';
|
||
// print "<input class=\"button\" type=\"submit\" value=\"".$langs->trans("Conciliate")."\">";
|
||
// if ($options)
|
||
// {
|
||
// print "<br><select class=\"flat\" name=\"cat\">$options";
|
||
// print "</select>";
|
||
// }
|
||
print "</td>";
|
||
}
|
||
else
|
||
{
|
||
print '<td align="left">';
|
||
print $langs->trans("FutureTransaction");
|
||
print '</td>';
|
||
}
|
||
|
||
print "</tr>\n";
|
||
|
||
$i++;
|
||
}
|
||
$db->free($resql);
|
||
|
||
|
||
print "</form>\n";
|
||
|
||
if ($num != 0)
|
||
{
|
||
print "</table><br>\n";
|
||
}
|
||
}
|
||
else
|
||
{
|
||
dol_print_error($db);
|
||
}
|
||
|
||
|
||
llxFooter();
|
||
|
||
$db->close();
|
||
?>
|