Add box "last contracts"

htdocs/admin/boxes.php

@@ -1,6 +1,7 @@
 <?php
 /* Copyright (C) 2003-2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
- * Copyright (C) 2004-2008 Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2004-2010 Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2005-2010 Regis Houssin        <regis@dolibarr.fr>
  *
  * 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
@@ -32,7 +33,7 @@ $langs->load("admin");
 if (!$user->admin)
   accessforbidden();
 
-// D<EFBFBD>finition des positions possibles pour les boites
+// Definition des positions possibles pour les boites
 $pos_array = array(0);                             // Positions possibles pour une boite (0,1,2,...)
 $pos_name = array(0=>$langs->trans("Home"));       // Nom des positions 0=Homepage, 1=...
 $boxes = array();
@@ -129,7 +130,6 @@ if ($_GET["action"] == 'switch')
 	{
 		$db->rollback();
 	}
-
 }
 
 
@@ -170,7 +170,7 @@ if ($resql)
 		array_push($actives,$obj->box_id);
 
 		if ($obj->box_order == '' || $obj->box_order == '0' || $decalage) $decalage++;
-		// On renum<EFBFBD>rote l'ordre des boites si l'une d'elle est <20> ''
+		// On renumerote l'ordre des boites si l'une d'elle est a ''
 		// This occurs just after an insert.
 		if ($decalage)
 		{
@@ -303,7 +303,7 @@ if ($resql)
 print '</table>';
 
 /*
- * Boites activ<EFBFBD>es
+ * Boites activees
  *
  */
 

htdocs/includes/boxes/box_contracts.php

@@ -0,0 +1,150 @@
+<?php
+/* Copyright (C) 2010 Regis Houssin  <regis@dolibarr.fr>
+ *
+ * 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.
+ */
+
+/**
+ * 		\file       htdocs/includes/boxes/box_contracts.php
+ * 		\ingroup    contracts
+ * 		\brief      Module de generation de l'affichage de la box contracts
+ * 		\version	$Id$
+ */
+
+include_once(DOL_DOCUMENT_ROOT."/includes/boxes/modules_boxes.php");
+
+
+class box_contracts extends ModeleBoxes {
+
+    var $boxcode="lastcontracts";
+    var $boximg="object_contract";
+    var $boxlabel;
+    var $depends = array("contrat");	// conf->propal->enabled
+
+    var $db;
+    var $param;
+
+    var $info_box_head = array();
+    var $info_box_contents = array();
+
+
+    /**
+     *      \brief      Constructeur de la classe
+     */
+    function box_contracts()
+    {
+    	global $langs;
+    	
+    	$langs->load("contracts");
+    	
+    	$this->boxlabel=$langs->trans("BoxLastContracts");
+    }
+
+    /**
+     *      \brief      Charge les donnees en memoire pour affichage ulterieur
+     *      \param      $max        Nombre maximum d'enregistrements a charger
+     */
+    function loadBox($max=5)
+    {
+    	global $user, $langs, $db, $conf;
+
+    	$this->max=$max;
+
+    	include_once(DOL_DOCUMENT_ROOT."/contrat/contrat.class.php");
+    	$contractstatic=new Contrat($db);
+    	
+    	$this->info_box_head = array('text' => $langs->trans("BoxTitleLastContracts",$max));
+    	
+    	if ($user->rights->contrat->lire)
+    	{
+    		$sql = "SELECT s.nom, s.rowid as socid,";
+    		$sql.= " c.rowid, c.ref, c.statut as fk_statut, c.date_contrat, c.datec, c.fin_validite, c.date_cloture";
+    		$sql.= " FROM ".MAIN_DB_PREFIX."societe as s";
+    		$sql.= ", ".MAIN_DB_PREFIX."contrat as c";
+    		if (!$user->rights->societe->client->voir && !$user->societe_id) $sql.= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc";
+    		$sql.= " WHERE c.fk_soc = s.rowid";
+    		$sql.= " AND c.entity = ".$conf->entity;
+    		if (!$user->rights->societe->client->voir && !$user->societe_id) $sql.= " AND s.rowid = sc.fk_soc AND sc.fk_user = " .$user->id;
+    		if($user->societe_id) $sql.= " AND s.rowid = ".$user->societe_id;
+    		$sql.= " ORDER BY c.date_contrat DESC, c.ref DESC ";
+    		$sql.= $db->plimit($max, 0);
+    		
+    		$result = $db->query($sql);
+    		
+    		if ($result)
+    		{
+    			$num = $db->num_rows($result);
+    			$now=gmmktime();
+    			
+    			$i = 0;
+    			
+    			while ($i < $num)
+    			{
+    				$objp = $db->fetch_object($result);
+    				$datec=$db->jdate($objp->datec);
+    				$dateterm=$db->jdate($objp->fin_validite);
+    				$dateclose=$db->jdate($objp->date_cloture);
+    				
+    				$late = '';
+    				if ($objp->fk_statut == 1 && $dateterm < ($now - $conf->contrat->cloture->warning_delay)) { $late = img_warning($langs->trans("Late")); }
+    				
+    				$this->info_box_contents[$i][0] = array('td' => 'align="left" width="16"',
+    				'logo' => $this->boximg,
+    				'url' => DOL_URL_ROOT."/contrat/fiche.php?id=".$objp->rowid);
+    				
+    				$this->info_box_contents[$i][1] = array('td' => 'align="left"',
+    				'text' => $objp->ref,
+    				'text2'=> $late,
+    				'url' => DOL_URL_ROOT."/contrat/fiche.php?id=".$objp->rowid);
+    				
+    				$this->info_box_contents[$i][2] = array('td' => 'align="left" width="16"',
+    				'logo' => 'company',
+    				'url' => DOL_URL_ROOT."/comm/fiche.php?socid=".$objp->socid);
+    				
+    				$this->info_box_contents[$i][3] = array('td' => 'align="left"',
+    				'text' => dol_trunc($objp->nom,40),
+    				'url' => DOL_URL_ROOT."/comm/fiche.php?socid=".$objp->socid);
+    				
+    				$this->info_box_contents[$i][4] = array('td' => 'align="right"',
+    				'text' => dol_print_date($datec,'day'));
+    				
+    				$this->info_box_contents[$i][5] = array('td' => 'align="right" width="18"',
+    				'text' => $contractstatic->LibStatut($objp->fk_statut,3));
+    				
+    				$i++;
+    			}
+    			
+    			if ($num==0) $this->info_box_contents[$i][0] = array('td' => 'align="center"','text'=>$langs->trans("NoRecordedContracts"));
+    		}
+    		else
+    		{
+    			dol_print_error($db);
+    		}
+    	}
+    	else
+    	{
+    		$this->info_box_contents[0][0] = array('td' => 'align="left"',
+    		'text' => $langs->trans("ReadPermissionNotAllowed"));
+    	}
+    }
+
+    function showBox()
+    {
+        parent::showBox($this->info_box_head, $this->info_box_contents);
+    }
+
+}
+
+?>

