FXApp/ws_objects/app_cust_fx.pbl.src/spt_doexecute.srf

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

forward prototypes
global function oleobject spt_doexecute (string apiname, oleobject request, long comids[])
end prototypes

global function oleobject spt_doexecute (string apiname, oleobject request, long comids[]);oleobject lo_rslt
setnull(lo_rslt)

// DONE: 调用工厂业务后台

oleobject lo_request
lo_request = FXAppCom.CreatePbDictionary()
lo_request.SetString("token", app_token_fx)
lo_request.SetString("apiname", apiname)
lo_request.SetObject("request", request)

oleobject arr_comids
arr_comids = FXAppCom.newpbarray()
long i
for i = 1 to upperbound(comids)
	arr_comids.AddInt(comids[i])
next
lo_request.SetObject("comids", arr_comids)

lo_rslt = FXAppCom.DoExecute('SPT_doexecute', lo_request)

return lo_rslt
end function