|
|
@@ -635,6 +635,7 @@ procedure TProjectManagerFrame.actnNewTenderExecute(Sender: TObject);
|
|
|
vRec.ValueByName('WebAuthorID').AsInteger := PHPWeb.UserID; // 编制人
|
|
|
vRec.ValueByName('WebUserID').AsInteger := PHPWeb.UserID; // 当前用户，用于只显示自己的项目
|
|
|
vRec.ValueByName('WebKey').AsString := sKey;
|
|
|
+ vRec.ValueByName('WebMeWorking').AsBoolean := True;
|
|
|
vRec.EndUpdate;
|
|
|
|
|
|
GetLocalValues(vRec);
|
|
|
@@ -1413,6 +1414,7 @@ begin
|
|
|
vNode.Rec.BeginUpdate;
|
|
|
vNode.Rec.ValueByName('WebMD5').AsString := AFileMD5;
|
|
|
vNode.Rec.ValueByName('WebUserID').AsInteger := PHPWeb.UserID;
|
|
|
+// vNode.Rec.ValueByName('WebMeWorking').AsBoolean := True;
|
|
|
vNode.Rec.EndUpdate;
|
|
|
|
|
|
FProjectManagerData.Save;
|
