mostrar ultima consulta realizada<b> (Resolvido)</b>

[Saritur TI]

Boa tarde a todos, sou novo no fórum. Na verdade fiz o curso inicial de relatórios na RM em dez de 2008 e só tive a oportunidade de criar um relatório a 2 semanas. Bom vamo ao que interessa.

Me pediram que criasse um relatório de exames por seção, que mostrasse os exames vencidos, exemplo:

Nome dataexame data vencimento exame tipo exame

Leandro 01/01/2008 28/12/2009 exame clinico periodico anual

Leonardo 01/02/2008 28/08/2009 exame clinico periodico semestral.

Criei a sentença sql bonitinho e tal, só que o resultado que aparece está pegando somente a primeira consulta, exemplo:

o funcionário Leandro realizou o exame acima e realizou outro exame clinico anual em 03/01/2009, sendo assim, teria que aparecer para mim este exame e não o exame realizado em 01/01/2008.

Outro detalhe é que a data de pesquisa tem que ser feita pela data do vencimento do exame (*). Já tentei usar o comando Max mas o resultado é o mesmo.

Se alguem puder me ajudar eu agradeço muito. ^^

segue abaixo o script que desenvolvi e anexo tbm.

SELECT

PSECAO.CODIGO CODSECAO$, PSECAO.DESCRICAO, PFUNC.CHAPA, PFUNC.NOME, MAX(VEXAMESPRONT.DATAEXAME),

VEXAMESPRONT.CODEXAME, VEXAMES.NOMEEXAME,VEXAMESPRONT.CODTIPOEXAME, VTIPOSEXAMES.NOMETIPOEXAME,

MAX(VCONSULTASPRONT.CODCONSULTAPRONT), VCONSULTASPRONT.CODTIPOCONSULTA,

(*) >>> DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME)

FROM

PFUNC, VCONSULTASPRONT, VEXAMESPRONT, VEXAMES, VTIPOSEXAMES, PSECAO

WHERE

PFUNC.CODCOLIGADA = VEXAMESPRONT.CODCOLIGADA

AND VEXAMESPRONT.CODCOLIGADA = VCONSULTASPRONT.CODCOLIGADA

AND VEXAMESPRONT.CODCOLIGADA = VEXAMES.CODCOLIGADA

AND VEXAMES.CODCOLIGADA = VTIPOSEXAMES.CODCOLIGADA

AND PFUNC.CODCOLIGADA = PSECAO.CODCOLIGADA

AND PFUNC.CODSECAO = PSECAO.CODIGO

AND PFUNC.CODPESSOA = VEXAMESPRONT.CODPESSOA

AND VEXAMESPRONT.CODPESSOA = VCONSULTASPRONT.CODPESSOA

AND VEXAMESPRONT.CODEXAME = VEXAMES.CODEXAME

AND VEXAMESPRONT.CODTIPOEXAME = VTIPOSEXAMES.CODTIPOEXAME

AND VEXAMESPRONT.CODCONSULTAPRONT = VCONSULTASPRONT.CODCONSULTAPRONT

AND PFUNC.CODSITUACAO <> 'D'

AND DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME) >= :DATA_INICIAL_D

AND DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME) <= :DATA_FINAL_D

AND PFUNC.CODCOLIGADA = :CODCOLIGADA

AND VEXAMESPRONT.CODEXAME = :CODEXAME

AND PSECAO.CODIGO LIKE :CODSECAO

GROUP BY

PSECAO.CODIGO , PSECAO.DESCRICAO, PFUNC.CHAPA, PFUNC.NOME, VEXAMESPRONT.DATAEXAME,

VEXAMESPRONT.CODEXAME, VEXAMES.NOMEEXAME,VEXAMESPRONT.CODTIPOEXAME, VTIPOSEXAMES.NOMETIPOEXAME,

VCONSULTASPRONT.CODCONSULTAPRONT, VCONSULTASPRONT.CODTIPOCONSULTA,

DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME)

ORDER BY CODSECAO$, PFUNC.NOME

Funcionário.PDF

[Jair - Fórmula]

