sqldoisbancos

/*Verifica diferenca de saldo entre dois bancos*/
EXECUTE ibeblock
RETURNS(CDPRO INTEGER,
        NMPRO VARCHAR(50),
        SALDO_BANCO1 FLOAT,
        SALDO_BANCO2 FLOAT)
AS
BEGIN
  CREATE connection BANCO1 dbname 'C:\DadosOk\dataregis\dados.fdb'
  password 'masterkey' USER 'SYSDBA'
  sql_dialect 3
  clientlib 'fbclient.dll';

  CREATE connection BANCO2 dbname 'C:\DadosOk\dataregis\Dados2.fdb'
  password 'masterkey' USER 'SYSDBA'
  sql_dialect 3
  clientlib 'fbclient.dll';

  USE BANCO2;

  FOR EXECUTE statement 'SELECT CDPRO, NMPRO, SALDO FROM IN01PRO'
  INTO :CDPRO, :NMPRO, :SALDO
  do
  BEGIN
    USE BANCO1;
    SELECT SALDO FROM IN01PRO WHERE CDPRO = :CDPRO
    INTO :SALDO2 ;
    IF (SALDO <> SALDO2) THEN
      suspend;
  END

  close connection BANCO2;
  close connection BANCO1;
END