¿Cómo copiar todos los registros de una tabla a otra?

[[fjcg02]]

Código SQL [-]
SET TERM ^ ;

CREATE OR ALTER PROCEDURE PRUEBA 
returns (
    consulta1 varchar(500))
as
declare variable consulta varchar(500);
declare variable campo varchar(250);
begin
  /* Procedure Text */
 CONSULTA1= 'INSERT INTO TABLA1 ';
 CONSULTA = ' SELECT ';
  for select f.rdb$field_name
    from rdb$relation_fields f
    left join rdb$fields fs on fs.rdb$field_name = f.rdb$field_source
    left join rdb$field_dimensions d on d.rdb$field_name = fs.rdb$field_name
    left join rdb$character_sets cr on fs.rdb$character_set_id = cr.rdb$character_set_id
    left join rdb$collations co on ((f.rdb$collation_id = co.rdb$collation_id) and
    (fs.rdb$character_set_id = co.rdb$character_set_id))
    where f.rdb$relation_name = 'TABLA1'
    order by f.rdb$field_position, d.rdb$dimension
    into :CAMPO
    do
     begin
       CONSULTA= CONSULTA||TRIM(CAMPO)||',' ;
       --suspend;
     end
     CONSULTA1=CONSULTA1||CONSULTA||' from TABLA2';
end^

Poniendo un par de parámetros que sean el nombre de la tabla y el del generador, no creo que sea demasiado difícil terminar el procedimiento.
Faltaría quitar la última coma de la relación de campos, pero lo dejo como ejercicio para los principiantes

Saludos
PD: Por supuesto que algún gurú dirá que se puede optimizar; claro que sí, pero no voy a poner todo el ejercicio resuelto.

[Casimiro Notevi]

Empezado por fjcg02

PD: Por supuesto que algún gurú dirá que se puede optimizar; claro que sí, pero no voy a poner todo el ejercicio resuelto.

Claro, hombre, deja que trabajen las neuronas de los demás, que se van a atrofiar

Bueno, pienso que con todo lo comentado aquí ya puede servir de guía para problemas similares, abarcando distintos enfoques, métodos y formas diferentes de encarar un problema de ese tipo.

Gracias a todos

[[RONPABLO]]

Yo uso este query, ahí mando tres datos nuevos, la fecha en que borro, el motivo de haber borrado que entra como parametro y un consecutivo independiente (que a ratos creo que es necesario)... eso sí ya me ha pasado varias cenes el error de crear un campo en TEgresos y no crearla en TEgresos_Borrados pero por lo menos el erro que sale es muy diciente.

Código SQL [-]
insert into TEGRESO_BORRADOS
select A.*, CAST('NOW' AS DATE), :motivoBorrar, gen_id(TEGRESO_RELACION_GEN,1) from TEGRESO a 
where a.ID = :ID

[Casimiro Notevi]

Gracias por el aporte, me puede ser de utilidad.