添加清单工料，应刷新分部分项项目节

DataModules/LeafXmjGlDm.pas

@@ -327,7 +327,12 @@ procedure TLeafXmjGlData.RefreshLeafXmj;
 var
   iNode: Integer;
   vNode: TBillsIDTreeNode;
+  iBookMarkID: Integer;
 begin
+  if Assigned(sdvLeafXmj.Current) then
+    iBookMarkID := sdvLeafXmj.Current.ValueByName('ID').AsInteger
+  else
+    iBookMarkID := -1;
   sddLeafXmj.BeginUpdate;
   sddLeafXmj.DisableControls;
   try
@@ -344,6 +349,15 @@ begin
   finally
     sddLeafXmj.EnableControls;
     sddLeafXmj.EndUpdate;
+    if iBookMarkID <> -1 then
+    begin
+      if Assigned(sddLeafXmj.FindKey('idxID', iBookMarkID)) then
+        sdvLeafXmj.LocateInControl(sddLeafXmj.FindKey('idxID', iBookMarkID))
+      else if sddLeafXmj.RecordCount > 0 then
+        sdvLeafXmj.LocateInControl(sddLeafXmj.Records[0]);
+    end
+    else if sddLeafXmj.RecordCount > 0 then
+      sdvLeafXmj.LocateInControl(sddLeafXmj.Records[0]);
   end;
 end;
 

Frames/LeafXmjGlFme.pas

@@ -36,6 +36,7 @@ type
     destructor Destroy; override;
 
     procedure ResetViewControl;
+    procedure RefreshLeafXmjGlData;
   end;
 
 implementation
@@ -100,4 +101,9 @@ begin
     dxpmLeafXmj.PopupFromCursorPos;
 end;
 
+procedure TLeafXmjGlFrame.RefreshLeafXmjGlData;
+begin
+  FLeafXmjGlData.RefreshLeafXmj;
+end;
+
 end.

Frames/PriceMarginFme.pas

@@ -86,6 +86,8 @@ begin
   tobtnGL.Down := tobtnGL.Tag = TToolButton(Sender).Tag;
   tobtnBills.Down := tobtnBills.Tag = TToolButton(Sender).Tag;
   tobtnLeafXmj.Down := tobtnLeafXmj.Tag = TToolButton(Sender).Tag;
+  if tobtnLeafXmj.Tag = TToolButton(Sender).Tag then
+    FLeafXmjGlFrame.RefreshLeafXmjGlData;
   jpsPriceMargin.ActivePageIndex := TToolButton(Sender).Tag;
 end;