[Resolvido]Porcentagem em formulario de vendas

https://dl.dropbox.com/u/98318720/Vendas.rar

Gente abençoada,tenho esse bd de vendas,e quero ter mais um campo para quando eu quizer colocar uma porcentagem ele diminuir do valor total da venda, e me dar o valor depois de colocar a porcentagem que quero diminuir.Ex:Valor total 200,00 - 50%=100,00.
e aparecer no cupom esses detalhes, pra mim é muito dificil de fazer isso.
Apelo para os mestres essa lida.
Obrigado pessoal.

De detalhes kaynan, amanha vejo isto pra ti.\

Cumprimentos.

https://dl.dropbox.com/u/90217826/Vendas.rar

Bom dia PIloto é nois outra vez,neste outro bd vais entender melhor,no formulario FVenda quero por o desconto do valor total em porcetagem e é claro aparecer o valor total com esse desconto.
Estão todos esses módulo é porque estou a usar o Sistema base que fizeste.
Da uma olhada ai amigo e ve oque da pra ser feito.

Bom inicio de semana pra todos nós.

https://dl.dropbox.com/u/90217826/Vendas.rar
Pessoal consegui colocar a porcentagem como queria,mas só funciona se eu colocar o valor da porcentagem antes da venda,e se querer modificar esse valor da porcentagem não muda o total.
Que estou fazendo de errado.

Abçs.

Quais os objetos envolvidos?

Cumprimentos.

Ola Piloto veja esse ultimo bd que postei,no formulario FVenda eu coloquei um campo para por o valor da porcentagem que quero diminuir do valor total, e uma caixa texto para exibir o valor final,só que não ta funcionando direito não sei que fiz de errado.
Sò funciona se eu colocar o valor da porcentagem antes da venda,depois ja não funciona.Se puder veja que vai entender.

Até mais.

Piloto quando for descansar da uma olhada nesta lida que parece facil,mas só parece.heheheh

A paciência é uma virtude Kaynan.... Pisa no freio.. Acelera não...

É verdade Piloto,com paciência se vai longe...se ainda tiver gasolina

Cite os passos para venda e em que momento preenche este campo e o que espera que aconteça.

Cumprimentos.

Bem veja esse ultimo bd que postei,no formulario FVenda tem uma combo onde escolho o prduto a ser vendido,e uma caixatexto que coloco * e quantidade apos o código,como tentei fazer,no valor total das vendas eu quero diminuir por porcentagem o valor total e ter o valor final conforme o valor porcento que coloquei no campo entende.

Consegui resolver.

Rapaz... então me fala ai a solucão para que eu aprenda...

Parabéns por isso Kayna!!!!!

gostei.

https://dl.dropbox.com/u/90217826/Gerenciamento2-2.rar

Veja Piloto agora coloquei aquele exemplo no bd principal.
Não sei se presiso abrir outro tópico,mas agora gostaria que aqueles detalhes da porcentagem aparecesem no cupom também.Essa parte esta no módulo "funcões"e essas lida de códigos é um bixo pra mim.Se puder amigo de uma cacetada nesse bixo pra mim.

Abçs.

Se presisar.Usuario:Abegahil Senha:a

reaberto

Poste o código do cupom..

Cumprimentos.

Piloto deve ser este o código,mas na dúvida no ultimo bd que postei,esta no módulo "funcões"


Function cupomVenda(argCodVenda As Long) As String

Dim objVenda As New clsVenda

If Not objVenda.obter(argCodVenda) Then
cupomVenda = ""
Exit Function
End If

cupomVenda = "Jars eletrônica" & vbCrLf
cupomVenda = cupomVenda & "" & vbCrLf
cupomVenda = cupomVenda & "Rua Adelino Paganela-388-Pinhal da Serra-RS" & vbCrLf
cupomVenda = cupomVenda & "Cnpj:04.752.046/0001-18" & vbCrLf
cupomVenda = cupomVenda & "" & vbCrLf
cupomVenda = cupomVenda & "Fone: (54) 8407-2405" & vbCrLf
cupomVenda = cupomVenda & "-----------------------------------------------------------------" & vbCrLf
cupomVenda = cupomVenda & Format(objVenda.dataVenda, "dd/mm/yyyy") & _
" Venda: " & _
Format(objVenda.codVenda, "000000") & vbCrLf
cupomVenda = cupomVenda & vbCrLf
cupomVenda = cupomVenda & " CUPOM FISCAL" & vbCrLf
cupomVenda = cupomVenda & vbCrLf

