EXECUTE IBEBLOCK
returns (
   CodCidade integer
)
AS
declare variable vl_Base_Origem   varchar(100);
declare variable vl_Base_Destino  varchar(100);
declare variable vlCodCidade      integer;
declare variable vlCodCidade2     integer;
declare variable vlDescCidade     varchar(50);
declare variable vlUF             varchar(3);

BEGIN

   vl_Base_Origem  = 'C:\Bancos\Origem\base.fdb';
   vl_Base_Destino = 'C:\Bancos\Destino\base.fdb';

   CON1 = ibec_CreateConnection(__ctFirebird,
      'DBName="'||:vl_Base_Origem||'";
     Clientlib=GDS32.dll;
     User=SYSDBA;
     Password=masterkey;
     Names=NONE;
     SQLDialect=3;');

   CON2 = ibec_CreateConnection(__ctFirebird,
      'DBName="'||:vl_Base_Destino||'";
     Clientlib=GDS32.dll;
     User=SYSDBA;
     Password=masterkey;
     Names=NONE;
     SQLDialect=3;');


   ibec_UseConnection(CON2);
   Delete from Cidade;
   commit;


   ibec_UseConnection(CON1);
   For
      Select CodCidade, DescCidade, UF from Cidade
      into :vlCodCidade, :vlDescCidade, :vlUF
   do begin
      CodCidade = vlCodCidade;

      ibec_UseConnection(CON2);
      Insert into Cidade (CodCidade,DescCidade,UF) values (:vlCodCidade, :vlDescCidade, :vlUF);
      commit;

      ibec_UseConnection(CON1);

      suspend;
   end


   CLOSE CONNECTION CON1;
   CLOSE CONNECTION CON2;

END