Ayuda con IBStoredProc
 

Hola a todos...
Tengo rutinas que realiza mi aplicacion contable que creo se pueden realizar en el servior a traves de un StoredProc.

Duda 1:
Mi aplicacion necesita en cada reproceso poner a cero unos campos de una tabla para luego se calculados nuevamente. Este es el codigo que utilizo para ponerlos en cero:
procedure cero( cMaes );
Rpm050.Close;
Rpm050.SelectSQL.Clear;
Rpm050.SelectSQL.Add('update ');
Rpm050.SelectSQL.Add( cMaes ); // nombre de la tabla variable
Rpm050.SelectSQL.Add(' set Debitos = :Debitos, Creditos = :Creditos');
Rpm050.ParamByName('debitos').AsCurrency := 0;
Rpm050.ParamByName('creditos').AsCurrency := 0;
Rpm050.ExecSql;
end;
Como pongo esto en un StredProc ?

Duda 2: Como hago un while not Tabla1.eof dentro de un storedproc ?

seguramente surgirán más dudas...

Gracias a todos por adelentado !!!

Primero debes crear el procedimiento almacenado en la base de datos

Código SQL [-]
CREATE PROCEDURE PROC_PONER_A_CERO
AS
BEGIN
  UPDATE cMaes
  SET Debitos = 0, Creditos = 0;
END^

Luego enlazas el conponente TIBStoredProc a este.

Gracias por tu ayuda

Saludos