New: Ajout du tableau de bord Dolibarr. Un r�sum� de tous les indicateurs m�tiers (nbre de factures, contrats, etc...)

htdocs/index.php

@@ -23,9 +23,9 @@
 
 
 /**
-    \file       htdocs/index.php
-    \brief      Page accueil par defaut
-    \version    $Revision$
+        \file       htdocs/index.php
+        \brief      Page accueil par defaut
+        \version    $Revision$
 */
 
 require("./pre.inc.php");
@@ -40,16 +40,19 @@ if (! isset($_GET["mainmenu"])) $_GET["mainmenu"]="home";
 llxHeader();
 
 
-$userstring=$user->prenom . ' ' . $user->nom .' ('.$user->login.')';
-print_fiche_titre($langs->trans("WelcomeString",dolibarr_print_date(mktime(),"%A %d %B %Y"),$userstring), '<a href="about.php">'.$langs->trans("About").'</a>');
+
+print_fiche_titre($langs->trans("HomeArea"));
+
 
 if (defined("MAIN_MOTD") && strlen(trim(MAIN_MOTD)))
 {
-  print '<br>'.nl2br(MAIN_MOTD).'<br>';
+    print '<table width="100%" class="notopnoleftnoright"><tr><td>';
+    print nl2br(MAIN_MOTD);
+    print '</td></tr></table><br>';
 }
 
 // Affiche warning r<>pertoire install existe (si utilisateur admin)
-if ($user->admin)
+if ($user->admin && ! defined("MAIN_REMOVE_INSTALL_WARNING"))
 {
     if (is_dir(DOL_DOCUMENT_ROOT."/install")) 
     {
@@ -58,9 +61,282 @@ if ($user->admin)
         print '<div class="warning">'.$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install").' ';
         print $langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install").'</div>';   
         print '</td></tr></table>';
+        print "<br>\n";
     }
 }
