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

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......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%.......

Boa tarde, também não tenho muita experiência em sentenças sql, mas quando este tipo de erro acontece comigo é porque está faltando mais alguma comparação no WHERE, da uma olhada nas tabelas que está utilizando e tenta achar mais e se necessário acrescente outra tabela só para faze a comparação no WHERE sem precisar lançar no select. E outra coisa, se vc rodar a sentença no query analizer o resultado da repetição é o mesmo? Att

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

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..............

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..........

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...

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.....

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

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,....

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

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