AJUDA COM SISTEMA DE ESTOQUE

MAURICIO 13/05/2012 10:08:00
#401920

Estoque.Index = [Ô]IndProduto[Ô] - Abre o indice
Estoque.Seek [Ô]=[Ô], LblProduto - Procura no Cadastro de Estoque pela descricao do Produto
If Not Estoque.NoMatch Then - Encontrou
Estoque.Edit - Edit a Tabela
Estoque!Atual = Estoque!Atual + Val(Str$(MskQtd)) - Pega o Atual + a Quantidade
Estoque.Update - Atualiza a Tabela
End If


Estoque.Index = [Ô]IndCodigo[Ô]
Estoque.Seek [Ô]=[Ô], TxtCodPro.Text
If Not Estoque.NoMatch Then
Estoque.Edit
Estoque!Atual = Estoque!Atual - Val(Str$(MskQtd)) Pega o Atual - a Quantidade
Estoque.Update
End If

MAURICIO 13/05/2012 10:13:19
#401921

Tela de Entrada

MAURICIO 13/05/2012 10:20:49
#401923

Tal de Saida

FILMAN 13/05/2012 19:29:25
#401931

Cara seguinte no site do macoratti tem exemplo de contro de estoque é só procurar na net e estudar

segue um exemplo