Browse Source

1. 提示中间计量数据后,自动生成中间计量数据
2. 报表,普通内存表,无法通过报表模板进行排序,使用数据控件的索引排序

MaiXinRong 7 years atrás
parent
commit
b623e73b71
2 changed files with 5 additions and 0 deletions
  1. 4 0
      DataModules/ReportMemoryDm/rmGclBillsBGDm.pas
  2. 1 0
      Frames/ProjectFme.pas

+ 4 - 0
DataModules/ReportMemoryDm/rmGclBillsBGDm.pas

@@ -152,6 +152,10 @@ begin
       WriteFlowBills;
   finally
     ClearObjects(FGclList);
+    if FrmGatherType = rmgtGather then
+      cdsBills.IndexFieldNames := 'IndexCode'
+    else if FrmGatherType = rmgtFlow then
+      cdsBills.IndexFieldNames := 'SerialNo;IndexCode';
     cdsBills.EnableControls;
     Result := cdsBills;
   end;

+ 1 - 0
Frames/ProjectFme.pas

@@ -1529,6 +1529,7 @@ begin
     tobtnZJJL.Down := True;
     tobtnZJJL.Click;
   end;
+  FZJJLFrame.GenerateZJJL;
 end;
 
 procedure TProjectFrame.actnAllPegExecute(Sender: TObject);