* Copyright (C) 2004-2006 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/comm/index.php \ingroup commercial \brief Page acceuil de la zone commercial \version $Revision$ */ require("./pre.inc.php"); if ($conf->contrat->enabled) require_once(DOL_DOCUMENT_ROOT."/contrat/contrat.class.php"); if ($conf->propal->enabled) require_once(DOL_DOCUMENT_ROOT."/propal.class.php"); require_once(DOL_DOCUMENT_ROOT."/actioncomm.class.php"); if (!$user->rights->commercial->main->lire) accessforbidden(); $langs->load("commercial"); $langs->load("orders"); // Sécurité accés client $socidp=''; if ($_GET["socidp"]) { $socidp=$_GET["socidp"]; } if ($user->societe_id > 0) { $action = ''; $socidp = $user->societe_id; } $max=5; if ($conf->propal->enabled) $propalstatic=new Propal($db); /* * Actions */ if (isset($_GET["action"]) && $_GET["action"] == 'add_bookmark') { $sql = "DELETE FROM ".MAIN_DB_PREFIX."bookmark WHERE fk_soc = ".$_GET["socidp"]." AND fk_user=".$user->id; if (! $db->query($sql) ) { dolibarr_print_error($db); } $sql = "INSERT INTO ".MAIN_DB_PREFIX."bookmark (fk_soc, dateb, fk_user) VALUES (".$_GET["socidp"].", now(),".$user->id.");"; if (! $db->query($sql) ) { dolibarr_print_error($db); } } if (isset($_GET["action"]) && $_GET["action"] == 'del_bookmark') { $sql = "DELETE FROM ".MAIN_DB_PREFIX."bookmark WHERE rowid=".$_GET["bid"]; $result = $db->query($sql); } /* * Affichage page */ llxHeader(); print_fiche_titre($langs->trans("CommercialArea")); print ''; print ''; print '

'; // Recherche Propal if ($conf->propal->enabled && $user->rights->propale->lire) { $var=false; print '\n"; print "
\n"; } /* * Recherche Contrat */ if ($conf->contrat->enabled) { $var=false; print '\n"; print "
"; } /* * Liste des propal brouillons */ if ($conf->propal->enabled && $user->rights->propale->lire) { $sql = "SELECT p.rowid, p.ref, p.price, s.idp, s.nom"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql.= " FROM ".MAIN_DB_PREFIX."propal as p, ".MAIN_DB_PREFIX."societe as s"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql.= " WHERE p.fk_statut = 0 and p.fk_soc = s.idp"; if ($socidp) { $sql .= " AND s.idp = $socidp"; } if (!$user->rights->commercial->client->voir && !$socidp) $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; $resql=$db->query($sql); if ($resql) { $total = 0; $num = $db->num_rows($resql); if ($num > 0) { print ''; print ""; print ""; $i = 0; $var=true; while ($i < $num) { $obj = $db->fetch_object($resql); $var=!$var; print ''; print ''; print ''; $i++; $total += $obj->price; } if ($total>0) { $var=!$var; print '"; } print "

".$langs->trans("ProposalsDraft")."
'."rowid."\">".img_object($langs->trans("ShowPropal"),"propal")." ".$obj->ref.'	'.dolibarr_trunc($obj->nom,18).'	'.price($obj->price).'
'.$langs->trans("Total").'	'.price($total)."

"; } $db->free($resql); } } /* * Commandes brouillons */ if ($conf->commande->enabled) { $langs->load("orders"); $sql = "SELECT c.rowid, c.ref, c.total_ttc, s.nom, s.idp"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql.= " FROM ".MAIN_DB_PREFIX."commande as c, ".MAIN_DB_PREFIX."societe as s"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql.= " WHERE c.fk_soc = s.idp AND c.fk_statut = 0"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; if ($socidp) { $sql .= " AND c.fk_soc = $socidp"; } $resql = $db->query($sql); if ($resql) { $total = 0; $num = $db->num_rows($resql); if ($num) { print ''; print ''; print ''; $i = 0; $var = true; while ($i < $num) { $var=!$var; $obj = $db->fetch_object($resql); print ""; print ''; print ''; $i++; $total += $obj->total_ttc; } if ($total>0) { $var=!$var; print '"; } print "

'.$langs->trans("DraftOrders").'
rowid\">".img_object($langs->trans("ShowOrder"),"order")." ".$obj->ref."	'.dolibarr_trunc($obj->nom,18).'	'.price($obj->total_ttc).'
'.$langs->trans("Total").'	'.price($total)."

"; } } } /* * Bookmark * */ $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; if ($socidp) { $sql .= " AND s.idp = $socidp"; } $sql .= " ORDER BY lower(s.nom) ASC"; if ( $db->query($sql) ) { $num = $db->num_rows(); if ($num) { $i = 0; print ''; print ""; print ""; print "\n"; $var=true; while ($i < $num) { $obj = $db->fetch_object(); $var = !$var; print ""; print ''; print ''; print ''; $i++; } print '

