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]desconto de venda em subformulario Folha de dados

    Compartilhe
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 438
    Registrado : 12/04/2016

    [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  marcelo marques em Sex 16 Dez 2016, 16:30

    boa tarde pessoal eu estou quebrando a cabeça aqui de como faria para colocar uma função no campo desconto, eu gostaria de colocar o valordevenda no formulário produto e o com valor mínimo ou seja ao efetuar uma venda com desconto ou valordevenda-desconto ñ pode ficar menor q o valor mínimo ou seria de outra forma para ter uma margem de venda não vender abaixo do mínimo

    obrigado
    Anexos
    Exemplo Marcelo Marques (2).accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 13 vez(es)
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 712
    Registrado : 01/03/2014

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  Celso Roberto em Sex 16 Dez 2016, 17:48

    Olá marcelo..

    Não consegui abrir seu bd, pois o meu access é 2007
    Mas acredito que se voce tem no form o preço de venda e o preço minimo definido, então no campo valor com desconto coloque uma verificação no evento ao Sair ou Antes de Alterar tipo:

    If Me.NomeCampoValorComDesconto < Me.NomeCampoValorMinimo Then
    MsgBox "Este valor não pode ser menor que valor Minimo!!!", vbCritical, "Atenção"
    DoCmd.CancelEvent
    Me.Undo
    Me.NomeCampoValorComDesconto.SetFocus
    End If

    Aguardo retorno

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 438
    Registrado : 12/04/2016

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  marcelo marques em Sex 16 Dez 2016, 21:21

    boa noite Celso vou fazer esta tentativa e retorno porque meu propósito seria se tenho um produto no valor de venda de 100,00 e o valor mínimo de fosse 90,00 eu na pudesse dar o desconto maior q dez reais na verdade como deveria fazer colocar um valor do desconto no produto como exemplo 10,00 para o desconto ñ ultrapassar esses 10,00 porque tem produto q ñ tem como dar desconto será que essa seria a melhor forma?

    obrigado
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 712
    Registrado : 01/03/2014

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  Celso Roberto em Sab 17 Dez 2016, 16:59

    Olá..

    Me diga:
    Voce pretende digitar o valor do desconto ou valor praticado para que se faça a verificação?

    Aguardo

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 438
    Registrado : 12/04/2016

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  marcelo marques em Sab 17 Dez 2016, 18:46

    boa tarde Celso eu pretendo digitar o valor do desconto mais dando esse desconto o valor restante não ficar menos que o preço mínimo do produto, porém se ñ tiver desconto o preço fica normal.
    exemplo:
    produto = 100
    desconto = 10
    produto = 90

    então mesmo dando esse desconto e o produto ainda estiver dentro do preço mínimo" OK"

    else
    msgbox"Desconto ñ permitido "


    endif

    obrigado espero q não me perdi nas explicações

    abraço





    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 712
    Registrado : 01/03/2014

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  Celso Roberto em Sab 17 Dez 2016, 21:09

    Olá..
    Como te disse não tenho acesso ao seu bd, então faça estes testes.
    1- Use estes mesmos nome que vou denominar para voce fazer os teste, se Ok ai voce altera para nome desejados.

    2-  Crie em sua tabela campos com estes nomes abaixo
    Nome do campo          -  Tipo de Dados
    PrecoVenda               -  Unidade Monetária
    DescontoPermitido      -  Unidade Monetária
    PrecoVendaMinimo      -  Unidade Monetária
    DescontoPraticado     -   Unidade Monetária
    PrecoVendaPraticado   -  Unidade Monetária

    3- Adicione todos este campos em seu formulario

    4- Em Procedimentos de eventos cole estes códigos
    Código:
    Private Sub Form_Load()
    If IsNull(Me.PrecoVendaPraticado) Then
    Me.PrecoVendaPraticado = Me.PrecoVenda
    End If
    End Sub

    Private Sub PrecoVenda_BeforeUpdate(Cancel As Integer)
        Me.PrecoVendaPraticado = Me.PrecoVenda
    End Sub

    Private Sub PrecoVendaPraticado_BeforeUpdate(Cancel As Integer)
        If Me.PrecoVendaPraticado <> Me.PrecoVenda - Me.DescontoPraticado Then
            MsgBox "O valor esta diferente ao valor do desconto praticado de " & Format(Me!DescontoPraticado, "Currency")
            Me.Undo
            DoCmd.CancelEvent
        Else
        End If
    End Sub

    Private Sub DescontoPermitido_AfterUpdate()
        Me.PrecoVendaMinimo = Me.PrecoVenda - Me.DescontoPermitido
    End Sub

    Private Sub DescontoPraticado_BeforeUpdate(Cancel As Integer)
        If Me.DescontoPraticado > Me.DescontoPermitido Then
           MsgBox "O valor de desconto para este produto é de " & Format(Me!DescontoPermitido, "Currency")
           DoCmd.CancelEvent
        Else
        End If
    End Sub

    Private Sub DescontoPraticado_AfterUpdate()
        Me.PrecoVendaPraticado = Me.PrecoVenda - Me.DescontoPraticado
    End Sub
     

    Faça testes:
    Cadastre produtos e parametrize valor de venda e valor de desconto permitido, se produto ão tiver desconto digite valor zero.
    No campo desconto praticado, digite valor maior que desconto permitido e veja mensagem.
    No campo preço de venda praticado digite valor diferente que valor de venda menos desconto Praticado e veja mensagem

    Veja exemplo anexo para testes

    Aguardo retorno

    Abraços
    Anexos
    Preços.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (99 Kb) Baixado 18 vez(es)


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 438
    Registrado : 12/04/2016

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  marcelo marques em Sab 17 Dez 2016, 22:23

    boa noite caro Celso muito obrigado por disponibilizar seu tempo pra me ajudar ,amanhã farei o teste e te retorno muito obrigado


    abraço
    avatar
    marcelo marques
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 438
    Registrado : 12/04/2016

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  marcelo marques em Seg 19 Dez 2016, 00:00

    boa noite Celso o meu problema foi resolvido, criei um campo na tabela produto com nome valorminimo depois coloquei ele no formulário produto para eu estar cadastrando o preço mínimo se puder fazer menos e ja no formulário venda no campo desconto eu coloquei no evento antes de atualizar: fiz

    if valorunitário- desconto < valormínimo then
    msgbox"Desconto não permitido ",vbcritical,"Atenção"
    cancel=true
    exit sub
    endif

    muito obrigado Celso mais uma vez por dedicar em me ajudar
    abraço.

    feliz Natal...
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 712
    Registrado : 01/03/2014

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  Celso Roberto em Seg 26 Dez 2016, 12:07

    Olá...
    Feliz e próspero ano novo

    Obrigado pelo retorno, o Fórum agradece

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

    ManuelQuim
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 13
    Registrado : 29/10/2015

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  ManuelQuim em Seg 02 Out 2017, 15:09

    Wink Muito bom exemplo Sr. Celso tive á mesma dúvida e deu para entender com o seu exemplo. Excellente cheers
    avatar
    Celso Roberto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 712
    Registrado : 01/03/2014

    Re: [Resolvido]desconto de venda em subformulario Folha de dados

    Mensagem  Celso Roberto em Seg 02 Out 2017, 21:23

    Olá ManuelQuim,

    Fiquei feliz por ter te ajudado

    Abraços


    .................................................................................
    Quando sua dúvida estiver resolvida, Agradeça ao Fórum e de seu tópico por Resolvido



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: Seg 11 Dez 2017, 23:01