MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Consulta Maior Valor duplicando

    Compartilhe

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 27/01/2012

    [Resolvido]Consulta Maior Valor duplicando

    Mensagem  AJM em Dom 07 Out 2018, 2:20 am

    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

    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 10/05/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  grbpereira em Dom 07 Out 2018, 9:09 am

    Olá, Caro AJM!

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

    []'s
    Guilherme

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 27/01/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  AJM em Dom 07 Out 2018, 4:44 pm

    Segue BD

    relatorio:  MaiorCotacao

    Tabela:  Cotacao
    Anexos
    Cópia de BD_L2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (449 Kb) Baixado 15 vez(es)

    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 10/05/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  grbpereira em Dom 07 Out 2018, 6:32 pm

    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
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 300
    Registrado : 21/11/2016

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  IvanJr. em Dom 07 Out 2018, 8:10 pm

    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
    Anexos
    for.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (87 Kb) Baixado 3 vez(es)

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 27/01/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  AJM em Dom 07 Out 2018, 8:50 pm


    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
    Anexos
    Cópia de BD_L2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (433 Kb) Baixado 2 vez(es)

    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 90
    Registrado : 10/05/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  grbpereira em Dom 07 Out 2018, 9:56 pm

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

    []'s
    Guilherme
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 536
    Registrado : 11/11/2009

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  scandinavo em Ter 09 Out 2018, 3:53 pm

    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)));
    Anexos
    BD_L2Maior Valor.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (426 Kb) Baixado 5 vez(es)

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 27/01/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  AJM em Ter 09 Out 2018, 10:58 pm


    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!

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 27/01/2012

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  AJM em Ter 09 Out 2018, 11:01 pm


    Resolvido!
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 536
    Registrado : 11/11/2009

    Re: [Resolvido]Consulta Maior Valor duplicando

    Mensagem  scandinavo em Qua 10 Out 2018, 9:23 am

    Valeu pelo retorno....

      Data/hora atual: Qui 13 Dez 2018, 3:24 pm