".$langs->trans("Bookmarks")."
'.$obj->nom.'	'; print img_delete(); print '

'; } } print '

'; /* * Actions commerciales a faire * */ $sql = "SELECT a.id, a.label, ".$db->pdate("a.datep")." as dp, c.code, c.libelle, a.fk_user_author, s.nom as sname, s.idp"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql .= " FROM ".MAIN_DB_PREFIX."actioncomm as a, ".MAIN_DB_PREFIX."c_actioncomm as c, ".MAIN_DB_PREFIX."societe as s"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql .= " WHERE c.id=a.fk_action AND a.percent < 100 AND s.idp = a.fk_soc"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; if ($socidp) { $sql .= " AND s.idp = $socidp"; } $sql .= " ORDER BY a.datep DESC, a.id DESC"; $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); if ($num > 0) { print ''; print ''; $var = true; $i = 0; $staticaction=new ActionComm($db); while ($i < $num) { $obj = $db->fetch_object($resql); $var=!$var; print ""; print "'; print ""; print ''; // Date print '"; // Statut print "\n"; print "\n"; $i++; } // TODO Ajouter rappel pour "il y a des contrats à mettre en service" // TODO Ajouter rappel pour "il y a des contrats qui arrivent à expiration" print "

'.$langs->trans("ActionsToDo").'
id\">".img_object($langs->trans("ShowTask"),"task"); $transcode=$langs->trans("Action".$obj->code); $libelle=($transcode!="Action".$obj->code?$transcode:$obj->libelle); print $libelle; print '	$obj->label	'.img_object($langs->trans("ShowCustomer"),"company").' '.$obj->sname.'	'.dolibarr_print_date($obj->dp).' '; if (date("U",$obj->dp) < time()) { print img_warning($langs->trans("Late")); } print "	".$staticaction->LibStatut($obj->percent,3)."

"; } $db->free($resql); } else { dolibarr_print_error($db); } /* * Dernières actions commerciales effectuées */ $sql = "SELECT a.id, a.percent, ".$db->pdate("a.datea")." as da, c.code, c.libelle, a.fk_user_author, s.nom as sname, s.idp"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql .= " FROM ".MAIN_DB_PREFIX."actioncomm as a, ".MAIN_DB_PREFIX."c_actioncomm as c, ".MAIN_DB_PREFIX."societe as s"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql .= " WHERE c.id=a.fk_action AND a.percent >= 100 AND s.idp = a.fk_soc"; if ($socidp) { $sql .= " AND s.idp = ".$socidp; } if (!$user->rights->commercial->client->voir && !$socidp) //restriction { $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; } $sql .= " ORDER BY a.datea DESC"; $sql .= $db->plimit($max, 0); $resql=$db->query($sql); if ($resql) { $num = $db->num_rows($resql); print ''; print ''; $var = true; $i = 0; $staticaction=new ActionComm($db); while ($i < $num) { $obj = $db->fetch_object($resql); $var=!$var; print ""; print "'; print ''; // Date print '"; // Statut print "\n"; print "\n"; $i++; } // TODO Ajouter rappel pour "il y a des contrats à mettre en service" // TODO Ajouter rappel pour "il y a des contrats qui arrivent à expiration" print "

'.$langs->trans("LastDoneTasks",$max).'
id\">".img_object($langs->trans("ShowTask"),"task"); $transcode=$langs->trans("Action".$obj->code); $libelle=($transcode!="Action".$obj->code?$transcode:$obj->libelle); print $libelle; print '	'.img_object($langs->trans("ShowCustomer"),"company").' '.$obj->sname.'	'.dolibarr_print_date($obj->da); print "	".$staticaction->LibStatut($obj->percent,3)."

"; $db->free($resql); } else { dolibarr_print_error($db); } /* * Derniers clients enregistrés */ if ($user->rights->societe->lire) { $sql = "SELECT s.idp,s.nom,".$db->pdate("datec")." as datec"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql.= " FROM ".MAIN_DB_PREFIX."societe as s"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql.= " WHERE s.client = 1"; if ($socidp) { $sql .= " AND s.idp = $socidp"; } if (!$user->rights->commercial->client->voir && !$socidp) //restriction { $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; } $sql .= " ORDER BY s.datec DESC"; $sql .= $db->plimit($max, 0); $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); if ($num) { $langs->load("boxes"); print ''; print ''; print ''; $i = 0; $var=false; while ($i < $num) { $objp = $db->fetch_object($resql); print ""; print ""; print '"; print ''; $i++; $var=!$var; } print "

'.$langs->trans("BoxTitleLastCustomers",$max).'
idp."\">".img_object($langs->trans("ShowCustomer"),"company")." ".$objp->nom."	'.dolibarr_print_date($objp->datec)."

