Duplicates not allowed

I have old aplication compiled with Delphi XE3 and RODA
Database is MS SQL 2017
When I compile same server app with Delphi 10.4.1 and RODA (with old client)
and I try edit record i get error Duplicates not allowed
Sample project included
Test.7z (70.5 KB)


pls update uDABusinessProcessor.pas as

procedure TDABusinessProcessor.SetupParameters(const aCommand : IDASQLCommand;
  aReferencedDataset : TDADataset; const aConnection: IDAConnection;AUnionMapping: TDAColumnMappingCollection);
      // Looks up the field and completes the param definition
      if aCommand.Params.FindParam(fldname1) <> nil then continue; // <-- added

Thanks, logged as bugs://85341

bugs://85341 got closed with status fixed.