execute ibeblock
as
begin
  cbb = 'execute ibeblock (LogMessage variant)
         returns (
           Threshold integer = 200)
         as
         begin
           ibec_progress(LogMessage);
         end';

  var_script_file = 'D:\script.sql';

  SourceDB = ibec_CreateConnection(__ctInterBase, '............');
  TargetDB = ibec_CreateConnection(__ctInterBase, '...........');

  try
    ibec_CompareMetadata(SourceDB, TargetDB,
                         var_script_file,
                         'ServerVersion=FB30;
                          OmitGrants;
                          SafeDatatypeConversion;
                          IgnoreIBEObjects;
                          AppendMode;
                          NoConnect',
                         cbb);
    ibec_ShowMessage('1');

    ibec_CompareTables(SourceDB, TargetDB,
                       'INTERNAL_CFGS',
                       'INTERNAL_CFGS',
                       var_script_file,
                       'IncludeMilliseconds;
                       CommitAfter=2000;
                       NoConnect;
                       AppendMode;',
                       cbb);
    ibec_ShowMessage('2');
  finally
    ibec_CloseConnection(TargetDB);
    ibec_CloseConnection(SourceDB);
  end;
end;