Consulta e inserción

[Casimiro Noteví]

Bien, aunque es algo muy general lo que has dicho, pero para que te hagas una idea, es fácil:

Código SQL [-]
CREATE PROCEDURE INGRESARADJUNTO1 (
  /**/
  codigo integer,
  /**/   
  HOJADVIDA CHAR(1), FOTO CHAR(1), CEDULA CHAR(1), TITULOS CHAR(1), REFERENCIAS CHAR(1), RP CHAR(1), EXAM CHAR(1) )
AS
DECLARE VARIABLE ID INTEGER;
BEGIN
  /* */  
  select campo from tablalaquesea   
  where codigo= :codigo   
  into :ID;
  /* */
  INSERT INTO TADJUNTOSEMPL (ID_EMPLEADOS,HOJADEVIDA,FOTOCARNET,COPIACED,
                           COPIATITULOS,REFERENCIAS,RECORDPOLICIACO,EXAMEMBARAZO)
  VALUES (:ID,:HOJADVIDA,:FOTO,:CEDULA,:TITULOS,:REFERENCIAS,:RP,:EXAM); /* necesito traer el id de la consulta */
END;