At 12:58 AM 24-01-01 +1100, I wrote:

>create procedure Get_CadPFJ (CodPFJ1 integer, CodPFJ2 integer, in_TipPFJ
>varchar(20))
>as
>begin
>IF (in_TipPFJ = 'ForCli') then
> FOR
> select field1, field2, ....TipPFJ, CodPFJ
> from CadPFJ
> where ((CodEmp = 1 AND CodPFJ BETWEEN :CodPFJ1 and :CodPFJ2)
> and (TipPFJ in ('Fornec', 'Client', 'ForCli')))
> order by CodPFJ
> into :field1, :field2, ... :TipPFJ, :CodPFJ
> DO
> suspend;
>ELSE
> FOR
> select field1, field2, ....TipPFJ, CodPFJ
> from CadPFJ
> where ((CodEmp = 1 AND CodPFJ BETWEEN :CodPFJ1 and :CodPFJ2)

Sorry - change this line to

> and (TipPFJ = :in_TipPFJ))
> order by CodPFJ
> into :field1, :field2, ... :TipPFJ, :CodPFJ
> DO
> suspend;
>end;
>
>Helen

All for Open and Open for All
InterBase Developer Initiative · http://www.interbase2000.org
_______________________________________________________