procedure TDOCTOR_DOCUMENT_QUERY_DOC.DataGridDblClick(Sender: TObject);
var
i:integer;
s:string;
lFuncIsRunning:Boolean;
begin
if (DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.Active) and (not DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.IsEmpty) then
begin
if DataGrid.FocusedField.FieldName='DISTRICT_NAME' then
begin
s:='Biz:\HR\FUNC_DOCTOR_DOCUMENT_APPLY.Func';
for i:= 0 to SystemCore.TSystemCore.FuncManager.RunningFuncCount - 1 do
begin
if SysUtils.UpperCase(SystemCore.TSystemCore.FuncManager.RunningFuncs.BizClassURL.BizURL.URL) = SysUtils.UpperCase(s) then
begin
lFuncIsRunning := True;
break;
end
else
lFuncIsRunning := False;
end;
if lFuncIsRunning then
begin
JsDialogs.ShowMsg('您已经打开了该功能,请关闭后在执行该操作!','提示');
SysUtils.Abort;
end
else
SystemCore.TSystemCore.FuncManager.RunFunc(Context,'',s,DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.FieldByName('FILLER_CODE').AsString+'-'+DataSetBrokerDOCTOR_DOCUMENT_DETAIL.DataSet.FieldByName('PRIMARY_ID').AsString,nil,False);
end;
end;
end; |