[firebase-br] Colocar aspa numa string no firebird

[Anselmo A Meurer]

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