FUNCTION P/ ATUALIZAR ESTOQUE

ROBSON220BASS 25/11/2009 09:03:24
#328535

alguem pode mim ajudar

tenho :
1 tabela chamada itens_entrada (onde gravo os itens da entrada)
1 tabela chamada entrada (onde gravo o cabecalho de entrada)

esta funcao abaixo devera ir na tabela itens_entrada e selecionar os itens correspondete ao codigo de operacao informado no textbox 1
entao depois ira na tabela produtos e atualizar a quantidade para o codprod do produto selecionado na tabela itens_entrada..
Mas so grava o valor do primeiro registro. to meio bobo que nao acho o problema..rsrs

duvidas : alliance_robs@hotmail.com

sua dica sera bem vinda...
Obrigado!
Public Function AtualizaEstoque()
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim RS1 As New ADODB.Recordset
Dim TOTAL As String

SQL = [Ô]SELECT CODOP, CODPROD, EMPRESA, QT FROM ITENS_ENTRADA WHERE CODOP LIKE [ô][Ô] & Me.Text1.Text & [Ô][ô] AND EMPRESA LIKE [ô][Ô] & Me.Txtlogempr.Text & [Ô][ô][Ô]

With rs
.Open SQL, cnSQL, adOpenForwardOnly, adLockReadOnly

If .EOF Then
[ô] se tiver vazio nao faz nada
exit function
Else
With cmd
Set .ActiveConnection = cnSQL
.CommandType = adCmdText
.Prepared = True
.CommandText = [Ô][Ô]
rs.MoveFirst

Do Until rs.EOF
Teste1 = rs.Fields([Ô]codprod[Ô]).Value
Teste = CLng(rs.Fields([Ô]QT[Ô]).Value)

.CommandText = [Ô]update PRODUTOS set QTESTDISP = ? where codprod =[Ô] & Teste1
.Parameters.Append .CreateParameter([Ô]QTESTDISP[Ô], adVarChar, adParamInput, 30)

.Parameters([Ô]QTESTDISP[Ô]) = CLng(rs.Fields([Ô]QT[Ô]).Value) [ô]creio que o problema esta aqui

.Execute
rs.MoveNext
Loop

End With
End If

End With
End Function