* Copyright (C) 2003 Jean-Louis Bergamo * Copyright (C) 2004-2007 Laurent Destailleur * Copytight (C) 2004 Christophe Combelles * Copytight (C) 2005-2007 Regis Houssin * * 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 2 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, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ */ /** \file htdocs/compta/bank/account.php \ingroup banque \brief Page de détail des transactions bancaires \version $Revision$ */ require("./pre.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/bank.lib.php"); require_once(DOL_DOCUMENT_ROOT."/societe.class.php"); require_once(DOL_DOCUMENT_ROOT."/adherents/adherent.class.php"); require_once(DOL_DOCUMENT_ROOT."/chargesociales.class.php"); if (!$user->rights->banque->lire) accessforbidden(); $langs->load("bills"); $account=isset($_GET["account"])?$_GET["account"]:$_POST["account"]; $vline=isset($_GET["vline"])?$_GET["vline"]:$_POST["vline"]; $action=isset($_GET["action"])?$_GET["action"]:$_POST["action"]; $page=isset($_GET["page"])?$_GET["page"]:0; $mesg=''; /* * Action */ if ($_POST["action"] == 'add' && $account && ! isset($_POST["cancel"]) && $user->rights->banque->modifier) { if ($_POST["credit"] > 0) { $amount = price2num($_POST["credit"]); } else { $amount = - price2num($_POST["debit"]); } $dateop = dolibarr_mktime(12,0,0,$_POST["opmonth"],$_POST["opday"],$_POST["opyear"]); $operation=$_POST["operation"]; $num_chq=$_POST["num_chq"]; $label=$_POST["label"]; $cat1=$_POST["cat1"]; if (! $dateop) $mesg=$langs->trans("ErrorFieldRequired",$langs->trans("Date")); if (! $operation) $mesg=$langs->trans("ErrorFieldRequired",$langs->trans("Type")); if (! $amount) $mesg=$langs->trans("ErrorFieldRequired",$langs->trans("Amount")); if (! $mesg) { $acct=new Account($db,$account); $insertid = $acct->addline($dateop, $operation, $label, $amount, $num_chq, $cat1, $user); if ($insertid > 0) { Header("Location: account.php?account=" . $account); exit; } else { dolibarr_print_error($db,$acct->error); } } else { $_GET["action"]='addline'; } } if ($_POST["action"] == 'confirm_delete' && $_POST["confirm"]=='yes' && $user->rights->banque->modifier) { $acct=new Account($db); $acct->id=$account; $result=$acct->deleteline($_GET["rowid"]); } /* * Affichage page */ llxHeader(); $societestatic=new Societe($db); $chargestatic=new ChargeSociales($db); $memberstatic=new Adherent($db); $html = new Form($db); if ($account > 0) { if ($vline) { $viewline = $vline; } else { $viewline = 20; } $acct = new Account($db); $result=$acct->fetch($account); // Chargement des categories bancaires dans $options $nbcategories=0; $sql = "SELECT rowid, label"; $sql.= " FROM ".MAIN_DB_PREFIX."bank_categ"; $sql.= " ORDER BY label"; $result = $db->query($sql); if ($result) { $var=True; $num = $db->num_rows($result); $i = 0; $options = ""; while ($i < $num) { $obj = $db->fetch_object($result); $options .= "\n"; $nbcategories++; $i++; } $db->free($result); } /* * * */ // Definition de sql_rech $sql_rech=""; $mode_search = 0; if ($_POST["req_desc"]) { $sql_rech .= " AND b.label like '%".strtolower($_POST["req_desc"])."%'"; $mode_search = 1; } if ($_POST["req_debit"]) { $sql_rech.=" AND amount = -".$_POST["req_debit"]; $mode_search = 1; } if ($_POST["req_credit"]) { $sql_rech.=" AND amount = ".$_POST["req_credit"]; $mode_search = 1; } if ($_POST["thirdparty"]) { $sql_rech.=" AND (IFNULL(s.nom,'bidon') like '%".$_POST["thirdparty"]."%')"; $mode_search = 1; } $sql = "SELECT count(*) as nb FROM ".MAIN_DB_PREFIX."bank as b"; if ($mode_search) { $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu ON bu.fk_bank = b.rowid AND bu.type='company'"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON bu.url_id = s.idp"; } $sql.= " WHERE b.fk_account=".$acct->id; $sql.= $sql_rech; dolibarr_syslog("account.php count transactions - sql=".$sql); $result=$db->query($sql); if ($result) { $obj = $db->fetch_object($result); $nbline = $obj->nb; $total_lines = $nbline; if ($nbline > $viewline ) { $limit = $nbline - $viewline ; } else { $limit = $viewline; } $db->free($result); } else { dolibarr_print_error($db); } if ($page > 0 && $mode_search == 0) { $limitsql = $nbline - ($page * $viewline); if ($limitsql < $viewline) { $limitsql = $viewline; } $nbline = $limitsql; } else { $page = 0; $limitsql = $nbline; } // Onglets $head=bank_prepare_head($acct); dolibarr_fiche_head($head,'journal',$langs->trans("FinancialAccount"),0); if ($mesg) print '

'.$mesg.'

'; /** * Bandeau recherche */ $navig=''; $nbpage=floor($total_lines/$viewline)+($total_lines % $viewline > 0?1:0); // Nombre de page total if ($limitsql > $viewline) { $navig.=''.img_previous().''; } $navig.= ' Page '.($nbpage-$page).'/'.$nbpage.' '; if ($total_lines > $limitsql ) { $navig.= ''.img_next().''; } if (! $_GET["action"]=='addline' && ! $_GET["action"]=='delete') { $titre=$langs->trans("FinancialAccount")." : ".$acct->label; print_fiche_titre($titre,$navig); } if ($_GET["action"]=='delete') { $text=$langs->trans('ConfirmDeleteTransaction'); $html->form_confirm($_SERVER['PHP_SELF'].'?account='.$acct->id.'&rowid='.$_GET["rowid"],$langs->trans('DeleteTransaction'),$text,'confirm_delete'); print '
'; } print ''; // Formulaire de saisie d'une opération hors factures if ($user->rights->banque->modifier && $_GET["action"]=='addline') { print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ""; print "\n"; } /* * Affiche tableau des transactions bancaires * */ // Ligne de titre tableau des ecritures print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; print "\n"; /* Another solution * create temporary table solde type=heap select amount from llx_bank limit 100 ; * select sum(amount) from solde ; */ $sql = "SELECT b.rowid,".$db->pdate("b.dateo")." as do,".$db->pdate("b.datev")." as dv, b.amount, b.label, b.rappro, b.num_releve, b.num_chq, b.fk_type"; if ($mode_search) { $sql.= " ,s.idp as socid, s.nom as thirdparty"; } if ($mode_search && $conf->adherent->enabled) { } if ($mode_search && $conf->tax->enabled) { } $sql.= " FROM ".MAIN_DB_PREFIX."bank as b"; if ($mode_search) { $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu ON bu.fk_bank = b.rowid AND bu.type='company'"; $sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON bu.url_id = s.idp"; } if ($mode_search && $conf->adherent->enabled) { // \TODO Mettre jointure sur adherent //$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu ON bu.fk_bank = b.rowid AND bu.type='company'"; //$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON bu.url_id = s.idp"; } if ($mode_search && $conf->tax->enabled) { // \TODO Mettre jointure sur charges sociales //$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."bank_url as bu ON bu.fk_bank = b.rowid AND bu.type='company'"; //$sql.= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s ON bu.url_id = s.idp"; } $sql.= " WHERE fk_account=".$acct->id; $sql.= $sql_rech; $sql.= " ORDER BY b.datev ASC"; $sql.= $db->plimit($limitsql, 0); dolibarr_syslog("account.php get transactions - sql=".$sql); $result = $db->query($sql); if ($result) { $total = 0; $time = time(); $var=true; $num = $db->num_rows($result); $i = 0; $total = 0; $sep = 0; while ($i < $num) { $objp = $db->fetch_object($result); $total = $total + $objp->amount; if ($i >= ($nbline - $viewline)) { $var=!$var; if ($objp->do > $time && !$sep) { $sep = 1 ; print ""; print ""; print ""; print ''; } print ""; print "\n"; print "\n"; print "\n"; print ''; /* * Ajout les liens tiers */ print ''; if ($objp->amount < 0) { print "\n"; } else { print "\n"; } if ($action != 'search') { if ($total >= 0) { print ''; } else { print ''; } } else { print ''; } // Relevé rappro ou lien edition if ($objp->rappro && $acct->type != 2) // Si non compte cash { print ""; } else { if ($user->rights->banque->modifier) { print ''; } else { print ""; } } print ""; } $i++; } // Affichage total if ($page == 0 && $action != 'search') { print ''; print ''; print ''; print ''; } $db->free($result); } else { dolibarr_print_error($db); } print "

'.$langs->trans("AddBankRecordLong").'

'.$langs->trans("Date").'

'.$langs->trans("Type").'

'.$langs->trans("Description").'

'.$langs->trans("Debit").'

'.$langs->trans("Credit").'

'; $html->select_date(-1,'op',0,0,0,'transaction'); print '

'; $html->select_types_paiements('','operation','1,2',1,1); print '

'; print ''; if ($nbcategories) { print '
'.$langs->trans("Category").': '; } print '

'; print '
'; print ''; print '

'.$langs->trans("Date").'

'.$langs->trans("Value").'

'.$langs->trans("Type").'

'.$langs->trans("Description").'

'.$langs->trans("ThirdParty").'

'.$langs->trans("Debit").'

'.$langs->trans("Credit").'

'.$langs->trans("BankBalance").'

'; if ($acct->type != 2 && $acct->rappro) print $langs->trans("AccountStatementShort"); else print ' '; print '

".price($total - $objp->amount)."

".dolibarr_print_date($objp->do,"%d/%m/%y")."

".dolibarr_print_date($objp->dv,"%d/%m/%y")."

".$objp->fk_type." ".($objp->num_chq?$objp->num_chq:"")."

'; if (eregi('^$(.*)$$',$objp->label,$reg)) { // Label générique car entre parenthèses. On l'affiche en le traduisant print $langs->trans($reg[1]); } else { print $objp->label; } print ''; /* * Ajout les liens autres que tiers */ $links = $acct->get_url($objp->rowid); foreach($links as $key=>$val) { if ($links[$key]['type']=='payment') { print ' - '; print ''; if (eregi('^$(.*)$$',$links[$key]['label'],$reg)) { // Label générique car entre parenthèses. On l'affiche en le traduisant if ($reg[1]=='paiement') $reg[1]='Payment'; print $langs->trans($reg[1]); } else { print $links[$key]['label']; } print ''; } else if ($links[$key]['type']=='payment_supplier') { print ' - '; print ''; if (eregi('^$(.*)$$',$links[$key]['label'],$reg)) { // Label générique car entre parenthèses. On l'affiche en le traduisant if ($reg[1]=='paiement') $reg[1]='Payment'; print $langs->trans($reg[1]); } else { print $links[$key]['label']; } print ''; } else if ($links[$key]['type']=='company') { } else if ($links[$key]['type']=='sc') { } else if ($links[$key]['type']=='payment_sc') { print ' - '; print ''; //print img_object($langs->trans('ShowPayment'),'payment').' '; print $langs->trans("SocialContributionPayment"); print ''; } else if ($links[$key]['type']=='member') { } else { print ' - '; print ''; if (eregi('^$(.*)$$',$links[$key]['label'],$reg)) { // Label générique car entre parenthèses. On l'affiche en le traduisant if ($reg[1]=='paiement') $reg[1]='Payment'; print $langs->trans($reg[1]); } else { print $links[$key]['label']; } print ''; } } print '

'; foreach($links as $key=>$val) { if ($links[$key]['type']=='company') { $societestatic->id=$links[$key]['url_id']; $societestatic->nom=$links[$key]['label']; print $societestatic->getNomUrl(0,'',16); } else if ($links[$key]['type']=='sc') { $chargestatic->id=$links[$key]['url_id']; $chargestatic->nom=$links[$key]['label']; print $chargestatic->getNomUrl(0,'',16); } else if ($links[$key]['type']=='member') { $memberstatic->id=$links[$key]['url_id']; $memberstatic->ref=$links[$key]['label']; print $memberstatic->getNomUrl(0,'',16); } } print '

".price($objp->amount * -1)."

".price($objp->amount)."

'.price($total).'

"; print "num_releve&account=$acct->id\">$objp->num_releve"; print "

'; print ''; print img_edit(); print ' '; print ''; print img_delete(); print '

'.$langs->trans("CurrentBalance").'

'.price($total).'

"; print "\n\n"; /* * Boutons actions */ if ($_GET["action"] != 'addline' && $_GET["action"] != 'delete') { print '

'; if ($user->rights->banque->modifier && $acct->type != 2 && $acct->rappro) // Si non compte cash et rapprochable { print ''.$langs->trans("Conciliate").''; } if ($user->rights->banque->modifier) { print ''.$langs->trans("AddBankRecord").''; } print '

'; } print '
'; } else { print $langs->trans("ErrorBankAccountNotFound"); } $db->close(); llxFooter('$Date$ - $Revision$'); ?>