[firebase-br] Colocar aspa numa string no firebird

[OseasTormen]

Testa essa procedure ae e veja se eh esse o resultado q tu quer


SET TERM ^ ;

CREATE PROCEDURE NEW_PROCEDURE
RETURNS (
    VAR VARCHAR(50))
AS
DECLARE VARIABLE TESTE VARCHAR(50);
begin
  VAR = 'SELECT BLA BLA BLA FROM BLA BLA BLA';
  TESTE = 'TESTE';
  VAR = :VAR || '''' || :TESTE || '''';
  suspend;
end^

SET TERM ; ^

-- 
____________________________
OseasTormen
NMSoftware
Chapecó - SC
"Anselmo A Meurer" <aameurer em brturbo.com.br> 
escreveu na mensagem news:7ECD75A3B2B64F48B2225451D25D7E48 em casa...
Ola Pessoal

Alguem poderia me ajudar, gostaria de saber se o banco de dados firebird tem 
alguma função tipo a do delphi para colocar aspas em uma string. Ex: 
QuotedStr('teste') ou seja no comando sql na base de dados tipo assim:

Exemplo em sql

 vsql = vsql || ' AND V.Imprime = ' || QuotedStr('S');  ------ Aqui esta o 
problema

   if ((:pcod_emp <> '') or (:pcod_emp is not null)) then
     vsql = vsql || ' And CAST(M.cod_emp as integer) = '|| :pcod_emp;
   if ((:pcod_fun <> '') or (:pcod_fun is not null)) then
     vsql = vsql || ' AND CAST(M.cod_fun as integer) = ' || :pcod_fun;
   if ((:pano <> '') or (:pano is not null)) then
     vsql = vsql || ' AND CAST(M.ano as integer) = ' || :pano;
   if ((:pmes <> '') or (:pmes is not null)) then
     vsql = vsql || ' AND CAST(M.mes as integer) = ' || :pmes;
   if ((:vtip_proc <> '') or (:vtip_proc is not null)) then
     vsql = vsql || ' AND CAST(M.Tip_Proc as integer) in('||:vtip_proc||')';

   for execute statement :vSql into .......


Obrigado
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para saber como gerenciar/excluir seu cadastro na lista, use: 
http://www.firebase.com.br/fb/artigo.php?id=1107
Para consultar mensagens antigas: http://firebase.com.br/pesquisa