Início
Kaynan 26/9/2023, 16:43Ola pessoal,neste exemplo de vendas,quando dou um desconto em uma venda esse desconto sai errado no cupom ao lado no total geral.![[Resolvido]Sistema de venda Alexandre Fim, dúvida Captur21](https://i.servimg.com/u/f39/20/29/74/58/captur21.png)
![[Resolvido]Sistema de venda Alexandre Fim, dúvida Captur21](https://servimg.com/r/3920297458/captur21.png)
Última edição por Kaynan em 27/9/2023, 16:10, editado 1 vez(es)
3 participantes
[Resolvido]Sistema de venda Alexandre Fim, dúvida
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Última edição por Kaynan em 27/9/2023, 16:10, editado 1 vez(es)
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
BOa noite, aonde está o erro? O cálculo está certo,18-2 é 16
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Ola amigo,veja bem, a pilha custa 10.00 foi comprado 2 menos 2,00 de desconto da 18.00.
Só não sei porque quando adiciono a compra ele diminui mais 2,00 sozinho.
Só não sei porque quando adiciono a compra ele diminui mais 2,00 sozinho.
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
FabioGO- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 124
Registrado : 22/08/2012
Neste trecho está repetindo o desconto.
Trocar esse:
Por esse:
- Código:
Public Sub GeraDadosProd()
Dim y As Integer
vTotProd = 0
vTotDesc = 0
vTotal = 0
vdadosprod = Empty
With lstItens
For y = 1 To .ListCount - 1
'LINHA 1
vdadosprod = vdadosprod & Format(.Column(0, y), "0000000000000") & Space(3)
vdadosprod = vdadosprod & (.Column(1, y)) & Space(32 - Len(.Column(1, y)))
vdadosprod = vdadosprod & (.Column(2, y)) & vbNewLine
'LINHA 2
vdadosprod = vdadosprod & Space(7 - Len(.Column(4, y))) & .Column(4, y)
vdadosprod = vdadosprod & Space(15 - Len(.Column(3, y))) & .Column(3, y)
vdadosprod = vdadosprod & Space(10 - Len(Format((.Column(5, y)), "###,###,###,##0.#0"))) & Format((.Column(5, y)), "###,###,###,##0.#0")
vdadosprod = vdadosprod & Space(18 - Len(Format((.Column(6, y)), "###,###,###,##0.#0"))) & Format((.Column(6, y)), "###,###,###,##0.#0") & vbNewLine
vTotProd = CDbl(vTotProd) + CDbl(.Column(6, y))
vTotDesc = CDbl(vTotDesc) + CDbl(.Column(5, y))
vTotal = vTotProd - vTotDesc
Next y
End With
txtTotProd = vTotProd
txtTotDesc = vTotDesc
txtTotal = CDbl(vTotal)
End Sub
Trocar esse:
- Código:
vTotal = vTotProd - vTotDesc
Por esse:
- Código:
vTotal = vTotProd
Kaynan- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2980
Registrado : 09/04/2012
Perfeito meu amigo,descobriu o erro,muito obrigado,valeu mesmo.
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Dúvida Função Feriado (Funcões úteis - Alexandre Neves)
» [Resolvido]Sistema de estoque e venda
» [Resolvido] Dúvida exemplo envio de mensagem via sistema para o What´s Apps
» [Resolvido]Sistema de ponto de venda PDV
» [Resolvido]Calcular a partir do preço de venda, o valor de venda sem IVA
» [Resolvido]Sistema de estoque e venda
» [Resolvido] Dúvida exemplo envio de mensagem via sistema para o What´s Apps
» [Resolvido]Sistema de ponto de venda PDV
» [Resolvido]Calcular a partir do preço de venda, o valor de venda sem IVA