cupomVenda = cupomVenda & listaProdutos(argCodVenda)

cupomVenda = cupomVenda & "-----------------------------------------------------------------" & vbCrLf
cupomVenda = cupomVenda & vbCrLf
cupomVenda = cupomVenda & "TOTAL " & _
FormatCurrency(objVenda.getValorTotal) & vbCrLf
cupomVenda = cupomVenda & vbCrLf
If Not IsNull(objVenda.codCliente) Then
cupomVenda = cupomVenda & "Cliente: " & Format(objVenda.objCliente.codCliente, _
"0000") & vbCrLf
cupomVenda = cupomVenda & "CPF: " & objVenda.objCliente.cpf & vbCrLf
cupomVenda = cupomVenda & "Nome: " & objVenda.objCliente.nomeCliente & vbCrLf
Else
cupomVenda = cupomVenda & "Venda ao consumidor" & vbCrLf
End If
cupomVenda = cupomVenda & vbCrLf
cupomVenda = cupomVenda & "Obrigado e volte Sempre..."

End Function

Function listaProdutos(argCodVenda As Long, _
Optional ultimos As Integer = 0) As String

Dim rstLista As Recordset
Dim objDetalheVenda As New clsDetalheVenda
Dim contador

Set rstLista = objDetalheVenda.getListaProduto(argCodVenda)

If Not rstLista.EOF Then
rstLista.MoveLast
Else
listaProdutos = ""
Exit Function
End If

While Not rstLista.BOF And (contador < ultimos Or ultimos = 0)

listaProdutos = " " & FormatNumber(rstLista("qtdProduto"), 3) & _
" x " & FormatCurrency(rstLista("valorUnitario")) & _
" " & FormatCurrency(rstLista("SubTotal")) & _
vbCrLf & listaProdutos

listaProdutos = Format(rstLista("codProduto"), "000000") & " " & _
rstLista("unidade") & " " & rstLista("descricao") & _
vbCrLf & listaProdutos

rstLista.MovePrevious
contador = contador + 1
Wend

End Function

Function cupomDivida(argCodVenda As Long) As String

Dim objVenda As New clsVenda

If Not objVenda.obter(argCodVenda) Then
cupomDivida = ""
Exit Function
End If

cupomDivida = "Jars Eletrônica" & vbCrLf
cupomDivida = cupomDivida & "" & vbCrLf
cupomDivida = cupomDivida & "Rua Adelino Paganela-388-centro-Pinhal da Serra-RS" & vbCrLf
cupomDivida = cupomDivida & "Cnpj:04.752.046/0001-18" & vbCrLf
cupomDivida = cupomDivida & "" & vbCrLf
cupomDivida = cupomDivida & "Fone: (54) 8407-2405" & vbCrLf
cupomDivida = cupomDivida & "-----------------------------------------------------------------" & vbCrLf
cupomDivida = cupomDivida & Format(objVenda.dataVenda, "dd/mm/yyyy") & _
" Venda: " & _
Format(objVenda.codVenda, "000000") & vbCrLf
cupomDivida = cupomDivida & vbCrLf
cupomDivida = cupomDivida & " CUPOM FISCAL" & vbCrLf
cupomDivida = cupomDivida & vbCrLf

cupomDivida = cupomDivida & listaProdutos(argCodVenda)

cupomDivida = cupomDivida & "-----------------------------------------------------------------" & vbCrLf
cupomDivida = cupomDivida & vbCrLf
cupomDivida = cupomDivida & "TOTAL em Divida " & _
FormatCurrency(objVenda.getValorTotal) & vbCrLf
cupomDivida = cupomDivida & vbCrLf
'cupomDivida = cupomDivida & "Cliente: " & Format(objVenda.objCliente.codCliente, _
"0000") & vbCrLf
cupomDivida = cupomDivida & "CPF: " & objVenda.objCliente.cpf & vbCrLf
cupomDivida = cupomDivida & "Nome: " & objVenda.objCliente.nomeCliente & vbCrLf

