* Copyright (C) 2004-2005 Laurent Destailleur * * 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/index.php \brief Page accueil par defaut \version $Revision$ */ require("./pre.inc.php"); $user->getrights(''); // Simule le menu par défaut sur Home if (! isset($_GET["mainmenu"])) $_GET["mainmenu"]="home"; llxHeader(); print_fiche_titre($langs->trans("HomeArea")); if (defined("MAIN_MOTD") && strlen(trim(MAIN_MOTD))) { print '

'; print nl2br(MAIN_MOTD); print '

'; } // Affiche warning répertoire install existe (si utilisateur admin) if ($user->admin && ! defined("MAIN_REMOVE_INSTALL_WARNING")) { if (is_dir(DOL_DOCUMENT_ROOT."/install")) { $langs->load("other"); print '

'; print '

'.$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install").' '; print $langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install").'

'; print '

'; print "
\n"; } } print ''; print '

'; /* * Informations */ print ''; print ''; print ''; $userstring=$user->fullname; print ''; print ''; print ''; print ''; print '

'.$langs->trans("Informations").'
'.$langs->trans("User").'	'.$userstring.'
'.$langs->trans("LastAccess").'	'; if ($user->datelastaccess) print dolibarr_print_date($user->datelastaccess,"%d %b %Y %H:%M:%S"); else print $langs->trans("Unknown"); print '

'; /* * Bookmark */ /* print '
'; $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 ''; print "\n"; $var = True; while ($i < $num) { $obj = $db->fetch_object($resql); $var = !$var; print ""; print ''; print ''; print ''; $i++; } print '

".$langs->trans("MyBookmarks")."
'.$obj->nom.'	'.img_delete().'

'; } $db->free($resql); } else { dolibarr_print_error($db); } */ /* * Dolibarr State Board */ print '
'; print ''; print ''; print ''; print ''; print ''; $var=true; // Nbre de sociétés clients/prospects if ($conf->societe->enabled) { include_once("./client.class.php"); $board=new Client($db); $board->load_state_board(); foreach($board->nb as $key=>$val) { $var=!$var; print ''; print ''; print ''; print ''; } } // Nbre de sociétés fournisseurs if ($conf->fournisseur->enabled) { include_once("./fourn/fournisseur.class.php"); $board=new Fournisseur($db); $board->load_state_board(); foreach($board->nb as $key=>$val) { $var=!$var; print ''; print ''; print ''; print ''; } } // Nbre d'adhérents if ($conf->adherent->enabled) { include_once("./adherents/adherent.class.php"); $board=new Adherent($db); $board->load_state_board(); foreach($board->nb as $key=>$val) { $var=!$var; print ''; print ''; print ''; print ''; } } // Nbre de produits if ($conf->produit->enabled) { //include_once("./product.class.php"); $board=new Product($db); $board->load_state_board(); foreach($board->nb as $key=>$val) { $var=!$var; print ''; print ''; print ''; print ''; } } // Nbre de services if ($conf->service->enabled) { include_once("./service.class.php"); $board=new Service($db); $board->load_state_board(); foreach($board->nb as $key=>$val) { $var=!$var; print ''; print ''; print ''; print ''; } } print '

'.$langs->trans("DolibarrStateBoard").'
'.img_object($langs->trans("Customers"),"company").'	'; if ($key == "customers") print $langs->trans("Customers"); if ($key == "prospects") print $langs->trans("Prospects"); print '	'; if ($key == "customers") print ''; if ($key == "prospects") print ''; print $val; print '
'.img_object($langs->trans("Suppliers"),"company").'	'; if ($key == "suppliers") print $langs->trans("Suppliers"); print '	'; if ($key == "suppliers") print ''; print $val; print '
'.img_object($langs->trans("Adherent"),"user").'	'; if ($key == "members") print $langs->trans("Adherents"); print '	'; if ($key == "members") print ''; print $val; print '
'.img_object($langs->trans("Products"),"product").'	'; if ($key == "products") print $langs->trans("Products"); print '	'; if ($key == "products") print ''; print $val; print '
'.img_object($langs->trans("Services"),"service").'	'; if ($key == "services") print $langs->trans("Services"); print '	'; if ($key == "services") print ''; print $val; print '

'; print '

