项目管理，删除标段，文件夹信息应重新计算

DataModules/ProjectManagerDm.pas

@@ -105,13 +105,16 @@ begin
 end;
 
 procedure TProjectManagerData.Delete;
+var
+  orgParentID: Integer;
 begin
   if HasProject then
   begin
+    orgParentID := FProjectsTree.Selected.ParentID;
     DeleteAttachmentFiles(FProjectsTree.Selected);
     DeleteAllTenderFiles(FProjectsTree.Selected);
     FProjectsTree.DeleteNode(FProjectsTree.Selected);
-    CalculateParentInfo(FProjectsTree.Selected.ParentID);
+    CalculateParentInfo(orgParentID);
     Save;
   end;
 end;
@@ -721,7 +724,7 @@ var
 begin
   if AID = -1 then Exit;
   vNode := ProjectsTree.FindNode(AID);
-  if (not Assigned(vNode)) or (not vNode.HasChildren) then Exit;
+  if (not Assigned(vNode)) or (vNode.Rec.ValueByName('Type').AsInteger = 1) then Exit;
 
   ResetDigit(vNode);
   ReCalculateInfo(vNode);