[Resolvido]Exemplo - Estoque : Entrada e Baixa de quantidades

Boa tarde colegas deste forum,


Recentemente resolvi um problema em meu formulário quanto ao estoque,

ficou resolvido,

entretanto, nos testes observei uma falha que existe em meu formulário que poderá comprometer os resultados, e preciso ajustá-lo.

Ao dar saída ou entrada, digitando as quantidades existe o seguinte problema,


O estoque tem 100;

A pessoa deu saída, digitando na quantidade 5 unidades, só que ao digitar, erroudigitou 55;

O programa calculou e deu resultado de 100-55= 45

Porém a pessoa observou o erro e corrigiu para 5;

O programa calculou e deu resultado de 45-5=40


ou seja não está lógico, porque sempre que digitar as quantidades mesmo por erro sempre estará baixando e não volta ao valor que era antes do erro.

Segue abaixo um simples exemplo para análise,

Se alguém se prontificar a me ajudar ficarei grato,

Inclusive JPaulo, que me ajudou na última dúvida.

Campos.

A meu ver há uma falha na estrutura do aplicativo tambem. A tabela de produtos deveria apenas cadastrar os produtos e não a movimentação do mesmo. Ou seja, o campo Estoque não deveria fazer parte da mesma. Essa tabela deveria apenas trazer os dados dos produtos, como o nome e/ou descrição. Essa tabela não deve ser alterada junto com a movimentação. A não ser que esse campo Estoque que está nessa tabela seja para cadastrar a quantidade mínima que cada produto deve ter em estoque afim de ter controle sobre quando o estoque está abaixo do mínimo desejável.

Olá Criquio,

Desde já agradeço por se interessar em ajudar meu caso,

Então, esse exemplo não é o original, ok

é mais pra ver o que acontece quando se baixa ou mesmo comete erros de digitação.

Preciso ajustar esse problema de digitar e a baixa tem que controlar em caso de retroceder o lançamento,

Se você puder dar uma olhada neste simples modelo, resolvendo eu ajusto no original.

Ah!, o original os lançamentos de entradas e saídas são feito por subformulários(Detalhes de cada form).

Dê uma olhada neste exemplo e se for preciso te envio uma parte desse original, ok.

Grato.

Campos.

Resolveu? Caso não olhe o que eu fiz.
Como estou me aventurando no access e fazia muito tempo que não desenvolvia uma aplicação pode existir forma mais fácil de escrever o código, o que fiz está funcionando

Você cria uma módulo chamado Estoque(no meu caso) ai tenho o que vêm abaixo

Essa função vai adicionar o produto comprado no estoque quando eu marco o pedido de compra como recebido.

Function AddProduto(ID_COMPRA As Long) As Boolean
'Dim Rst As New DML ', StrSql As String
Dim StrSql As String
StrSql = "SELECT ITENSCOMPRAS.NUM_COMPRA, ITENSCOMPRAS.ID_PRODUTO, ITENSCOMPRAS.QUANTIDADE AS QTDE_COMPRADA, " _
& "PRODUTOS.QTDE_REAL FROM PRODUTOS INNER JOIN ITENSCOMPRAS ON PRODUTOS.ID_PRODUTO = ITENSCOMPRAS.ID_PRODUTO " _
& "WHERE ITENSCOMPRAS.NUM_COMPRA = " & ID_COMPRA & ";"

If Rst.OpenRecordset("", StrSql) Then
With Rst.Recordset
   Do Until .EOF
   If !ID_PRODUTO = !ID_PRODUTO Then
       .Edit
       !QTDE_REAL = !QTDE_REAL + !QTDE_COMPRADA
       .Update
   End If
   .MoveNext
   Loop
AddProduto = True
End With
End If
End Function

Essa é para remover o produto quando eu adiciono ele no pedido, note que existe uma variável Qtde_Antiga, pois o que vocÊ observa no Txt não é o mesmo
que está no banco e você deve voltar o valor  no estoque antes de atualizar.

