[Resolvido]Gestão de Stocks

Boa tarde,
Tenho o seguinte código para retirar unidades do stock:

Private Sub Retirar_Click()
Dim msg1, str As Integer
msg1 = "Pretende retirar " & Me.QuantidadeT & " unidades ao Stock do produto com código " & Me.TextCodProduto & "?"
If (IsNull(Me.QuantidadeT.Value)) Or (IsNull(Me.ObraT.Value)) Or (IsNull(Me.NomeFuncionarioT.Value)) Then
str = MsgBox("Deve preencher o(s) campo(s) vazio(s)!", vbOK, "Atenção")
Else
If (MsgBox(msg1, vbOK, "Retirar ao Stock") = vbOK) Then
DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = (Quantidade-QuantidadeT) WHERE PecasLigacao.CodProduto = TextCodProduto;"
DoCmd.RunSQL "insert into ListagemPecasLigacao(CodProdutoL,DescricaoL,QuantidadeL,Obra,Data,NomeFuncionarioL) values (TextCodProduto,TextDescricao,- QuantidadeT,ObraT,DataT,NomeFuncionarioT);"
DoCmd.Close acForm, "MovimentacaoPecasLigacao"
End If
End If
End Sub




TextQuantidade é a quantidade em Stock
QuantidadeT é a quantidade que quer retirar de stock (preenchido pelo utilizador)

Eu queria que antes de retirar verifica-se se a QuantidadeT não é maior do que a TextQuantidade e se for maior mostrar uma mensagem e não deixar avançar, esta verificação tem que ser feita ao carregar no botão, pois este formulário contém o inserir stock e retirar stock.

Fico a aguardar comentários.

Diogo

teste;


Private Sub SuaCheckBox_AfterUpdate()
Dim msg1, str As Integer
msg1 = "Pretende retirar " & Me.QuantidadeT.Value & " unidades ao Stock do produto com código " & Me.TextCodProduto.Value & "?"

If IsNull(Me.QuantidadeT.Value) Or IsNull(Me.ObraT.Value) Or IsNull(Me.NomeFuncionarioT.Value) Then
str = MsgBox("Deve preencher o(s) campo(s) vazio(s)!", vbOK, "Atenção")
Exit Sub
End If


If MsgBox(msg1, vbOK, "Retirar ao Stock") = vbOK Then
If Me.QuantidadeT.Value > Me.TextQuantidade.Value Then
MsgBox "Quantidade de retirada não pode ser superior ao stock...", vbCritical
Exit Sub
Else
DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = (Quantidade-QuantidadeT) WHERE PecasLigacao.CodProduto = TextCodProduto;"
DoCmd.RunSQL "insert into ListagemPecasLigacao(CodProdutoL,DescricaoL,QuantidadeL,Obra,Data,NomeFuncionarioL) values (TextCodProduto,TextDescricao,- QuantidadeT,ObraT,DataT,NomeFuncionarioT);"
DoCmd.Close acForm, "MovimentacaoPecasLigacao"
End If
End If
End Sub

Não funciona.
Quando clico no botão de a quantidadeT for superior aparece a mensagem msg1 e depois a mensagem de erro
e se for inferior faz a mesma coisa aparede msg1 e depois a mensagem de erro.
Em qualquer dos casos aparece a msg1 primeiro.

Não consigo perceber é porque você se já viu que está ao contrario, não alterar para o correto;

Private Sub SuaCheckBox_AfterUpdate()
Dim msg1, str As Integer
msg1 = "Pretende retirar " & Me.QuantidadeT.Value & " unidades ao Stock do produto com código " & Me.TextCodProduto.Value & "?"

If IsNull(Me.QuantidadeT.Value) Or IsNull(Me.ObraT.Value) Or IsNull(Me.NomeFuncionarioT.Value) Then
str = MsgBox("Deve preencher o(s) campo(s) vazio(s)!", vbOK, "Atenção")
Exit Sub
End If

