上报人 设置标段审批人时，若设置的审批人，已设置了该标段关注人，则直接移除关注人

Dprs/CSL/Measure_Cloud.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=3
-Build=1126
+Build=1127
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.3.1126
+FileVersion=3.1.3.1127
 InternalName=
 LegalCopyright=
 LegalTrademarks=

Forms/FindUserFrm.pas

@@ -44,7 +44,7 @@ type
     procedure FormActivate(Sender: TObject);
   private
     FOwner: TObject;
-    FType: Integer;
+    FType: Integer;    // 0审批人, 1关注人。
     FWebID: Integer;
     FPhaseIndex: Integer;
     FAccount: string;
@@ -161,7 +161,7 @@ begin
   case FType of
     0:
     begin
-      sURL := PHPWeb.MeasureURL + 'user/add/audit/measure';
+      sURL := PHPWeb.MeasureURL + 'user/add/audit/measure';    // 添加审批人
       // 标段ID（网络）、谁添加的、添加的谁、期号
       if PHPWeb.Search(sURL, ['pmid', 'creatoruid', 'auditoruid', 'numpname'],
         [IntToStr(FWebID), IntToStr(PHPWeb.UserID), UserArr[4], IntToStr(FPhaseIndex)], vArr) = 1 then
@@ -172,12 +172,33 @@ begin
         vOwner.AddNewChecker(cftChecker, StrToInt(UserArr[4]), UserArr[1], UserArr[2], UserArr[3], PicPath, '', csNotBegin, '', -1);
         vOwner.RepairOrder;
         vOwner.RepairDelete(True);
+
+        // 如果他也是关注人，则移除关注人
+        sURL := PHPWeb.MeasureURL + 'tender/concernaudit/del';   // 取消关注人
+        case PHPWeb.Search(sURL, ['tenderid', 'uid'], [InttoStr(FwebID), UserArr[4]], vArr) of
+          1:
+          begin
+
+          end;
+          -1:
+          begin
+            Application.MessageBox(PChar(PHPWeb.NetError('该用户原是关注人，自动取消关注人失败，请手工取消')),
+                '警告', MB_OK + MB_ICONWARNING);
+            Exit;
+          end;
+          0:
+          begin
+            Application.MessageBox(PChar(PHPWeb.PageError('该用户原是关注人，自动取消关注人失败，请手工取消')),
+                '警告', MB_OK + MB_ICONWARNING);
+            Exit;
+          end;
+        end;
       end;
     end;
     1:
     begin
-      sURL := PHPWeb.MeasureURL + 'tender/concernaudit/create';    // AAAAA  添加关注人
-      // 标段ID（网络）、谁添加的、添加的谁
+      sURL := PHPWeb.MeasureURL + 'tender/concernaudit/create';    // 添加关注人
+      // 标段ID（网络）、添加的谁
       if PHPWeb.Search(sURL, ['tenderid', 'uid'], [IntToStr(FWebID), UserArr[4]], vArr) = 1 then
       begin
         btnAdd.Enabled := False;

Forms/SetGuestFrm.pas

@@ -192,7 +192,7 @@ begin
     Screen.Cursor := crHourGlass;
     vArr := VarArrayOf(['msg']);
     try
-      sURL := PHPWeb.MeasureURL + 'tender/concernaudit/del';   // AAAAAA È¡Ïû¹Ø×¢ÈË
+      sURL := PHPWeb.MeasureURL + 'tender/concernaudit/del';   // È¡Ïû¹Ø×¢ÈË
 
       case PHPWeb.Search(sURL, ['tenderid', 'uid'], [InttoStr(FwebID), cdsGuestID.AsString], vArr) of
         1: