[firebase-br] EXECUTE BLOCK

[Adriano dos Santos Fernandes]

Paulo Geloramo escreveu:
> FB 2.1.1
> Delphi 2007
> 
> Para executar EXECUTE BLOCK com retorno,
> estou usando o componente SQLQuery, esta retorando
> o erro:
> 
> Token unknown - line 9, column 13
> ?.
> 
> SQL :=       'EXECUTE BLOCK (ID_PRODUTO INTEGER = :ID_PRODUTO) ' + #10;
> SQL := SQL + 'RETURNS (ID_PONTO INTEGER, REMESSA INTEGER, VENDA INTEGER) ' + 
> #10;
> SQL := SQL + 'AS ' + #10;
> SQL := SQL + 'BEGIN ' + #10;
> SQL := SQL + '  FOR SELECT M.ID_PONTO ' + #10;
> SQL := SQL + '      FROM PERFIL_ITEM M ' + #10;
> SQL := SQL + '      JOIN PRODUTO P ON (P.ID_PERFIL = M.ID_PERFIL) ' + #10;
> SQL := SQL + '      WHERE P.ID_PRODUTO = :ID_PRODUTO ' + #10;
> SQL := SQL + '      INTO :ID_PONTO DO ' + #10;
> 
Se vc trocar "INTO :ID_PONTO" por "INTO ID_PONTO" deve funcionar. O 
componente deve estar trocando :ID_PONTO por interrogação.


Adriano