htdocs/includes/modules/modContrat.class.php

@@ -1,6 +1,7 @@
 <?php
 /* Copyright (C) 2005      Rodolphe Quiedeville <rodolphe@quiedeville.org>
  * Copyright (C) 2004-2008 Laurent Destailleur  <eldy@users.sourceforge.net>
+ * Copyright (C) 2005-2010 Regis Houssin        <regis@dolibarr.fr>
  *
  * 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
@@ -71,8 +72,9 @@ class modContrat extends DolibarrModules
 		// Constantes
 		$this->const = array();
 
-		// Boites
+		// Boxes
 		$this->boxes = array();
+		$this->boxes[0][1] = "box_contracts.php";
 
 		// Permissions
 		$this->rights = array();

htdocs/langs/en_US/boxes.lang

@@ -14,6 +14,7 @@ BoxLastCustomerOrders=Last customer orders
 BoxLastSuppliers=Last suppliers
 BoxLastBooks=Last books
 BoxLastActions=Last actions
+BoxLastContracts=Last contracts
 BoxCurrentAccounts=Current accounts balance
 BoxSalesTurnover=Sales turnover
 BoxTotalUnpaidCustomerBills=Total unpaid customer's invoices
@@ -43,6 +44,7 @@ LastRefreshDate=Last refresh date
 NoRecordedBookmarks=No bookmarks defined. Click <a href="%s">here</a> to add bookmarks.
 NoRecordedCustomers=No recorded customers
 BoxTitleLastActionsToDo=Last %s actions to do
+BoxTitleLastContracts=Last %s contracts
 NoActionsToDo=No actions to do
 NoRecordedOrders=No recorded customer's orders
 NoRecordedProposals=No recorded proposals

htdocs/langs/fr_FR/boxes.lang

@@ -14,6 +14,7 @@ BoxLastCustomerOrders=Dernières commandes
 BoxLastSuppliers=Derniers fournisseurs
 BoxLastBooks=Derniers livres
 BoxLastActions=Dernières actions
+BoxLastContracts=Derniers contrats
 BoxCurrentAccounts=Soldes Comptes courants
 BoxSalesTurnover=Chiffre d'affaire
 BoxTotalUnpaidCustomerBills=Total des factures clients impayées
@@ -43,6 +44,7 @@ LastRefreshDate=Date dernier rafraichissement
 NoRecordedBookmarks=Pas de bookmarks personnels. Cliquer ici pour en ajouter.
 NoRecordedCustomers=Pas de client enregistré
 BoxTitleLastActionsToDo=Les %s dernières actions à faire
+BoxTitleLastContracts=Les %s derniers contrats
 NoActionsToDo=Pas d'action à faire
 NoRecordedOrders=Pas de commande clients enregistrée
 NoRecordedProposals=Pas de proposition commerciale enregistrée