Funcion que ingresa, consulta y vuelve a ingresar

[Beuses]

Hola, quiero hacer una funcion en Postgres que ingrese datos en una tabla buque,

luego que consulte el id del buque segun la matricula que acaba de ingresar, para

que por ultimo ingrese ese id del buque en otra tabla llamada renave.

Habia hecho este codigo:

Código PHP:

  BEGIN
IF (EXISTS (SELECT 1 FROM tbl_buque where num_matricula = p_matricula)) THEN
    RETURN 'Ya existe un buque con esa matricula';
ELSE
    BEGIN
    INSERT INTO tbl_buque(id_muelle,id_actividad,id_suministro,nombreusuario,num_matricula,nombre,bandera,capacidad_almacenamiento,eslora,manga,puntal,unidadarqueobruto,totalhp,indicador_suministro)
    VALUES (p_idmuelle,p_actividad,p_idsuministro,p_nombreusuario,upper(p_matricula),p_nombre,p_bandera,p_capacidad,p_eslora,p_manga,p_puntal,p_arqueo,p_total,p_indicador);
    SELECT id FROM tbl_buque WHERE num_matricula=p_matricula
     INSERT INTO tbl_renave(id_buque,fecha,lugar)VALUES(id,to_date(p_fecharenave ,'DD/MM/YYYY'),p_lugar);
    
    EXCEPTION
    WHEN OTHERS THEN
            RETURN 'Ha ocurrido un error al ejecutar la instrucción';
    END;
    RETURN 'OK';
END IF;
END; 
   

Pero me salia este error:

Código PHP:

  ERROR:  SELECT query has no destination for result data
HINT:  If you want to discard the results, use PERFORM instead.
CONTEXT:  PL/pgSQL function "fn_insertar_buque" line 17 at SQL statement 
   

No se mucho de esto asi que quisiera ayuda. Se que estoy haciendo algo mal

pero no se que... :neurotico

Gracias de antemano.

[huesos52]

Que tal beuses..

Podrías poner el código completo?

[Beuses]

ok, es este:

Código PHP:

  CREATE OR REPLACE FUNCTION "schema_buque"."fn_insertar_buque" (p_nombreusuario varchar, p_matricula varchar, p_nombre varchar, p_bandera varchar, p_actividad integer, p_arqueo real, p_capacidad integer, p_total real, p_eslora real, p_manga real, p_puntal real, p_idmuelle integer, p_idsuministro integer, p_indicador varchar, p_fecharenave text, p_lugar varchar) RETURNS varchar AS
$body$
/*
eschema: schema_buque
nombre: fn_insertar_buque():varchar
autor: Jennifer Beuses
fecha: 26/05/2009
organismo: Ministerio del Poder Popular para la Energía y Petróleo - MENPET
función: inserta buques
*/
BEGIN
IF (EXISTS (SELECT 1 FROM tbl_buque where num_matricula = p_matricula)) THEN
    RETURN 'Ya existe un buque con esa matricula';
ELSE
    BEGIN
    INSERT INTO tbl_buque(id_muelle,id_actividad,id_suministro,nombreusuario,num_matricula,nombre,bandera,capacidad_almacenamiento,eslora,manga,puntal,unidadarqueobruto,totalhp,indicador_suministro)
    VALUES (p_idmuelle,p_actividad,p_idsuministro,p_nombreusuario,upper(p_matricula),p_nombre,p_bandera,p_capacidad,p_eslora,p_manga,p_puntal,p_arqueo,p_total,p_indicador);
    SELECT id FROM tbl_buque WHERE num_matricula=p_matricula
     INSERT INTO tbl_renave(id_buque,fecha,lugar)VALUES(id,to_date(p_fecharenave ,'DD/MM/YYYY'),p_lugar);
    
    EXCEPTION
    WHEN OTHERS THEN
            RETURN 'Ha ocurrido un error al ejecutar la instrucción';
    END;
    RETURN 'OK';
END IF;
END;  
$body$
LANGUAGE 'plpgsql' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER; 
   

[huesos52]

Beuses... no conozco mucho tu sistema... pero no le veo sentido a esta sentencia
SELECT id FROM tbl_buque WHERE num_matricula=p_matricula

Está sin punto y coma, y el que se ejecute, no afecta en nada la función.

Si lo que quieres, es recuperar el id que se acabó de insertar, tendrás que recurrir a una variable record para almacenarlo antes de utilizarlo en la inserción en tbl_renave.

Para ver, el modo de uso, de variables record y como obtener el valor de un campo y asignarlo a una variable, mira el 4to post de este tema
http://www.forosdelweb.com/f99/como-...rigger-702509/

Nos cuentas como te va.

[Beuses]

Bien, muchas gracias huesos25...

Tenias razón, me faltaba una variable que almacenara el valor que estaba consultando.

Y el punto y coma que mencionas se lo borré sin querer.. :P

Pero en fin; Asi quedo mi función (por si a alguien le hace falta).

Código PHP:

  DECLARE
v_flag integer;
BEGIN
IF (EXISTS (SELECT 1 FROM tbl_buque where num_matricula = p_matricula)) THEN
    RETURN 'Ya existe un buque con esa matricula';
ELSE
    BEGIN
    INSERT INTO tbl_buque(id_muelle,id_actividad,id_suministro,nombreusuario,num_matricula,nombre,bandera,capacidad_almacenamiento,eslora,manga,puntal,unidadarqueobruto,totalhp,indicador_suministro)
    VALUES (p_idmuelle,p_actividad,p_idsuministro,p_nombreusuario,upper(p_matricula),p_nombre,p_bandera,p_capacidad,p_eslora,p_manga,p_puntal,p_arqueo,p_total,p_indicador);
    
    SELECT INTO v_flag id FROM tbl_buque WHERE num_matricula=upper(p_matricula);
    INSERT INTO tbl_renave(id_buque,fecha,lugar)VALUES(v_flag,to_date(p_fecharenave ,'DD/MM/YYYY'),p_lugar);
    
 
    EXCEPTION
    WHEN OTHERS THEN
          RETURN 'Ha ocurrido un error al ejecutar la instrucción';
    END;
    RETURN 'OK';
END IF;
END; 
   

[huesos52]

De nada