Hi 

I am migrating some older app from Delphi 2007 to Delphi Berlin 10.1.

I have IBO for both.

IBO 4.8.4 on Delphi 2007 and 5.7.13 on Berlin.

I have a simple IB_Connection with a IB_DSQL connected to it to Firebird 2 with dialect 1.

I create a table and then a stored procedure.

it works perfectly in Delphi 2007.

The SQL to create the table is:

CREATE TABLE RESULTS 

(

  UARN            DOUBLE PRECISION,

  ASSESSMENT_REFERENCE DOUBLE PRECISION,

  RV              DOUBLE PRECISION,

  EFF                         DATE,

  ALT                         DATE,

  BA_CODE                     CHAR(     4)  COLLATE NONE,

  BA_REF                   VARCHAR(    25)  COLLATE NONE,

  OLD_BA_CODE                 CHAR(     4)

)

and to create the stored procedure is:

CREATE PROCEDURE P_RIVERLAKE_2010 (

  MASS Double Precision,

  MRV Double Precision, 

  MEFF Date, 

  MALT Date, 

  MBA_CODE Char(4), 

  MBA_REF VarChar(50))

AS

begin

  insert into results (uarn, ASSESSMENT_REFERENCE, rv, eff, alt, ba_code, ba_ref)

  select uarn, ASSESSMENT_REFERENCE, rateable_value_2010, effective_date_2010, list_alteration_date_2010, billing_authority_code, ba_reference_number

  from list_data t1 join monitor t2 on (t1.BA_REFERENCE_NUMBER = t2.BA_REFERENCE_NUMBER and t1.billing_authority_code = t2.PSD_CODE);

  for select ba_reference_number, psd_code from monitor into :mba_ref,:mba_code 

  do begin

  select max(assessment_reference) from results where ba_ref = :mba_ref and ba_code = :mba_code   into :mass;

  delete from results where ba_ref = :mba_ref and ba_code = :mba_code  and assessment_reference <> :mass;

  end

  end