none
Venda em Vb RRS feed

  • Pergunta

  • Pessoal Paz do Senhor 

    Estou trabalhando num Programa em vb 6 que quero que faz as seguintes operacoes:

    Fazer  varias vendas numa só factura 

    exibi o Caixa 

    Eliminar produtos 

    Consoate eu faço a venda o as Quantidades diminuem 

    Aumentar Produtos..

    Peço a Vossa Ajuda para poderem me ajudar no Primeiro Ponto

    Mais o Programa Nao teve ter nenhum Banco de Dados

    domingo, 21 de abril de 2013 07:50

Todas as Respostas

  • Entendi
    Casimiro Borges Tavares, você já possuo algum código escrito ou ainda nada ?
    E mais uma pergunta, aonde você quer que as informações sejam salvas, já que você não terá um banco de dados.


    segunda-feira, 22 de abril de 2013 17:46
  • 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

    segunda-feira, 22 de abril de 2013 20:39
  • e tambem gostaria de fazer varias vendas simultaneamente podem me ajudar
    segunda-feira, 22 de abril de 2013 20:39
  • Ok
    Pelo que vi no seu código você ainda não possui um método de venda.
    Crie o método de venda aonde você percorra o list view do produto e após encontrado o produto retire o respectivo no list view quantidade.
    Agora irá ficar meio complexo,pois você possui três list view, por qual motivo você não quer realizar a inserção das informações na base ?
    E também se você fecha a aplicação as informações armazenadas no list serão perdidas.
    segunda-feira, 22 de abril de 2013 20:47
  • so para informar que sao listBox

    agora eu gostaria de saber como fazer as multiplas vendas

    so que poderias me mostrar o codigo?

    segunda-feira, 22 de abril de 2013 20:52
  • Ninho Blink os codigos que passaste sao de vb.net e nao estao a funcionar no vb6

    terça-feira, 23 de abril de 2013 20:27
  • http://www.macoratti.net/08/06/vbn_psv3.htm

    Se servir, marque como Resposta!


    Gilberto Otsuka

    segunda-feira, 29 de abril de 2013 20:57
  • segunda-feira, 29 de abril de 2013 20:57