Creacion de un Stored Procedure

[jafera]

Buenas tardes.

Esta es mi primera incursion en los stored procedures.

Tengo una tabla maestra CU0001E de la que quiero sacar los valores de los campos C11, C10, C5, C6, C7 y C13.
Despues en la tabla destino CU0001 quiero hacer un update para que me actualize los campos LLICENCIA, NOM, COGNOM1, COGNOM2 y CODIUCI, siempre que se cumpla la condicion DNI=NI.

Este es el codigo del SP

Código SQL [-]
 
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
CREATE PROCEDURE "ACTUALITZA_RFEC" 
(
  "LLICENCIA" VARCHAR(14) CHARACTER SET ISO8859_1,
  "NOM" VARCHAR(20) CHARACTER SET ISO8859_1,
  "COGNOM1" VARCHAR(25) CHARACTER SET ISO8859_1,
  "COGNOM2" VARCHAR(25) CHARACTER SET ISO8859_1,
  "CODIUCI" VARCHAR(12) CHARACTER SET ISO8859_1
)
AS
BEGIN EXIT; END ^

ALTER PROCEDURE "ACTUALITZA_RFEC" 
(
  "LLICENCIA" VARCHAR(14) CHARACTER SET ISO8859_1,
  "NOM" VARCHAR(20) CHARACTER SET ISO8859_1,
  "COGNOM1" VARCHAR(25) CHARACTER SET ISO8859_1,
  "COGNOM2" VARCHAR(25) CHARACTER SET ISO8859_1,
  "CODIUCI" VARCHAR(12) CHARACTER SET ISO8859_1
)
AS
declare variable dni_1 varchar(12) character set iso8859_1;
declare variable llicencia_1 varchar(14) character set iso8859_1;
declare variable nom_1 varchar(20) character set iso8859_1;
declare variable cognom1_1 varchar(25) character set iso8859_1;
declare variable cognom2_1 varchar(25) character set iso8859_1;
declare variable codiuci_1 varchar(12) character set iso8859_1;
begin
  SELECT C11, C10, C5, C6, C7, C13
FROM CU0001E
INTO NI_1, :LLICENCIA_1, :NOM_1, :COGNOM1_1, :COGNOM2_1, :CODIUCI_1;
BEGIN
UPDATE CU0001
SET LLICENCIA=:LLICENCIA_1, NOM=:NOM_1, COGNOM1=:COGNOM1_1, COGNOM2=:COGNOM2_1, CODIUCI=:CODIUCI_1
WHERE DNI=NI_1;
END
 SUSPEND;
end
 ^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

Total que cuando lo llamo desde Delphi

Código Delphi [-]
 
F_ModulDades.Actualitza_RFEC.ExecProc;

me da un error "Required Param Value Not Set"
No se si me he olvidado algo, si he colocado las sentencias correctamente, etc...
Delphi 6 Firebird 1.5 componentes IBX

[Casimiro Noteví]

Así a simple vista creo que te sobran los begin, end y suspend;

Código SQL [-]
begin   
  SELECT C11, C10, C5, C6, C7, C13   
  FROM CU0001E   
  INTO : DNI_1, :LLICENCIA_1, :NOM_1, :COGNOM1_1, :COGNOM2_1, :CODIUCI_1;    

  UPDATE CU0001   
  SET LLICENCIA=:LLICENCIA_1, NOM=:NOM_1, COGNOM1=:COGNOM1_1, COGNOM2=:COGNOM2_1, CODIUCI=:CODIUCI_1   
  WHERE DNI= : DNI_1; 
end

[jafera]

Gracias Casimiro.

Tampoco funciona quitando begin suspend y end

Sigo investigando, me queda un acueducto por delante y debe cundir para mucho

Saludos

[Casimiro Noteví]

¿Pero el error sale compilándolo?

[guillotmarc]

Hola xiquet, para hacer un bucle poniendo los datos de una consulta en unas variables, tienes que utilizar una construcción FOR SELECT.

Código SQL [-]
begin   

  FOR SELECT C11, C10, C5, C6, C7, C13   
      FROM CU0001E   
      INTO :DNI_1, :LLICENCIA_1, :NOM_1, :COGNOM1_1, :COGNOM2_1, :CODIUCI_1
  DO BEGIN

    UPDATE CU0001 SET 
           LLICENCIA=:LLICENCIA_1, 
           NOM=:NOM_1, 
           COGNOM1=:COGNOM1_1, 
           COGNOM2=:COGNOM2_1, 
           CODIUCI=:CODIUCI_1   
    WHERE DNI = :DNI_1; 
  
    SUSPEND;

  END

end

Salut

[jafera]

Gracias a los dos, me habeis pillado en la carretera camino de casa.

Antonio, no me da error de compilación, solo de parámetros.

Marc, lo pruebo y comento.

Saludos

[jafera]

Marc, probado y me lanza el mismo error en ejecución

"Required Param Value Not Set"

No se que mirar, no se si en el componente IBStoreProc hay que modificar algo.

Si lo ejecuto en IBExpert, se queda como pidiendome los valores, en output parameters no hay nada y si voy a la pestaña sql me dice

EXECUTE PROCEDURE ACTUALITZA_RFEC('', '', '', '', '')

Gracias

Josep

[Casimiro Noteví]

¿Pero qué parámetros le pasas y cómo?