|Subject||ibo 5.7.13 2411|
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,
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,
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
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;