Postagens
Não informado
Você deve mudar essas duas linhas:
Referencia:=Q_LancRefeicoes.Parameters.ParambyName('Referencia').Value;
Data:=Q_LancRefeicoes.Parameters.ParamByName('Data').Value;
para:
Referencia:=Q_LancRefeicoes.Parameters.ParambyName('Referencia').AsString;
Data:=Q_LancRefeicoes.Parameters.ParamByName('Data').AsString;
Assim o valor do banco de dados será transformado em string, e se ele estiver nulo será transformado em ' ', ou seja, espaço em branco.
