电信168二期写预拨号函数.sc

一个中国电信IVR平台的开发手册

//*****************************Func_WritePredialTask预拨表插入流程******************************
//入口参数：ws_SendNumber为被叫电话号码，Ws_SendContent 为点播内容文件
//开始把需要点送的语音文件路径赋值给全局变量 Ws_SendContent ，需要在流程开头做如下申明：
//#declare SR Ws_SendContent
//#declare SR ws_SendNumber
//此函数为及时点送函数。 
//***********************************************************************
	
														 //函数名请不要做修改！！！
Func_WritePredialTask
{
:stWait
	[ASSIGN SR9,$ServiceItemNo]
	[NOWTIME]
	[ASSIGN IR16,IR0]
	[ASSIGN IR17,IR0]
	[TIMETOSTR IR17,"YMDhms"]
	[ASSIGN SR17,SR0]
	[TIMEADD IR16,2,60]
	[TIMETOSTR IR16,"YMDhms"]
	[ASSIGN SR16,SR0]
	->stMakeBeginDate
	
:stMakeBeginDate
	[ASSIGN SR21,SR17]
	[CALLFUNC &MakeDateSong]
	Returned -> stGetBeginDate
	
:stGetBeginDate
	[ASSIGN SR17,SR22]
	-> stMakeEndDate

:stMakeEndDate
	[ASSIGN SR21,SR16]
	[CALLFUNC &MakeDateSong]
	Returned -> stGetEndDate
	
:stGetEndDate
	[ASSIGN SR16,SR22]
	-> stBeginSend1	

:stBeginSend1
	[ STRSUB ws_SendNumber,1,3]
	[ EQUAL SR0, "010" ]
	Passed	->stBeginSend2
	Failed	-> stBeginSend
:stBeginSend2
	[ STRRIGHT ws_SendNumber, 8 ]
	[ASSIGN ws_SendNumber,SR0]
	->stBeginSend					
	
:stBeginSend
//插入预拨号表
	[ Assign SR20,Ws_SendContent ]  	 //点送歌曲
	[ StrCat SR20,"^" ]		
	[ StrCat SR20,SR9 ]																//系统接入号
	[ StrCat SR20,"^" ]
	[ StrCat SR20,$CallerID ]  	       //主叫号码
	[ StrCat SR20,"^" ]
	[ StrCat SR20,SR17]																//服务开始时间
	[ IntRand 900000 ]
	[ IToS IR0 ]
	[ Assign SR15,SR0 ]     //产生序列号
	[ IntRand 900000 ]
	[ IToS IR0 ]
	[ Assign SR14,SR0 ]     //产生呼叫顺序
	[ Assign SR27,"insert into ipswitch..PREDIALTASK values(" ]
	[ StrCat SR27,"'" ]
	[ StrCat SR27,SR15 ]    //SERIALNUM   序列号
	[ StrCat SR27,"'," ]
	[ StrCat SR27,SR14 ]    //CALLORDER   呼叫顺序
	[ StrCat SR27,",'" ]
	[ StrCat SR27,SR17 ]	//SERVICEBEGINTIME  服务开始时间
	[ StrCat SR27,"','" ]
	[ StrCat SR27,SR16 ]	//SERVICESTOPTIME   服务停止时间
	[ StrCat SR27,"','" ]
	[ StrCat SR27,SR17 ]	//DIALBEGINTIME	    外拨开始时间
	[ StrCat SR27,"','" ]
	[ StrCat SR27,SR16 ]	//DIALBEGINTIME     外拨停止时间
	[ StrCat SR27,"'," ]
	[ StrCat SR27,"5" ]	//TIMEINTERVAL      循环服务时间间隔数值
	[ StrCat SR27,"," ]
	[ StrCat SR27,"0" ]	//INTERVALTYPE	    循环服务时间间隔类型（分）
	[ StrCat SR27,",'" ]
	[ StrCat SR27,$CalledID ] //被叫号码,业务号码
	[ StrCat SR27,"','" ]
	[ StrCat SR27,$CallerID ]	//ORIGCALLER(char) 用户号码
	[ StrCat SR27,"','" ]
	[ StrCat SR27,ws_SendNumber ]	//CALLED(char) 接受点送内容的号码
	[ StrCat SR27,"','" ]
	[ StrCat SR27,$CalledID ]	//ORIGCALLED(char) 业务接入号
	[ StrCat SR27,"','" ]
	[ StrCat SR27,SR20  ]	//PRIVATEDATA(char)  自定义数据，外呼调用
	[ StrCat SR27,"'" ]
	[ StrCat SR27,"," ]
	[ StrCat SR27,"0" ]	//REDIALINTERVAL(char)
	[ StrCat SR27,"," ]
	[ StrCat SR27,"3" ]	//REDIALCOUNT(int)
	[ StrCat SR27,"," ]
	[ StrCat SR27,"2" ]	//TYPE(int)
	[ StrCat SR27,"," ]
	[ StrCat SR27,"0" ]	//SERVICEID(int)
	[ StrCat SR27,"," ]
	[ StrCat SR27,"1" ]	//ANSWERTYPE(int)
	[ StrCat SR27,"," ]
	[ StrCat SR27,"0" ]	//PRIORITY(int)
	[ StrCat SR27,"," ]
	[ StrCat SR27,"0" ]	// STATUS(int)
	[ StrCat SR27,")" ]
	[ ExecSQL SR27 ]
	Passed -> stExit
	Failed -> stExit
	TimeOut-> stExit				

:stExit
	[RETURN 0]																 
}
MakeDateSong
{
:stWait
	[ STRSUB SR21,1,4 ]           // SR21 :  199912201230SS -> SR22 : 1999-12-20 12:30:00
	[ ASSIGN SR22,SR0 ]
	[ STRCAT SR22,"-" ]
	[ STRSUB SR21,5,6 ]
	[ STRCAT SR22,SR0 ]
	[ STRCAT SR22,"-" ]
	[ STRSUB SR21,7,8 ]
	[ STRCAT SR22,SR0 ]
	[ STRCAT SR22," " ]
	[ STRSUB SR21,9,10 ]
	[ STRCAT SR22,SR0 ]
	[ STRCAT SR22,":" ]
	[ STRSUB SR21,11,12 ]
	[ STRCAT SR22,SR0 ]
	[ STRCAT SR22,":00" ]
	-> stExit

:stExit
	[RETURN 0]
}