Ayuda sobre un Procedimiento Almacenado

[kinobi]

Empezado por Nuria

porque seguro que hay algo que no hago o que no es correcto,

seguro, pero también es seguro que no es algo en la parte del servidor (ya que una consulta en IBConsole da el resultado correcto). Conclusión: céntrate en el cliente, en tu aplicación.

De todas formas, ese AsString de ...

  DM.IBP.FieldByName('TIMP').AsString

puede estar haciendo mal la conversión del tipo InterBase DECIMAL(12,2) a String Delphi (yo no lo descartaría).

Saludos.

[Nuria]

De nuevo gracias Kinobi por tu interes.

puede estar haciendo mal la conversión del tipo InterBase DECIMAL(12,2) a String Delphi (yo no lo descartaría).

Tenías razón que la conversión me la hacía mal, he cambiado mi código de está manera:

    if not DM.trPrv.InTransaction then
      DM.trPrv.StartTransaction;

    DM.IBP.ParamByName('EXP').AsInteger := StrToInt(idKey.Text);
    DM.IBP.ExecProc;
    DM.trPrv.Commit;
    Debe := DM.IBP.FieldByName('TIMP').AsFloat;

El valor que recoje Debe es 0, que no es el valor correcto que debe devolver el procedimiento . No sé por donde tirar. Seguiré investigando... Alguna sugercia más.

Saludos!

[kinobi]

Empezado por Nuria

Alguna sugercia más.

Sí, hace tiempo que estoy apartado de la programación Delphi, pero juraría que la línea ...

  Debe := DM.IBP.FieldByName('TIMP').AsFloat;

debería ser

  Debe := DM.IBP.ParamByName('TIMP').AsFloat;

Antes no me había dado cuenta.

Saludos

[Nuria]

Diste en el clavo!!

No era FieldByName sino ParamByName, no había caído en eso,es de lógica(:timp), no es un campo sino un parámetro. Hay veces que lo tienes delante de las narices y no lo ves ...

Mil gracias. Te debo una

Saludos!