cupomDivida = cupomDivida & "Venda ao consumidor" & vbCrLf
cupomDivida = cupomDivida & vbCrLf
cupomDivida = cupomDivida & "Obrigado e volte Sempre..."

End Function

Boas Kaynan, quem lhe ajudou com este código.

Porque está em classe e não sou muito bom em classe ainda...

cumprimentos.

Bem Piloto, esse bd eu peguei ja pronto ai do forum mesmo e adaptei aminha maneira,inclusive voce mesmo resolveu um problema pro colega "Grande",vou achar o link e lhe envio.

http://maximoaccess.forumeiros.com/t10906-resolvidototal-de-vendas-por-vendedor#85948

Olha Piloto era deste bd,e foi outro colega que solicitou ajuda.

E ai Piloto não vai ter jeito de fazer essa lida.

Boa noite

OI Pessoal alguém entende desses códigos em "Classe" quero adaptar mais esse detalhe da porcentagem no cupom mas não to conseguindo,no ultimo bd que postei acresentei esse detalhe no formulário "FVenda" tentei mas da erro de compilação e erro de sintaxe.
Se alguém entender dessa lida da uma olhadinha pra mim.

Cumprimentos.

Boas Kayna.. amanha tentarei fazer isto, porem nao lhe garanto que conseguirei pois esta em modulos de classe.

Cumprimentos.

Piloto consegui fazer alguma coisa certa,no cupom agora aparece o percentual e valorFinal,só que aparece o mesmo valor nos tres campos.Total-Percentual e ValorFinal.Gostaria que desse uma olhada,as vezes pode ser algum detalhe que você consegue perceber. Abçs.

https://dl.dropbox.com/u/90217826/Gerenciamento2-2.rar

Poste o codigo detalhando o que fez em outra cor e explique este 3 campos.

Cumprimentos

Bem Piloto,o campo Total ja é do programa mesmo,é onde sai o total das vendas que foram feitas e sai impresso no cumpom,na cor vermelho foi eu quem fez,tentando fazer aparecer o percentual e o ValoFinal no cupom,mas do geito que fiz ele repete o mesmo valor do Total.




Function cupomVenda(argCodVenda As Long) As String

Dim objVenda As New clsVenda

If Not objVenda.obter(argCodVenda) Then
cupomVenda = ""
Exit Function
End If

cupomVenda = "Jars eletrônica" & vbCrLf
cupomVenda = cupomVenda & "" & vbCrLf
cupomVenda = cupomVenda & "Rua Adelino Paganela-388-Pinhal da Serra-RS" & vbCrLf
cupomVenda = cupomVenda & "Cnpj:04.752.046/0001-18" & vbCrLf
cupomVenda = cupomVenda & "" & vbCrLf
cupomVenda = cupomVenda & "Fone: (54) 8407-2405" & vbCrLf
cupomVenda = cupomVenda & "-----------------------------------------------------------------" & vbCrLf
cupomVenda = cupomVenda & Format(objVenda.dataVenda, "dd/mm/yyyy") & _
" Venda: " & _
Format(objVenda.codVenda, "000000") & vbCrLf
cupomVenda = cupomVenda & vbCrLf
cupomVenda = cupomVenda & " CUPOM FISCAL" & vbCrLf
cupomVenda = cupomVenda & vbCrLf

cupomVenda = cupomVenda & listaProdutos(argCodVenda)

cupomVenda = cupomVenda & "-----------------------------------------------------------------" & vbCrLf
cupomVenda = cupomVenda & vbCrLf
cupomVenda = cupomVenda & "TOTAL " & _
FormatCurrency(objVenda.getValorTotal) & vbCrLf

cupomVenda = cupomVenda & "PERCENTUAL " & _
FormatCurrency(objVenda.getPercentual) & vbCrLf

cupomVenda = cupomVenda & "VALORFINAL " & _
FormatCurrency(objVenda.getValorFinal)



cupomVenda = cupomVenda & vbCrLf
If Not IsNull(objVenda.codCliente) Then
cupomVenda = cupomVenda & "Cliente: " & Format(objVenda.objCliente.codCliente, _
"0000") & vbCrLf
cupomVenda = cupomVenda & "CPF: " & objVenda.objCliente.cpf & vbCrLf
cupomVenda = cupomVenda & "Nome: " & objVenda.objCliente.nomeCliente & vbCrLf
Else
cupomVenda = cupomVenda & "Venda ao consumidor" & vbCrLf
End If
cupomVenda = cupomVenda & vbCrLf
cupomVenda = cupomVenda & "Obrigado e volte Sempre..."

