Venda em Vb
Pergunta
Todas as Respostas
-
gostaria que aparecesse numa lista view
Dim produtos(17) As String
Dim preco(17) As Double
Dim insproduto As String
Dim insquantidade As Integer
Dim inspreco As Integer
Dim c As Integer
Dim quantidade(17) As Integer
Dim b As Integer
Dim resp As String
Dim respo As String
Dim cal As Integer
Dim vproduto As String
Dim vquantidade As Integer
Dim vpreco As Integer
Dim vtroco As Integer
Dim vpagamento As Integer
Dim subt As Double
Dim mult As Double
Dim i As Integer
Dim a As Integer
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_FINDSTRING = &H18F
Private Sub cmbprodutos_Change()
End Sub
Private Sub cmdadicionar_Click()
insproduto = InputBox("Insira o produto")
Select Case insproduto
Case produtos(1)
MsgBox ("Produto Ja cadastrado")
Case produtos(2)
MsgBox ("Produto Ja cadastrado")
Case produtos(3)
MsgBox ("Produto Ja cadastrado")
Case produtos(4)
MsgBox ("Produto Ja cadastrado")
Case produtos(5)
MsgBox ("Produto Ja cadastrado")
Case produtos(6)
MsgBox ("Produto Ja cadastrado")
Case produtos(7)
MsgBox ("Produto Ja cadastrado")
Case produtos(8)
MsgBox ("Produto Ja cadastrado")
Case produtos(9)
MsgBox ("Produto Ja cadastrado")
Case produtos(10)
MsgBox ("Produto Ja cadastrado")
Case produtos(11)
MsgBox ("Produto Ja cadastrado")
Case produtos(12)
MsgBox ("Produto Ja cadastrado")
Case produtos(13)
MsgBox ("Produto Ja cadastrado")
Case produtos(14)
MsgBox ("Produto Ja cadastrado")
Case produtos(15)
MsgBox ("Produto Ja cadastrado")
Case produtos(16)
MsgBox ("Produto Ja cadastrado")
Case produtos(17)
MsgBox ("Produto Ja cadastrado")
Case Else
insquantidade = InputBox("Insira a quantidade")
inspreco = InputBox("Insira o preco")
lstprodutos.AddItem insproduto
lstquantidades.AddItem insquantidade
lstprecos.AddItem inspreco
MsgBox ("Produto Cadastrado com sucesso")
End Select
End Sub
Private Sub cmdefectuar_Click()
vproduto = txtvendaprodutos.Text
vquantidade = Val(txtvendaquantidade.Text)
vpagamento = Val(txtvendapagamento.Text)
If txtvendaprodutos.Text = produtos(1) Then
mult = preco(1) * vquantidade
subt = mult - vpagamento
lstquantidades.List(0) = vquantidade - quantidade(1)
End If
If txtvendaprodutos.Text = produtos(2) Then
mult = preco(2) * vquantidade
subt = mult - vpagamento
lstquantidades.List(1) = vquantidade - quantidade(2)
End If
If txtvendaprodutos.Text = produtos(3) Then
mult = preco(3) * vquantidade
subt = mult - vpagamento
lstquantidades.List(2) = vquantidade - quantidade(3)
End If
If txtvendaprodutos.Text = produtos(4) Then
mult = preco(4) * vquantidade
subt = mult - vpagamento
lstquantidades.List(3) = vquantidade - quantidade(4)
End If
If txtvendaprodutos.Text = produtos(5) Then
mult = preco(5) * vquantidade
subt = mult - vpagamento
lstquantidades.List(4) = vquantidade - quantidade(5)
End If
If txtvendaprodutos.Text = produtos(6) Then
mult = preco(6) * vquantidade
subt = mult - vpagamento
lstquantidades.List(5) = vquantidade - quantidade(6)
End If
If txtvendaprodutos.Text = produtos(7) Then
mult = preco(7) * vquantidade
subt = mult - vpagamento
lstquantidades.List(6) = vquantidade - quantidade(7)
End If
If txtvendaprodutos.Text = produtos(8) Then
mult = preco(8) * vquantidade
subt = mult - vpagamento
lstquantidades.List(7) = vquantidade - quantidade(8)
End If
If txtvendaprodutos.Text = produtos(9) Then
mult = preco(9) * vquantidade
subt = mult - vpagamento
lstquantidades.List(8) = vquantidade - quantidade(9)
End If
If txtvendaprodutos.Text = produtos(10) Then
mult = preco(10) * vquantidade
subt = mult - vpagamento
lstquantidades.List(9) = vquantidade - quantidade(10)
End If
If mult > vpagamento Then
MsgBox ("Não tem dinheiro suficiente para efectuar o pagamento")
txtvendatroco.Text = Empty
Else
txtvendatroco.Text = subt
End If
If txtvendaprodutos.Text = Empty Then
MsgBox ("Insira o produto")
End If
If txtvendapagamento.Text = Empty Then
MsgBox ("Efectua o pagamento")
End If
respo = MsgBox("Deseja Efectuar a venda", vbYesNo + vbInformation)
If respo = vbYes Then
MsgBox ("Venda Efectuada com sucesso")
txtvendaprodutos.Text = Empty
txtvendaquantidade.Text = Empty
txtvendapagamento.Text = Empty
txtvendatroco.Text = Empty
End If
End Sub
Private Sub cmdprodutos_Click()
produtos(1) = "Relógios"
produtos(2) = "Tenis"
produtos(3) = "Sapatos"
produtos(4) = "Camisas"
produtos(5) = "Mascoites"
produtos(6) = "Tshirt"
produtos(7) = "Calça"
produtos(8) = "Calções"
produtos(9) = "Boxers"
produtos(10) = "Meias"
produtos(11) = ""
produtos(12) = ""
produtos(13) = ""
produtos(14) = ""
produtos(15) = ""
produtos(16) = ""
produtos(17) = ""
For a = 1 To 10
lstprodutos.AddItem produtos(a)
Next
quantidade(1) = "40"
quantidade(2) = "40"
quantidade(3) = "40"
quantidade(4) = "40"
quantidade(5) = "40"
quantidade(6) = "40"
quantidade(7) = "40"
quantidade(8) = "40"
quantidade(9) = "40"
quantidade(10) = "40"
For b = 1 To 10
lstquantidades.AddItem quantidade(b)
Next
preco(1) = "1500"
preco(2) = "1500"
preco(3) = "1500"
preco(4) = "1500"
preco(5) = "1500"
preco(6) = "1500"
preco(7) = "1500"
preco(8) = "1500"
preco(9) = "1500"
preco(10) = "1500"
For c = 1 To 10
lstprecos.AddItem preco(c)
Next
End Sub
Private Sub cmdremover_Click()
i = lstprodutos.ListIndex
lstprodutos.RemoveItem (i)
lstquantidades.RemoveItem (i)
lstprecos.RemoveItem (i)
End Sub
Private Sub cmdsair_Click()
resp = MsgBox("Deseja realmente sair?", vbYesNo + vbQuestion)
If resp = vbYes Then
End
End If
End Sub
Private Sub txtvendaprodutos_Change()
lstprodutos.ListIndex = SendMessage(lstprodutos.hwnd, LB_FINDSTRING, -1, ByVal CStr(txtvendaprodutos.Text))
End Sub
