在商业机会中运行如下脚本：
int func_show_win()
{
//run_csp_line,表示点击的时候执行这句脚本
string begin_date;
gui_create_speedbutton("Panel_Func","客户联系",15,230,60,20,"客户联系","call_csp.rec.crm_chance.main1");
gui_create_speedbutton("Panel_Func","投诉记录",15,255,60,20,"投诉记录","call_csp.rec.crm_chance.main2");
......
int main1()
{
string khm,khid,sql;
khm=gui_get_val("Edit_Eba_Name");//获取客户名
sql="select eba_id from eba where eba_name = '"+khm+"'";//通过客户查询客户编码
db_run(sql); //通过客户查询客户编码
khid=db_res(0);//将查询结果(0表示查询到的第一个字段)赋值给khid.
call_dll_func("crm_app","Crm_Gui_Touch_Adm");
change_to_win("客户接触管理==TForm_Touch_Adm");
gui_trigger_click("SpeedButton_Create");
gui_set_val("ComboBox_Ext_Eba_Id",khid);
gui_trigger_change("ComboBox_Ext_Eba_Id");
return 1;
};
int main2()
{
string khm,khid,sql;
khm=gui_get_val("Edit_Eba_Name");//获取客户名
sql="select eba_id from eba where eba_name = '"+khm+"'";//通过客户查询客户编码
db_run(sql); //通过客户查询客户编码
khid=db_res(0);//将查询结果(0表示查询到的第一个字段)赋值给khid.
call_dll_func("crm_app","Crm_Gui_Event_Adm");
change_to_win("客户事件-投诉建议管理==TForm_Event_Adm");
gui_trigger_click("SpeedButton_Create");
gui_set_val("ComboBox_Ext_Eba_Id",khid);
gui_trigger_change("ComboBox_Ext_Eba_Id");
return 1;
};
脚本运行后，第一次点击客户联系或投诉记录，可以正确的新建客户联系或投诉记录。但如果再次点击创建的“客户联系”或“投诉记录”
按钮，运行脚本后，就没法新建“客户联系”记录或“投诉记录”了。 |
