CALCULAR ENTRADA AO FINALIZAR VENDA
Oi,boa tarde,tenho um sistema e gostaria de acrecentar nele no form de finalizar venda,um textbox chamado entrada,e seria para ao finalizar a venda a prazo o clienete pudece dar uma entrada ou em dinheiro ou en cartão etc,como faço para calcular isso.?
tipo o valor da venda deu X e o Cliente vai ar X de entrada.então o valor das parcelas serão calculadas em cima da entrada que o clienete deu....
Aguando resposta e muito Obrigada....
O meu codigo ficou assim..........
Option Explicit
Private Sub atxtQtdParcelas_Change()
CalculaParcelas
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
If vPerguntaFechaJanela = True Then
Select Case MsgBox([Ô]Tem certeza de que deseja sair desta tela ?[Ô], vbYesNo Or vbQuestion Or vbDefaultButton1, [Ô]Orion[Ô])
Case vbYes
Unload Me
End Select
Else
Unload Me
End If
End If
End Sub
Private Sub CalculaParcelas()
On Error GoTo labelErro
If atxtQtdParcelas.Text <> [Ô][Ô] Then
If atxtQtdParcelas.Text <> 0 Then
If IsNumeric(atxtValorParcela.Text) Then
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral) / CCur(atxtQtdParcelas.Text), 2)
vValorParcela = CCur(atxtValorParcela.Text)
vQuantidadeParcelas = CInt(atxtQtdParcelas.Text)
Else
atxtQtdParcelas.Text = 1
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral) / CCur(atxtQtdParcelas.Text), 2)
End If
Else
atxtQtdParcelas.Text = 1
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral) / CCur(atxtQtdParcelas.Text), 2)
End If
Else
atxtQtdParcelas.Text = [Ô][Ô]
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral), 2)
End If
Exit Sub
labelErro:
GlobalErros [Ô]CalculaParcelas[Ô], Me.Name, True, True
If vRepetirErro = True Then
Resume
End If
If vIgnorarErro = True Then
Resume Next
End If
End Sub
Private Sub atxtQtdParcelas_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
Unload Me
End If
End Sub
Private Sub atxtQtdParcelas_LostFocus()
CalculaParcelas
End Sub
Private Sub Form_Load()
On Error GoTo labelErro
CentralizaFormulario Me, False, False
vQuantidadeParcelas = 1
atxtQtdParcelas.Text = 1
CalculaParcelas
Exit Sub
labelErro:
GlobalErros [Ô]Form_Load[Ô], Me.Name, True, True
If vRepetirErro = True Then
Resume
End If
If vIgnorarErro = True Then
Resume Next
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
CalculaParcelas
End Sub
nele gostaria de acrecentar um textbox com o valor da entrada.
tipo o valor da venda deu X e o Cliente vai ar X de entrada.então o valor das parcelas serão calculadas em cima da entrada que o clienete deu....
Aguando resposta e muito Obrigada....
O meu codigo ficou assim..........
Option Explicit
Private Sub atxtQtdParcelas_Change()
CalculaParcelas
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
If vPerguntaFechaJanela = True Then
Select Case MsgBox([Ô]Tem certeza de que deseja sair desta tela ?[Ô], vbYesNo Or vbQuestion Or vbDefaultButton1, [Ô]Orion[Ô])
Case vbYes
Unload Me
End Select
Else
Unload Me
End If
End If
End Sub
Private Sub CalculaParcelas()
On Error GoTo labelErro
If atxtQtdParcelas.Text <> [Ô][Ô] Then
If atxtQtdParcelas.Text <> 0 Then
If IsNumeric(atxtValorParcela.Text) Then
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral) / CCur(atxtQtdParcelas.Text), 2)
vValorParcela = CCur(atxtValorParcela.Text)
vQuantidadeParcelas = CInt(atxtQtdParcelas.Text)
Else
atxtQtdParcelas.Text = 1
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral) / CCur(atxtQtdParcelas.Text), 2)
End If
Else
atxtQtdParcelas.Text = 1
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral) / CCur(atxtQtdParcelas.Text), 2)
End If
Else
atxtQtdParcelas.Text = [Ô][Ô]
atxtValorParcela.Text = FormatarDec(CCur(vTotalGeral), 2)
End If
Exit Sub
labelErro:
GlobalErros [Ô]CalculaParcelas[Ô], Me.Name, True, True
If vRepetirErro = True Then
Resume
End If
If vIgnorarErro = True Then
Resume Next
End If
End Sub
Private Sub atxtQtdParcelas_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
Unload Me
End If
End Sub
Private Sub atxtQtdParcelas_LostFocus()
CalculaParcelas
End Sub
Private Sub Form_Load()
On Error GoTo labelErro
CentralizaFormulario Me, False, False
vQuantidadeParcelas = 1
atxtQtdParcelas.Text = 1
CalculaParcelas
Exit Sub
labelErro:
GlobalErros [Ô]Form_Load[Ô], Me.Name, True, True
If vRepetirErro = True Then
Resume
End If
If vIgnorarErro = True Then
Resume Next
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
CalculaParcelas
End Sub
nele gostaria de acrecentar um textbox com o valor da entrada.
Não vou analisar todo este código que você mandou, mas resumindo a fórmula do valor da parcela é:
Valor da parcela = ((total da venda) - (valor da entrada)) / (quantidade de parcelas)
Valor da parcela = ((total da venda) - (valor da entrada)) / (quantidade de parcelas)
Tópico encerrado , respostas não são mais permitidas