Relatório de Aniversariantes

[Renanbg 1]

Opa..

 

Preciso de um help

 

uso esse codigo p gerar um relatorio de aniversariantes

 

frmrelfuncionarios.Query2.Close;frmrelfuncionarios.Query2.SQL.Clear;frmrelfuncionarios.Query2.SQL.Add('select codigo, funcionario, endereco, telefone, funcao, dt_nascimento from tbfuncionarios');frmrelfuncionarios.Query2.SQL.Add('where extract(month from Dt_nascimento) = :Mes');frmrelfuncionarios.Query2.SQL.Add('order by funcionario');frmrelfuncionarios.Query2.ParamByName('Mes').AsInteger := StrToInt(Edit1.Text);frmrelfuncionarios.Query2.Open;frmrelfuncionarios.QuickRep1.Preview;

Preciso incrementar ali para trazer somente os que tem status = ativo

 

N tive sucesso até agora

[Renanbg 1]

opa...ja resolvi

 

ficaria assim:

 

frmrelfuncionarios.Query2.Close;frmrelfuncionarios.Query2.SQL.Clear;frmrelfuncionarios.Query2.SQL.Add('select codigo, funcionario, endereco, telefone, funcao, dt_nascimento from tbfuncionarios');frmrelfuncionarios.Query2.SQL.Add('where extract(month from Dt_nascimento) = :Mes and status = "ATIVO" ');frmrelfuncionarios.Query2.SQL.Add('order by funcionario');frmrelfuncionarios.Query2.ParamByName('Mes').AsInteger := StrToInt(Edit1.Text);frmrelfuncionarios.Query2.Open;frmrelfuncionarios.QuickRep1.Preview;

[marcio.theis 3]

Vixe... Cheguei tarde :-(Mas beleza... bom que resolveu :D