'; /* * Dolibarr Work Board */ print ''; print ''; print ''; print ''; print ''; print ''; print ''; print ''; $var=true; // Nbre actions à faire (en retard) if ($conf->commercial->enabled || $conf->compta->enabled) { include_once("./actioncomm.class.php"); $board=new ActionComm($db); $board->load_board(); $board->warning_delay=$conf->actions->warning_delay/60/60/24; $board->label=$langs->trans("ActionsToDo"); $var=!$var; print ''; print ''; print ''; print ''; print ''; } // Nbre commandes clients à honorer if ($conf->commande->enabled && $user->rights->commande->lire) { include_once(DOL_DOCUMENT_ROOT."/commande/commande.class.php"); $board=new Commande($db); $board->load_board(); $var=!$var; print ''; print ''; print ''; print ''; print ''; } // Nbre propales ouvertes (expiré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 ''; print ''; print ''; print ''; print ''; } // Nbre propales fermées signées (à 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 ''; print ''; print ''; print ''; print ''; } // Nbre services à 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 ''; print ''; print ''; print ''; print ''; } // Nbre services actifs (à 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 ''; print ''; print ''; print ''; print ''; } // Nbre factures fournisseurs (à payer) if ($conf->fournisseur->enabled && $conf->facture->enabled && $user->rights->facture->lire) { $langs->load("bills"); include_once("./fourn/fournisseur.facture.class.php"); $board=new FactureFournisseur($db); $board->load_board(); $var=!$var; print ''; print ''; print ''; print ''; print ''; } // Nbre factures clients (à payer) if ($conf->facture->enabled && $user->rights->facture->lire) { include_once("./facture.class.php"); $board=new Facture($db); $board->load_board(); $var=!$var; print ''; print ''; print ''; print ''; print ''; } // Nbre ecritures à rapprocher if ($conf->banque->enabled && $user->rights->banque->lire) { $langs->load("banks"); include_once(DOL_DOCUMENT_ROOT."/compta/bank/account.class.php"); $board=new Account($db); $board->load_board(); $var=!$var; print ''; print ''; print ''; print ''; print ''; } // Nbre adhérent valides (attente cotisation) if ($conf->adherent->enabled && $user->rights->adherent->lire) { $langs->load("members"); include_once("./adherents/adherent.class.php"); $board=new Adherent($db); $board->load_board(); $var=!$var; print ''; print ''; print ''; print ''; print ''; } print '

'.$langs->trans("DolibarrWorkBoard").'		'.$langs->trans("Number").'	'.$langs->trans("Late").'
'.img_object($langs->trans("Actions"),"task").'	'.$board->label.'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($board->warning_delay).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Orders"),"order").'	'.$langs->trans("OrdersToProcess").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->commande->traitement->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Propals"),"propal").'	'.$langs->trans("PropalsToClose").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->propal->cloture->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Propals"),"propal").'	'.$langs->trans("PropalsToBill").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->propal->facturation->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Contract"),"contract").'	'.$langs->trans("BoardNotActivatedServices").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->contrat->services->inactifs->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Contract"),"contract").'	'.$langs->trans("BoardRunningServices").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->contrat->services->expires->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Bills"),"bill").'	'.$langs->trans("SupplierBillsToPay").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->facture->fournisseur->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Bills"),"bill").'	'.$langs->trans("CustomerBillsUnpayed").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->facture->client->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("TransactionsToConciliate"),"payment").'	'.$langs->trans("TransactionsToConciliate").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->bank->rappro->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '
'.img_object($langs->trans("Members"),"user").'	'.$langs->trans("Members").'	'.$board->nbtodo.'	'; print ''; print $board->nbtodolate; print '	'; print ' (>'.ceil($conf->adherent->cotisation->warning_delay/60/60/24).' '.$langs->trans("days").')'; print '	'; if ($board->nbtodolate > 0) print img_picto($langs->trans("Late"),"warning"); else print ' '; print '

'; print '

'; /* * Affichage des boites * */ include_once("./boxes.php"); $infobox=new InfoBox($db); $boxes=$infobox->listboxes("0"); // 0 = valeur pour la page accueil $NBCOLS=2; // Nombre de colonnes pour les boites if (sizeof($boxes)) { print '
'; print_fiche_titre($langs->trans("OtherInformationsBoxes")); print ''; } for ($ii=0, $ni=sizeof($boxes); $ii<$ni; $ii++) { if ($ii % $NBCOLS == 0) print "\n"; print '"; if ($ii % $NBCOLS == ($NBCOLS-1)) print "\n"; } if (sizeof($boxes)) { if ($ii % $NBCOLS == ($NBCOLS-1)) print "\n"; print "

'; // Affichage boite ii include_once(DOL_DOCUMENT_ROOT."/includes/boxes/".$boxes[$ii].".php"); $box=new $boxes[$ii](); $box->loadBox(); $box->showBox(); print "

"; } $db->close(); llxFooter('$Date$ - $Revision$'); ?>