[firebase-br] SP Simples no IBExpert

[Glaucos Ginez]

SET TERM ^ ;

CREATE OR ALTER procedure SPVENDAS
returns (
    PLACA integer,
    VENDA_ID integer,
    VAL_TOTAL_LIQUIDO double precision,
    KM integer,
    MARCA varchar(10),
    DATA date)
as
begin

  FOR SELECT V.DAT_HOR_INICIO_VENDA_CPU,V.VENDA_ID,V.PLACA,VC.MARCA,V.KM
<http://v.km/>
,V.VAL_TOTAL_LIQUIDO
        FROM VENDA V
        INNER JOIN PESSOA P ON V.PESSOA_ID = P.PESSOA_ID
        INNER JOIN VEICULO VC ON V.PLACA = VC.PLACA
        INTO :DATA,:VENDA_ID,:PLACA,:MARCA,:KM,:VAL_TOTAL_LIQUIDO DO
  suspend;
end^

SET TERM ; ^