Siebel Tools >  eScript example : Close all activities that do not have an Order linked

eScript example : Close all activities that do not have an Order linked

function UpdateActivities()
{

var BusObj:BusObject = null;
var BusComp:BusComp = null;
var BusObj1:BusObject = null;
var BusComp1:BusComp = null;

try{

BusObj = TheApplication().GetBusObject("Action");
BusComp = BusObj.GetBusComp("Action");
BusObj1 = TheApplication().GetBusObject("Order Entry (Sales)");
BusComp1 = BusObj.GetBusComp("Order Entry - Orders");
BusComp.ClearToQuery();
BusComp.SetViewMode(AllView);
BusComp.ActivateField("Order Id");
BusComp.SetSearchExpr("[Status]<> 'Completed' AND [Status]<> 'Cancelled' AND [Order Id] IS NULL ");
BusComp.ExecuteQuery(ForwardOnly);
if(BusComp.FirstRecord())

{
do {
BusComp1.ClearToQuery();
BusComp1.SetViewMode(AllView);
BusComp1.SetSearchExpr("[Id]<>'"+BusComp.GetFieldValue("Order Id")+"'");
BusComp1.ExecuteQuery(ForwardOnly);
if(!BusComp1.FirstRecord())
{
BusComp.SetFieldValue("Status","Completed");
BusComp.WriteRecord();
}
}while(BusComp.NextRecord());
}
}catch(e){
throw e;

}finally{

BusComp = null;
BusObj = null;
BusComp1 = null;
BusObj1 = null;
}

}