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]Listar produto com o valor da sua última venda

    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 31/08/2012

    [Resolvido]Listar produto com o valor da sua última venda Empty [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Chamon Consultoria em 23/4/2019, 19:45

    Boa tarde!

    Bd em Access 2010.

    O objetivo: Filtrar o último produto vendido para um determinado cliente, com a finalidade de se ver o preço praticado nessa última venda.

    Como? Após informar (no Formulário1) o código de um cliente no campo "Cód Cliente" e no campo "Descrição do Produto" informar o nome ou parte do nome do produto, seria listado na Caixa de combinação "ListaProdutos", apenas o registro da última venda desse produto.

    Atualmente consigo fazer esse filtro, porém listando todas as vendas já realizadas do produto informado para o cliente também informado, não conseguindo limitar a busca desse produto para apenas a sua última venda, ou seja, a mais recente.

    Para testes, informar o cód do cliente "346" e a descrição do produto "Papel".

    Obs: Caso o cliente não tenha comprado nenhum produto com a descrição informada, o sistema está buscando esse produto na consulta "viewProdutos". Caso contrário, ele está buscando  na consulta "Cs_UltimasVendasProdutos".

    Desde já agradeço!
    Anexos
    [Resolvido]Listar produto com o valor da sua última venda AttachmentUltimo Produto vendido.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (94 Kb) Baixado 12 vez(es)
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 23/01/2018

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  crysostomo em 24/4/2019, 01:24

    meu amigo eu estou no celular, não da para ver , faz o seguinte , faz 2 cambo chamando o cliente e automaticamente vem as venda vc clica na ultima e aparece so ela.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 31/08/2012

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Chamon Consultoria em 24/4/2019, 02:07

    crysostomo,

    obrigado pela sugestão, mas o objetivo é outro. Vou dar um exemplo para ter um melhor entendimento.

    Uma loja vende o produto "X" para vários clientes. Porém existem variações de preço desse produto, de cliente para cliente e no cadastro de produtos, o preço é sempre o mesmo.
    Como são vários clientes, fica difícil lembrar por quanto foi vendido esse produto na última venda feita para cada cliente.

    Então o objetivo seria, após informar o cliente:
    1-Filtrar todas as vendas feitas para esse cliente - ok - já está funcionando
    2-Ao buscar o produto da venda atual, o sistema (dentro das vendas já filtradas), mostrasse apenas esse produto, mas com o valor da última venda. - Não ok - Atualmente, o sistema está filtrando todas as vendas que contem o produto informado e não apenas a última venda.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4416
    Registrado : 20/04/2011

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Silvio em 24/4/2019, 14:18

    Bom dia...

    Formulário estranho esse que mandou...

    Não está faltando nada nele não ? Principalmente após digitar o código do teu cliente ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 31/08/2012

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Chamon Consultoria em 24/4/2019, 14:32

    Bom dia Silvio,

    Para fins de teste, acredito que possa ser assim mesmo.

    Após digitar o código do cliente (é feito o filtro dos produtos vendidos para tal cliente), e o cursor já vai para o campo da descrição do produto, para buscar o produto da venda atual.
    Sugeri então, buscar pela descrição "Papel", pois há alguns registros de vendas com essa descrição, e o objetivo não é listar essas várias vendas, e sim apenas a última (mais recente).

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4416
    Registrado : 20/04/2011

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Silvio em 24/4/2019, 17:46

    Teste, veja se é isso...

    Código:
    Private Sub txtNomPro_AfterUpdate()

        Set dbs = CurrentDb

        strSql = "SELECT  top 2 Cs_UltimasVendasProdutos.CODPRO, Cs_UltimasVendasProdutos.ccVarPro, Cs_UltimasVendasProdutos.ccNomPro, Cs_UltimasVendasProdutos.ccPreçoVenda, Cs_UltimasVendasProdutos.ccPreçoCusto, Cs_UltimasVendasProdutos.ccMedida, Cs_UltimasVendasProdutos.ccCST, Cs_UltimasVendasProdutos.ccCSOSN, Cs_UltimasVendasProdutos.ccEstoque, Cs_UltimasVendasProdutos.ccNCM, Cs_UltimasVendasProdutos.ccIPI, Cs_UltimasVendasProdutos.CCALIQUOTAIBPT, Cs_UltimasVendasProdutos.ccPeso, Cs_UltimasVendasProdutos.ccAplicação, Cs_UltimasVendasProdutos.ccCFOP, Cs_UltimasVendasProdutos.ccComissao FROM Cs_UltimasVendasProdutos "

        strSql = strSql & " WHERE Cs_UltimasVendasProdutos.ccNomPro Like '*" & Me.txtNomPro & "*'"
        strSql = strSql & " ORDER BY Cs_UltimasVendasProdutos.ccNomPro DESC;"

        Set rst = dbs.OpenRecordset(strSql)

        If rst.RecordCount > 0 Then
            ListaProdutos.RowSource = strSql
            ListaProdutos.Visible = True
            ListaProdutos.SetFocus
            ListaProdutos.Dropdown

        Else


            strSql = "SELECT top 2 viewProdutos.CODPRO, viewProdutos.ccVarPro, viewProdutos.ccNomPro, viewProdutos.ccPreçoVenda, viewProdutos.ccPreçoCusto, viewProdutos.ccMedida, viewProdutos.ccCST, viewProdutos.ccCSOSN, viewProdutos.ccEstoque, viewProdutos.ccNCM, viewProdutos.ccIPI, viewProdutos.CCALIQUOTAIBPT, viewProdutos.ccPeso, viewProdutos.ccAplicação, viewProdutos.ccCFOP, viewProdutos.ccComissao FROM viewProdutos"

            strSql = strSql & " WHERE viewProdutos.ccNomPro Like '*" & Me.txtNomPro & "*'"
            strSql = strSql & " ORDER BY viewProdutos.ccNomPro DESC;"
            Set rst = dbs.OpenRecordset(strSql)
            If rst.RecordCount > 0 Then
                ListaProdutos.RowSource = strSql
                ListaProdutos.Visible = True
                ListaProdutos.SetFocus
                ListaProdutos.Dropdown
            Else
                Beep
                MsgBox "Não há produtos com esta informação!", vbInformation, "Orçamentos"
                Exit Sub
            End If
        End If

    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Chamon Consultoria
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 223
    Registrado : 31/08/2012

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Chamon Consultoria em 1/5/2019, 21:35

    Silvio,

    Desculpe a demora do retorno, mas optei por fazer vários testes antes declarar o tópico como "Resolvido".

    Mas sim, sua sugestão me ajudou muito a resolver o problema.

    Muito obrigado e sucesso pra vc!

    Abraço
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4416
    Registrado : 20/04/2011

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Silvio em 2/5/2019, 11:58

    Bom dia..

    Show de bola, o fórum agradece o retorno.

    Sucesso a ti.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado

    [Resolvido]Listar produto com o valor da sua última venda Empty Re: [Resolvido]Listar produto com o valor da sua última venda

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/8/2019, 23:47