Creacion de un Stored Procedure

[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?

[[duilioisola]]

Parece un problema con los componentes de base de datos Delphi.
Yo creo que no cargas los parámetros antes de llamar a ExecProc.
No se qué componentes utilizas pero debería ser algo así:

Código Delphi [-]
with F_ModulDades.Actualitza_RFEC
do
begin
  Close;
  Params.ByName['LLICENCIA'].AsString := 'A123';
  Params.ByName['NOM'].AsString := 'JUAN';
  Params.ByName['COGNOM1'].AsString := 'PEREZ';
  Params.ByName['COGNOM2'].AsString := 'GOMEZ';
  Params.ByName['CODIUCI'].AsString := 'C1234';
  ExecProc;
end;

[jafera]

Utilizo los componentes IBX.

No se, igual estoy equivocado pero, no se realiza el proceso directamente en el Firebird?

Porque sino, pasarle los parametros desde delphi si solo es un registro ok pero si son mas de 30.000 registros a actualizar......

Gracias

[Casimiro Noteví]

Repito:

Empezado por Casimiro Notevi

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

[guillotmarc]

És un plaer.

Como dice Casimiro, el problema debe venir en como llamas al procedimiento almacenado en Delphi. Si nos enseñas ese código, probablemente te podamos ayudar.

Pero, como dice el dicho : para este viaje no hacen falta alforjas.

Lo que quieres hacer se consigue con esta simple consulta :

Código SQL [-]
UPDATE CU0001 SET 
       LLICENCIA = (SELECT C10 FROM CU0001E WHERE C11 = DNI), 
       NOM =       (SELECT C5  FROM CU0001E WHERE C11 = DNI), 
       COGNOM1 =   (SELECT C6  FROM CU0001E WHERE C11 = DNI), 
       COGNOM2 =   (SELECT C7  FROM CU0001E WHERE C11 = DNI),
       CODIUCI =   (SELECT C13 FROM CU0001E WHERE C11 = DNI)
WHERE EXISTS (SELECT * FROM CU0001E WHERE C11 = DNI)

NOTA: Asegúrate de tener en CU0001E un índice para C11, y verás como se ejecuta en un tiempo récord.

Salut.

[jafera]

Hola Casimiro.

Lo que hago es lo que esta puesto en el SP, nada más cargo los datos de una tabla y los copio en la otra.

No le paso ningun parametro más que el de DNI=: DNI

Igual olvido algun paso, no se, como he dicho antes es mi primera vez con los SP

Gracias

Josep