Fórum Fortes Rep: desaparece RLDBText no preview #277240

SELECT
   NOME, PAI_NOME, MAE_NOME, FOLHA, LETRA
FROM NASCIMENTO 
WHERE 
   LIVRO = 1
   AND LIVRODESC IS NULL
ORDER BY NOME

NOME                           FILIAÇÃO                            FOLHA
--------------------------------------------------------------------------------

     select_sql := ´SELECT NOME, PAI_NOME, MAE_NOME, FOLHA, LETRA FROM NASCIMENTO ´;
     select_sql := select_sql + ´WHERE LIVRO = ´ +qryLivroLivro.AsString+ ´ AND LIVRODESC ´;
     if (qryLivroLivroDesc.IsNull) then
        select_sql := select_sql + ´IS NULL´
     else
        select_sql := select_sql + ´= ´+QuotedStr(qryLivroLivroDesc.AsString);

     select_sql := select_sql + ´ ORDER BY NOME´;

     ConfiguraPagina;
     with formRIndNasc.qryDados do begin
        Close;
        SQL.Clear;
        SQL.Add(select_sql);
        Open;
     end;
     formRIndNasc.RLReport1.Prepare;
     formRIndNasc.RLReport1.Preview;