[Resolvido]Ajuda com Teclas

Bom Dia todos! Pessoal como criar as opções de pagamento usando as teclas F3,F4,F5
Neste bd a mais informações no formulário1
http://speedy.sh/cZYzJ/Agravina.zip

Agravina

O arquivo está corrompido, por favor, verifique.

De preferência, coloque-o como anexo aqui no forúm, usando os botões Escolher arquivo e Enviar, logo abaixo do retângulo de digitação de mensagem.

Abraços

Segue arquivo

Agravina

Não entendi, o formulário não tem campo/controle para colocar os dados.

Adiantando, eu já fiz um caixa onde tinha as formas de pagamento.
Usei uma combobox para listar essas formas, A vista, cheque-pre, cartão, etc.

Explique melhor, ok?

ao digitar o código do produto é listado na listbox correto,o que preciso e ter opções de pagamento para posterior ,saber o vendeu a vista ,aprazo ,no cartão

Bom dia Agravina... Antes dessa solução com as teclas creio ser imprescindível algumas dicas sobre o que pretende.

Bem, Pense em uma venda assim como se ela estivesse sendo feita ainda utilizando um bloco de pedidos.

1. Acima os dados do comprador, endereço, data, número do pedido (ja impresso no bloco), Documentos etc.
2. Abaixo voce discrimina os itens do pedido (sao os detalhes do pedido)
3. No final o preço total do pedido e alguma outra informação pertinente.

Ora vejamos...A sua estrutura de tabelas tem que estar em conformidade com este bloco de pedidos.
para isso utilizaria 2 tabelas a saber:

