You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

1115 lines
36 KiB

<?php
/*********************************************************************************
* The contents of this file are subject to the SugarCRM Public License Version 1.1.2
* ("License"); You may not use this file except in compliance with the
* License. You may obtain a copy of the License at http://www.sugarcrm.com/SPL
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
* the specific language governing rights and limitations under the License.
* The Original Code is: SugarCRM Open Source
* The Initial Developer of the Original Code is SugarCRM, Inc.
* Portions created by SugarCRM are Copyright (C) SugarCRM, Inc.;
* All Rights Reserved.
* Contributor(s): ______________________________________.
********************************************************************************/
/*********************************************************************************
* $Header: /advent/projects/wesat/vtiger_crm/sugarcrm/modules/Potentials/Charts.php,v 1.12 2005/04/20 20:23:34 ray Exp $
* Description: Includes the functions for Customer module specific charts.
********************************************************************************/
require_once('config.php');
require_once('include/logging.php');
require_once('modules/Potentials/Opportunity.php');
require_once("jpgraph/src/jpgraph.php");
require_once('include/utils.php');
require_once('include/logging.php');
// TTF Font families
DEFINE("FF_COURIER",10);
DEFINE("FF_VERDANA",11);
DEFINE("FF_TIMES",12);
DEFINE("FF_COMIC",14);
DEFINE("FF_ARIAL",15);
DEFINE("FF_GEORGIA",16);
DEFINE("FF_TREBUCHE",17);
// Chinese font
DEFINE("FF_SIMSUN",30);
DEFINE("FF_CHINESE",31);
DEFINE("FF_BIG5",31);
function calculate_font_family($locale)
{
switch($locale)
{
case 'cn_zh':
return FF_SIMSUN;
case 'tw_zh':
if(!function_exists('iconv')){
echo " Unable to display traditional Chinese on the graphs.<BR>The function iconv does not exists please read more about <a href='http://us4.php.net/iconv'>iconv here</a><BR>";
return FF_FONT1;
}
else return FF_CHINESE;
default:
return FF_FONT1;
}
return FF_FONT1;
}
class jpgraph {
/**
* Creates opportunity pipeline image as a horizontal accumlated bar graph for multiple users.
* param $datax- the month data to display in the x-axis
* Portions created by SugarCRM are Copyright (C) SugarCRM, Inc..
* All Rights Reserved..
* Contributor(s): ______________________________________..
*/
function outcome_by_month($date_start='1971-10-15', $date_end='2071-10-15', $user_id=array('1'), $cache_file_name='a_file', $refresh=false) {
global $app_strings,$lang_crm, $app_list_strings, $current_module_strings, $log, $charset, $tmp_dir;
global $theme;
include_once ("jpgraph/src/jpgraph_bar.php");
// Size of graph
$width=600;
$height=400;
$log =& LoggerManager::getLogger('outcome_by_month chart');
// Set the basic parameters of the graph
$graph = new Graph($width,$height,$cache_file_name);
$log->debug("graph object created");
$graph->SetScale("textlin");
if (!file_exists($cache_file_name) || !file_exists($cache_file_name.'.map') || $refresh == true) {
$font = calculate_font_family($lang_crm);
$log->debug("date_start is: $date_start");
$log->debug("date_end is: $date_end");
$log->debug("user_id is: ");
$log->debug($user_id);
$log->debug("cache_file_name is: $cache_file_name");
//build the where clause for the query that matches $user
$where = "(";
$first = true;
$current = 0;
foreach ($user_id as $the_id) {
if (!$first) $where .= "OR ";
$first = false;
$where .= "crmentity.smcreatorid='$the_id' ";
}
$where .= ") ";
//build the where clause for the query that matches $date_start and $date_end
$where .= "AND closingdate >= '$date_start' AND closingdate <= '$date_end'";
$subtitle = $current_module_strings['LBL_DATE_RANGE']." ".getDisplayDate($date_start)." ".$current_module_strings['LBL_DATE_RANGE_TO']." ".getDisplayDate($date_end)."\n";
//Now do the db queries
//query for opportunity data that matches $datay and $user
$opp = new Potential();
$opp_list = $opp->get_full_list("amount DESC, closingdate DESC", $where);
//build pipeline by sales stage data
$total = 0;
$count = array();
$sum = array();
$months = array();
$other = $current_module_strings['LBL_LEAD_SOURCE_OTHER'];
if (isset($opp_list)) {
foreach ($opp_list as $record) {
$month = substr_replace($record->column_fields['closingdate'],'',-3);
if (!in_array($month, $months)) { array_push($months, $month); }
if ($record->column_fields['sales_stage'] == 'Closed Won' || $record->column_fields['sales_stage'] == 'Closed Lost') {
$sales_stage=$record->column_fields['sales_stage'];
}
else {
$sales_stage=$other;
}
if (!isset($sum[$month][$sales_stage])) {
$sum[$month][$sales_stage] = 0;
}
if (isset($record->column_fields['amount'])) {
// Strip all non numbers from this string.
$amount = ereg_replace('[^0-9]', '', $record->column_fields['amount']);
$sum[$month][$sales_stage] = $sum[$month][$sales_stage] + $amount;
if (isset($count[$month][$sales_stage])) {
$count[$month][$sales_stage]++;
}
else {
$count[$month][$sales_stage] = 1;
}
$total = $total + ($amount/1000);
}
}
}
$legend = array();
$datax = array();
$aTargets = array();
$aAlts = array();
$stages = array($other, 'Closed Lost', 'Closed Won');
//sort the months or push a bogus month on the array so that an empty chart is drawn
if (empty($months)) {
array_push($months, date('Y-m',time()));
}
else{
sort($months);
}
foreach($months as $month) {
foreach($stages as $stage) {
$log->debug("stage is $stage");
if (!isset($datax[$stage])) {
$datax[$stage] = array();
}
if (!isset($aAlts[$stage])) {
$aAlts[$stage] = array();
}
if (!isset($aTargets[$stage])) {
$aTargets[$stage] = array();
}
if (isset($sum[$month][$stage])) {
array_push($datax[$stage], $sum[$month][$stage]/1000);
array_push($aAlts[$stage], $count[$month][$stage]." ".$current_module_strings['LBL_OPPS_OUTCOME']." $stage");
}
else {
array_push($datax[$stage], 0);
array_push($aAlts[$stage], "");
}
array_push($aTargets[$stage], "index.php?module=Potentials&action=ListView&date_closed=$month&sales_stage=".urlencode($stage)."&query=true");
}
array_push($legend,$month);
}
$log->debug("datax is:");
$log->debug($datax);
$log->debug("aAlts is:");
$log->debug($aAlts);
$log->debug("aTargets is:");
$log->debug($aTargets);
$log->debug("sum is:");
$log->debug($sum);
$log->debug("count is:");
$log->debug($count);
//now build the bar plots for each user across the sales stages
$bplot = array();
$color = array('Closed Lost'=>'FF9900','Closed Won'=>'009933', $other=>'0066CC');
$index = 0;
foreach($stages as $stage) {
// Now create a bar pot
$bplot[$index] = new BarPlot($datax[$stage]);
//You can change the width of the bars if you like
$bplot[$index]->SetWidth(5);
// Set fill colors for bars
$bplot[$index]->SetFillColor("#".$color[$stage]);
// We want to display the value of each bar at the top
$bplot[$index]->value->Show();
$bplot[$index]->value->SetFont($font,FS_NORMAL,8);
//$bplot->value->SetAlign('left','center');
$bplot[$index]->value->SetColor("white");
$bplot[$index]->value->SetFormat(getCurrencySymbol().'%d');
$bplot[$index]->SetValuePos('max');
//set client side image map URL's
$bplot[$index]->SetCSIMTargets($aTargets[$stage],$aAlts[$stage]);
$log->debug("bplot[$index] is: ");
$log->debug($bplot[$index]);
$index++;
}
if($theme == "blue")
{
$font_color = "#212473";
}
else
{
$font_color = "#000000";
}
// Create the grouped bar plot
$gbplot = new AccBarPlot($bplot);
// Add the bar to the graph
$graph->Add($gbplot);
// No frame around the image
$graph->SetFrame(true,"white");
// Rotate graph 90 degrees and set margin
$top = 20;
$bottom = 50;
$left = 20;
$right = 50;
$graph->SetMargin($left,$right,$top,$bottom);
// Set white margin color
$graph->SetMarginColor('#F5F5F5');
// Use a box around the plot area
$graph->SetBox();
// Use a gradient to fill the plot area
$graph->SetBackgroundGradient('#E5E5E5','white',GRAD_HOR,BGRAD_PLOT);
// Setup title
$title = $current_module_strings['LBL_TOTAL_PIPELINE'].getCurrencySymbol().$total.$app_strings['LBL_THOUSANDS_SYMBOL'];
$graph->title->Set($title);
$graph->title->SetColor($font_color);
$graph->title->SetFont($font,FS_BOLD,11);
// Setup X-axis
$graph->xaxis->SetColor($font_color);
$graph->xaxis->SetTickLabels($legend);
$graph->xaxis->SetFont($font,FS_NORMAL,8);
// Some extra margin looks nicer
$graph->xaxis->SetLabelMargin(10);
// Label align for X-axis
$graph->xaxis->SetLabelAlign('center','center');
$graph->yaxis->SetColor($font_color);
$graph->yaxis->SetLabelSide(SIDE_LEFT);
// The fix the tick marks
$graph->yaxis->SetTickSide(SIDE_RIGHT);
// Add some grace to y-axis so the bars doesn't go
// all the way to the end of the plot area
$graph->yaxis->scale->SetGrace(10);
// Setup the Y-axis to be displayed in the bottom of the
// graph. We also finetune the exact layout of the title,
// ticks and labels to make them look nice.
$graph->yaxis->SetPos('max');
// First make the labels look right
$graph->yaxis->SetLabelAlign('left','top');
$graph->yaxis->SetLabelFormat(getCurrencySymbol().'%d');
$graph->yaxis->SetLabelSide(SIDE_RIGHT);
// The fix the tick marks
$graph->yaxis->SetTickSide(SIDE_LEFT);
// Finally setup the title
$graph->yaxis->SetTitleSide(SIDE_RIGHT);
$graph->yaxis->SetTitleMargin(35);
$subtitle .= $current_module_strings['LBL_OPP_SIZE'].getCurrencySymbol().$current_module_strings['LBL_OPP_SIZE_VALUE'];
$graph->footer->right->SetColor($font_color);
$graph->footer->right->Set($subtitle);
$graph->footer->right->SetFont($font,FS_NORMAL,8);
$graph->yaxis->SetFont($font,FS_NORMAL, 8);
// .. and stroke the graph
$graph->Stroke($cache_file_name);
$imgMap = $graph->GetHTMLImageMap('outcome_by_month');
save_image_map($cache_file_name.'.map', $imgMap);
}
else {
$imgMap_fp = fopen($cache_file_name.'.map', "rb");
$imgMap = fread($imgMap_fp, filesize($cache_file_name.'.map'));
fclose($imgMap_fp);
}
$fileModTime = filemtime($cache_file_name.'.map');
$return = "\n$imgMap\n";
$return .= "<img src='$cache_file_name?modTime=$fileModTime'\n";
$return .= "ismap usemap='#outcome_by_month' border='0'>\n";
return $return;
}
/**
* Creates lead_source_by_outcome pipeline image as a horizontal accumlated bar graph for multiple users.
* param $datay- the lead source data to display in the x-axis
* param $date_start- the begin date of opps to find
* param $date_end- the end date of opps to find
* param $ids - list of assigned users of opps to find
* param $cache_file_name - file name to write image to
* param $refresh - boolean whether to rebuild image if exists
* Portions created by SugarCRM are Copyright (C) SugarCRM, Inc..
* All Rights Reserved..
* Contributor(s): ______________________________________..
*/
function lead_source_by_outcome($datay=array('foo','bar'), $user_id=array('1'), $cache_file_name='a_file', $refresh=false) {
global $app_strings,$lang_crm, $current_module_strings, $log, $charset, $tmp_dir;
global $theme;
include_once ("jpgraph/src/jpgraph_bar.php");
// Size of graph
$width=300;
$height=400;
$log =& LoggerManager::getLogger('lead_source_by_outcome chart');
// Set the basic parameters of the graph
$graph = new Graph($width,$height,$cache_file_name);
$log->debug("graph object created");
$graph->SetScale("textlin");
if (!file_exists($cache_file_name) || !file_exists($cache_file_name.'.map') || $refresh == true) {
$font = calculate_font_family($lang_crm);
$log->debug("datay is:");
$log->debug($datay);
$log->debug("user_id is: ");
$log->debug($user_id);
$log->debug("cache_file_name is: $cache_file_name");
$where="";
//build the where clause for the query that matches $user
$count = count($user_id);
if ($count>0) {
$where = "(";
$first = true;
$current = 0;
foreach ($user_id as $the_id) {
if (!$first) $where .= "OR ";
$first = false;
$where .= "crmentity.smcreatorid='$the_id' ";
}
$where .= ") ";
}
//build the where clause for the query that matches $datay
$count = count($datay);
if ($count>0) {
$where .= "AND ( ";
unset($first);
$first = true;
foreach ($datay as $key=>$value) {
if (!$first) $where .= "OR ";
$first = false;
$where .= "leadsource ='$key' ";
}
$where .= ")";
}
//Now do the db queries
//query for opportunity data that matches $datay and $user
$opp = new Potential();
$opp_list = $opp->get_full_list("amount DESC, closingdate DESC", $where);
//build pipeline by sales stage data
$total = 0;
$count = array();
$sum = array();
$other = $current_module_strings['LBL_LEAD_SOURCE_OTHER'];
if (isset($opp_list)) {
foreach ($opp_list as $record) {
//if lead source is blank, set it to the language's "none" value
if (isset($record->column_fields['leadsource']) && $record->column_fields['leadsource'] != '') {
$lead_source = $record->column_fields['leadsource'];
}
else {
$lead_source = $current_module_strings['NTC_NO_LEGENDS'];
}
if ($record->column_fields['sales_stage'] == 'Closed Won' || $record->column_fields['sales_stage'] == 'Closed Lost') {
$sales_stage=$record->column_fields['sales_stage'];
}
else {
$sales_stage=$other;
}
if (!isset($sum[$lead_source][$sales_stage])) {
$sum[$lead_source][$sales_stage] = 0;
}
if (isset($record->column_fields['amount'])) {
// Strip all non numbers from this string.
$amount = ereg_replace('[^0-9]', '', $record->column_fields['amount']);
$sum[$lead_source][$sales_stage] = $sum[$lead_source][$sales_stage] + $amount;
if (isset($count[$lead_source][$sales_stage])) {
$count[$lead_source][$sales_stage]++;
}
else {
$count[$lead_source][$sales_stage] = 1;
}
$total = $total + ($amount/1000);
}
}
}
$legend = array();
$datax = array();
$aTargets = array();
$aAlts = array();
$stages = array($other,'Closed Lost', 'Closed Won');
foreach($datay as $lead=>$translation) {
if ($lead == '') {
$lead = $current_module_strings['NTC_NO_LEGENDS'];
$translation = $current_module_strings['NTC_NO_LEGENDS'];
}
foreach($stages as $stage) {
$log->debug("stage_key is $stage");
if (!isset($datax[$stage])) {
$datax[$stage] = array();
}
if (!isset($aAlts[$stage])) {
$aAlts[$stage] = array();
}
if (!isset($aTargets[$stage])) {
$aTargets[$stage] = array();
}
if (isset($sum[$lead][$stage])) {
array_push($datax[$stage], $sum[$lead][$stage]/1000);
array_push($aAlts[$stage], $count[$lead][$stage]." ".$current_module_strings['LBL_OPPS_OUTCOME']." $stage");
}
else {
array_push($datax[$stage], 0);
array_push($aAlts[$stage], "");
}
array_push($aTargets[$stage], "index.php?module=Potentials&action=ListView&leadsource=".urlencode($lead)."&sales_stage=".urlencode($stage)."&query=true");
}
array_push($legend,$translation);
}
$log->debug("datax is:");
$log->debug($datax);
$log->debug("aAlts is:");
$log->debug($aAlts);
$log->debug("aTargets is:");
$log->debug($aTargets);
$log->debug("sum is:");
$log->debug($sum);
$log->debug("count is:");
$log->debug($count);
//now build the bar plots for each user across the sales stages
$bplot = array();
$color = array('Closed Lost'=>'FF9900','Closed Won'=>'009933', $other=>'0066CC');
$index = 0;
foreach($stages as $stage) {
// Now create a bar pot
$bplot[$index] = new BarPlot($datax[$stage]);
//You can change the width of the bars if you like
$bplot[$index]->SetWidth(5);
// Set fill colors for bars
$bplot[$index]->SetFillColor("#".$color[$stage]);
// We want to display the value of each bar at the top
$bplot[$index]->value->Show();
$bplot[$index]->value->SetFont($font,FS_NORMAL,7);
//$bplot->value->SetAlign('left','center');
$bplot[$index]->value->SetColor("white");
$bplot[$index]->value->SetFormat(getCurrencySymbol().'%d');
$bplot[$index]->SetValuePos('max');
//set client side image map URL's
$bplot[$index]->SetCSIMTargets($aTargets[$stage],$aAlts[$stage]);
$log->debug("bplot[$index] is: ");
$log->debug($bplot[$index]);
$log->debug("datax[$stage] is: ");
$log->debug($datax[$stage]);
$index++;
}
if($theme == "blue")
{
$font_color = "#212473";
}
else
{
$font_color = "#000000";
}
// Create the grouped bar plot
$gbplot = new AccBarPlot($bplot);
// Add the bar to the graph
$graph->Add($gbplot);
// No frame around the image
$graph->SetFrame(true,"white");
// Rotate graph 90 degrees and set margin
$top = 20;
$bottom = 50;
$left = 130;
$right = 40;
$graph->Set90AndMargin($left,$right,$top,$bottom);
// Set white margin color
$graph->SetMarginColor('#F5F5F5');
// Use a box around the plot area
$graph->SetBox();
// Use a gradient to fill the plot area
$graph->SetBackgroundGradient('#E5E5E5','white',GRAD_HOR,BGRAD_PLOT);
// Setup title
$title = $current_module_strings['LBL_ALL_OPPORTUNITIES'].getCurrencySymbol().$total.$app_strings['LBL_THOUSANDS_SYMBOL'];
$graph->title->Set($title);
$graph->title->SetColor($font_color);
$graph->title->SetFont($font,FS_BOLD,11);
// Setup X-axis
$graph->xaxis->SetTickLabels($legend);
$graph->xaxis->SetColor($font_color);
$graph->xaxis->SetFont($font,FS_NORMAL,8);
// Some extra margin looks nicer
$graph->xaxis->SetLabelMargin(10);
// Label align for X-axis
$graph->xaxis->SetLabelAlign('right','center');
$graph->yaxis->SetLabelSide(SIDE_LEFT);
$graph->yaxis->SetColor($font_color);
// The fix the tick marks
$graph->yaxis->SetTickSide(SIDE_RIGHT);
// Add some grace to y-axis so the bars doesn't go
// all the way to the end of the plot area
$graph->yaxis->scale->SetGrace(10);
// Setup the Y-axis to be displayed in the bottom of the
// graph. We also finetune the exact layout of the title,
// ticks and labels to make them look nice.
$graph->yaxis->SetPos('max');
// First make the labels look right
$graph->yaxis->SetLabelAlign('left','top');
$graph->yaxis->SetLabelFormat(getCurrencySymbol().'%d');
$graph->yaxis->SetLabelSide(SIDE_RIGHT);
// The fix the tick marks
$graph->yaxis->SetTickSide(SIDE_LEFT);
// Finally setup the title
$graph->yaxis->SetTitleSide(SIDE_RIGHT);
$graph->yaxis->SetTitleMargin(35);
$subtitle = $current_module_strings['LBL_OPP_SIZE'].getCurrencySymbol().$current_module_strings['LBL_OPP_SIZE_VALUE'];
$graph->footer->right->SetColor($font_color);
$graph->footer->right->Set($subtitle);
$graph->footer->right->SetFont($font,FS_NORMAL,8);
$graph->yaxis->SetFont($font,FS_NORMAL, 8);
// .. and stroke the graph
$graph->Stroke($cache_file_name);
$imgMap = $graph->GetHTMLImageMap('lead_source_by_outcome');
save_image_map($cache_file_name.'.map', $imgMap);
}
else {
$imgMap_fp = fopen($cache_file_name.'.map', "rb");
$imgMap = fread($imgMap_fp, filesize($cache_file_name.'.map'));
fclose($imgMap_fp);
}
$fileModTime = filemtime($cache_file_name.'.map');
$return = "\n$imgMap\n";
$return .= "<img src='$cache_file_name?modTime=$fileModTime'\n";
$return .= "ismap usemap='#lead_source_by_outcome' border='0'>\n";
return $return;
}
/**
* Creates opportunity pipeline image as a horizontal accumlated bar graph for multiple users.
* param $datax- the sales stage data to display in the x-axis
* Portions created by SugarCRM are Copyright (C) SugarCRM, Inc..
* All Rights Reserved..
* Contributor(s): ______________________________________..
*/
function pipeline_by_sales_stage($datax=array('foo','bar'), $date_start='2071-10-15', $date_end='2071-10-15', $user_id=array('1'), $cache_file_name='a_file', $refresh=false) {
global $app_strings,$lang_crm, $current_module_strings, $log, $charset, $tmp_dir;
global $theme;
include_once ("jpgraph/src/jpgraph_bar.php");
// Size of graph
$width=300;
$height=400;
$log =& LoggerManager::getLogger('opportunity charts');
// Set the basic parameters of the graph
$graph = new Graph($width,$height,$cache_file_name);
$log->debug("graph object created");
$graph->SetScale("textlin");
if (!file_exists($cache_file_name) || !file_exists($cache_file_name.'.map') || $refresh == true) {
$font = calculate_font_family($lang_crm);
$log->debug("starting pipeline chart");
$log->debug("datax is:");
$log->debug($datax);
$log->debug("user_id is: ");
$log->debug($user_id);
$log->debug("cache_file_name is: $cache_file_name");
$where="";
//build the where clause for the query that matches $user
$count = count($user_id);
if ($count>0) {
$where = "(";
$first = true;
$current = 0;
foreach ($user_id as $the_id) {
if (!$first) $where .= "OR ";
$first = false;
//reference post
//if I change the owner of a opportunity, the graph shown on Home does not update correctly, this is because the graph is looking for the creatorid and not for the ownerid
//fix incorporated based on /sak's feedback
$where .= "crmentity.smownerid='$the_id' ";
}
$where .= ") ";
}
//build the where clause for the query that matches $datax
$count = count($datax);
if ($count>0) {
$where .= "AND ( ";
unset($first);
$first = true;
foreach ($datax as $key=>$value) {
if (!$first) $where .= "OR ";
$first = false;
$where .= "sales_stage ='$key' ";
}
$where .= ")";
}
//build the where clause for the query that matches $date_start and $date_end
$where .= "AND closingdate >= '$date_start' AND closingdate <= '$date_end'";
$subtitle = $current_module_strings['LBL_DATE_RANGE']." ".getDisplayDate($date_start)." ".$current_module_strings['LBL_DATE_RANGE_TO']." ".getDisplayDate($date_end)."\n";
//Now do the db queries
//query for opportunity data that matches $datax and $user
$opp = new Potential();
$opp_list = $opp->get_full_list("amount DESC, closingdate DESC", $where);
//build pipeline by sales stage data
$total = 0;
$count = array();
$sum = array();
if (isset($opp_list)) {
foreach ($opp_list as $record) {
if (!isset($sum[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']])) {
$sum[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']] = 0;
}
if (isset($record->column_fields['amount'])) {
// Strip all non numbers from this string.
$amount = ereg_replace('[^0-9]', '', $record->column_fields['amount']);
$sum[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']] = $sum[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']] + $amount;
if (isset($count[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']])) {
$count[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']]++;
}
else {
$count[$record->column_fields['sales_stage']][$record->column_fields['assigned_user_id']] = 1;
}
$total = $total + ($amount/1000);
}
}
}
$legend = array();
$datay = array();
$aTargets = array();
$aAlts = array();
foreach ($datax as $stage_key=>$stage_translation) {
foreach ($user_id as $the_id) {
$the_user = get_assigned_user_name($the_id);
if (!isset($datay[$the_id])) {
$datay[$the_id] = array();
}
if (!isset($aAlts[$the_id])) {
$aAlts[$the_id] = array();
}
if (!isset($aTargets[$the_id])) {
$aTargets[$the_id] = array();
}
if (isset($sum[$stage_key][$the_id])) {
array_push($datay[$the_id], $sum[$stage_key][$the_id]/1000);
array_push($aAlts[$the_id], $the_user.' - '.$count[$stage_key][$the_id]." ".$current_module_strings['LBL_OPPS_IN_STAGE']." $stage_translation");
}
else {
array_push($datay[$the_id], 0);
array_push($aAlts[$the_id], "");
}
array_push($aTargets[$the_id], "index.php?module=Potentials&action=ListView&assigned_user_id[]=$the_id&sales_stage=".urlencode($stage_key)."&closingdate_start=".urlencode($date_start)."&closingdate_end=".urlencode($date_end)."&query=true");
}
array_push($legend,$stage_translation);
}
$log->debug("datay is:");
$log->debug($datay);
$log->debug("aAlts is:");
$log->debug($aAlts);
$log->debug("aTargets is:");
$log->debug($aTargets);
$log->debug("sum is:");
$log->debug($sum);
$log->debug("count is:");
$log->debug($count);
//now build the bar plots for each user across the sales stages
$bplot = array();
$color = 'D50100';
$index = 0;
foreach($user_id as $the_id) {
// Now create a bar pot
$bplot[$index] = new BarPlot($datay[$the_id]);
//color="black",$hsize=3,$vsize=3,$show=true
$bplot[$index]->SetShadow();
//You can change the width of the bars if you like
$bplot[$index]->SetWidth(0.5);
// Set fill colors for bars
//$bplot[$index]->SetFillGradient('red','#7D7D7D',GRAD_HOR);//SetFillColor("#$color");
$bplot[$index]->SetFillColor("#$color");
$color = $color + 220022;
// We want to display the value of each bar at the top
$bplot[$index]->value->Show();
$bplot[$index]->value->SetFont($font,FS_NORMAL,8);
//$bplot->value->SetAlign('left','center');
$bplot[$index]->value->SetColor("white");
$bplot[$index]->value->SetFormat(getCurrencySymbol().'%d');
$bplot[$index]->SetValuePos('max');
//set client side image map URL's
$bplot[$index]->SetCSIMTargets($aTargets[$the_id],$aAlts[$the_id]);
$log->debug("bplot[$index] is: ");
$log->debug($bplot[$index]);
$log->debug("datay[$the_id] is: ");
$log->debug($datay[$the_id]);
$index++;
}
// Create the grouped bar plot
$gbplot = new AccBarPlot($bplot);
// Add the bar to the graph
$graph->Add($gbplot);
// No frame around the image
$graph->SetFrame(true,"white");
// Rotate graph 90 degrees and set margin
$top = 20;
$bottom = 70;
$left = 130;
$right = 40;
$graph->Set90AndMargin($left,$right,$top,$bottom);
// Set white margin color
$graph->SetMarginColor('#F5F5F5');
// Use a box around the plot area
$graph->SetBox();
// Use a gradient to fill the plot area
$graph->SetBackgroundGradient('#E5E5E5','white',GRAD_HOR,BGRAD_PLOT);
if($theme == "blue")
{
$font_color = "#212473";
}
else
{
$font_color = "#000000";
}
// Setup title
$title = $current_module_strings['LBL_TOTAL_PIPELINE'].getCurrencySymbol().$total.$app_strings['LBL_THOUSANDS_SYMBOL'];
$graph->title->Set($title);
$graph->title->SetColor($font_color);
$graph->title->SetFont($font,FS_BOLD,11);
// Setup X-axis
$graph->xaxis->SetTickLabels($legend);
$graph->xaxis->SetColor($font_color);
$graph->xaxis->SetFont($font,FS_NORMAL,8);
// Some extra margin looks nicer
$graph->xaxis->SetLabelMargin(10);
// Label align for X-axis
$graph->xaxis->SetLabelAlign('right','center');
// Add some grace to y-axis so the bars doesn't go
// all the way to the end of the plot area
$graph->yaxis->scale->SetGrace(10);
// Setup the Y-axis to be displayed in the bottom of the
// graph. We also finetune the exact layout of the title,
// ticks and labels to make them look nice.
$graph->yaxis->SetPos('max');
// First make the labels look right
$graph->yaxis->SetColor($font_color);
$graph->yaxis->SetLabelAlign('center','top');
$graph->yaxis->SetLabelFormat(getCurrencySymbol().'%d');
$graph->yaxis->SetLabelSide(SIDE_RIGHT);
// The fix the tick marks
$graph->yaxis->SetTickSide(SIDE_LEFT);
// Finally setup the title
$graph->yaxis->SetTitleSide(SIDE_RIGHT);
$graph->yaxis->SetTitleMargin(35);
$subtitle .= $current_module_strings['LBL_OPP_SIZE'].getCurrencySymbol().$current_module_strings['LBL_OPP_SIZE_VALUE'];
$graph->footer->right->Set($subtitle);
$graph->footer->right->SetColor($font_color);
$graph->footer->right->SetFont($font,FS_NORMAL,8);
$graph->yaxis->SetFont($font,FS_NORMAL, 8);
// .. and stroke the graph
$graph->Stroke($cache_file_name);
$imgMap = $graph->GetHTMLImageMap('pipeline');
save_image_map($cache_file_name.'.map', $imgMap);
}
else {
$imgMap_fp = fopen($cache_file_name.'.map', "rb");
$imgMap = fread($imgMap_fp, filesize($cache_file_name.'.map'));
fclose($imgMap_fp);
}
$fileModTime = filemtime($cache_file_name.'.map');
$return = "\n$imgMap\n";
$return .= "<img src='$cache_file_name?modTime=$fileModTime'\n";
$return .= "ismap usemap='#pipeline' border='0'>\n";
return $return;
}
/**
* Creates pie chart image of opportunities by lead_source.
* param $datax- the sales stage data to display in the x-axis
* param $datay- the sum of opportunity amounts for each opportunity in each sales stage
* to display in the y-axis
* Portions created by SugarCRM are Copyright (C) SugarCRM, Inc..
* All Rights Reserved..
* Contributor(s): ______________________________________..
*/
function pipeline_by_lead_source($legends=array('foo','bar'), $user_id=array('1'), $cache_file_name='a_file', $refresh=true) {
global $app_strings,$lang_crm, $current_module_strings, $log, $charset, $tmp_dir;
global $theme;
include_once ("jpgraph/src/jpgraph_pie.php");
include_once ("jpgraph/src/jpgraph_pie3d.php");
$font = calculate_font_family($lang_crm);
if (!file_exists($cache_file_name) || !file_exists($cache_file_name.'.map') || $refresh == true) {
$log =& LoggerManager::getLogger('opportunity charts');
$log->debug("starting pipeline chart");
$log->debug("legends is:");
$log->debug($legends);
$log->debug("user_id is: ");
$log->debug($user_id);
$log->debug("cache_file_name is: $cache_file_name");
//Now do the db queries
//query for opportunity data that matches $legends and $user
$where="";
//build the where clause for the query that matches $user
$count = count($user_id);
if ($count>0) {
$where = "(";
$first = true;
foreach ($user_id as $the_id) {
if (!$first) $where .= "OR ";
$first = false;
$where .= "crmentity.smcreatorid='$the_id' ";
}
$where .= ") ";
}
//build the where clause for the query that matches $datax
$count = count($legends);
if ($count>0) {
$where .= "AND ( ";
$first = true;
foreach ($legends as $key=>$value) {
if (!$first) $where .= "OR ";
$first = false;
$where .= "leadsource ='$key' ";
}
$where .= ")";
}
$opp = new Potential();
$opp_list = $opp->get_full_list("amount DESC, closingdate DESC", $where);
//build pipeline by lead source data
$total = 0;
$count = array();
$sum = array();
if (isset($opp_list)) {
foreach ($opp_list as $record) {
if (!isset($sum[$record->column_fields['leadsource']])) $sum[$record->column_fields['leadsource']] = 0;
if (isset($record->column_fields['amount']) && isset($record->column_fields['leadsource'])) {
// Strip all non numbers from this string.
$amount = ereg_replace('[^0-9]', '', $record->column_fields['amount']);
$sum[$record->column_fields['leadsource']] = $sum[$record->column_fields['leadsource']] + ($amount/1000);
if (isset($count[$record->column_fields['leadsource']])) $count[$record->column_fields['leadsource']]++;
else $count[$record->column_fields['leadsource']] = 1;
$total = $total + ($amount/1000);
}
}
}
$visible_legends = array();
$data= array();
$aTargets = array();
$aAlts = array();
foreach ($legends as $lead_source_key=>$lead_source_translation) {
if (isset($sum[$lead_source_key]))
{
array_push($data, $sum[$lead_source_key]);
if($lead_source_key != '')
{
array_push($visible_legends, $lead_source_translation);
}
else
{
// put none in if the field is blank.
array_push($visible_legends, $current_module_strings['NTC_NO_LEGENDS']);
}
array_push($aTargets, "index.php?module=Potentials&action=ListView&leadsource=".urlencode($lead_source_key)."&query=true");
array_push($aAlts, $count[$lead_source_key]." ".$current_module_strings['LBL_OPPS_IN_LEAD_SOURCE']." $lead_source_translation ");
}
}
$log->debug("sum is:");
$log->debug($sum);
$log->debug("count is:");
$log->debug($count);
$log->debug("total is: $total");
if ($total == 0) {
return ($current_module_strings['ERR_NO_OPPS']);
}
if($theme == "blue")
{
$font_color = "#212473";
}
else
{
$font_color = "#000000";
}
// Create the Pie Graph.
$graph = new PieGraph(490,260,$cache_file_name);
$graph->SetShadow();
// Setup title
$title = $current_module_strings['LBL_TOTAL_PIPELINE'].getCurrencySymbol().$total.$app_strings['LBL_THOUSANDS_SYMBOL'];
$graph->title->Set($title);
$graph->title->SetColor($font_color);
$graph->title->SetFont($font,FS_BOLD,11);
// No frame around the image
$graph->SetFrame(false);
//$graph->SetMarginColor('#F5F5F5');
$graph->legend->Pos(0.01,0.10);
$graph->legend->SetColor($font_color);
$graph->legend->SetFont($font,FS_NORMAL,12);
$subtitle = $current_module_strings['LBL_OPP_SIZE'].getCurrencySymbol().$current_module_strings['LBL_OPP_SIZE_VALUE'];
$graph->footer->left->Set($subtitle);
$graph->footer->left->SetColor($font_color);
$graph->footer->left->SetFont($font,FS_NORMAL,8);
// Create pie plot
$p1 = new PiePlot3d($data);
$p1->SetSize(0.30);
$p1->SetTheme("water");
$p1->SetCenter(0.33,0.35);
$p1->SetAngle(30);
$p1->value->SetFont($font,FS_NORMAL,12);
$p1->SetLegends($visible_legends);
$p1->SetLabelType(PIE_VALUE_ABS);
$p1->value->SetFormat(getCurrencySymbol().'%d');
//set client side image map URL's
$p1->SetCSIMTargets($aTargets,$aAlts);
$graph->Add($p1);
$graph->Stroke($cache_file_name);
$imgMap = $graph->GetHTMLImageMap('pipeline_by_lead_source');
save_image_map($cache_file_name.'.map', $imgMap);
}
else {
$imgMap_fp = fopen($cache_file_name.'.map', "rb");
$imgMap = fread($imgMap_fp, filesize($cache_file_name.'.map'));
fclose($imgMap_fp);
}
$fileModTime = filemtime($cache_file_name.'.map');
$return = "\n$imgMap\n";
$return .= "<img src='$cache_file_name?modTime=$fileModTime'\n";
$return .= "ismap usemap='#pipeline_by_lead_source' border='0'>\n";
return $return;
}
}
/**
* Creates a file with the image map
* param $filename - file name to save to
* param $image_map - image map string to save
* Portions created by SugarCRM are Copyright (C) SugarCRM, Inc.
* All Rights Reserved.
* Contributor(s): ______________________________________..
*/
function save_image_map($filename,$image_map) {
// save the image map to file
$log =& LoggerManager::getLogger('save_image_file');
if (!$handle = fopen($filename, 'w')) {
$log->debug("Cannot open file ($filename)");
return;
}
// Write $somecontent to our opened file.
if (fwrite($handle, $image_map) === FALSE) {
$log->debug("Cannot write to file ($filename)");
return false;
}
$log->debug("Success, wrote ($image_map) to file ($filename)");
fclose($handle);
return true;
}
// retrieve the translated strings.
$app_strings = return_application_language($current_language);
if(isset($app_strings['LBL_CHARSET']))
{
$charset = $app_strings['LBL_CHARSET'];
}
else
{
$charset = $default_charset;
}
?>