IsLeaf赋值有误

DataModules/BillsDm.pas

@@ -193,7 +193,7 @@ procedure TBillsData.Save;
             stnNode.Rec.SerialNo.AsInteger := stnNode.MajorIndex;
 
           // 叶子节点
-          stnNode.Rec.SetBoolValue(stnNode.Rec.IsLeaf, stnNode.HasChildren);
+          stnNode.Rec.SetBoolValue(stnNode.Rec.IsLeaf, not stnNode.HasChildren);
 
           // 最底项目节父节点ID
           if (stnNode.Rec.B_Code.AsString <> '') then