Task #1004 右键导入excel，导入后，应定位至原选中节点

包括：导入工程量清单至项目节，导入台账（平面结构）至项目节

Units/DetailExcelImport.pas

@@ -610,12 +610,17 @@ begin
 end;
 
 procedure TPlaneFxBillsExcelImport.EndImport;
+var
+  ParentRec: TsdDataRecord;
 begin
   FCacheTree.Free;
 
   FProjectData.BillsData.EnableEvents;
   FProjectData.ReConnectTree;
 
+  ParentRec := FProjectData.BillsData.sddBills.FindKey('idxID', ParentID);
+  FProjectData.BillsCompileData.sdvBillsCompile.LocateInControl(ParentRec);
+
   FProjectData.BillsCompileData.CalculateAll;
 
   CloseProgressHint;

Units/ExcelImport.pas

@@ -828,6 +828,8 @@ begin
 end;
 
 procedure TGclBillsExcelImport.EndImport;
+var
+  ParentRec: TsdDataRecord;
 begin
   FSelectSheets.Free;
 
@@ -836,6 +838,9 @@ begin
   FProjectData.BillsData.EnableEvents;
   FProjectData.ReConnectTree;
 
+  ParentRec := FProjectData.BillsData.sddBills.FindKey('idxID', ParentID);
+  FProjectData.BillsCompileData.sdvBillsCompile.LocateInControl(ParentRec);
+
   FProjectData.BillsCompileData.CalculateAll;
 
   CloseProgressHint;