[Resolvido]Consulta Maior Valor duplicando

Olá

Preciso que a consulta traga apenas o maior valor de cada produto no campo (Total),  porem como tem preços diferentes, está repetindo.

SELECT Cotacao.Cod_Prod, Cotacao.Descricao, Cotacao.UM, Cotacao.Orcamento, Cotacao.Quant, Cotacao.IPI, cotacao.preco,Max(Cotacao.Total) AS TOTAL
FROM Cotacao
WHERE (((Cotacao.Orcamento)=[forms]![orcamento]![ID]) AND ((Cotacao.total) Is Not Null))
GROUP BY Cotacao.Cod_Prod, Cotacao.Descricao, Cotacao.UM, Cotacao.Orcamento, Cotacao.Quant, Cotacao.IPI,COTACAO.preco,COTACAO.TOTAL


Esta aparecendo conforme abaixo, meu eu quero que retorne apenas a linha com Total = 15,00
cod_prod, descricao, um,orcamento,quant,ipi,preço,total
1827 Parafuso PC 72 5 0 2,00 10,00
1827 Parafuso PC 72 5 0 3,00 15,00

Olá, Caro AJM!

Por favor, disponibilize a base de dados para darmos uma força para você. )

[]'s
Guilherme

Segue BD

relatorio:  MaiorCotacao

Tabela:  Cotacao

Caro AJM!

Verificamos a sua base de dados, e verificamos, que; antes você precisa estabelecer os relacionamentos e disponibilizar os objetos que manipulam a consulta (formulários, dentre outros).


[]'s
Guilherme

No seu relatório há referências a outros objetos que não estão presentes no arquivo que você disponibilizou. Se o que deixo na mensagem não resolver, faça o que o grbpereira falou e disponibilize os objetos faltantes.

SQL para fonte de registro do relatório: em ordem crescente para descrição do produto e ordem decrescente para total (não esqueça de configurar assim também em Agrupar, Classificar e Total, conforma mostra a imagem da mensagem.)

Código:

SELECT Cotacao.Cod_Prod, Cotacao.Descricao, Cotacao.UM, Cotacao.Orcamento, Cotacao.Quant, Cotacao.IPI, Cotacao.preco, Cotacao.TOTAL
FROM Cotacao
WHERE (((Cotacao.Orcamento)=forms!orcamento!ID) And ((Cotacao.TOTAL) Is Not Null))
ORDER BY Cotacao.Descricao, Cotacao.TOTAL DESC;

Variável adicionada no início do módulo do relatório

Código:

Dim lngIdProdutoAnterior As Long

Código adicionado no evento "Ao imprimir" da seção Detalhe do relatório

Código:

If Me!Cod_Prod = lngIdProdutoAnterior Then
    Me.PrintSection = False
    Me.MoveLayout = False
    Exit Sub
End If
    
lngIdProdutoAnterior = Me!Cod_Prod

O bd esta dividido e é muito grande.
Em anexo tem a consulta ( Cotacao Consulta).
O produto 229 tem que aparecer apenas uma vez , a linha que tem Total=50,00
o produto 1827 tem que aparecer apenas uma vez, a linha que tem total=24,00

Funcionando a consulta eu jogo pro meu banco

Fico no aguardo dos amigos

Olá, AJM!

Por favor, vá em FERRAMENTAS DE BANCO DE DADOS/COMPACTAR E REPARAR BANCO DE DADOS. Em seguida, ZIPE-O e nos envie, pois o formulário e o relatório estão apresentando problemas; Outra, é aconselhável você criar os relacionamentos entre as tabelas, para o teu banco conseguir a mínima integridade possível dos dados, senão... Mais tarde você vai ter sérios aborrecimentos, que vai demorar um tempo considerável para você arrumar. O nosso colega IvanJr, ainda te ajudou, uma pena não ter conseguido solucionar a sua questão.

Esse é um dos motivos que pedimos que quando houver duvida, envie também o sistema para melhor entendermos in loco o Problema. )

[]'s
Guilherme

Ola

Minha sugestão

O mais racional para criterio é utilizar o preço por unidade e não o total (Na minha opinião)

Atenção os campos sem preço (zero ou nulo) não consegue diferenciar
então mostra todos, estão cotados mas não orçados

Codigo disponibilizado por JPaulo (a alguns anos atrás) Veja o simples

SELECT * From SuaTabela temp
WHERE temp.Preço=(SELECT MIN(Preço) FROM SuaTabela
WHERE Produto=temp.Produto);


com 2 criterios

SELECT *
FROM tblRecomendacao AS temp
WHERE (((temp.DataRec)=(SELECT Max(DataRec) FROM tblRecomendacao  WHERE Aplicacao=temp.Aplicacao and fazenda=temp.fazenda)));

Boa noite

Scandinavo, sua sugestão funcionou perfeitamente, segue abaixo como ficou:


SELECT temp.Orcamento, *
FROM Cotacao AS temp
WHERE (((temp.Orcamento)=[forms]![Orcamento]![ID]) AND ((temp.Total)=(SELECT Max([Total]) FROM cotacao WHERE Cod_Prod=temp.Cod_Prod and [Orcamento]=temp.Orcamento and preco>0)));


Obrigado!

Resolvido!

Valeu pelo retorno....