[Resolvido]desconto de venda em subformulario Folha de dados

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

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

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

Olá..

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

Aguardo

Abraços

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

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

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


abraço

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

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

Obrigado pelo retorno, o Fórum agradece

Abraços

Muito bom exemplo Sr. Celso tive á mesma dúvida e deu para entender com o seu exemplo. Excellente

Olá ManuelQuim,

Fiquei feliz por ter te ajudado

Abraços