Function RemoverProduto(NUM_PEDIDO As Long, ID_PRODUTO As Long, Optional Qtde_Antiga As Integer, Optional Qtde_Nova As Integer) As Boolean
'Dim Rst As New DML
If Rst.OpenRecordset("ItensPedidosEstendidos", , "[NUM_PEDIDO] = " & NUM_PEDIDO & " AND [ID_PRODUTO] = " & ID_PRODUTO) Then
With Rst.Recordset
   If Rst.Edit Then
           If (Nz(Qtde_Antiga, 0) + !QTDE_REAL - Qtde_Nova) >= 0 Then
               .Edit
               !QTDE_REAL = Nz(Qtde_Antiga, 0) + !QTDE_REAL - Qtde_Nova
               .Update
               RemoverProduto = True
           End If
   End If
End With
End If
End Function


Esse eu retorno os produtos no pedido caso eu cancele o mesmo
Function ReEstocar(NUM_PEDIDO As Long) As Boolean

If Rst.OpenRecordset("ItensPedidosEstendidos", , "[NUM_PEDIDO] = " & NUM_PEDIDO) Then
With Rst.Recordset
While Not .EOF
  ' If !Produto.ID_PRODUTO = !ItensPedidos.ID_PRODUTO Then
       .Edit
       !QTDE_REAL = !QTDE_REAL + !QUANTIDADE
       .Update
   'End If
   .MoveNext
Wend
ReEstocar = True
End With
End If
End Function



Eu acho eles no evento do combobox que lista os produtos na tabela itenspedidos
Private Sub CboProduto_AfterUpdate()
Dim i As Integer
If IsNull(CboProduto) Or CboProduto = "" Then
   Exit Sub
Else
   
   If Pedidos.AdicionarIten(Me!NUM_PEDIDO, Me.CboProduto) Then
       If Estoque.RemoverProduto(Me!NUM_PEDIDO, Me.CboProduto, 0, 1) Then
           Call Pedidos.ValoresTotais(Me!NUM_PEDIDO)
           CboProduto = ""
           Me.CboProduto.SetFocus
           'Form_SubForm_ItensPedidos.TxtQtde.Enabled = True
           Me.SubForm_ItensPedidos.Requery
       End If
   Else
   MsgBox "O produto " & CboProduto.Text & " já foi incluído", vbInformation, "Atenção"
   CboProduto = Null
   End If
End If
End Sub


Boa sorte

Olha, primeiramente você está de parabéns em,

Sou iniciante no access, vejo que seu código é bem completo e ao meu nível complexo, mas se você estiver disposto a me ajudar e tiver paciência podemos chegar num resultado legal.

Precisaria entender como você aplicou e os caminhos, tudo bem pra você?

Grato.

Campos.

Estou terminando essa aplicação, mas posso ir ajudando no que for preciso.
Primeiro de tudo precisamos saber qual o nível de conhecimento para modelagem de dados ( criação das tabelas e os relacionamentos ) e programação.
O mais chato é programação e tratamento de erros.

Instale o exemplo NorthWind do access e vá dando uma olhada no código, depure ele para você ver como são feitas as coisas.
Algumas idéias utilizei do código dele.

Anexa seu banco para que possa dar uma olhada e ver o que está criando.

Boa tarde Carlos!

Desculpe-me da demora da resposta, esses dias pra mim é dia de fechamento foi muito conturbado.


Então, meu nível é médio.

Podemos trocar bastante idéias e também compartilhar com esse forum, que é um dos melhores foruns que já participei.

Tanto quanto aos integrantes quanto ao conteúdo.

Em relação ao meu problema, como tinha prazo para apresentar acabei resolvendo de uma forma mais simples e ao longo do tempo irei aprimorar.

Um Abraço.
E obrigado por sua atenção, e vamos trocando uma idéias, se precisar de mim estou aí.
Ok

Campos.