|
@@ -1515,7 +1515,10 @@ end;
|
|
|
|
|
|
function TProjectFrame.CheckCanReport: Boolean;
|
|
|
begin
|
|
|
- Result := QuestMessageYesNo('请确定已生成中间计量数据?');
|
|
|
+ if not _IsCloud or ProjectData.CurUserIsAuthor then
|
|
|
+ Result := QuestMessageYesNo('请检查中间计量数据是否生成。')
|
|
|
+ else
|
|
|
+ Result := QuestMessageYesNo('如修改过本期计量数据,请先点击【否】完善【中间计量】窗口数据。');
|
|
|
// 使用控件点击进行定位,重新定义方法太复杂
|
|
|
if not Result then
|
|
|
begin
|