[firebase-br] Exemplo de Select com tabela em outro banco - FBD 2.5

[Levy Moreira]

Digamos que eu tenha dois bancos na unidade E: um com o nome dados1 e outro
dados2 o sql seria assim,
para alterar todas as faturas que são venda a prazo 'VP' e estão com o
cliente = 1 'venda a vista',
esse sql busca no banco antigo o codigo do cliente dessa fatura, e corrige
no banco novo... deu maio trabalhao
ta ai  :

execute ibeblock
returns(  CLINEW integer, CODF integer,CLIF  integer, TIPF varchar(5),
CLIANT integer, DOCUANT varchar(45))
as
begin

  create connection dbNew dbname 'e:\dados1.fdb'
  password 'masterkey' user 'SYSDBA'
  sql_dialect 3
  clientlib 'fbclient.dll';

  create connection dbAnt dbname 'e:\dados2.fdb'
  password 'masterkey' user 'SYSDBA'
  sql_dialect 3
  clientlib 'fbclient.dll';

  use dbNew;

  for execute statement 'select CODFAT, CLIFAT, TIPFAT from "FAT" where
clifat=1 and tipfat =''VP'''
  into :CODF, :CLIF, :TIPF
  do
  begin
    if (:CLIF = 1 and TIPF='VP') then
    begin
       use dbAnt;
       select CLIFAT from fat where CODFAT = :CODF
       into :CLIANT;

       select DOCU01 from cli where CODCLI = :CLIANT
       into :DOCUANT;

       use dbNew;
       select CODCLI from CLI where DOCU01 = :DOCUANT
       INTO :CLINEW;

       update FAT set CLIFAT = :CLINEW where CODFAT = :CODF ;

    end
    suspend;
  end
  Commit;
  close connection dbNew;
  close connection dbAnt;
end