GetKey();
$sOQLProject = "SELECT lnkContactToTicket AS l1 JOIN Project AS p ON l1.ticket_id=p.id WHERE p.status != 'closed' AND l1.contact_id= :contact";
$sOQLWBS = "SELECT lnkContactToWBS AS l2 JOIN WBS AS wbs ON l2.wbs_id=wbs.id JOIN Project AS p ON wbs.project_id=p.id WHERE p.status != 'closed' AND wbs.status NOT IN ('cancel','closed') AND l2.contact_id=:contact";
$sOQLProjectManager = "SELECT Project AS p WHERE p.status != 'closed' AND (p.agent_id= :contact OR p.caller_id= :contact)";
$sOQLWBSManager = "SELECT WBS AS wbs JOIN Project AS p ON wbs.project_id=p.id WHERE p.status != 'closed' AND wbs.status NOT IN ('cancel','closed') AND wbs.wbs_owner_id=:contact";
$oOQLProjectSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLProject), array(), array('contact' => $iContactid));
$oOQLWBSSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLWBS), array(), array('contact' => $iContactid));
$oOQLProjectManagerSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLProjectManager), array(), array('contact' => $iContactid));
$oOQLWBSManagerSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLWBSManager), array(), array('contact' => $iContactid));
$iContactProjectSet = $oOQLProjectSet->Count();
$iContactWBSSet = $oOQLWBSSet->Count();
$iContactProjectManagerSet = $oOQLProjectManagerSet->Count();
$iContactWBSManagerSet = $oOQLWBSManagerSet->Count();
if (($iContactProjectSet> 0) || ($iContactWBSSet> 0) || ($iContactProjectManagerSet> 0) || ($iContactWBSManagerSet> 0))
{
$oPage->SetCurrentTab(Dict::S('Class:Contact/Tab:PMP'));
if ($iContactProjectManagerSet > 0)
{
$aDetails = array();
$aExtraParam = array ('menu'=>true, 'display_limit'=>false);
if (version_compare(ITOP_DESIGN_LATEST_VERSION, 3.0) < 0) {
$oPage->p(MetaModel::GetClassIcon('Project').' '.Dict::S('Contact:Info:ProjectManager'));
} else {
$aExtraParam['panel_title'] = Dict::S('Contact:Info:ProjectManager');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'Project';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('Project',false);
}
$oBlock = new DisplayBlock($oOQLProjectManagerSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'project_manager', $aExtraParam);
}
if ( $iContactProjectSet> 0) {
$aDetails = array();
$aExtraParam = array ('menu'=>true,
'zlist' => version_compare(ITOP_DESIGN_LATEST_VERSION, 3.1, '<') ? false : 'list',
'display_limit'=>false,
'view_link'=>false,
'extra_fields' => 'ticket_id,influence,power,allocated_percent,allocated_days',
);
if (version_compare(ITOP_DESIGN_LATEST_VERSION, 3.0) < 0) {
$oPage->p(MetaModel::GetClassIcon('Project').' '.Dict::S('Class:Contact/Attribute:project_list'));
} else {
$aExtraParam['panel_title'] = Dict::S('Class:Contact/Attribute:project_list');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'Project';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('Project',false);
}
$oBlock = new DisplayBlock($oOQLProjectSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'project_contact', $aExtraParam);
}
if ( $iContactWBSManagerSet> 0)
{
$aDetails = array();
$aExtraParam = array ('menu'=>true, 'display_limit'=>false);
if (version_compare(ITOP_DESIGN_LATEST_VERSION, 3.0) < 0) {
$oPage->p(MetaModel::GetClassIcon('WBS').' '.Dict::S('Contact:Info:WBSManager'));
} else {
$aExtraParam['panel_title'] = Dict::S('Contact:Info:WBSManager');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'WBS';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('WBS',false);
}
$oBlock = new DisplayBlock($oOQLWBSManagerSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'WBS_manager', $aExtraParam);
}
if ( $iContactWBSSet> 0)
{
$aDetails = array();
$aExtraParam = array ('menu'=>true,
'zlist' => version_compare(ITOP_DESIGN_LATEST_VERSION, 3.1, '<') ? false : 'list',
'display_limit'=>false,
'view_link'=>false,
'extra_fields' => 'project_id,wbs_id,influence,power,allocated_percent,allocated_days',
);
if (version_compare(ITOP_DESIGN_LATEST_VERSION, 3.0) < 0) {
$oPage->p(MetaModel::GetClassIcon('WBS').' '.Dict::S('Class:Contact/Attribute:wbs_list'));
} else {
$aExtraParam['panel_title'] = Dict::S('Class:Contact/Attribute:wbs_list');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'WBS';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('WBS',false);
}
$oBlock = new DisplayBlock($oOQLWBSSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'WBS_contact', $aExtraParam);
}
}
parent::DisplayBareRelations($oPage, $bEditMode);
}
]]>
GetKey();
// /In order to be able to add the wbs on the object generated for the moment in memory (no real ID as long as the copied object is not inserted in the database,
// one recovers the attribute physicalinterface_list as object)
// WBS linked to the Project
$sOQL1 = "SELECT WBS WHERE project_id = :id";
$oDeliverableSetSrc = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQL1), array(), array('id' => $iSrcId));
$aSrcToNewId = [];
$aLinkParentToChildSrc = [];
$aNewDeliverable = [];
$oCopier = new iTopObjectCopier();
while ($oDeliverableSrc = $oDeliverableSetSrc->Fetch()) {
$oNewDeliverable = new WBS();
$oCopier->ExecAction("clone_scalars", [], $oDeliverableSrc, $oNewDeliverable);
$oNewDeliverable->Set('project_id', null);
$oNewDeliverable->Set('end_date', null);
$oNewDeliverable->Set('start_date', null);
$oNewDeliverable->Set('completion', 0);
$oNewDeliverable->Set('re_estimated_start_date', null);
$oNewDeliverable->Set('re_estimated_end_date', null);
$oNewDeliverable->Set('freetime', null);
$oNewDeliverable->Set('status', "running");
$oParentWBSSet = $oDeliverableSrc->Get('wbss_parent_list');
if ($oParentWBSSet->Count() > 0) {
$oParentWBSSet->Rewind();
$aLink = [];
while ($oLnkDst = $oParentWBSSet->Fetch()) {
$aLink[] = $oLnkDst->Get('parent_wbs_id');
}
$aLinkParentToChildSrc[$oDeliverableSrc->GetKey()] = $aLink;
}
$iNewDeliverableKey = $oNewDeliverable->DBInsert();
$aSrcToNewId[$oDeliverableSrc->GetKey()] = $iNewDeliverableKey;
$aNewDeliverable[$iNewDeliverableKey] = $oNewDeliverable;
}
foreach ($aLinkParentToChildSrc as $iChildSrc => $iParentsSetSrc) {
$iDelivable = $aSrcToNewId[$iChildSrc];
$oDelivable = $aNewDeliverable[$iDelivable];
$oLnk = $oDelivable->Get('wbss_parent_list');
$oLnk->rewind();
foreach ($iParentsSetSrc as $iOldParent) {
$oLnkDst = MetaModel::NewObject('lnkWBSToWBS');
$oLnkDst->Set('child_wbs_id', $iDelivable);
$oLnkDst->Set('parent_wbs_id', $aSrcToNewId[$iOldParent]);
$oLnk->AddItem($oLnkDst);
}
$oDelivable->Set('status', "pending_parent");
$oDelivable->Set('wbss_parent_list', $oLnk);
$oDelivable->DBUpdate();
}
$oListDelivrableSet = DBObjectSet::FromArray("WBS", $aNewDeliverable);
$this->Set('wbss_list', $oListDelivrableSet);
}
else{
$oCopier = new iTopObjectCopier();
$oCopier->ExecAction("clone", ["wbss_list"], $oSource, $this);
}
}
]]>
Set('last_update', time());
$this->Set('creation_date', time());
// I copy end date in revised_end date if this one is null
if ($this->Get('revised_end_date') == NULL )
{
$this->Set('revised_end_date',$this->Get('end_date'));
}
}
]]>
Set('last_update', time());
}
]]>
";
} else {
return $sURL;
}
}
]]>
GetKey();
$sOQLWBS = "SELECT WBS WHERE project_id = :project AND status NOT IN ('cancel','closed')";
$sOQLWBSCost = "SELECT WBS WHERE project_id = :project AND status NOT IN ('cancel')";
$sOQLContactProject = "SELECT lnkContactToTicket AS l1 WHERE l1.ticket_id = :project";
$sOQLContactWBS = "SELECT lnkContactToWBS AS l2 JOIN WBS AS wbs ON l2.wbs_id=wbs.id WHERE wbs.status NOT IN ('cancel','closed') AND wbs.project_id=:project";
$oWBSSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLWBS), array(), array('project' => $iProjectid));
$oWBSCostSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLWBSCost), array(), array('project' => $iProjectid));
$oContactProjectSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLContactProject), array(), array('project' => $iProjectid));
$oContactWBSSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLContactWBS), array(), array('project' => $iProjectid));
$iWBSSet = $oWBSSet->Count();
$iContactProjectSet = $oContactProjectSet->Count();
$iContactWBSSet = $oContactWBSSet->Count();
$iWBSCosts=0;
while ($oWBS = $oWBSCostSet->Fetch())
{
$iWBSCosts += $oWBS->Get('wbs_cost');
}
$oPage->SetCurrentTab(Dict::S('Class:Project/Tab:Summary'));
//method of display depends of iTop Version
if (version_compare(ITOP_DESIGN_LATEST_VERSION , 3.0) >= 0) {
$oTitle = Combodo\iTop\Application\UI\Base\Component\Title\TitleUIBlockFactory::MakeNeutral(Dict::S('Class:Project/Tab:Summary+'),2);
$oTitle->SetIcon($this->GetImage('document.png',false));
$oTitle->AddCSSClass('pmp-summary-title');
$oPage->AddUiBlock($oTitle);
$oPage->add_style(".pmp-summary-title .ibo-title--icon-background{ width: 48px; height: 48px;}");
$oPage->AddUiBlock($oTitle);
$oMulticolumn = Combodo\iTop\Application\UI\Base\Layout\MultiColumn\MultiColumnUIBlockFactory::MakeStandard();
$oMulticolumn->AddCSSClass('display_block');
$oPage->AddSubBlock($oMulticolumn);
$oFieldSetCol1 = Combodo\iTop\Application\UI\Base\Component\FieldSet\FieldSetUIBlockFactory::MakeStandard(Dict::S('Class:Project:Summary_general'));
$oMulticolumn->AddColumn(Combodo\iTop\Application\UI\Base\Layout\MultiColumn\Column\ColumnUIBlockFactory::MakeForBlock($oFieldSetCol1));
$FieldLayout = Combodo\iTop\Application\UI\Base\Component\Field\Field::ENUM_FIELD_LAYOUT_SMALL;
$oFieldTitle = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject(MetaModel::GetLabel('Project', 'title'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($this->GetAsHTML('title')),$FieldLayout);
$oFieldTitle->SetInputId( 'title');
$oFieldSetCol1->AddSubBlock($oFieldTitle);
$oFieldStatus = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject(MetaModel::GetLabel('Project', 'status'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($this->GetAsHTML('status')),$FieldLayout);
$oFieldStatus->SetInputId( 'status');
$oFieldSetCol1->AddSubBlock($oFieldStatus);
$oFieldAgent = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject(MetaModel::GetLabel('Project', 'agent_id'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($this->GetAsHTML('agent_id')),$FieldLayout);
$oFieldAgent->SetInputId( 'agent_id');
$oFieldSetCol1->AddSubBlock($oFieldAgent);
$oFieldEndDate = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject(MetaModel::GetLabel('Project', 'revised_end_date'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($this->GetAsHTML('revised_end_date')),$FieldLayout);
$oFieldEndDate->SetInputId( 'revised_end_date');
$oFieldSetCol1->AddSubBlock($oFieldEndDate);
$oFieldEndDateCalcul = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject(MetaModel::GetLabel('Project', 'calculated_end_date'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($this->GetAsHTML('calculated_end_date')),$FieldLayout);
$oFieldEndDateCalcul->SetInputId( 'calculated_end_date');
$oFieldSetCol1->AddSubBlock($oFieldEndDateCalcul);
$oFieldSetCol2 = Combodo\iTop\Application\UI\Base\Component\FieldSet\FieldSetUIBlockFactory::MakeStandard(Dict::S('Class:Project:Summary_costs'));
$oMulticolumn->AddColumn(Combodo\iTop\Application\UI\Base\Layout\MultiColumn\Column\ColumnUIBlockFactory::MakeForBlock($oFieldSetCol2));
$oFieldEstimated = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject(MetaModel::GetLabel('Project', 'estimated_budget'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($this->GetAsHTML('estimated_budget')),$FieldLayout);
$oFieldEstimated->SetInputId( 'estimated_budget');
$oFieldSetCol2->AddSubBlock($oFieldEstimated);
$oFieldDelivrable = Combodo\iTop\Application\UI\Base\Component\Field\FieldUIBlockFactory::MakeFromObject( Dict::S('Class:Project:Display:delivrables_costs'), new Combodo\iTop\Application\UI\Base\Component\Html\Html($iWBSCosts),$FieldLayout);
$oFieldDelivrable->SetInputId( 'delivrables_costs');
$oFieldSetCol2->AddSubBlock($oFieldDelivrable);
if ( $iContactProjectSet> 0)
{
$aExtraParam = array ('menu'=>true,
'zlist' => version_compare(ITOP_DESIGN_LATEST_VERSION, 3.1, '<') ? false : 'list',
'display_limit'=>false,
'view_link'=>false,
'extra_fields' => 'category,contact_id,influence,power,allocated_percent,allocated_days',
);
$aExtraParam['panel_title'] = Dict::S('Class:WBS/Attribute:contacts_list_proj_displaybare');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'Contact';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('Contact',false);
$oBlock = new DisplayBlock($oContactProjectSet->GetFilter(), 'list', false);
$oPage->AddSubBlock($oBlock->GetDisplay($oPage, 'project_contacts', $aExtraParam));
}
if ( $iContactWBSSet> 0)
{
$aExtraParam = array ('menu'=>true,
'zlist' => version_compare(ITOP_DESIGN_LATEST_VERSION, 3.1, '<') ? false : 'list',
'display_limit'=>false,
'view_link'=>false,
'extra_fields' => 'category,contact_id,wbs_id,influence,power,allocated_percent,allocated_days',
);
$aExtraParam['panel_title'] = Dict::S('Class:WBS/Attribute:contacts_list_wbs_displaybare');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'Contact';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('Contact',false);
$oBlock = new DisplayBlock($oContactWBSSet->GetFilter(), 'list', false);
$oPage->AddSubBlock($oBlock->GetDisplay($oPage, 'WBS_contacts', $aExtraParam));
}
if ($iWBSSet > 0)
{
$aExtraParam = array ('menu'=>true, 'display_limit'=>false);
$aExtraParam['panel_title'] = Dict::S('Class:Project/Attribute:wbss_list_displaybare');
$aExtraParam["surround_with_panel"] = true;
$aExtraParam["panel_class"] = 'WBS';
$aExtraParam["panel_icon"] = MetaModel::GetClassIcon('WBS',false);
$oBlock = new DisplayBlock($oWBSSet->GetFilter(), 'list', false);
$oPage->AddSubBlock($oBlock->GetDisplay($oPage, 'project_open_deliverables', $aExtraParam));
$aScope = array(
'title' => Dict::S('GanttDashlet/Label'),
'oql' => 'SELECT WBS WHERE project_id = '.$iProjectid.' AND status !=\'cancel\'',
'extra_params'=>'',
'depends_on' => 'wbss_parent_list',
'target_depends_on' =>'parent_wbs_id',
'label' => 'name',
'start_date' => 're_estimated_start_date',
'end_date' =>'re_estimated_end_date',
'additional_info1' => 'wbs_owner_id_friendlyname',
'additional_info2' => '',
'percentage' => 'completion',
'parent' => 'project_id',
'class' => 'WBS',
'status' => 'status',
'save_allowed' => false,
'parent_fields'=>array(
'class' => 'Project',
'label' => 'title',
'start_date' => 'start_date',
'end_date' =>'end_date',
'status' => 'status',
'additional_info1' => 'agent_id_friendlyname',
'additional_info2' => '',
'percentage' => '',
'parent' => '',
)
);
$oView = new Gantt($aScope);
$oPage->AddSubBlock($oView->Display($oPage));
if($oPage->isPrintableVersion())
{
$oPage->add_ready_script('$(".gant-container").css("max-width",$(".printable-content").width()-24);');
$oPage->add_ready_script('$("[name=text]").on("click", function() { $(".gant-container").css("max-width",$(".printable-content").width()-24);});');
}
}
} else {
$oPage->p($this->GetImage('document.png',true).' '.Dict::Format('Class:Project/Tab:Summary+'));
$oPage->add('');
$oPage->add('');
$oPage->add('');
$oPage->add('');
$oPage->add(' ');
$oPage->add('');
$oPage->add('');
$oPage->add(' ');
$oPage->add('
');
if ( $iContactProjectSet> 0)
{
$aExtraParam = array ('menu'=>true,
'zlist' => version_compare(ITOP_DESIGN_LATEST_VERSION, 3.1, '<') ? false : 'list',
'display_limit'=>false,
'view_link'=>false,
'extra_fields' => 'category,contact_id,influence,power,allocated_percent,allocated_days',
);
$oPage->p(MetaModel::GetClassIcon('Contact').' '.Dict::S('Class:WBS/Attribute:contacts_list_proj_displaybare'));
$oBlock = new DisplayBlock($oContactProjectSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'project_contacts', $aExtraParam);
}
if ( $iContactWBSSet> 0)
{
$aExtraParam = array ('menu'=>true,
'zlist' => version_compare(ITOP_DESIGN_LATEST_VERSION, 3.1, '<') ? false : 'list',
'display_limit'=>false,
'view_link'=>false,
'extra_fields' => 'category,contact_id,wbs_id,influence,power,allocated_percent,allocated_days',
);
$oPage->p(MetaModel::GetClassIcon('Contact').' '.Dict::S('Class:WBS/Attribute:contacts_list_wbs_displaybare'));
$oBlock = new DisplayBlock($oContactWBSSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'WBS_contacts', $aExtraParam);
}
if ($iWBSSet > 0)
{
$aExtraParam = array ('menu'=>true, 'display_limit'=>false);
$oPage->p(MetaModel::GetClassIcon('WBS').' '.Dict::S('Class:Project/Attribute:wbss_list_displaybare'));
$oBlock = new DisplayBlock($oWBSSet->GetFilter(), 'list', false);
$oBlock->Display($oPage, 'project_open_deliverables', $aExtraParam);
$aScope = array(
'title' => Dict::S('GanttDashlet/Label'),
'oql' => 'SELECT WBS WHERE project_id = '.$iProjectid.' AND status !=\'cancel\'',
'extra_params'=>'',
'depends_on' => 'wbss_parent_list',
'target_depends_on' =>'parent_wbs_id',
'label' => 'name',
'start_date' => 're_estimated_start_date',
'end_date' =>'re_estimated_end_date',
'additional_info1' => 'wbs_owner_id_friendlyname',
'additional_info2' => '',
'percentage' => 'completion',
'parent' => 'project_id',
'class' => 'WBS',
'status' => 'status',
'save_allowed' => false,
'parent_fields'=>array(
'class' => 'Project',
'label' => 'title',
'start_date' => 'start_date',
'end_date' =>'end_date',
'status' => 'status',
'additional_info1' => 'agent_id_friendlyname',
'additional_info2' => '',
'percentage' => '',
'parent' => '',
)
);
$oPage->add('');
}
}
parent::DisplayBareRelations($oPage, $bEditMode);
$oPage->RemoveTab('Ticket:ImpactAnalysis');
}
]]>
Get('revised_end_date') != NULL )
{
$sEndDateProject = $this->Get('revised_end_date');
}
else
{
$sEndDateProject = $this->Get('end_date');
}
$iEndDateProject = AttributeDateTime::GetAsUnixSeconds($sEndDateProject);
if ($iEndDateProject != NULL)
{
return array('end_date_project_integer'=> $iEndDateProject, 'end_date_project_string'=> $sEndDateProject);
}
}
]]>
Get('start_date') > $this->Get('end_date'))
{
$this->m_aCheckIssues[] = Dict::Format('Project:Error:EndDateMustBeGreaterThanStartDate');
}
if ($this->Get('calculated_end_date') > $this->Get('revised_end_date'))
{
$this->m_aCheckIssues[] = Dict::Format('Project:Error:ProjectEndDateMustBeGreaterThanWBSEndDate');
}
}
]]>
Get('start_date')))
{
$this->Set('start_date', time());
}
}
]]>
WBS_costs_budget();
$this->SetProjectWBScalculated();
$aInitialDates = array();
$aInitialDates = $this->SetWBSStartEndDates();
if (MetaModel::IsValidAttCode('WBS','freetime'))
{
$this->Set('freetime',$aInitialDates['freetime_integer']);
}
// I copy start date in estimate_start date
if ($this->Get('re_estimated_start_date') == NULL )
{
$this->Set('re_estimated_start_date',$this->Get('start_date'));
}
// I copy end date in estimate_end date
if ($this->Get('re_estimated_end_date') == NULL )
{
$this->Set('re_estimated_end_date',$this->Get('end_date'));
}
// I set delay to be used in future for calculation
$this->Set('delay',$aInitialDates['delay']);
}
]]>
WBS_costs_budget();
$this->SetProjectWBScalculated();
$aInitialDates = array();
$aInitialDates = $this->SetWBSStartEndDates();
if (MetaModel::IsValidAttCode('WBS','freetime'))
{
$this->Set('freetime',$aInitialDates['freetime_integer']);
}
//Im on child, I look for my parents
$oParentWBSSet = $this->Get('wbss_parent_list');
if ($oParentWBSSet->Count() > 0)
{
$oParentWBSSet->Rewind();
$bParentActive=false;
while ($oLink = $oParentWBSSet->Fetch())
{
$iKey = $oLink->Get('parent_wbs_id');
$oParentWBS = MetaModel::GetObject('WBS', $iKey);
if (!in_array($oParentWBS->Get('status'),array('cancel','closed')))
{
if ($oParentWBS->Get('re_estimated_end_date') > $this->Get('re_estimated_start_date'))
{
$this->Set('re_estimated_start_date',$oParentWBS->Get('re_estimated_end_date'));
$iNewStartDate = AttributeDateTime::GetAsUnixSeconds($oParentWBS->Get('re_estimated_end_date'));
$iEndDate = $iNewStartDate+$this->Get('delay');
$this->Set('re_estimated_end_date',$iEndDate);
}
$bParentActive=true;
}
}
if ($bParentActive && ($this->Get('status') == 'running'))
{
$this->ApplyStimulus('ev_pending_parent');
}
}
else
{
if ($this->Get('status') == 'pending_parent')
{
$this->ApplyStimulus('ev_running');
}
}
//I updated my startdate or enddate (due to parent WBS or not)
$aChanges = $this->ListChanges();
if (array_key_exists('re_estimated_start_date', $aChanges) || array_key_exists('re_estimated_end_date', $aChanges))
{
$iStartDate = AttributeDateTime::GetAsUnixSeconds($this->Get('re_estimated_start_date'));
$iEndDate = AttributeDateTime::GetAsUnixSeconds($this->Get('re_estimated_end_date'));
$idelay = $iEndDate - $iStartDate;
// I update delay to be used in future for calculation
$this->Set('delay',$idelay);
}
if (array_key_exists('time_planned', $aChanges) || array_key_exists('completion', $aChanges))
{
$this->SetProjectCompletion();
}
}
]]>
$this->GetKey()));
$iParentToExclude = $this->GetKey();
while ($oChildWBS = $oChildWBSSet->Fetch())
{
// for each child, check if it has another parent deliverable not closed
$sOQL = "SELECT WBS AS parent JOIN lnkWBSToWBS AS ln ON ln.parent_wbs_id=parent.id WHERE ln.child_wbs_id=:child_wbs AND parent.id !=:child_wbs AND parent.id != $iParentToExclude AND $iParentToExclude != :child_wbs AND parent.status NOT IN ('closed','cancel')";
$oParentChildWBSSet = new DBObjectSet(DBObjectSearch::FromOQL($sOQL), array(), array('child_wbs' => $oChildWBS->GetKey()));
if (($oParentChildWBSSet->Count() == 0) && ($oChildWBS->Get('status') == 'pending_parent'))
{
$oChildWBS->ApplyStimulus('ev_running');
}
}
return true;
}
]]>
SetProjectCompletion();
//Im on child, I look for my parents
$sOQL = "SELECT WBS AS parent JOIN lnkWBSToWBS AS ln ON ln.parent_wbs_id=parent.id WHERE ln.child_wbs_id=:child_wbs AND parent.status NOT IN ('closed','cancel')";
$oParentWBSSet = new DBObjectSet(DBObjectSearch::FromOQL($sOQL), array('re_estimated_end_date' => false), array('child_wbs' => $this->GetKey()));
if ($oParentWBSSet->Count() > 0)
{
while ($oParentWBS = $oParentWBSSet->Fetch())
{
if ($oParentWBS->Get('re_estimated_end_date') > $this->Get('re_estimated_start_date'))
{
$this->Set('re_estimated_start_date',$oParentWBS->Get('re_estimated_end_date'));
$iNewStartDate = AttributeDateTime::GetAsUnixSeconds($oParentWBS->Get('re_estimated_end_date'));
$iEndDate = $iNewStartDate+$this->Get('delay');
$this->Set('re_estimated_end_date',$iEndDate);
}
}
$this->ApplyStimulus('ev_pending_parent');
$this->DBUpdate();
}
$this->SetProjectCalculatedEndDate();
}
]]>
SetProjectCalculatedEndDate();
$this->StartChildWBS();
// check my dependant deliverable
$sOQLchild = "SELECT WBS AS child JOIN lnkWBSToWBS AS ln ON ln.child_wbs_id=child.id WHERE ln.parent_wbs_id=:parent_wbs AND child.id != :parent_wbs";
$oChildWBSSet = new DBObjectSet(DBObjectSearch::FromOQL($sOQLchild), array(), array('parent_wbs' => $this->GetKey()));
$iParentToExclude = $this->GetKey();
while ($oChildWBS = $oChildWBSSet->Fetch())
{
if ($oChildWBS->Get('re_estimated_start_date') < $this->Get('re_estimated_end_date'))
{
$oChildWBS->Set('re_estimated_start_date',$this->Get('re_estimated_end_date'));
$iNewStartDate = AttributeDateTime::GetAsUnixSeconds($this->Get('re_estimated_end_date'));
$iEndDate = $iNewStartDate+$oChildWBS->Get('delay');
$oChildWBS->Set('re_estimated_end_date',$iEndDate);
$oChildWBS->DBUpdate();
//I postpone end date of my dependant deliverable
}
}
}
]]>
Get('labor_cost') != NULL) || ($this->Get('material_cost') != NULL ) )
{
$iWBScost= ($this->Get('labor_cost') + $this->Get('material_cost'));
$this->Set('wbs_cost', $iWBScost);
}
if ($this->Get('wbs_budget') != NULL)
{
$iWBSfreebudget = ($this->Get('wbs_budget') - $iWBScost);
$this->Set('available_budget', $iWBSfreebudget);
}
}
]]>
Get('re_estimated_start_date') == NULL )
{
$sStartDate = $this->Get('start_date');
}
else
{
$sStartDate = $this->Get('re_estimated_start_date');
}
//if re_estimated_end_date is set set on source ticket, it will be considered instead of end_date
if ($this->Get('re_estimated_end_date') == NULL )
{
$sEndDate = $this->Get('end_date');
}
else
{
$sEndDate = $this->Get('re_estimated_end_date');
}
$iStartDate = AttributeDateTime::GetAsUnixSeconds($sStartDate);
$iEndDate = AttributeDateTime::GetAsUnixSeconds($sEndDate);
$idelay = $iEndDate - $iStartDate;
$oNow = new DateTime();
$ifreeTime = ($iEndDate - $oNow->format('U'));
return array('start_date_integer'=> $iStartDate, 'end_date_integer'=> $iEndDate, 'delay'=> $idelay, 'start_date_string'=> $sStartDate, 'end_date_string'=> $sEndDate, 'freetime_integer' => $ifreeTime );
}
]]>
MakeTicketRef($iNextId);
$this->Set('ref', $sRef);
$iKey = parent::DBInsertNoReload();
return $iKey;
}
]]>
Get('start_date')))
{
$this->Set('start_date', time());
}
}
]]>
Get('start_date') > $this->Get('end_date')) || ($this->Get('re_estimated_start_date') > $this->Get('re_estimated_end_date')))
{
$this->m_aCheckIssues[] = Dict::Format('Project:Error:EndDateMustBeGreaterThanStartDate');
}
$oParentWBSSet = $this->Get('wbss_parent_list');
if ($oParentWBSSet->Count() > 0)
{
$oParentWBSSet->Rewind();
while ($oLink = $oParentWBSSet->Fetch())
{
$iKey = $oLink->Get('parent_wbs_id');
if ($this->GetKey() == $iKey)
{
$this->m_aCheckIssues[] = Dict::Format('WBS:Error:ParentCantBeChildren');
}
}
}
if ($this->Get('wbs_owner_id') != '')
{
$sOQLStakeholders = "SELECT lnkContactToTicket AS l1 JOIN Project AS p ON l1.ticket_id=p.id WHERE p.id= :project_id AND l1.contact_id= :owner_id";
$oOQLStakeholdersSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLStakeholders), array(), array('owner_id' => $this->Get('wbs_owner_id'), 'project_id' => $this->Get('project_id')));
$iContactFound = $oOQLStakeholdersSet->Count();
if ($iContactFound == 0)
{
$this->m_aCheckWarnings[] = Dict::Format('Class:WBS/Error:Contactnotfound',$this->Get('wbs_owner_id_friendlyname'));
}
}
}
]]>
Get('project_id') != 0)
{
$oProject = MetaModel::GetObject('Project', $this->Get('project_id'));
//if project calculated end date is below end date of deliverable
if ($oProject->Get('calculated_end_date') < $this->Get('re_estimated_end_date'))
{
//I set project calculated end date = end date of deliverable
$oProject->Set('calculated_end_date', $this->Get('re_estimated_end_date'));
//If project revised end date is below to end date of deliverable
if ($oProject->Get('revised_end_date') < $this->Get('re_estimated_end_date'))
{
$oProject->Set('revised_end_date', $this->Get('re_estimated_end_date'));
}
$oProject->DBUpdate();
}
}
}
]]>
Get('project_id');
if($iProjectId>0) {//test in order to escape this step for cloning operation
$sOQLWBS = "SELECT WBS WHERE project_id = :project AND status NOT IN ('cancel')";
$oWBSSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLWBS), array(), array('project' => $iProjectId));
$iWBSCosts = 0;
while ($oWBS = $oWBSSet->Fetch())
{
$iWBSCosts += $oWBS->Get('wbs_cost');
}
$oProject = MetaModel::GetObject('Project', $iProjectId, false);
$oProject->Set('wbs_cost',$iWBSCosts);
$oProject->DBUpdate();
}
}
]]>
Get('project_id')))
{
// We remove any criteria set by the default search
$aContextParam['filter']->ResetCondition();
// We set a criteria on the 'org_id' of the searched class with the Contract provider value
$aContextParam['filter']->AddCondition('project_id', $this->Get('project_id'));
}
}
return true;
}
]]>
$this->GetKey()));
$iParentToExclude = $this->GetKey();
while ($oChildWBS = $oChildWBSSet->Fetch())
{
// for each child, if its status is running, I block it to pending_parent
if ($oChildWBS->Get('status') == 'running')
{
$oChildWBS->ApplyStimulus('ev_pending_parent');
}
}
return true;
}
]]>
Get('project_id');
if($iProjectId>0)
{
//test in order to escape this step for cloning operation
$sOQLWBS = "SELECT WBS WHERE project_id = :project AND status NOT IN ('cancel','closed')";
$oWBSSet = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQLWBS), array(), array('project' => $iProjectId));
$iWBSspentdays = 0;
$iWBStotaldays = 0;
$iProjectcompletion = 0;
while ($oWBS = $oWBSSet->Fetch())
{
$iWBStotaldays += $oWBS->Get('time_planned');
$iWBSspentdays += ($oWBS->Get('time_planned')*$oWBS->Get('completion'));
}
if ($iWBStotaldays != 0){
$iProjectcompletion = $iWBSspentdays / $iWBStotaldays;
}
$oProject = MetaModel::GetObject('Project', $iProjectId, false);
$oProject->Set('project_completion',$iProjectcompletion);
$oProject->DBUpdate();
}
}]]>