MOEDA

FORMIGINHA 12/12/2006 21:55:11
#189596
estou fazendo um sitema de controle de estoque e tenho uma duvida :

tenho um frm_produto onde é cadastrado os produtos e preços:
é tipo esse, num é esse mais é quase igual.

tenho um frm_moeda onde é cadastrado o valor do dolar que esta no dia :

esse

a duvida é, como faço para quando clicar no botão gravar do frm_moeda, o sistema atualizar o preço de todos produtos que contenha um outro valor.

espero ter sido claro, t+
USUARIO.EXCLUIDOS 12/12/2006 22:03:05
#189597
Update Sua_Tabela Set Valor = 50.25 where valor like '" & OutroValor & "'"


se não der certo, informe o banco de dados.
FORMIGINHA 12/12/2006 22:27:48
#189599
'codigo pra transformat o valor de real pra dola :
78: ActiveText7.Text = CDbl((ActiveText5) / (Text21.Text))

'codigo pra fazer o calculo de venda de dolar
80: ActiveText3.Text = CDbl(((ActiveText6.Text / 100) + 1) * ActiveText7.Text)

base em anexo.

t+
FORMIGINHA 13/12/2006 14:25:34
#189724
alguem pode me ajudar.............
USUARIO.EXCLUIDOS 13/12/2006 15:44:36
#189754
banco de dados naum abre, mas o que vc teria que fazer é dar um update em todos os valores de produtos com o valor da nova cotação do dólar gravado pelo o usario +- assim:

- Vamos supor que todos os seus produtos estão armazenados na tabela produtos estao na tabela Produtos.

 Dim Rs_Produto as Recordset 
    Dim SQL as string
    Dim Aux_Codigo as Long
    Dim Aux_Preco as double    

    SQL = "SELECT Codigo, Preco FROM Produtos ORDER BY Codigo" 'Nomes fictícios dos campos
    DB.OpenRecordset (SQL,dbOpenSnapshot) 'Carregou o Recordset com os produtos
    While Not Rs_Produto.Eof
        Aux_Codigo = Rs_Produto("Codigo")
        Aux_Preco = Rs_Produto("Preco")
        SQL = "UPDATE Produtos SET Preco_Dolar = " & Aux_Preco / Cotacao & " WHERE Codigo = " & Aux_Codigo
        Rs_Produto.MoveNext
    Wend 

    Rs_Produto.Close
    Set Rs_Produto = Nothing


Oque eu fiz ai, naum sei se é issu oque vc quer, mas é assim eu carreguei um recordset com todos os produtos.Issu dentro do evento click do botao OK do frm_Moeda.

Ai a cada produto que eu ando no recordset, oque eu faço? Eu pego o código e o VALOR DE PREÇO EM REAL, preparo a SQL de UPDATE para altera somente o campo VALOR DE PREÇO EM DOLAR com o valor real divido pela cotação (acho que é issu a conversão nunca sei se dividi ou multiplica) e uso uma o codigo daquele produto como chave pra somente altera-lo.

Entendeu ou Fico Confuso?
FORMIGINHA 14/12/2006 12:41:35
#189916
CONSEGUI:

'-------- ATUALIZA PREÇOS CONFORME O VALOR DO DOLAR.
'-------- MOVE PARA O PRIMEIRO RESGISTRO
DT_PRODUTO.Recordset.MoveFirst
'---------ATUALIZAR PREÇOS
Do While Not DT_PRODUTO.Recordset.EOF
DT_PRODUTO.Recordset.Edit
'---------------- TRANSFORMA PRA DOLAR
ActiveText7.Text = ((ActiveText5) / (Text21.Text))
'MsgBox ActiveText7.Text
'---------------- FAZ A FORMULA PRA DAR O VALOR DE VENDA EM REAIS
ActiveText4.Text = (((ActiveText6.Text / 100) + 1) * ActiveText5.Text)
'MsgBox ActiveText4.Text
'---------------- FAZ A FORMULA PRA DAR O VALOR DE VENDA EM DOLAR
ActiveText3.Text = (((ActiveText6.Text / 100) + 1) * ActiveText7.Text)
'MsgBox ActiveText3.Text
'---------------
DT_PRODUTO.Recordset.Update
DT_PRODUTO.Recordset.MoveNext
Loop
'MsgBox " ATUALIZADO COM SUCESSO! "
DT_PRODUTO.Refresh

T+
Tópico encerrado , respostas não são mais permitidas
Voltar