Firebird - Insert from Select

   INSERT INTO DESTINO(CODIGO,
                       DESCRICAO,
                       NUMERO)
      SELECT
         O.COD_ORIGEM,
         O_DESC_ORIGEM,
         0
      FROM Origem O
      WHERE
         O.TIPO='R' ;