/[dolibarr]/dolibarr/htdocs/compta/bank/pre.inc.php
ViewVC logotype

Diff of /dolibarr/htdocs/compta/bank/pre.inc.php

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by eldy, Thu Aug 11 23:45:35 2005 UTC revision 1.19 by rodolphe, Sun Aug 21 18:51:08 2005 UTC
# Line 1  Line 1 
1  <?php  <?php
2  /* Copyright (C) 2001-2003 Rodolphe Quiedeville <rodolphe@quiedeville.org>  /* Copyright (C) 2001-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
3   * Copyright (C) 2003      Jean-Louis Bergamo   <jlb@j1b.org>   * Copyright (C) 2003      Jean-Louis Bergamo   <jlb@j1b.org>
4   * Copyright (C) 2004-2005 Laurent Destailleur  <eldy@users.sourceforge.net>   * Copyright (C) 2004-2005 Laurent Destailleur  <eldy@users.sourceforge.net>
5   *   *
# Line 23  Line 23 
23   */   */
24    
25  /**  /**
26          \file           htdocs/compta/bank/pre.inc.php     \file        htdocs/compta/bank/pre.inc.php
27          \ingroup    compta     \ingroup    compta
28          \brief          Fichier gestionnaire du menu compta banque     \brief       Fichier gestionnaire du menu compta banque
29  */  */
30    
31  require_once("../../main.inc.php");  require_once("../../main.inc.php");
32  require_once(DOL_DOCUMENT_ROOT."/compta/bank/account.class.php");  require_once(DOL_DOCUMENT_ROOT."/compta/bank/account.class.php");
33    
   
34  $langs->load("banks");  $langs->load("banks");
35    
36  $user->getrights('banque');  $user->getrights('banque');
37    
   
38  function llxHeader($head = "")  function llxHeader($head = "")
39  {  {
40      global $db, $user, $conf, $langs;    global $db, $user, $conf, $langs;
41      
42      top_menu($head);    top_menu($head);
43      
44      $menu = new Menu();    $menu = new Menu();
45      if ($user->rights->banque->lire)
     $sql = "SELECT rowid, label, courant";  
     $sql.= " FROM ".MAIN_DB_PREFIX."bank_account";  
     $sql.= " WHERE clos = 0";  
     $sql.= " AND courant in (1,2)";  
     $resql = $db->query($sql);  
     if ($resql)  
46      {      {
47          $numr = $db->num_rows($resql);        $sql = "SELECT rowid, label, courant";
48          $i = 0;        $sql.= " FROM ".MAIN_DB_PREFIX."bank_account";
49          $sql.= " WHERE clos = 0";
50          while ($i < $numr)        $sql.= " AND courant in (1,2)";
51          {        $resql = $db->query($sql);
52              $objp = $db->fetch_object($resql);        if ($resql)
53              $menu->add(DOL_URL_ROOT."/compta/bank/account.php?account=" . $objp->rowid,  $objp->label);          {
54              if ($objp->courant != 2) $menu->add_submenu(DOL_URL_ROOT."/compta/bank/releve.php?account=" . $objp->rowid ,$langs->trans("AccountStatements"));            $numr = $db->num_rows($resql);
55              $menu->add_submenu(DOL_URL_ROOT."/compta/bank/annuel.php?account=" . $objp->rowid ,$langs->trans("IOMonthlyReporting"));            $i = 0;
56              $i++;            
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      $db->free($resql);    $menu->add(DOL_URL_ROOT."/compta/bank/index.php",$langs->trans("Bank"));
69      
70      $menu->add(DOL_URL_ROOT."/compta/bank/index.php",$langs->trans("Bank"));    $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/search.php",$langs->trans("SearchTransaction"));    $menu->add_submenu(DOL_URL_ROOT."/compta/bank/bilan.php","Bilan");
73      $menu->add_submenu(DOL_URL_ROOT."/compta/bank/budget.php",$langs->trans("ByCategories"));    
74      $menu->add_submenu(DOL_URL_ROOT."/compta/bank/bilan.php","Bilan");    if ($user->rights->banque->modifier)
   
     if ($user->rights->banque->modifier)  
75      {      {
76          $menu->add_submenu(DOL_URL_ROOT."/compta/bank/virement.php",$langs->trans("Virements"));        $menu->add_submenu(DOL_URL_ROOT."/compta/bank/virement.php",$langs->trans("Virements"));
77      }      }
78      
79      if ($user->rights->banque->configurer)    if ($user->rights->banque->configurer)
80      {      {
81          $menu->add_submenu(DOL_URL_ROOT."/compta/bank/config.php",$langs->trans("Setup"));        $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)    if (defined("COMPTA_ONLINE_PAYMENT_BPLC") && COMPTA_ONLINE_PAYMENT_BPLC)
85      {      {
86          $menu->add(DOL_URL_ROOT."/compta/bank/bplc.php","Transactions BPLC");        $menu->add(DOL_URL_ROOT."/compta/bank/bplc.php","Transactions BPLC");
87      }      }
88      
89      left_menu($menu->liste);    left_menu($menu->liste);  
   
90  }  }
   
   
91  ?>  ?>

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26