cb_1(申请录音).scr

一个基于五岳鑫语音卡的语音系统,对开发语音系统的人来说有借鉴作用

string ls_chno,ls_talk_bz,ls_id,ls_y,ls_m,ls_d,ls_num,ls_file,ls_call_ch
int li_y,li_m,li_d,li_num,li_call_ch
cb_2.enabled = true
this.enabled = false
if ddlb_1.text = "none" then
	messagebox("","请选择你的坐席号")
	ddlb_1.setfocus()
	return
end if
ls_chno = ddlb_1.text
ls_file = sle_1.text
select talk,call_ch into :ls_talk_bz,:ls_call_ch from u_sq_record where ch_id = :ls_chno;
//messagebox("",ls_talk_bz + ls_file)
if ls_talk_bz = '1' then
	  UPDATE "u_sq_record"  
     SET "ly_bz" = '1',   
         "filename" = :ls_file  
     WHERE "u_sq_record"."ch_id" = :ls_chno;
     commit;
	  ls_file = gs_workpath + "\人工录音\" + ls_file + ".tw"
	  dw_2.setitem(ii_insertrow,'lywj',ls_file)
	  /////////////////////////
	   li_call_ch = integer(ls_call_ch)
		ii_call_ch = li_call_ch
	 	ch[li_call_ch].cs=ws_hangup
		T_RECORD = 1
		T_PLAY = 0
		timer(0.5,w_do_ts)
	  /////////////////////////
else
  messagebox("","该坐席未进入对话状态")
end if