|
with TStoredProc.Create(nil) do
try
Connection := lConnection;
StoredProcName := 'SP_BBTJ_INSERT_STAT_RECORD';
Params.Clear;
//统计单位
Params.CreateParam(TFieldType.ftString, 'as_tjdw', TParamType.ptInput);
//统计年月
Params.CreateParam(TFieldType.ftString, 'as_tjny', TParamType.ptInput);
//统计范围定义
Params.CreateParam(TFieldType.ftString, 'as_tjfwdy', TParamType.ptInput);
//是否清除统计进度,重新统计
Params.CreateParam(TFieldType.ftInteger, 'ab_reset', TParamType.ptInput);
//统计提交人
Params.CreateParam(TFieldType.ftString, 'as_username', TParamType.ptInput);
//统计进度标志
Params.CreateParam(TFieldType.ftString, 'as_progress', TParamType.ptInput);
//统计进度说明
Params.CreateParam(TFieldType.ftString, 'as_progress_info', TParamType.ptInput);
//统计附加参数
Params.CreateParam(TFieldType.ftString, 'as_parm', TParamType.ptInput);
//备注
Params.CreateParam(TFieldType.ftString, 'as_comment', TParamType.ptInput);
//返回值
Params.CreateParam(TFieldType.ftInteger, 'ai_return', TParamType.ptOutput);
//错误信息
Params.CreateParam(TFieldType.ftString, 'as_errmsg', TParamType.ptOutput);
Params.ParamByName('as_tjdw').AsString := '350802000000';
Params.ParamByName('as_tjny').AsString := '200703';
Params.ParamByName('as_tjfwdy').AsString := '350802000000';
Params.ParamByName('ab_reset').AsInteger := 0;
Params.ParamByName('as_username').AsString := '210197';
Params.ParamByName('as_progress').AsString := '0';
Params.ParamByName('as_progress_info').AsString := '新统计任务。';
Params.ParamByName('as_parm').AsString := 'oooo';
Params.ParamByName('as_comment').AsString := '123';
Execute;
ai_return := Params.ParamByName('ai_return').AsInteger;
as_errmsg := Params.ParamByName('as_errmsg').AsString;
finally
Free;
end;
if ai_return = -1 then
begin
jsDialogs.ShowWarning('更新统计任务出错:' + as_errmsg, '统计提示');
//Rollback(h);
Exit;
end;
|
|