If Me.QuantidadeT.Value > Me.TextQuantidade.Value Then
MsgBox "Quantidade de retirada não pode ser superior ao stock...", vbCritical
Exit Sub
End If

If MsgBox(msg1, vbOK, "Retirar ao Stock") = vbOK Then
DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = PecasLigacao.Quantidade-" & Me.QuantidadeT.Value & " WHERE PecasLigacao.CodProduto = " & Me.TextCodProduto
DoCmd.RunSQL "insert into ListagemPecasLigacao(CodProdutoL,DescricaoL,QuantidadeL,Obra,Data,NomeFuncionarioL) values (TextCodProduto,TextDescricao,QuantidadeT,ObraT,DataT,NomeFuncionarioT);"
DoCmd.Close acForm, "MovimentacaoPecasLigacao"
End If
End Sub

E atenção à linha do UPDATE:


'Se QuantidadeT for numerico e TextCodProduto numerico
DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = (Quantidade-" & Me.QuantidadeT.Value & ") WHERE PecasLigacao.CodProduto = " & Me.TextCodProduto

'Se QuantidadeT for texto e TextCodProduto texto
DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = (Quantidade-'" & Me.QuantidadeT.Value & "') WHERE PecasLigacao.CodProduto = '" & Me.TextCodProduto & "'"

Boa tarde
Já tentei várias formas e já aparece a mensagem quando retiro mais que o stock, só que existe um problema, se o stock é de 120 se eu retirar 10 funciona se eu retirar 20 aparece a mensagem a indicar que não tem stock, tambem acontece se retirar 30,40,.... só dá se começar por 1... e ao adicionar em vez de fazer a soma acrescenta esse numero ao valor do stock(ex.: 1+1=11 em vez de 1+1=2)
Poderá esse erro dar por ser os campos CodProduto e Quantidade serem formato texto...?

Envio a BD para ver se dá para entender melhor...

https://www.dropbox.com/s/nwn5hjspje6b706/testestock.mdb

Fico a aguardar...

Ora vamos lá ver.... aguarde

Ora teste lá por favor;


Private Sub Retirar_Click()
Dim msg1, str As Integer
msg1 = "Pretende retirar " & Me.QuantidadeT.Value & " unidades ao Stock do produto com código " & Me.TextCodProduto.Value & "?"

If IsNull(Me.QuantidadeT.Value) Or IsNull(Me.ObraT.Value) Or IsNull(Me.NomeFuncionarioT.Value) Then
str = MsgBox("Deve preencher o(s) campo(s) vazio(s)!", vbOK, "Atenção")
Exit Sub
End If

If Val(Me.QuantidadeT.Value) > Val(Me.TextQuantidade.Value) Then
MsgBox "Quantidade de retirada não pode ser superior ao stock...", vbCritical
Exit Sub
Else
If MsgBox(msg1, vbOK, "Retirar ao Stock") = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = Quantidade-'" & Me.QuantidadeT.Value & "' WHERE PecasLigacao.CodProduto = '" & Me.TextCodProduto & "'"
DoCmd.RunSQL "insert into ListagemPecasLigacao(CodProdutoL,DescricaoL,QuantidadeL,Obra,Data,NomeFuncionarioL) values (TextCodProduto,TextDescricao,- QuantidadeT,ObraT,DataT,NomeFuncionarioT);"
DoCmd.SetWarnings True
DoCmd.Close acForm, "MovimentacaoPecasLigacao"
End If
End If

End Sub

A instrução no botão Inserir também está mal;

Corriga para esta;


DoCmd.RunSQL " UPDATE PecasLigacao SET Quantidade = Quantidade+" & Val(Me.QuantidadeT.Value) & " WHERE PecasLigacao.CodProduto = '" & Me.TextCodProduto & "'"

era mesmo isto....quem sabe sabe..já andava de volta disto a algum tempo...

Muito obrigado
Resolvido

Obrigado pelo retorno o forum agradece.