* Copyright (C) 2004-2022 Laurent Destailleur * Copyright (C) 2005-2010 Regis Houssin * Copyright (C) 2019 Nicolas ZABOURI * * 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 3 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, see . */ /** * \file htdocs/projet/index.php * \ingroup projet * \brief Main project home page */ // Load Dolibarr environment require '../main.inc.php'; require_once DOL_DOCUMENT_ROOT.'/projet/class/project.class.php'; require_once DOL_DOCUMENT_ROOT.'/projet/class/task.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/project.lib.php'; require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php'; // Load translation files required by the page $langs->loadLangs(array('projects', 'companies')); $hookmanager = new HookManager($db); // Initialize a technical object to manage hooks. Note that conf->hooks_modules contains array $hookmanager->initHooks(array('projectsindex')); $action = GETPOST('action', 'aZ09'); $search_project_user = GETPOST('search_project_user'); $mine = (GETPOST('mode', 'aZ09') == 'mine' || $search_project_user == $user->id) ? 1 : 0; if ($mine == 0 && $search_project_user === '') { $search_project_user = getDolGlobalString('MAIN_SEARCH_PROJECT_USER_PROJECTSINDEX'); } if ($search_project_user == $user->id) { $mine = 1; } $sortfield = GETPOST('sortfield', 'aZ09comma'); $sortorder = GETPOST('sortorder', 'aZ09comma'); $max = getDolGlobalInt('MAIN_SIZE_SHORTLIST_LIMIT', 5); // Security check $socid = 0; //if ($user->socid > 0) $socid = $user->socid; // For external user, no check is done on company because readability is managed by public status of project and assignment. if (!$user->hasRight('projet', 'lire')) { accessforbidden(); } /* * Actions */ $parameters = array(); $reshook = $hookmanager->executeHooks('doActions', $parameters, $object, $action); // Note that $action and $object may have been modified by some hooks if ($reshook < 0) { setEventMessages($hookmanager->error, $hookmanager->errors, 'errors'); } if (empty($reshook)) { if ($action == 'refresh_search_project_user') { $search_project_user = GETPOSTINT('search_project_user'); $tabparam = array("MAIN_SEARCH_PROJECT_USER_PROJECTSINDEX" => $search_project_user); include_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php'; $result = dol_set_user_param($db, $conf, $user, $tabparam); } } /* * View */ $companystatic = new Societe($db); $projectstatic = new Project($db); $form = new Form($db); $formfile = new FormFile($db); $projectset = ($mine ? $mine : (!$user->hasRight('projet', 'all', 'lire') ? 0 : 2)); $projectsListId = $projectstatic->getProjectsAuthorizedForUser($user, $projectset, 1); //var_dump($projectsListId); $title = $langs->trans('ProjectsArea'); $help_url = 'EN:Module_Projects|FR:Module_Projets|ES:Módulo_Proyectos|DE:Modul_Projekte'; llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'mod-project page-dashboard'); //if ($mine) $title=$langs->trans("MyProjectsArea"); // Title for combo list see all projects $titleall = $langs->trans("AllAllowedProjects"); if ($user->hasRight('projet', 'all', 'lire') && !$socid) { $titleall = $langs->trans("AllProjects"); } else { $titleall = $langs->trans("AllAllowedProjects").'

