Pasted

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