Na LD que vc colocou essa sentença, tem algum campo tambem, ou apenas sentenças ? se tiver qualquer campo da base de dados, qualquer resultado de sentença traz apenas a primeira linha do seu resultado.

[Sebastião Souza Junior]

Esse relatório já está pronto na base exemplo dá uma olhada lá...

[Saritur TI]

Bom dia....

Respondendo ao Jair, na minha LD só tem sentença. E onde eu acho a base de exemplo? Tô meio perdido no forum ainda ^^...

Att

[Jair - Fórmula]

Os campos de DATA_INICIAL e FINAL, creio que sejam parametros mesmo, mas e estes campos, está "pegando" de onde ?

AND PFUNC.CODCOLIGADA = :CODCOLIGADA

AND VEXAMESPRONT.CODEXAME = :CODEXAME

AND PSECAO.CODIGO LIKE :CODSECAO

normalmente usamos isso quando há campo da base na mesma linha. !!!!

A base exemplo você pode baixá-la no site da TOTVS mesmo, na área CLIENTE ON LINE.

Agora, os relatórios, quando você instala o sistema na sua máquinam já são copiados para o diretório C:\CorporeRM\"nomedosistema"\Relatorios e caso não estejam ainda no seu sistema, basta importar.

[Saritur TI]

Jair, coloquei em anexo um print do layout deste relatório para facilitar, e vou entrar no site da TOTVS para baixar a base e respondo se o que tem lá me atende,....

[Saritur TI]

Esse relatório já está pronto na base exemplo dá uma olhada lá...

eu de novo, estou encontrando uns probleminhas para instalar a base de exemplo, se não for pedir muito tem como exportar esse relatório e disponibilizar para mim? Obrigado

[Sebastião Souza Junior]

Neste caso nao precisa, os relatorios estao na basta relatorio quando você clica em importar relatorios.

[Saritur TI]

Eu fiz um teste com os relatórios da base de exemplo mas não atendem ao que estão me pedindo para ser entregue. O exames a vencer e realizados estão ok, e os exames pendentes eles ainda não utilizam. No relatório que estou criando só falta buscar a data do último exame ou o ultimo codigo da conssulta para ficar 100%. Se souberem uma outra forma que eu possa tentar buscar o ultimo exame do funcionário ficaria agradecido.....

[Vanessa Menêses]

Saritur TI,

Se vc colocar SELECT TOP 1 ele lhe trará o registro mais atual ou seja o último exame realizado.

Qualquer dúvida me envia uma msg.

EDITADO:

****

Email retirado pela equipe Fórum RM.

Favor usar o Fórum para troca de mensagens para que tenhamos os assuntos discutidos e visualizados por todos

****

Atenciosamente,

Vanessa

[Saritur TI]

Boa tarde Vanessa....

Já tentei usat o TOP, mas sem êxito. Com o top só me tras o primeiro funcionário do relatório e com a data mais antiga.......

Mas o brigado pela idéia...

[Vanessa Menêses]

Diminui sua sentença só para ver se saia a data do exame atual e saiu conforme sentença abaixo.

Agora é só vc inserir os dados que vc deseja que saia na sentença.

SELECT P.CODPESSOA,P.DATAEXAME

FROM VEXAMESPRONT P

INNER JOIN

(SELECT CODPESSOA, MAX(DATAEXAME) As UltimaData FROM VEXAMESPRONT GROUP BY CODPESSOA) As V

ON P.CODPESSOA = V.CODPESSOA AND P.DATAEXAME = V.UltimaData

Abraços,

Vanessa

[Jair - Fórmula]

Se está saindo apenas a primeira data com o TOP 1, por que não inverte para mostrar apenas a ultima, invertendo a ordenação no ORDER BY ?!?

[Saritur TI]

fiz um teste com a sentença que vc fez e realmente saiu a data do ultimo exame, vou alterar o meu agora e te falo se deu certo ou não..........

[Saritur TI]

Jair e Vanessa, tentei o que vocês escreveram mas tabém não funcionou, continua saindo a bendita da primeira data.............

