Q5/ws_objects/Ew_sms.pbl.src/ef_sms_send1.srf

$PBExportHeader$ef_sms_send1.srf
global type ef_sms_send1 from function_object
end type

forward prototypes
global function string ef_sms_send1 (string arg_content, long arg_revtype, long arg_revid, string arg_revname, string arg_revrep, string arg_revphone)
end prototypes

global function string ef_sms_send1 (string arg_content, long arg_revtype, long arg_revid, string arg_revname, string arg_revrep, string arg_revphone);//====================================================================
// 事件: .ef_sms_send1()
//--------------------------------------------------------------------
// 描述:
//--------------------------------------------------------------------
// 参数:
// 	value	string	arg_content 	短信内容
// 	value	long  	arg_revtype 	0:其它,1:客户,2:供应商,3:员工
// 	value	long  	arg_revid   		对方ID
// 	value	string	arg_revname 	对方公司名称
// 	value	string	arg_revrep  		对方名称
// 	value	string	arg_revphone	对方号码
//--------------------------------------------------------------------
// 返回:  string
//--------------------------------------------------------------------
// 作者:	lwl		日期: 2012年01月18日
//--------------------------------------------------------------------
//	LONGJOE
//--------------------------------------------------------------------
// 修改历史:
//
//====================================================================


String rslt = ''

uo_spring_send uo_send
uo_send = Create uo_spring_send
uo_send.commit_transaction = sqlca

IF arg_revphone = '' THEN
	rslt = '接收号码不能为空'
	GOTO ext
END IF

Long ll_sendwayid
SELECT TOP 1 sendwayid
	INTO :ll_sendwayid
	From u_spring_sendway;
IF sqlca.SQLCode <> 0 THEN
	rslt = '查询短信通道失败,' + sqlca.SQLErrText
	GOTO ext
END IF

IF uo_send.uf_sendnow(ll_sendwayid, arg_revtype, arg_revid, arg_revname, arg_revrep, arg_revphone, arg_content, rslt) <> 1 THEN
	GOTO ext
END IF

ext:
Destroy uo_send

RETURN rslt


end function