原报新建标段也要标黄。

Frames/ProjectManagerFme.pas

@@ -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;