ibcstoredprocedure return value problem
Posted: Fri 08 Dec 2017 15:44
It's my stored proceduee
create or alter procedure SPRPIT11 (
ROK integer,
IDOSOBY integer)
returns (
WYNIK integer)
as
begin
/* Procedure Text
select sum(wartosc) as wynik from pozycjelist
join skl_pit on pozycjelist.numer=skl_pit.numer
where extract(year from datapodatek)=:rok and skl_pit.p11>0 and id_osoby=:idosoby
into :wynik;
suspend;
end^
SET TERM ; ^
in delphi
TR := TIBcTransaction.Create(NIL);
TR.DefaultConnection := Dane.Baza;
Tr.StartTransaction;
Skl := TIBCStoredProc. Create( nil );
Skl.Connection := Dane.Baza;
Skl.Transaction := Tr;
SKL.StoredProcName:='SPRPIT11';
SKL.Params.ParamByName('ROK').AsInteger := Rok;
SKL.Params.ParamByName('IDOSOBY').AsInteger := idOSOBy;
SKL.ExecProc;
Result:=SKL.ParamByName('WYNIK').AsFloat; - at this place I hav error.
What's wrong?
create or alter procedure SPRPIT11 (
ROK integer,
IDOSOBY integer)
returns (
WYNIK integer)
as
begin
/* Procedure Text
select sum(wartosc) as wynik from pozycjelist
join skl_pit on pozycjelist.numer=skl_pit.numer
where extract(year from datapodatek)=:rok and skl_pit.p11>0 and id_osoby=:idosoby
into :wynik;
suspend;
end^
SET TERM ; ^
in delphi
TR := TIBcTransaction.Create(NIL);
TR.DefaultConnection := Dane.Baza;
Tr.StartTransaction;
Skl := TIBCStoredProc. Create( nil );
Skl.Connection := Dane.Baza;
Skl.Transaction := Tr;
SKL.StoredProcName:='SPRPIT11';
SKL.Params.ParamByName('ROK').AsInteger := Rok;
SKL.Params.ParamByName('IDOSOBY').AsInteger := idOSOBy;
SKL.ExecProc;
Result:=SKL.ParamByName('WYNIK').AsFloat; - at this place I hav error.
What's wrong?