[Sommaire] [Imprimer]

   1  <?php
   2  /* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
   3   * Copyright (C) 2003      Jean-Louis Bergamo   <jlb@j1b.org>
   4   * Copyright (C) 2004-2005 Laurent Destailleur  <eldy@users.sourceforge.net>
   5   *
   6   * This program is free software; you can redistribute it and/or modify
   7   * it under the terms of the GNU General Public License as published by
   8   * the Free Software Foundation; either version 2 of the License, or
   9   * (at your option) any later version.
  10   *
  11   * This program is distributed in the hope that it will be useful,
  12   * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14   * GNU General Public License for more details.
  15   *
  16   * You should have received a copy of the GNU General Public License
  17   * along with this program; if not, write to the Free Software
  18   * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  19   *
  20   * $Id: pre.inc.php,v 1.19 2005/08/21 18:51:08 rodolphe Exp $
  21   * $Source: /cvsroot/dolibarr/dolibarr/htdocs/compta/bank/pre.inc.php,v $
  22   *
  23   */
  24  
  25  /**
  26     \file       htdocs/compta/bank/pre.inc.php
  27     \ingroup    compta
  28     \brief      Fichier gestionnaire du menu compta banque
  29  */
  30  
  31  require_once ("../../main.inc.php");
  32  require_once (DOL_DOCUMENT_ROOT."/compta/bank/account.class.php");
  33  
  34  $langs->load("banks");
  35  
  36  $user->getrights('banque');
  37  
  38  function llxHeader($head = "")
  39  {
  40    global $db, $user, $conf, $langs;
  41    
  42    top_menu($head);
  43    
  44    $menu = new Menu();
  45    if ($user->rights->banque->lire)
  46      {
  47        $sql = "SELECT rowid, label, courant";
  48        $sql.= " FROM ".MAIN_DB_PREFIX."bank_account";
  49        $sql.= " WHERE clos = 0";
  50        $sql.= " AND courant in (1,2)";
  51        $resql = $db->query($sql);
  52        if ($resql)
  53      {
  54        $numr = $db->num_rows($resql);
  55        $i = 0;
  56        
  57        while ($i < $numr)
  58          {
  59            $objp = $db->fetch_object($resql);
  60            $menu->add(DOL_URL_ROOT."/compta/bank/account.php?account=" . $objp->rowid,  $objp->label);
  61            if ($objp->courant != 2) $menu->add_submenu(DOL_URL_ROOT."/compta/bank/releve.php?account=" . $objp->rowid ,$langs->trans("AccountStatements"));
  62            $menu->add_submenu(DOL_URL_ROOT."/compta/bank/annuel.php?account=" . $objp->rowid ,$langs->trans("IOMonthlyReporting"));
  63            $i++;
  64          }
  65      }
  66        $db->free($resql);
  67      }
  68    $menu->add(DOL_URL_ROOT."/compta/bank/index.php",$langs->trans("Bank"));
  69    
  70    $menu->add_submenu(DOL_URL_ROOT."/compta/bank/search.php",$langs->trans("SearchTransaction"));
  71    $menu->add_submenu(DOL_URL_ROOT."/compta/bank/budget.php",$langs->trans("ByCategories"));
  72    $menu->add_submenu(DOL_URL_ROOT."/compta/bank/bilan.php","Bilan");
  73    
  74    if ($user->rights->banque->modifier)
  75      {
  76        $menu->add_submenu(DOL_URL_ROOT."/compta/bank/virement.php",$langs->trans("Virements"));
  77      }
  78    
  79    if ($user->rights->banque->configurer)
  80      {
  81        $menu->add_submenu(DOL_URL_ROOT."/compta/bank/config.php",$langs->trans("Setup"));
  82      }
  83    
  84    if (defined("COMPTA_ONLINE_PAYMENT_BPLC") && COMPTA_ONLINE_PAYMENT_BPLC)
  85      {
  86        $menu->add(DOL_URL_ROOT."/compta/bank/bplc.php","Transactions BPLC");
  87      }
  88    
  89    left_menu($menu->liste);  
  90  }
  91  ?>