@@ -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;
@@ -1529,6 +1529,7 @@ begin
tobtnZJJL.Down := True;
tobtnZJJL.Click;
+ FZJJLFrame.GenerateZJJL;
procedure TProjectFrame.actnAllPegExecute(Sender: TObject);