Bug 从标准项目表添加节点，计算错误

DataModules/BillsCompileDm.pas

@@ -530,8 +530,6 @@ var
 begin
   iNextSiblingID := GetNextSiblingID(AParentNode, ANode);
   iID := ANode.Rec.ValueByName('StaticID').AsInteger;
-  if iID = 0 then
-    iID := -1;
   if Assigned(AParentNode) then
     Result := BillsCompileTree.AddNode(AParentNode.ID, iNextSiblingID, iID)
   else

Units/BillsTree.pas

@@ -200,7 +200,7 @@ var
   vNode: TsdIDTreeNode;
 begin
   vNode := FindNode(AID);
-  if Assigned(vNode) then
+  if Assigned(vNode) or (AID <= 0) or (AID >= 100) then
     Result := NextNewID
   else
     Result := AID;