-print "<br>\n";
+
+print '<table width="100%" class="notopnoleftnoright">';
+
+print '<tr><td valign="top" class="notopnoleft">';
+
+
+/*
+ * Informations
+ */
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre"><td colspan="2">'.$langs->trans("Informations").'</td></tr>';
+print '<tr '.$bc[false].'>';
+$userstring=$user->fullname;
+print '<td nowrap>'.$langs->trans("User").'</td><td>'.$userstring.'</td></tr>';
+print '<tr '.$bc[true].'>';
+print '<td nowrap>'.$langs->trans("LastAccess").'</td><td>';
+if ($user->datelastaccess) print dolibarr_print_date($user->datelastaccess,"%d %b %Y %H:%M:%S");
+else print $langs->trans("Unknown");
+print '</td>';
+print '</tr>';
+print '</table>';
+
+/*
+ * Bookmark
+ */
+/*
+print '<br>';
+
+$sql = "SELECT s.idp, s.nom,b.rowid as bid";
+$sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."bookmark as b";
+$sql .= " WHERE b.fk_soc = s.idp AND b.fk_user = ".$user->id;
+$sql .= " ORDER BY lower(s.nom) ASC";
+
+$resql = $db->query($sql);
+
+if ( $resql )
+{
+  $num = $db->num_rows($resql);
+  $i = 0;
+  if ($num)
+    {
+      print '<table class="noborder" width="100%">';
+      print "<tr class=\"liste_titre\"><td colspan=\"2\">".$langs->trans("MyBookmarks")."</td></tr>\n";
+      $var = True;
+      while ($i < $num)
+	{
+	  $obj = $db->fetch_object($resql);
+	  $var = !$var;
+	  print "<tr $bc[$var]>";
+	  print '<td><a href="fiche.php?socid='.$obj->idp.'">'.$obj->nom.'</a></td>';
+	  print '<td align="right"><a href="index.php?action=del_bookmark&amp;bid='.$obj->bid.'">'.img_delete().'</a></td>';
+	  print '</tr>';
+	  $i++;
+	}
+      print '</table>';
+    }
+  $db->free($resql);
+}
+else
+{
+  dolibarr_print_error($db);
+}
+*/
+
+print '</td><td width="65%" valign="top" class="notopnoleftnoright">';
+
+
+/*
+ * Dolibarr Board
+ */
+print '<table class="noborder" width="100%">';
+print '<tr class="liste_titre">';
+print '<td colspan="2">'.$langs->trans("DolibarrBoard").'</td>';
+print '<td align="right">'.$langs->trans("Number").'</td>';
+print '<td align="right">'.$langs->trans("Late").'</td>';
+print '<td>&nbsp;</td>';
+print '<td width="20">&nbsp;</td>';
+print '</tr>';
+
+$var=true;
+
+// Nbre actions <20> faire (en retard)
+if ($conf->commercial->enabled || $conf->compta->enabled)
+{
+    include_once("./actioncomm.class.php");
+    $board=new ActionComm($db);
+    $board->load_board();
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Actions"),"task").'</td><td>'.$langs->trans("ActionsToDo").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/comm/action/index.php?status=todo">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/comm/action/index.php?status=todo">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->actions->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre commandes clients <20> honorer
+if ($conf->commande->enabled && $user->rights->commande->lire)
+{
+    include_once("./commande/commande.class.php");
+    $board=new Commande($db);
+    $board->load_board();
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Orders"),"order").'</td><td>'.$langs->trans("OrdersToProcess").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/commande/liste.php">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/commande/liste.php">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->commande->traitement->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre propales ouvertes (expir<69>es)
+if ($conf->propal->enabled && $user->rights->propale->lire)
+{
+    include_once("./propal.class.php");
+    $board=new Propal($db);
+    $board->load_board("opened");
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Propals"),"propal").'</td><td>'.$langs->trans("PropalsToClose").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/comm/propal.php?viewstatut=1">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/comm/propal.php?viewstatut=1">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->propal->cloture->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre propales ferm<72>es sign<67>es (<28> facturer)
+if ($conf->propal->enabled && $user->rights->propale->lire)
+{
+    include_once("./propal.class.php");
+    $board=new Propal($db);
+    $board->load_board("signed");
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Propals"),"propal").'</td><td>'.$langs->trans("PropalsToBill").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/comm/propal.php?viewstatut=2">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/comm/propal.php?viewstatut=2">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->propal->facturation->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre factures fournisseurs (<28> payer)
+if ($conf->fournisseur->enabled && $conf->facture->enabled && $user->rights->facture->lire)
+{
+    include_once("./fourn/fournisseur.facture.class.php");
+    $board=new FactureFournisseur($db);
+    $board->load_board();
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Bills"),"bill").'</td><td>'.$langs->trans("SupplierBillsToPay").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/fourn/facture/index.php?filtre=paye:0">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/fourn/facture/index.php?filtre=paye:0">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->facture->fournisseur->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre factures clients (<28> payer)
+if ($conf->facture->enabled && $user->rights->facture->lire)
+{
+    include_once("./facture.class.php");
+    $board=new Facture($db);
+    $board->load_board();
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Bills"),"bill").'</td><td>'.$langs->trans("CustomerBillsUnpayed").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/compta/facture/impayees.php">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/compta/facture/impayees.php">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->facture->client->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre services <20> activer (en retard)
+if ($conf->contrat->enabled && $user->rights->contrat->lire)
+{
+    $langs->load("contracts");
+    
+    include_once("./contrat/contrat.class.php");
+    $board=new Contrat($db);
+    $board->load_board("inactives");
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Contract"),"contract").'</td><td>'.$langs->trans("BoardNotActivatedServices").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/contrat/services.php?mainmenu=commercial&leftmenu=contracts&mode=0">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/contrat/services.php?mainmenu=commercial&leftmenu=contracts&mode=0">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->contrat->services->inactifs->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+// Nbre services actifs (<28> renouveler)
+if ($conf->contrat->enabled && $user->rights->contrat->lire)
+{
+    $langs->load("contracts");
+
+    include_once("./contrat/contrat.class.php");
+    $board=new Contrat($db);
+    $board->load_board("expired");
+
+    $var=!$var;
+    print '<tr '.$bc[$var].'><td width="16">'.img_object($langs->trans("Contract"),"contract").'</td><td>'.$langs->trans("BoardRunningServices").'</td>';
+    print '<td align="right"><a href="'.DOL_URL_ROOT.'/contrat/services.php?mainmenu=commercial&leftmenu=contracts&mode=4">'.$board->nbtodo.'</a></td>';
+    print '<td align="right">';
+    print '<a href="'.DOL_URL_ROOT.'/contrat/services.php?mainmenu=commercial&leftmenu=contracts&mode=4">';
+    print $board->nbtodolate;
+    print '</a></td><td nowrap align="right">';
+    print ' (>'.ceil($conf->contrat->services->expires->warning_delay/60/60/24).' '.$langs->trans("days").')';
+    print '</td>';
+    print '<td>';
+    if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning");
+    else print '&nbsp;';
+    print '</td>';
+    print '</tr>';
+}
+
+print '</table>';
+
+
+print '</td></tr></table>'; 
 
 
 /*
@@ -72,7 +348,13 @@ $infobox=new InfoBox($db);
 $boxes=$infobox->listboxes("0");       // 0 = valeur pour la page accueil
 
 $NBCOLS=2;      // Nombre de colonnes pour les boites
-print '<table width="100%">';
+
+if (sizeof($boxes))
+{
+    print '<br>';
+    print_fiche_titre($langs->trans("OtherInformationsBoxes"));
+    print '<table width="100%" class="notopnoleftnoright">';
+}
 for ($ii=0, $ni=sizeof($boxes); $ii<$ni; $ii++)
 {
   if ($ii % $NBCOLS == 0) print "<tr>\n";
@@ -87,8 +369,11 @@ for ($ii=0, $ni=sizeof($boxes); $ii<$ni; $ii++)
   print "</td>";
   if ($ii % $NBCOLS == ($NBCOLS-1)) print "</tr>\n";
 }
-if ($ii % $NBCOLS == ($NBCOLS-1)) print "</tr>\n";
-print "</table>";
+if (sizeof($boxes))
+{
+    if ($ii % $NBCOLS == ($NBCOLS-1)) print "</tr>\n";
+    print "</table>";
+}
 
 
 $db->close();