siebel
siebel编程
1.从哪里开始？
流程：
要求：在最需要的地方写最少的代码，且只写一次
（1）能配置的不要通过代码来开发；
（2）决定代码放在哪个对象上：
共用代码写在BS/应用程序级，建议使用BS，因为BS可以被工作流进程调用，但工作流进程不能调用自定义的应用程序级别的方法。
如果某个方法处理的是特定BC上的数据，那么写在这个BC上，这样可以避免在使用该BC的Applet上多次复制类似代码。
applet Server script的使用：查询、插入、更新和删除操作；访问本条记录之外其他记录的数据。
applet browser script的使用：与用户交互；与桌面应用程序交互；对当前记录的验证与处理。
（3）定代码放在哪个事件上：
对BS而言有两大类事件，分别是Pre-event类事件和reactive类事件。
Pre-event的使用：只是想执行某些验证，不会更改除了当前记录以外的任何记录的值，如PreQuery, PreSetFieldValue, PreWriteRecord等；
reactive的使用：记录更改后还想做进一步操作，如writeRecord；
对于applet而言，大部分applet浏览器端代码一般写在Applet_PreInvokeMethod事件中，在这个事件中开发人员可以捕获applet触发的方法，如用于和用户的桌面、用户、applet外观交互的代码。但不建议将所有方法的代码都写在Applet_PreInvokeMethod事件中，而是用来创建自定义方法，并调用这些自定义方法。
（4）添加错误处理模版。在撰写任何代码前先在合适的地方添加错误/异常处理策略，主要是添加错误处理模版应用于事件中。
（5）添加方法主体。将方法主体代码添加在错误处理框架中，这样你就能捕获任何运行时错误。
（6）测试。
2.编码命名规范：
（1）数据类型命名规范
数据类型名 变量命名前缀
Integer 整型 I
String 字符形 S
Boolean 布尔型 B
Float 浮点型 f（2）不同作用域范围变量的修饰符
作用域 修饰符
全局作用域(仅适用于Siebel VB) G_
模块/实例范围 M_ 或者 i_
函数或者局部作用域 不需要修饰符或者l_3.一定要为代码添加必要的注释
4.将代码放在合适的事件中：
级别 事件 常用用途
应用程序级 BusComp_PreSetFieldValue 字段级别的验证
应用程序级 BusComp_PreWriteRecord 记录级别的验证
应用程序级 BusComp_PreQuery 代码用来控制SearchSpecs
伴随事件 BusComp_SetFieldValue 字段触发的动作
伴随事件 BusComp_WriteRecord 记录触发的动作5.在频繁触发的事件处理器中使用快速代码
6.使用运行时BS还是编译后的BS
（1）运行时BS：不会编译到.srf文件中，代码保存在数据库中，可以随时更改它，由于运行时都是使用最新的BS定义，适合于编写逻辑经常变化的BS代码或需要在不发布新.srf文件的情况下发布BS。缺陷是任何具有访问商务服务管理员视图的人都可以看见代码，这可能会导致安全性问题。
（2）编译后的BS：在Siebel Tools中定义的，适用于需要更高安全性和不怎么更改的功能。需要编译，并且通过一个新的.srf来应用更改。优点是具有更高的安全性，且装载的速度更快。
7.使用合适的调试技巧
（1）使用alert（不会停止代码的执行）或RaiseErrorText（会停止代码的执行）方法来弹出消息框；
（2）使用Trace或者自定义方法将信息写入文件；
（3）使用Siebel的Debugger功能；
（4）使用对象管理器级别的日志功能(object manager level logging)。
8.从存储库中移除没有用的代码
（1）移除下面这些代码：被注释的代码；设置为inactive (禁用)的代码；从不调用的代码。
（2）移除空方法
9.在所有的代码中包括错误处理
Try 块：包括你要执行的逻辑；
Catch块：捕获错误；
Finally块：执行任何清理工作，比如销毁对象引用。
10.合适的使用RaiseError 和 RaiseErrorText
MsgBox只能用于Siebel 6.x或更早版本。
RaiseError 和 RaiseErrorText会产生一个服务器端代码异常，使代码的执行在此处终止。
所以，任何必须执行的代码必须放到调用这些方法的前面。
11.使用异常信息：
（1）异常包括两种信息：
错误描述。描述哪里错了。
堆栈跟踪信息。按照执行顺序列出的直到产生异常地方的方法名称。
（2）异常处理的目的：
捕获异常；
使程序更加稳定；
记录异常信息或者通知用户发生了什么事；
可能，重新抛出异常；
可能，设置返回代码。
（3）在eScript中，异常对象通过以下属性(方法)存储错误信息：
errText属性：exception.errText
当系统在运行时碰到一个错误，或者开发人员使用RaiseErrorText来引发一个异常时，该属性就会包含错误信息。
toString()方法：exception. toString()
从COM对象或者开发人员通过throw方法抛出的异常中异常信息。
12.将return语句放到合适的地方
finally块中的return语句将会覆盖掉产生的异常信息或者别人抛给它的异常信息，这些异常信息不会传出方法外面。
当finally块中的代码产生异常信息时，这样的异常信息会传到方法外面，但是之前的异常信息却丢掉了。
function illustrateReturnStatement()
{
var myVar;
try
{
//executable code goes here
myVar = 1;
}
cache(e)
{
if(defined(e.errText))
{
TheApplication().RaiseErrorText("An exception occurred in the "+" of the "+this.Name()+" object. "+"ERROR: "+e.errText+"“STACK:"+e.toString());
}
else
{
TheApplication.RaiseErrorText("An exception occurred in the "+" of the "+this.Name()+" object. "+"ERROR:"+e.errText+"STACK:"+e.toString());
}
}//end catch
finally
{
//cleanup code goes here
}
return myVar;
}13.使用Top对象来集中浏览器端代码
在客户端代码中，top是到顶层文档的捷径。使用top对象，开发人员可以撰写一个浏览器端代码函数一次，然后从其他的浏览器端对象中调用它。
14.在服务器端代码中何时使用当前上下文，何时使用新的上下文？
当前上下文处理的对象是系统创建用来支持对用户来说可用的数据;
bc = this.BusObject().GetBusComp(“Contact”);bc=TheApplication().ActiveBusObject().GetBusComp(“Contact”);
bc=this；而新上下文是在代码中初始化的一系列对象，它与用户当前看到的对象或者数据没有什么关系。
bo = TheApplication.GetBusObject(“Contact”);
bc = bo.GetBusComp(“Contact”);使用当前上下文：访问用户正在处理的数据；执行的处理(此处应指处理结果)让用户可见。
使用新的上下文：对一个可见的BC执行不可见的查询；在其他的BO上下文中使用一个BC。
15.为变量使用最小的作用域
创建实例级别的变量：
经常会违反封装的原则；
代码的执行会有交叉；
没有事件保证这些对象会被销毁；
理解这类变量的作用域或状态比较困难，因为他们是在一个方法中初始化的，而在另外的方法也可以访问。
更好的做法是：当需要的时候声明和使用对象，然后将他们作为参数传递给其他方法。
16.只在需要时初始化对象，创建没有使用的对象实例会影响系统性能
评估条件—–>创建对象—–>使用对象
17.当对象变量不再使用时要销毁它
（1）对象引用包括：COM对象,属性集 (Property Sets),BS,BC,BO,Applet
（2）应按照程序创建应用对象顺序的逆序来释放对象，先释放子对象，再释放父对象。
Pick/Associate/MVG BC 在父BC之前释放；
BC在BO之前释放；
属性集和BS因为他们是相互独立创建的，所以先释放哪个都没有关系。
（3）应该将对象销毁语句放到错误处理语句中的finally块中，这样不管方法是执行成功还是执行失败后退出，对象都会被销毁的。
finally
{
ChildObject = null;
ParentObject = null;
}18.使用条件块来运行代码
function BusComp_PreSetFieldValue(FieldName, FieldValue)
{
switch(FieldName)
{
case “Status”:
//do something
break;
…
}
…
}19.检查返回的对象是不是你想要的
（1）ActiveBusObject方法。该方法返回的是活动Applet对应的BC所对应的BO。
当BC是多个BO的子对象时，那一定要检查返回的BO是不是你想要的。
ActiveBusObject只有在应用程序级代码或者BS中调用才有意义，而在Applet或者BC中你应该使用：this.BusObject() 。
代码示例：
if(TheApplication().ActiveBusObject().Name() == “some name”)
{
//code here
}（2）ActiveBusComp方法。该方法返回的是与活动Applet相关联的BC。
如果是在BC之外调用该方法，应该检查该方法返回的BC是不是你想要的。
（3）ParentBusComp方法。该方法是根据链接(link)中的子BC返回父BC。总是要检查该方法返回的BC是有效的，且是你想要的。
下面两种情况可能会导致没有可用的引用：
BC是父BC且它没有父BC，比如在Account BO中的Account BC；
在BO中建立的父子关系的link已经被移除了或者更改了。
如果ParentBusComp方法没有返回引用，也不会抛出异常。如果在一个为null的对象上调用方法或者引用属性将会引发运行错误。
var lBC_parent = this.ParentBusComp();
if(lBC_parent != null && lBC_parent.Name() == “some name”)
{
//code
}20.在使用字段之前检查字段是活动的
在非活动字段上调用GetFieldValue 或者SetFieldValue方法会导致数据丢失或者逻辑混乱。
只能在ExecuteQuery执行成功后使用ActivateField方法。作为一个独立语句，ActivateField不会暗中激活一个非活动字段。
ActivateField告诉系统在BC上下次执行的SQL语句时包括这个列。
ActivateField(<Name>);
ExecuteQuery(ForwardOnly);
GetFieldValue(<Name>);（1）只要满足下面条件之一，那么服务器端代码字段就是活动的：
系统(保留)字段，如Id, Created, Created By, Updated, Updated By
BC的LinkSpec属性被设置为TRUE ；
BC的Force Active属性被设置为TRUE；
在活动视图中包含了一个Applet定义；
在活动Applet中该字段被用于计算字段的计算公式中；
使用方法BusComp.ActivateField (strFldName) 显式激活。
（2）满足下面条件之一，那么浏览器端代码字段就是活动的：
Id 字段；
在用户界面上该字段可见。
21.Siebel 7 新方法：ctivateMultipleFields, GetMultipleFieldValues 和 SetMultipleFieldValues。
var lbc_account = this;
var lPS_FieldNames = TheApplication().NewPropertySet();//创建lPS_FieldNames 来保存字段名称
var lPS_FieldValues = TheApplication().NewPropertySet();//创建lPS_FieldValues 在保存字段值
var ls_account_products;
var ls_agreement_name;
var ls_project_name;
var ls_description;
var ls_name;
//使用SetProperty方法设置值以后，调用方法ActivateMultipleFields，Siebel应用程序就会以参数形式传递属性集。
//set up the property set which will be used in all three methods to hold the field names.
lPS_FieldNames.SetProperty("Account Products", "");
lPS_FieldNames.SetProperty("Agreement Name", "");
lPS_FieldNames.SetProperty("Project Name", "");
lPS_FieldNames.SetProperty("Description", "");
lPS_FieldNames.SetProperty("Name", "");
//activate the fields using the property set which has the field names
lbc_account.ActivateMultipleFields(lPS_FieldNames);
lbc_account.ExecuteQuery(ForwardOnly);
if (lbc_account.FirstRecord())
{
//当执行ExecuteQuery以后，调用方法GetMultipleFieldValues 来获取字段值
//retrieve the values. This method acts sort of like a BS in that there is an input property set and an output property set.
//The field values will be in the second property set passed in.
lbc_account.GetMultipleFieldValues(lPS_FieldNames,lPS_FieldValues);
//loop through property set to get values.
ls_account_products = lPS_FieldValues.GetProperty("Account Products");
ls_agreement_name = lPS_FieldValues.GetProperty("Agreement Name");
ls_project_name = lPS_FieldValues.GetProperty("Project Name");
ls_description = lPS_FieldValues.GetProperty("Description");
ls_name = lPS_FieldValues.GetProperty("Name");
}
//now set new values in the property set
lPS_FieldNames.SetProperty("Account Products", "All My Products");
lPS_FieldNames.SetProperty("Agreement Name", "Siebel Agreement");
lPS_FieldNames.SetProperty("Project Name", "Siebel Project #2");
lPS_FieldNames.SetProperty("Description", "This is the description");
lPS_FieldNames.SetProperty("Name", "Joey Joe Joe Junior Shabbidoo");
//set the field values
lbc_account.SetMultipleFieldValues(lPS_FieldNames);
//commit the data
lbc_account.WriteRecord(); 22.为查询使用合适的视图模式
with (bcAcct)
{
SetViewMode(this.GetViewMode());
}23.只查询索引列
24.使用ForwardOnly游标模式
25.在执行查询后检查是否有合法的记录存在
bcContact.ClearToQuery();
bcContact.SetSearchSpec(“Id”, sContactId);
bcContact.ExecuteQuery(ForwardOnly);
//Check to see that a record was actually returned by examining the return of FirstRecord().
if (bcContact.FirstRecord())
{
//okay to perform data processing…
}26.使用Switch(eScript)或者Select Case语句(Siebel VB)
当需要将某个表达式的值和多个可能性进行比较的时候，最快和最具可读性的方法就是使用switch。
因为表达式只被求值一次，然后和不同的值进行比较，所以效率更高；
比一大堆嵌套的if…else if 语句更具可读性，使用switch或者select case语句往往能把多页代码压缩成一页。
27.在If/Else If语句中比较相同的条件
var ls_first = “first”;
var ls_second = “second”;
if (ls_first == “first”)
{
//do something……
}
else if (ls_second == “second”)
{
//do something else………
}28.使用Associate方法创建中间表(intersection table)记录
var lBC_mvg = this.GetMVGBusComp(“Sales Rep”);
var lBC_associate = lBC_mvg.GetAssocBusComp();
with(lBC_associate)
{
ClearToQuery();
SetSearchSpec(“Id”, SomeRowId);
ExecuteQuery(ForwardOnly);
if(FirstRecord()) Associate(NewAfter);
}29.使用动态值
最好使用动态值代替将值硬编码到代码中。这对于那些经常更改的值来说特别重要，因为如果你硬编码的话，编码的任何变化都要重新编译和发布。
代码中经常要用到的值都可以通过TheApplication.GetProfileAttr() 函数来获取。
此外，还可以将值存储在List Of Values表或其他表中，在需要的时候查询,用于在代码中要查询的只有一个动态值或较短的值列表时。
//下面代码中，LOV值是从List Of Values这个BC中查询出来的，然后将他们组合成一个查询过滤表达式。
var statusList;
var moreRecords;
var boLOV;
var bcLOV;
boLOV = TheApplication().GetBusObject("List Of Values");
bcLOV = boLOV.GetBusComp("List Of Values");
bcLOV.ClearToQuery();
bcLOV.SetSearchSpec("Type","SR_STATUS");
bcLOV.SetSearchSpec("Active","Y");
bcLOV.ExecuteQuery(ForwardOnly);
if (bcLOV.FirstRecord())
{
statusList = bcLOV.GetFieldValue("Name");
moreRecords = bcLOV.NextRecord();
while (moreRecords != 0)
{
statusList = statusList + " OR ";
statusList = statusList + bcLOV.GetFieldValue("Name");
moreRecords = bcLOV.NextRecord();
}
}
else
{
statusList = "";
}30.使用逻辑常量还是字面量
最好使用逻辑常量，它使代码更加易读且更加容易升级，使用字面量有可能给升级带来问题。
类型 逻辑常量 字面量
游标模式 ForwardBackward 0 (默认值)
ForwardOnly 1
视图模式 SalesRep View 0
ManagerView 1
PersonalView 2
AllView 3
OrganizationView 5
ContactView 6
GroupView 7
CatalogView 8
SubOrganizationView 9
新记录位置 NewBefore 0 (默认值)
NewAfter 1
NewBeforeCopy 2
NewAfterCopy 331.避免使用Exit Function 和 Exit Sub
仅针对Siebel VB，应避免使用Exit Function 和 Exit Sub。
32.将GotoView放到代码的结尾
GotoView语句不会立即退出代码的执行并导航到指定的视图，而是将该语句挂起来直到其他的代码执行完毕，所以最好将该语句放到代码的结尾处。
33.合适的使用DeleteRecord
DeleteRecord 会隐式的将记录指针移到记录集中的下一行。在DeleteRecord 后调用 NextRecord 将会使记录指针移动两次，
也就是说Siebel应用程序会跳过记录集中的一条记录，如果你在一个循环中这样删除记录，Siebel应用程序将会隔行删除记录。
在循环中删除记录的方法(Siebel VB)：
While(BC.FirstRecord <> 0)
BC.DeleteRecord
Wend