siebel日常配置文档Word文档格式.docx
- 文档编号:22432403
- 上传时间:2023-02-04
- 格式:DOCX
- 页数:30
- 大小:23.26KB
siebel日常配置文档Word文档格式.docx
《siebel日常配置文档Word文档格式.docx》由会员分享,可在线阅读,更多相关《siebel日常配置文档Word文档格式.docx(30页珍藏版)》请在冰豆网上搜索。
ErrorMessage"
try
{
switch(MethodName)
{
case"
CopyPromotion"
:
//复制酬金规则
CopyRule(Inputs,Outputs);
break;
CopyAgent"
//复制代理商
CopyAgent(Inputs,Outputs);
}
}
catch(e)
e.errCode);
Outputs.SetProperty("
e.errText);
finally
return(CancelOperation);
}
然后在general中增加具体方法脚本
functionCopyPromotion(Inputs,Outputs)
{
varoBOReward9=TheApplication().GetBusObject("
AgentReward"
varoBCPromotion=oBOReward9.GetBusComp("
AgentRewardPromotion"
varoBOReward10=TheApplication().GetBusObject("
varoBCPromotionNew=oBOReward10.GetBusComp("
varInfoId=Inputs.GetProperty("
Id1"
//酬金信息原ID
varoBCInfoNewId=Inputs.GetProperty("
Id2"
//酬金信息新ID
try
with(oBCPromotion)
{
SetViewMode(AllView);
ClearToQuery();
ActivateField("
PromotionID"
RewardInfoID"
SetSearchSpec("
InfoId);
ExecuteQuery();
varv_IsRecord=FirstRecord();
while(v_IsRecord)
{
varPromotionID=GetFieldValue("
with(oBCPromotionNew)
{
ActivateField("
NewRecord
(1);
SetFieldValue("
PromotionID);
oBCInfoNewId);
WriteRecord();
}//endBC:
oBCAccntNew
v_IsRecord=NextRecord();
}//endwhile
}//endBC:
oBCAccnt
}//endtry
throw(e);
oBOReward9=null;
oBCPromotion=null;
oBOReward10=null;
oBCPromotionNew=null;
return(ContinueOperation);
然后在BC或者Applet中调用BS时脚本
varsvcinfo=TheApplication().GetService("
CopyInfoForAgentReward"
--调用BS时BS的名称
varInput=TheApplication().NewPropertySet();
varOutput=TheApplication().NewPropertySet();
Input.SetProperty("
InfoId"
this.GetFieldValue("
Id"
));
svcinfo.InvokeMethod("
CopyInfo"
Input,Output);
varerrorMsg=Output.GetProperty("
一种在Client端的业务服务管理中增加,在业务服务脚本中需要增加如下方法
CheckOrderBusinessService"
checkOrderBusinessService(Inputs,Outputs);
SetOrderDiscountService"
setOrderDiscountService(Inputs,Outputs);
CheckQuoteBusinessService"
checkQuoteBusinessService(Inputs,Outputs);
SetQuoteDiscountService"
setQuoteDiscountService(Inputs,Outputs);
if(e.errCode!
="
27538"
)
if(ToString(e.errText)!
undefined"
Outputs.GetProperty("
)+e.errText);
else
Outputs.GetProperty("
)+e.toString());
3.VBC的配置和使用
VBC不需要对应的Clumn。
VBC在Applet中的配置与一般配置相同。
VBC在接口发送数据时只需要做下查询,就会自动将数据通过MQ方式发送出去。
具体参见如下:
functionCustManagerReturn(Inputs,Outputs)
TheApplication().TraceOn("
c:
\\CustManagerReturn.txt"
Allocation"
"
Script"
varMessage_Id="
;
varInterface_Type=Inputs.GetProperty("
Interface_Type"
varv_Version=Inputs.GetProperty("
Version"
//接口流水号
varv_JTCRMID=Inputs.GetProperty("
JTCRMID"
//集团参与人
varv_CustManagerAID="
varv_LastNameA="
varv_Error_Code;
varv_Error_Message;
TheApplication().Trace("
Version:
+v_Version);
JTCRMID:
+v_JTCRMID);
varv_CustManagerAID=Inputs.GetProperty("
CustManagerAID"
//客户经理A营销责任地编码
varv_LastNameA=Inputs.GetProperty("
CustomerManagerA"
//客户经理A姓名
varv_CustManagerBID=Inputs.GetProperty("
CustManagerBID"
//客户经理B营销责任地编码
varv_LastNameB=Inputs.GetProperty("
CustomerManagerB"
//客户经理B姓名
varOutBO=TheApplication().GetBusObject("
SHCTOutboundInfoBO"
TheApplication().Trace("
FindVBC_BO"
varVBCBC=OutBO.GetBusComp("
VBCCombo_CRM_wrapper"
FindVBC_BC"
varOutBC=OutBO.GetBusComp("
SHCTOutboundInfoBC"
varAccountBO=TheApplication().GetBusObject("
Account"
varAccountBC=AccountBO.GetBusComp("
Outputs.SetProperty("
2"
ceshi"
varcurDate=newDate();
varhours;
varminutes;
varseconds;
hours=curDate.getHours();
if(parseInt(curDate.getMinutes())<
10)minutes="
0"
+curDate.getMinutes();
elseminutes=curDate.getMinutes();
if(parseInt(curDate.getSeconds())<
10)seconds="
+curDate.getSeconds();
elseseconds=curDate.getSeconds();
varProcess_Date=parseInt(curDate.getMonth()+1)+"
/"
+curDate.getDate()+"
+curDate.getFullYear()+"
+hours+"
+minutes+"
+seconds;
Process_Date:
+Process_Date);
//----------日志---------------
with(OutBC)
SetViewMode(AllView);
CRMProcessDate"
CRMProcessStatus"
CRMSendDate"
CRMSendStatus"
Comments"
Data1"
Data2"
Data3"
Data4"
Data5"
OperationType"
Source"
CRM"
CustInfoQuery"
已处理"
Process_Date);
未发送"
v_JTCRMID);
Message_Id=GetFieldValue("
TheApplication().Trace("
MessageId:
+Message_Id);
}
//----------获取客户经理-------
/*with(AccountBC)
if(v_JTCRMID!
&
&
v_JTCRMID!
=null)
JTCRMID符合条件"
ClearToQuery();
SetViewMode(AllView);
ActivateField("
SetSearchSpec("
ExecuteQuery();
if(FirstRecord())
v_LastNameA=GetFieldValue("
LastName"
v_CustManagerAID=GetFieldValue("
}
else
v_LastNameA="
没取到LastName"
v_CustManagerAID="
没有取到ManagerId"
//TheApplication().RaiseErrorText("
该JTCRMID在本系统中不存在!
else
}*/
//----------VBC传参------------
with(VBCBC)
进入传参阶段!
Error_Code"
Error_Message"
Data8"
输入参数!
Interface_Type);
TheApplication().Trace(Interface_Type);
v_Version);
TheApplication().Trace(v_Version);
TheApplication().Trace(v_JTCRMID);
Data11"
v_CustManagerAID);
TheApplication().Trace(v_CustManagerAID);
SetSearchSpec("
Data41"
TestCustManager"
Data12"
v_LastNameA);
Data13"
v_CustManagerBID);
Data14"
v_LastNameB);
参数已经传给EAI"
//-----查询------------------
try
ExecuteQuery(ForwardOnly);
执行完查询!
v_Error_Code=GetFieldValue("
v_Error_Message=GetFieldValue("
if(v_Error_Code=="
||v_Error_Code==null)
EAI返回ErrorCode无信息!
else
ErrorCode:
+v_Error_Code);
Outputs.SetProperty("
v_Error_Code);
v_Error_Message);
errorcode:
+v_Error_Code);
errormessage:
+v_Error_Message);
EAI无返回信息!
catch(e)
//TheApplication().Trace("
+e.toString());
1"
Outputs.SetProperty("
传输错误"
catch(e)
//TheApplication().Trace("
错误"
ErrorMessage:
传输错误!
finally
EndEAITest"
TheApplication().TraceOff();
return(ContinueOperation);
4.解析XML格式的程序具体参见如下:
functionCustMapHtoP(Inputs,Outputs)
TheApplication().TraceOn("
\\CustMapHtoP.txt"
try
TheApplicatio
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- siebel 日常 配置 文档