[MIDAS basic] BeforeUpdateRecord_SetproviderFlag

procedure TERM.dspTestBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
  UpdateKind: TUpdateKind; var Applied: Boolean);
begin
  if SourceDS = adsTest then
  begin
    DeltaDS.FindField('Key_FIELD').ProviderFlags := [pfInUpdate, pfInWhere, pfInKey];
    DeltaDS.FindField('J_JOIN_FIELD').ProviderFlags := [];
  end;
end;