Deve ser alguma coisa na minha sentença que não consegui descobrir ainda. O jeito vai ser brigar com o pessoal do Dep. Médico para começar a utilizar o campo dos exames pendentes.......kkkkkkk

obrigado pela atenção ai..............

[Vanessa Menêses]

Por favor manda para mim como vc fez a sentença com base na sentença que te enviei...

[Saritur TI]

Desculpe se fiz alguma coisa meio fora do comum tá ..hehe

sou novo nessa área............ =[

SELECT

PSECAO.CODIGO CODSECAO$, PSECAO.DESCRICAO, PFUNC.CHAPA, PFUNC.NOME, VEXAMESPRONT.DATAEXAME dt,

DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME),

VEXAMESPRONT.CODEXAME, VEXAMES.NOMEEXAME,VEXAMESPRONT.CODTIPOEXAME, VTIPOSEXAMES.NOMETIPOEXAME,

VCONSULTASPRONT.CODCONSULTAPRONT, VCONSULTASPRONT.CODTIPOCONSULTA, VCONSULTASPRONT.DATACONSULTA

FROM

PFUNC, VCONSULTASPRONT, VEXAMESPRONT, VEXAMES, VTIPOSEXAMES, PSECAO,

(SELECT VEXAMESPRONT.CODPESSOA, MAX(VEXAMESPRONT.DATAEXAME) As UltimaData FROM VEXAMESPRONT GROUP BY CODPESSOA) AS V

WHERE

PFUNC.CODCOLIGADA = VEXAMESPRONT.CODCOLIGADA

AND VEXAMESPRONT.CODCOLIGADA = VCONSULTASPRONT.CODCOLIGADA

AND VEXAMESPRONT.CODCOLIGADA = VEXAMES.CODCOLIGADA

AND VEXAMES.CODCOLIGADA = VTIPOSEXAMES.CODCOLIGADA

AND PFUNC.CODCOLIGADA = PSECAO.CODCOLIGADA

AND PFUNC.CODSECAO = PSECAO.CODIGO

AND PFUNC.CODPESSOA = VEXAMESPRONT.CODPESSOA

AND VEXAMESPRONT.CODPESSOA = VCONSULTASPRONT.CODPESSOA

AND VEXAMESPRONT.CODEXAME = VEXAMES.CODEXAME

AND VEXAMESPRONT.CODTIPOEXAME = VTIPOSEXAMES.CODTIPOEXAME

AND VEXAMESPRONT.CODCONSULTAPRONT = VCONSULTASPRONT.CODCONSULTAPRONT

AND PFUNC.CODSITUACAO <> 'D'

--AND VEXAMESPRONT.DATAEXAME BETWEEN '2008-10-01' AND '2009-01-31'

AND DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME) BETWEEN '2008-10-01' AND '2009-01-31'

AND PSECAO.CODIGO LIKE '%.%7%.%'

AND VEXAMESPRONT.CODEXAME = '001'

AND PFUNC.CODCOLIGADA = '1'

GROUP BY

PSECAO.CODIGO , PSECAO.DESCRICAO, PFUNC.CHAPA, PFUNC.NOME, VEXAMESPRONT.DATAEXAME,

VEXAMESPRONT.CODEXAME, VEXAMES.NOMEEXAME,VEXAMESPRONT.CODTIPOEXAME, VTIPOSEXAMES.NOMETIPOEXAME,

VCONSULTASPRONT.CODCONSULTAPRONT, VCONSULTASPRONT.CODTIPOCONSULTA,VCONSULTASPRONT.DATACONSULTA,

DATEADD(DAY,VTIPOSEXAMES.DIASPERIODICIDADE,VEXAMESPRONT.DATAEXAME) , vexamespront.codpessoa

ORDER BY CODSECAO$, PFUNC.NOME, VEXAMESPRONT.DATAEXAME DESC

[Vanessa Menêses]

Sem problemas, estamos aqui para ajudar segue a sentença já testada.

Qualquer dúvida me procure.

SELECT S.CODIGO,S.DESCRICAO,F.CHAPA,F.NOME, P.CODPESSOA,P.DATAEXAME,P.CODEXAME,V.NOMEEXAME,P.CODTIPOEXAME,

