My problem is, whem using informix 7.3 for windows NT 4.0 database sever and
delphi 4.2 client, I can't receive parameters from stored procedures, look a
example below:
Example 1
In this example using TStoredProc (Delphi), variable v_retorno is not
returning to client
create procedure "informix".t_numlote()
returning char(6),char(1);
define v_numlote int;
define v_Ano date;
define v_retorno char(6);
define v_letra char(1);
foreach numlote for select c_numlote,c_Ano into v_numlote,v_ano from ap0000
if Year(v_ano) <> Year(Today) then
update ap0000 set c_numlote='1',c_ano=Today where current of numlote;
Let v_retorno='00001';
else
update ap0000 set c_numlote=(c_numlote+1) where current of numlote;
Let v_retorno=(v_numlote+1);
end if;
Let v_letra=Substr(Year(Today),4,1);
Let v_retorno=LPAD(v_retorno,6,"-");
Return v_retorno,v_letra;
end foreach;
end procedure
Example 2
In this other example without update the variables v_numlote and v_ano are
returnig OK.
create procedure T_lixo(num int)
Returning char(5),date;
define v_numlote char(5);
define v_Ano date;
define v_retorno char(6);
foreach select c_numlote,c_Ano into v_numlote,v_ano from ap0000
where c_numlote=num
Return v_numlote,v_Ano;
end foreach;
end procedure
Please, send me a e-mail with a example about how to solve this problem.
Thanks
Wagner Augusto Matos       E-mail tecl...@link.com.br