1 - TblPedidos (onde vao os dados do comprador, data, numeração, valor total, cond. pagamento, etc)
2 - TblDetalhePedidos (Aqui vai a quantidade dos produtos, descrição, preco unitário e total (que é a quantidade x preço unitário)

Entao a forma de pagamento, data etc.. fica em uma linha na tabela Pedidos que será relacionada com a tabela detalhesPedido. em uma relação um para muitos.

Assim:

Pedido 1 (uma registro)
DetalhesPedido (IDRelacionado =1) n linhas..


cumprimentos.

Este é um sistema tipo pdv onde ,não ha necessidade da indentificação do cliente,o que preciso saber ao final do dia ,é o que foi vendido .

Entendo amigão... no entanto seria bom saber o que foi vendido por venda...
nao há necessidade de cliente... mas creio que por venda seria interessante... e os calculos por dia poderiam ser feito dessa maneira...

Agora se quer assim...

Especifique com mais detalhes o que necessita.

Cumprimentos.

Harisonh ,partindo deste exemplo que vou listando o que é vendido,ao final do dia preciso saber o que foi vendido,exemplo total vendido aprazo ,total vendido avista,total vendido cartão.

Agravina:

No Escopo do Módulo do Form:

Código:


Option Compare Database
Option Explicit 'Variavel que receberá a forma de pagamento
Dim VarPgto As String

No evento ao pressionar tecla:

Código:


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    'F1 - Sem Uso
    'If KeyCode = 112 Then
        'xxxxxxxxxxxxx
      '  KeyCode = 0
    'End If
    'F2 - Sem Uso
    'If KeyCode = 113 Then
        'kxxxxxxxxxx
      '  KeyCode = 0
    'End If
    'F3 - Venda a Prazo
    If KeyCode = 114 Then
        VarPgto = "Venda a Prazo"
        MsgBox VarPgto
        KeyCode = 0
    End If
    'F4 - Venda a vista
    If KeyCode = 115 Then
        VarPgto = "Venda a Vista"
        MsgBox VarPgto
        KeyCode = 0
    End If
    'F5 - Venda a Cartão
    If KeyCode = 116 Then
        VarPgto = "Venda a Cartão"
        MsgBox VarPgto
        KeyCode = 0
    End If
    'F6 - Sem uso
    'If KeyCode = 117 Then
        'xxxxxxxxxx
        'KeyCode = 0
    'End If
    'F7 - Sem Uso
    'If KeyCode = 118 Then
        'xxxxxxxxxxx
        'KeyCode = 0
    'End If
    'F8 - Sem Uso
    'If KeyCode = 119 Then
        'xxxxxxxxxxx
        'KeyCode = 0
    'End If
    'F9 - Sem Uso
    'If KeyCode = 120 Then
        'xxxxxxxxxxx
        'KeyCode = 0
    'End If
    'F11 - Sem Uso
    'If KeyCode = 122 Then
        'xxxxxxxxxxxx
        'KeyCode = 0
    'End If
    'F12 - Sem Uso
    'If KeyCode = 123 Then
      'xxxxxxxxxxxx
        KeyCode = 0
    'End If
End Sub


*Propriedades do formulário, Evento.. Viasualizar Teclas = Sim

Depois de apertar a tecla joga a forma de pagamento na variável, ai podes utiliza-la na instrução INSERT INTO

DoCmd.RunSQL ("INSERT INTO tblItensVenda (CodBarras, Produto,PreçoVenda,FormaPgto ) Values(""" & Me.txtBarra & """,'" & Me.txtproduto & "',""" & Me.txtPreco & """,""" & VarPgto & """)")

Cumprimentos.

No evento ao apertar tecla do form? Não funcionou. travou o form.
lembrando que o já coloquei visualizar tecla =sim

Aqui funcionou perfeitamente..

observe que o evento é um pouco diferente do que o access cria..

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

aqui não funfa ,voçê acrescentou mais algum campo.

http://dl.dropbox.com/u/26441349/Agravina_19_05.rar

Veja... pressione F-3 ou 4 ou 5

Cumprimentos.

Harysonh veja que não é possível inserir nada na listbox.o campo txtcod fica bloqueado

O exemplo que me enviou veio assim...

Explique direito

Boas agravina.. no código eu havia esquecido de desabilitar uma linha



'F1 - Sem Uso
'If KeyCode = 112 Then
'xxxxxxxxxxxxx
' KeyCode = 0
'End If
'F2 - Sem Uso
'If KeyCode = 113 Then
'kxxxxxxxxxx
' KeyCode = 0
'End If
'F3 - Venda a Prazo
If KeyCode = 114 Then
VarPgto = "Venda a Prazo"
MsgBox VarPgto
KeyCode = 0
End If
'F4 - Venda a vista
If KeyCode = 115 Then
VarPgto = "Venda a Vista"
MsgBox VarPgto
KeyCode = 0
End If
'F5 - Venda a Cartão
If KeyCode = 116 Then
VarPgto = "Venda a Cartão"
MsgBox VarPgto
KeyCode = 0
End If
'F6 - Sem uso
'If KeyCode = 117 Then
'xxxxxxxxxx
'KeyCode = 0
'End If
'F7 - Sem Uso
'If KeyCode = 118 Then
'xxxxxxxxxxx
'KeyCode = 0
'End If
'F8 - Sem Uso
'If KeyCode = 119 Then
'xxxxxxxxxxx
'KeyCode = 0
'End If
'F9 - Sem Uso
'If KeyCode = 120 Then
'xxxxxxxxxxx
'KeyCode = 0
'End If
'F11 - Sem Uso
'If KeyCode = 122 Then
'xxxxxxxxxxxx
'KeyCode = 0
'End If
'F12 - Sem Uso
'If KeyCode = 123 Then
'xxxxxxxxxxxx
'KeyCode = 0
'End If

So isso

Cumprimentos.

agora funfa,mas eu uso a instrução INSERT para salvar na tabela as formas de pagamento

Amigão... a função ta ai... agora é so utilizar a imaginação.. e utilizar a variável carregada ao apertar a tecla, onde desejar...

Cumprimentos.

não sei como aplicar está variável

Bem... as teclas ja estão te devolvendo as opçoes de pagamento, conforme a duvida suscitada neste tópico.

Agora.. Explique a logica de utilização do teu form. Os passos da realização da venda.

Não poupe detalhes.

Vamos lá então!
1ºProduto passa pelo leitor de códigos
2ºPopula para listBox,listando os itens vendidos
Isto jã está funcional correto
Agora precisamos finalizar está venda,com as opções avista,aprazo,cartão
as opções precisam ser salvas em uma tabela,pois no final do dia preciso saber quanto
vendeu avista,quanto vendeu aprazo,quanto cartão.

Amigao, como falou em um dos posts acimas... e um pdv e a venda ia ser por item e nao como um pedido. entao ao jogar o item na listbox, ja tem que colocar juntamente com o item o tipo de venda... depois e so filtrar com consultas para ver quanto vendeu de cada um.

utilize a variavel conforme explicacao minha em um post acima, na instrução INSERT INTO, junto com os dados do produto
Depois que clicar na tela uma vez, a variavel ja fica carregada e nao precisa fazer novamente.

Cumprimentos.

Harysonh ,to me quebrando todo ainda não sai do lugar.

Porque estás a enviar para duas tabelas?

Uma é a da list.. e a outra pra que seria?

DoCmd.RunSQL ("INSERT INTO tblProdutos_1 (CodBarras, Produto,PreçoVenda, ) Values(""" & Me.txtBarra & """,'" & Me.txtproduto & "',""" & Me.txtPreco & """)")
DoCmd.RunSQL ("INSERT INTO tblItensVenda (CodBarras, Produto,PreçoVenda,FormaPgto ) Values(""" & Me.txtBarra & """,'" & Me.txtproduto & "',""" & Me.txtPreco & """,""" & VarPgto & """)")

Bem agravina.


Eis o baita

http://dl.dropbox.com/u/26441349/Agravina_20_05.rar

No evento após atualiza do campo que recebe o código de barras:

Código:

Private Sub txtcod_AfterUpdate()
If DCount("[Código]", "tblProdutos", "[CodBarras]= '" & Me.txtcod & "'") = 0 Then
    MsgBox "Produto não Cadatrado", vbCritical, "Atenção"
Exit Sub
End If

If IsNull(VarPgto) = True Or VarPgto = "" Then
MsgBox "Você necessita escolher a forma de pagamento," & vbCrLf & _
        "Escolha a forma de pagamento de acordo com as opções:" & vbCrLf & _
        " F-3 para venda a prazo" & vbCrLf & _
        " F-4 para venda a vista" & vbCrLf & _
        " F-5 para venda a cartão", vbCritical, "Atenção"
Else
Me.txtproduto.Value = DLookup("[produto]", "tblprodutos", "[codbarras]= '" & Me.txtcod.Value & "'")
Me.txtPreco.Value = DLookup("[preçovenda]", "tblprodutos", "[codbarras]= '" & Me.txtcod.Value & "'")
Me.txtBarra.Value = DLookup("[codbarras]", "tblprodutos", "[codbarras]= '" & Me.txtcod.Value & "'")
Me.txtproduto.Requery
DoCmd.SetWarnings False
DoCmd.RunSQL ("INSERT INTO tblProdutos_1 (CodBarras, Produto,PreçoVenda,FormaPagto ) Values(""" & Me.txtBarra & """,'" & Me.txtproduto & "',""" & Me.txtPreco & """,""" & VarPgto & """)")
DoCmd.RunSQL ("INSERT INTO tblItensVenda (CodBarras, Produto,PreçoVenda,FormaPgto ) Values(""" & Me.txtBarra & """,'" & Me.txtproduto & "',""" & Me.txtPreco & """,""" & VarPgto & """)")
End If
DoCmd.SetWarnings True
Me.Lista2.Requery
End Sub


- pesquisa a tabela produtos par em caso de produto nao encontrado exibr mensagem
- Condiciono o prosseguimento to código a checagem se a variavel FormaPgto esté preenchida com o tipo de pagamento, caso não esteja emite mensagem
- Apliquei na consulta inserção a variável.
- Modifiquei o campo na tabela para apenas um (FormaPgto)
- Tres consultas (uma para cada tipo de pagamento) a consulta tambem exibe o total por tipo de pagamento.

**** Não se esqueça de aplicar um comando ao finalizar a venda para limpar a variável, pois caso nao limpe a nova venda já terá a definição de forma de pagamento da venda anterior. Então se a nova venda for um tipo de pagamento diferente da anterior podera dar erro.

Então ao finalizar a venda aplique:
VarPgto = ""

Cumprimentos.

Como não houve resposta o tópico passa a resolvido, caso necessite reabre-o.

Moderação