Fórum Como posso fazer essa SQL e esse Relatório #265961

Bom dia galera, estou com um problema na minha SQL, ela funciona assim.

DM1.QrClienteCompleto.Close;
DM1.QrClienteCompleto.SQL.Clear;
DM1.QrClienteCompleto.SQL.Add(´SELECT A.Contrato, A.Nome, A.Ativo, B.Contrato, B.Data_Venc, B.Data_Pagam FROM Clientes A, Lancam B´);
DM1.QrClienteCompleto.SQL.Add(´WHERE A.Contrato = B.Contrato and A.ATIVO = ´SIM´ and B.Data_Venc >= :pData1 and B.Data_Venc <= :pData2 Order By A.Nome´);
DM1.QrClienteCompleto.ParamByName(´pData1´).AsDateTime := StrToDate(vData1);
DM1.QrClienteCompleto.ParamByName(´pData2´).AsDateTime := StrToDate(vData2);

Até aí beleza tudo funciona, porém preciso implementar um relatório que quando for verificado que o campo B.Data_Pagam = Vazio imprima ´EM ABERTO´, tentei implementar o código abaixo no BeforePrint do Relatório mas ele só imprime ´EM ABERTO´, em todos os registros mesmo que o campo Data_Pagam tenha um informação.

If DM1.QrClienteCompleto.FieldByName(´Data_Pagam´).isNull then
Begin
QrLabel8.Font.Color := clRed;
QrLabel8.Caption := ´Em Aberto´;
End


Galera agradeço a ajuda de todos.

Abraços.

Alexandre...