'; } $morehtml = ''; $morehtml .= '
'; $morehtml .= ''; $morehtml .= ''; $morehtml .= ''; $morehtml .= ajax_combobox("search_project_user", array(), 0, 0, 'resolve', '-1', 'small'); $morehtml .= ''; $morehtml .= '
'; if ($mine) { $tooltiphelp = $langs->trans("MyProjectsDesc"); } else { if ($user->hasRight('projet', 'all', 'lire') && !$socid) { $tooltiphelp = $langs->trans("ProjectsDesc"); } else { $tooltiphelp = $langs->trans("ProjectsPublicDesc"); } } print_barre_liste($form->textwithpicto($title, $tooltiphelp), 0, $_SERVER["PHP_SELF"], '', '', '', '', 0, -1, 'project', 0, $morehtml); // Get list of ponderated percent and colors for each status include DOL_DOCUMENT_ROOT.'/theme/'.$conf->theme.'/theme_vars.inc.php'; $listofoppstatus = array(); $listofopplabel = array(); $listofoppcode = array(); $colorseries = array(); $sql = "SELECT cls.rowid, cls.code, cls.percent, cls.label"; $sql .= " FROM ".MAIN_DB_PREFIX."c_lead_status as cls"; $sql .= " WHERE active=1"; $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; while ($i < $num) { $objp = $db->fetch_object($resql); $listofoppstatus[$objp->rowid] = $objp->percent; $listofopplabel[$objp->rowid] = $objp->label; // default label if translation from "OppStatus".code not found. $listofoppcode[$objp->rowid] = $objp->code; switch ($objp->code) { case 'PROSP': $colorseries[$objp->rowid] = "-".$badgeStatus0; break; case 'QUAL': $colorseries[$objp->rowid] = "-".$badgeStatus1; break; case 'PROPO': $colorseries[$objp->rowid] = $badgeStatus1; break; case 'NEGO': $colorseries[$objp->rowid] = $badgeStatus4; break; case 'LOST': $colorseries[$objp->rowid] = $badgeStatus9; break; case 'WON': $colorseries[$objp->rowid] = $badgeStatus6; break; default: $colorseries[$objp->rowid] = $badgeStatus2; break; } $i++; } } else { dol_print_error($db); } //var_dump($listofoppcode); print '
'; print '
'; print '
'; // Statistics include DOL_DOCUMENT_ROOT.'/projet/graph_opportunities.inc.php'; // List of draft projects print_projecttasks_array($db, $form, $socid, $projectsListId, 0, 0, $listofoppstatus, array('projectlabel', 'plannedworkload', 'declaredprogress', 'prospectionstatus', 'projectstatus'), $max); print '
'; // Latest modified projects $sql = "SELECT p.rowid, p.ref, p.title, p.dateo as date_start, p.datee as date_end, p.fk_statut as status, p.tms as datem"; $sql .= ", s.rowid as socid, s.nom as name, s.name_alias"; $sql .= ", s.code_client, s.code_compta, s.client"; $sql .= ", s.code_fournisseur, s.code_compta_fournisseur, s.fournisseur"; $sql .= ", s.logo, s.email, s.entity"; $sql .= ", s.canvas, s.status as thirdpartystatus"; $sql .= " FROM ".MAIN_DB_PREFIX."projet as p"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s on p.fk_soc = s.rowid"; $sql .= " WHERE p.entity IN (".getEntity('project').")"; if ($mine || !$user->hasRight('projet', 'all', 'lire')) { $sql .= " AND p.rowid IN (".$db->sanitize($projectsListId).")"; // If we have this test true, it also means projectset is not 2 } if ($socid) { $sql .= " AND (p.fk_soc IS NULL OR p.fk_soc = 0 OR p.fk_soc = ".((int) $socid).")"; } $sql .= " ORDER BY p.tms DESC"; $sql .= $db->plimit($max, 0); $resql = $db->query($sql); if ($resql) { startSimpleTable($langs->trans("LatestModifiedProjects", $max), "projet/list.php", "sortfield=p.tms&sortorder=DESC", 3, -1, 'project'); $num = $db->num_rows($resql); if ($num) { $i = 0; while ($i < $num) { $obj = $db->fetch_object($resql); print ''; print ''; $projectstatic->id = $obj->rowid; $projectstatic->ref = $obj->ref; $projectstatic->title = $obj->title; $projectstatic->thirdparty_name = $obj->name; $projectstatic->status = $obj->status; $projectstatic->date_start = $db->jdate($obj->date_start); $projectstatic->date_end = $db->jdate($obj->date_end); $companystatic->id = $obj->socid; $companystatic->name = $obj->name; $companystatic->name_alias = $obj->name_alias; //$companystatic->code_client = $obj->code_client; $companystatic->code_compta = $obj->code_compta; $companystatic->code_compta_client = $obj->code_compta; $companystatic->client = $obj->client; //$companystatic->code_fournisseur = $obj->code_fournisseur; $companystatic->code_compta_fournisseur = $obj->code_compta_fournisseur; $companystatic->fournisseur = $obj->fournisseur; $companystatic->logo = $obj->logo; $companystatic->email = $obj->email; $companystatic->entity = $obj->entity; $companystatic->canvas = $obj->canvas; $companystatic->status = $obj->thirdpartystatus; print ''; print ''; print ''; print '
'; print $projectstatic->getNomUrl(1); print ''; print ' '; print ''; $filename = dol_sanitizeFileName($obj->ref); $filedir = $conf->projet->dir_output.'/'.dol_sanitizeFileName($obj->ref); $urlsource = $_SERVER['PHP_SELF'].'?id='.$obj->rowid; print $formfile->getDocumentsLink($projectstatic->element, $filename, $filedir); print '
'; print ''; // Label print ''; print dol_escape_htmltag($projectstatic->title); print ''; // Thirdparty print ''; if ($companystatic->id > 0) { print $companystatic->getNomUrl(1, 'company', 16); } print ''; // Date $datem = $db->jdate($obj->datem); print ''; print dol_print_date($datem, 'day', 'tzuserrel'); print ''; // Status print ''.$projectstatic->LibStatut($obj->status, 3).''; print ''; $i++; } } else { print ''.$langs->trans("None").''; } finishSimpleTable(true); } else { dol_print_error($db); } $companystatic = new Societe($db); // We need a clean new object for next loop because current one has some properties set. if (empty($sortfield)) { $sortfield = 'nb'; $sortorder = 'desc'; } // List of open projects per thirdparty $sql = "SELECT COUNT(p.rowid) as nb, SUM(p.opp_amount)"; $sql .= ", s.rowid as socid, s.nom as name, s.name_alias"; $sql .= ", s.code_client, s.code_compta, s.client"; $sql .= ", s.code_fournisseur, s.code_compta_fournisseur, s.fournisseur"; $sql .= ", s.logo, s.email, s.entity"; $sql .= ", s.canvas, s.status"; $sql .= " FROM ".MAIN_DB_PREFIX."projet as p"; $sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s on p.fk_soc = s.rowid"; $sql .= " WHERE p.entity IN (".getEntity('project').")"; $sql .= " AND p.fk_statut = 1"; if ($mine || !$user->hasRight('projet', 'all', 'lire')) { $sql .= " AND p.rowid IN (".$db->sanitize($projectsListId).")"; // If we have this test true, it also means projectset is not 2 } if ($socid > 0) { $sql .= " AND (p.fk_soc IS NULL OR p.fk_soc = 0 OR p.fk_soc = ".((int) $socid).")"; } $sql .= " GROUP BY s.rowid, s.nom, s.name_alias, s.code_client, s.code_compta, s.client, s.code_fournisseur, s.code_compta_fournisseur, s.fournisseur, s.logo, s.email, s.entity, s.canvas, s.status"; $sql .= $db->order($sortfield, $sortorder); //$sql .= $db->plimit($max + 1, 0); $resql = $db->query($sql); if ($resql) { $num = $db->num_rows($resql); $i = 0; $othernb = 0; if ($num) { // Open project per thirdparty print '
'; print ''; print ''; print_liste_field_titre("OpenedProjectsByThirdparties", $_SERVER["PHP_SELF"], "", "", "", '', $sortfield, $sortorder); print_liste_field_titre("Number", $_SERVER["PHP_SELF"], "nb", "", "", '', $sortfield, $sortorder, 'right '); print "\n"; } while ($i < $num) { $obj = $db->fetch_object($resql); if ($i >= $max) { $othernb += $obj->nb; $i++; continue; } print ''; print ''; print ''; print "\n"; $i++; } if ($othernb) { print ''; print ''; print ''; print "\n"; } if ($num) { print "
'; if ($obj->socid > 0) { $companystatic->id = $obj->socid; $companystatic->name = $obj->name; $companystatic->name_alias = $obj->name_alias; $companystatic->code_client = $obj->code_client; $companystatic->code_compta = $obj->code_compta; $companystatic->code_compta_client = $obj->code_compta; $companystatic->client = $obj->client; $companystatic->code_fournisseur = $obj->code_fournisseur; $companystatic->code_compta_fournisseur = $obj->code_compta_fournisseur; $companystatic->fournisseur = $obj->fournisseur; $companystatic->logo = $obj->logo; $companystatic->email = $obj->email; $companystatic->entity = $obj->entity; $companystatic->canvas = $obj->canvas; $companystatic->status = $obj->status; print $companystatic->getNomUrl(1); } else { print $langs->trans("OthersNotLinkedToThirdParty"); } print ''; if ($obj->socid) { print ''.$obj->nb.''; } else { print ''.$obj->nb.''; } print '
'; print ''.$langs->trans("More").'...'; print ''; print $othernb; print '
"; print '
'; } $db->free($resql); } else { dol_print_error($db); } if ((!getDolGlobalInt('PROJECT_USE_OPPORTUNITIES') || getDolGlobalInt('PROJECT_SHOW_OPEN_PROJECTS_LIST_ON_PROJECT_AREA')) && !getDolGlobalInt('PROJECT_HIDE_OPEN_PROJECTS_LIST_ON_PROJECT_AREA')) { // This list is surely very long and useless when we are using opportunities, so we hide it for this use case, but we allow to show it if // we really want it and to allow interface backward compatibility. print '
'; print_projecttasks_array($db, $form, $socid, $projectsListId, 0, 1, $listofoppstatus, array()); } print '
'; $parameters = array('user' => $user); $reshook = $hookmanager->executeHooks('dashboardProjects', $parameters, $projectstatic); // Note that $action and $object may have been modified by hook // End of page llxFooter(); $db->close();