T.NOMETIPOEXAME,C.CODCONSULTAPRONT,C.CODTIPOCONSULTA,C.DATACONSULTA

FROM PFUNC F, VCONSULTASPRONT C, VEXAMES V , VTIPOSEXAMES T, PSECAO S,VEXAMESPRONT P

INNER JOIN (SELECT CODPESSOA, MAX(DATAEXAME) As UltimaData FROM VEXAMESPRONT GROUP BY CODPESSOA) As Z

ON P.CODPESSOA = Z.CODPESSOA AND P.DATAEXAME = Z.UltimaData

WHERE

F.CODCOLIGADA = P.CODCOLIGADA AND P.CODCOLIGADA = C.CODCOLIGADA AND P.CODCOLIGADA = V.CODCOLIGADA AND V.CODCOLIGADA = S.CODCOLIGADA

AND F.CODCOLIGADA = S.CODCOLIGADA AND F.CODSECAO = S.CODIGO AND F.CODPESSOA = P.CODPESSOA AND P.CODPESSOA = C.CODPESSOA

AND P.CODEXAME = V.CODEXAME AND P.CODTIPOEXAME = T.CODTIPOEXAME AND P.CODCONSULTAPRONT = C.CODCONSULTAPRONT

AND F.CODSITUACAO <> 'D' AND P.DATAEXAME BETWEEN '2008-10-01' AND '2009-01-31' AND DATEADD(DAY,T.DIASPERIODICIDADE,P.DATAEXAME) BETWEEN '2008-10-01' AND '2009-01-31'

AND S.CODIGO LIKE '%.%7%.%' AND P.CODEXAME = '001' AND F.CODCOLIGADA = '1'

GROUP BY

S.CODIGO , S.DESCRICAO, F.CHAPA, F.NOME, P.DATAEXAME,P.CODEXAME, V.NOMEEXAME,P.CODTIPOEXAME, T.NOMETIPOEXAME,

C.CODCONSULTAPRONT, C.CODTIPOCONSULTA,C.DATACONSULTA, P.codpessoa

ORDER BY S.CODIGO, F.NOME

[Saritur TI]

Vanessa......vc quer casar comigo......hsauhsuahsua..........Brincadeira

fiz as adaptações e testei na minha base e parece que deu certinho, falta só eu sentar com o pessoal do Dep. Médico e fazer mais alguns teste, até as 18:00h te aviso se ficou 100%.......

[Saritur TI]

Vanessa estou te devendo uma........heheh

Deu certo o relatório, muito obrigado pela ajuda e agradeço aos outros membros do forum que postaram neste tópico. Na segunda feira já vou trazer mais uma dúvida minha sobre um outro relatório....hehe

um ótimo final de semana a todos.................

att,

Leandro Guimarães

[Vanessa Menêses]

Que bom fico feliz em ter lhe ajudado!!

Qualquer coisa pode me procurar ou postar aqui no Forum.

Agora vc já pode colocar como resolvido essa dúvida.

Beijos,

Vanessa

[markitu]

Aviso Sobre MultiModeração para Membros

Que bom que resolveu o problema.

Agora no fórum existe o esquema de multimoderação onde o próprio usuário que abriu o post pode marcar como resolvido.

Dá uma olhada no link abaixo que mostra como fazer.

http://www.forumrm.com.br/index.php?showtopic=1555

[Saritur TI]

Tópico Fechado / Resolvido.

O mesmo foi marcado como resolvido por não haver mais nada a resolver, pelo mesmo ter ficado parado por muito tempo sem o membro que o iniciou voltar a participar ou comentar, ou por não ter mais comentários de nenhum outro membro do Fórum.

Qualquer coisa, alguma dúvida ou questionamento sobre o assunto, pode postar novamente que analisaremos, ou se preferir, favor entrar em contato com a administração ou moderação, através do link: Administradores e Moderadores que retiraremos o STATUS de RESOLVIDO do seu título.

Se preferir, mande um email para admin@forumrm.com.br