Fórum Consulta de Datas Especiais #205022
08/01/2004
0
Tenho uma Tabela de cadastro de Funcionários
e uma tabela de ferias
pois cadastro o funcionário e todo o ano em acrecento a data de ferias ou seja se um funcionário tirou 5 ferias em tão tem 5 datas de ferias em seu cadastro
e agora o dep. pessoal me pediu para criar um relatório de Funcionário que irá tirar Ferias do Mês
Coloquei um LisBox com todos os meses de Jan a Dez
e como eu faço a consulta para que clique apenas no mês desejado e aparece os funcionarios e a data da ferias do respectivo ano 2004.
Ex. Quero saber os funcionários que tiraram ferias no mes de Janeiro/04 então clico no listBox do Mes de Janeiro e aparece
--------------- Janeiro 2004 ---------------
Fulano 05/01/2004
Siclano 08/01/2004
Beltrano 25/01/2004
-----------------------------------------------
e uma tabela de ferias
pois cadastro o funcionário e todo o ano em acrecento a data de ferias ou seja se um funcionário tirou 5 ferias em tão tem 5 datas de ferias em seu cadastro
e agora o dep. pessoal me pediu para criar um relatório de Funcionário que irá tirar Ferias do Mês
Coloquei um LisBox com todos os meses de Jan a Dez
e como eu faço a consulta para que clique apenas no mês desejado e aparece os funcionarios e a data da ferias do respectivo ano 2004.
Ex. Quero saber os funcionários que tiraram ferias no mes de Janeiro/04 então clico no listBox do Mes de Janeiro e aparece
--------------- Janeiro 2004 ---------------
Fulano 05/01/2004
Siclano 08/01/2004
Beltrano 25/01/2004
-----------------------------------------------
Silvio
Curtir tópico
+ 0
Responder
Posts
08/01/2004
Delphistar
vc pode criar uma query + ou - assim:
depois eh soh passar os valores para os parametros MES e ANO
SELECT FERIAS.*, FUNCIONARIOS.NOME FROM FERIAS INNER JOIN FUNCIONARIOS ON (FUNCIONARIOS.CODIGO = FERIAS.CODFUNC) WHERE EXTRACT(MONTH FROM FERIAS.DATA) = :MES AND EXTRACT(YEAR FROM FERIAS.DATA) = :ANO
depois eh soh passar os valores para os parametros MES e ANO
Responder
Gostei + 0
08/01/2004
Fabio.hc
Tente assim:
procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Text:=´select * from ferias where extract(month from data)=:mes and extract(year from data)=:ano´; Query1.Params[0].Value:=ListBox1.ItemIndex+1; Query1.Params[1].Value:=strtoint(copy(datetostr(date),7,4)); Query1.Open; end; end;
Responder
Gostei + 0
08/01/2004
Silvio
Se faço para consultar em uma base de dados no Paradox ela funciona corretamente :D mas se utilizo para consulta em base de dados SQL server ela da mensagem de erro ´Genereal SQL error Incorrect syntax near the keyword ´from´ ´ :(
o que devo fazer para solucionar este problema :lol:
o que devo fazer para solucionar este problema :lol:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)