"; $db->free($resql); } } } /* * Derniers contrat * */ if ($conf->contrat->enabled && 0) // \todo A REFAIRE DEPUIS NOUVEAU CONTRAT { $langs->load("contracts"); $sql = "SELECT s.nom, s.idp, c.statut, c.rowid, p.ref, c.mise_en_service as datemes, c.fin_validite as datefin, c.date_cloture as dateclo"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."contrat as c, ".MAIN_DB_PREFIX."product as p"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql .= " WHERE c.fk_soc = s.idp and c.fk_product = p.rowid"; if ($socidp) { $sql .= " AND s.idp = $socidp"; } if (!$user->rights->commercial->client->voir && !$socidp) //restriction { $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; } $sql .= " ORDER BY c.tms DESC"; $sql .= $db->plimit(5, 0); if ( $db->query($sql) ) { $num = $db->num_rows(); if ($num > 0) { print ''; print ''; $i = 0; $staticcontrat=new Contrat($db); $var=false; while ($i < $num) { $obj = $db->fetch_object(); print ""; print "\n"; print "\n"; $var=!$var; $i++; } print "

'.$langs->trans("LastContracts",5).'
rowid."\">".img_object($langs->trans("ShowContract","contract"))." ".$obj->ref."	idp\">".img_object($langs->trans("ShowCompany","company"))." ".$obj->nom."	".$staticcontrat->LibStatut($obj->statut,3)."

"; } } else { dolibarr_print_error($db); } } /* * Propales ouvertes * */ if ($conf->propal->enabled && $user->rights->propale->lire) { $langs->load("propal"); $sql = "SELECT s.nom, s.idp, p.rowid as propalid, p.price, p.ref, p.fk_statut, ".$db->pdate("p.datep")." as dp"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."propal as p"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql .= " WHERE p.fk_soc = s.idp AND p.fk_statut = 1"; if ($socidp) $sql .= " AND s.idp = $socidp"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; $sql .= " ORDER BY p.rowid DESC"; $result=$db->query($sql); if ($result) { $total = 0; $num = $db->num_rows($result); $i = 0; if ($num > 0) { $var=true; print ''; print ''; while ($i < $num) { $obj = $db->fetch_object($result); $var=!$var; print ""; print "\n"; print "\n"; print ""; print "\n"; print "\n"; $i++; $total += $obj->price; } if ($total>0) { print '"; } print "

'.$langs->trans("ProposalsOpened").'
propalid."\">".img_object($langs->trans("ShowPropal"),"propal")." ".$obj->ref.""; if ($obj->dp < (time() - $conf->propal->cloture->warning_delay)) print img_warning($langs->trans("Late")); print "	idp\">".img_object($langs->trans("ShowCompany"),"company")." ".dolibarr_trunc($obj->nom,44)."	"; print dolibarr_print_date($obj->dp)."	".price($obj->price)."	".$propalstatic->LibStatut($obj->fk_statut,3)."
'.$langs->trans("Total")."			".price($total)."

"; } } else { dolibarr_print_error($db); } } /* * Dernières propales fermées * */ if ($conf->propal->enabled && $user->rights->propale->lire) { $NBMAX=5; $sql = "SELECT s.nom, s.idp, p.rowid as propalid, p.price, p.ref, p.fk_statut, ".$db->pdate("p.datep")." as dp"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", sc.fk_soc, sc.fk_user"; $sql .= " FROM ".MAIN_DB_PREFIX."societe as s, ".MAIN_DB_PREFIX."propal as p"; if (!$user->rights->commercial->client->voir && !$socidp) $sql .= ", ".MAIN_DB_PREFIX."societe_commerciaux as sc"; $sql .= " WHERE p.fk_soc = s.idp AND p.fk_statut > 1"; if ($socidp) { $sql .= " AND s.idp = $socidp"; } if (!$user->rights->commercial->client->voir && !$socidp) $sql .= " AND s.idp = sc.fk_soc AND sc.fk_user = " .$user->id; $sql .= " ORDER BY p.rowid DESC"; $sql .= $db->plimit($NBMAX, 0); if ( $db->query($sql) ) { $num = $db->num_rows(); $i = 0; print ''; print ''; $var=False; while ($i < $num) { $objp = $db->fetch_object(); print ""; print ''; print ''; print ""; print "\n"; print "\n"; print "\n"; print "\n"; $i++; $var=!$var; } print "

'.$langs->trans("LastClosedProposals",$NBMAX).'
'; print ''.img_object($langs->trans("ShowPropal"),"propal").' '; print $objp->ref.'	'.img_object($langs->trans("ShowCompany"),"company").' '.dolibarr_trunc($objp->nom,44).'		"; print dolibarr_print_date($objp->dp)."	".price($objp->price)."	".$propalstatic->LibStatut($objp->fk_statut,3)."

"; $db->free(); } } print '

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