End Function

Se você baixou esse ultimo bd,da pra simular uma venda quando der o total,coloque um valor no campo percentual que vai dar o valor final,e é isso que quero que apareça no cupom,que agora depois que colloquei mais umas linhas no código, aparece, mas não da opercentual nem o valor final,fica igual ao total.Rimou rsrsrsrss.

PIloto,só por curiosidade,código em classe é tão dificil assim que ninguém alem de você ta ajudando a solucionar esse probleminha.

Cumprimentos amigo.

Não é questão de ser dificil... no meu caso é que utilizo classes para algumas coisas apenas... neste caso tudo no form e feito a base de classes..

E como nunca utilzei isso dessa maneira ainda nao me ambientei.. mas não é dificil nao.

Cumprimentos.

Primeiramente...

Corrija sua expressão no campo desconto pois está colocando o total como negativo, altere para:

=[txtTotal]-([txtTotal]*[percentual])/100


Agora.. a venda será efetuada pelo valor original.... voce dara um desconto.... isso dara furo no caixa porque a venda ficara gravada sem o desconto aplicado...

o desconto esta apenas para visualizar mas a venda sera gravada no valor original... entendeu?

Cumprimentos.

Boas Kaynan.... dar-te-ei o caminho das pedras....

No seu codigo: (Aqui so a parte dele, veja a parte em vermelho que é o que interessa)

  cupomVenda = cupomVenda & "-----------------------------------------------------------------" & vbCrLf
  cupomVenda = cupomVenda & vbCrLf
  cupomVenda = cupomVenda & "TOTAL                                         " & _
                   FormatCurrency(objVenda.getValorTotal) & vbCrLf
                   
  cupomVenda = cupomVenda & "PERCENTUAL                                    " & _
                   FormatCurrency(objVenda.getPercent) & vbCrLf
          
  cupomVenda = cupomVenda & "VALORFINAL                                    " & _
                   FormatCurrency(objVenda.getValorFinal)

No Seu módulo ClsVenda:

Function getPercent() As Currency
    getPercent = Forms!FVenda.txtPercentual
End Function

Veja que como o valor não esta gravado na tabela eu Busco o mesmo no form
Diferente da função abaixo que pega o valor total que é atraves da tabela.

Function getValorTotal() As Currency
    getValorTotal = Nz(DSum("SubTotal", "CVenda", _
            "codVenda=" & Nz(lngCodVenda, -1)))
End Function

\Cumprimentos.

Piloto fiz as alterações recomendadas,mas da erro de definição de aplicativo ou definição de objeto.

https://dl.dropbox.com/u/90217826/Gerenciamento2-2.rar

Sua caixa texto esta com o nome Percentual, renomeeie para txtPercentual

Cumprimentos.

Mas Piloto,esse campo que esta escrito percentual vem da tabela "Venda"se eu renomear da erro,e a caixa texto esta com o nome "ValorFinal".TEnho que renomear essa tambem.

Function getPercent() As Currency
    getPercent = Nz(DLookup("Percentual", "Venda", _
            "codVenda=" & Nz(lngCodVenda, -1)))
End Function

Para o TotalFinal, crie uma outra função com referencia a caixa texto onde exibe o total com o desconto, semelhate a que fiz acima.

Cumprimentos.

Com esse ultimo código,não deu certo,mas com o anterior eu tirei "txt"ai funcionou, apareceu no cupom o percentual feito.Agora o valor final eu vou tentar fazer,se não conseguir vou fazer um gritedo.

Até mais.

Perfeito Piloto,ta do geito que o velho gosta,fiz essa última parte e deu certo.
Você é o cara amigo,mais uma vez muito obrigado por mais esta lição.

Deus te pague amigo.

Valeu....

Deus ja me poupou a vida em 2 acidentes graves que tive... Eu que estou devendo a Ele... E espero que ajudando ao póximo consiga, se nào pagar, mas diminuir minha dívida para com Ele.

O Fórum agradece o Retorno.