SOMA GERAL

USUARIO.EXCLUIDOS 06/05/2004 16:03:08
#23346
O código abaixo esta funcionanado legal. Agora so estou precisado mostrar em testbox o valor total do meu estoque. Alguem tem uma dica?


Private Sub CmdBusca_Click()
Dim Sql As String
Dim Val As String

Sql = "SELECT * FROM Baixas WHERE Codigo like '*" & TxtBusca.Text & "*'"
Set tbOs2 = bdMat2.OpenRecordset(Sql)

Val = "SELECT Quantidade, Unitario FROM Localizacao WHERE Código = '" & TxtBusca.Text & "'"
Set tbOs3 = bdMat2.OpenRecordset(Val)

If tbOs2.RecordCount = 0 Then
DbList_3.Clear
Else
DbList_3.Clear
tbOs2.MoveLast
tbOs2.MoveFirst

Dim i, J

i = 0
J = 1
Do Until tbOs2.EOF
DbList_3.AddItem Alinha(Format(tbOs2("Codigo"), "000000"), 6, "ESQ")
DbList_3.List(i, 1) = tbOs2("Saida")
DbList_3.List(i, 2) = tbOs2("Data")
DbList_3.List(i, 3) = tbOs2("Req")
DbList_3.List(i, 4) = Alinha(tbOs2("OS"), 10, "DIR")

i = i + 1
a = a + CDbl(tbOs2("Saida"))

tbOs2.MoveNext
Loop
End If

Lbsaida = ValStr(CStr(a))
Lb_Entrada = ValStr(tbOs3!Quantidade)
LbSaldo = tbOs3!Quantidade - ValStr(Lbsaida)
LbV_Entrada = ValStr(tbOs3!Quantidade) * ValStr(tbOs3!Unitario)
LbV_Saida = ValStr(Lbsaida) * ValStr(tbOs3!Unitario)
LbV_Saldo = ValStr(LbSaldo) * ValStr(tbOs3!Unitario)
LbV_Saldo = Format(LbV_Saldo.Caption, "#,###,##0.00")
LbV_Saida = Format(LbV_Saida.Caption, "#,###,##0.00")
LbV_Entrada = Format(LbV_Entrada.Caption, "#,###,##0.00")
TxtBusca.Text = ""
TxtBusca.SetFocus

End Sub
RXGOMES 06/05/2004 16:08:49
#23348 Resposta escolhida
Faça um acumulador para o valore após finalizar e depois do Do..Loop acrescente a linha "textbox.text = var"

blz
RXGOMES 07/05/2004 07:56:18
#23419
peguei a per do seu código e fiz a alteração

Do Until tbOs2.EOF
DbList_3.AddItem Alinha(Format(tbOs2("Codigo"), "000000"), 6, "ESQ")
DbList_3.List(i, 1) = tbOs2("Saida")
DbList_3.List(i, 2) = tbOs2("Data")
DbList_3.List(i, 3) = tbOs2("Req")
DbList_3.List(i, 4) = Alinha(tbOs2("OS"), 10, "DIR")

i = i + 1
a = a + CDbl(tbOs2("Saida"))
acvalor = aclvalr + tbOs2("valor")
tbOs2.MoveNext
Loop
textbox.text = acvalor
End If

RXGOMES 07/05/2004 08:23:48
#23425
é isso ai,

acvalor é a variável que recebe a somatório do campo valor dos items encontrados
RXGOMES 07/05/2004 10:45:36
#23445
Vou dar uma pesquisa e te dou um retorno

aguarde
RXGOMES 07/05/2004 11:09:19
#23458
Achei que fosse demor mais..ainda bem que não

basta fazer a seguinte consulta listará o valor de cada produto
SELECT localizacao.material, localizacao.unitario, materiais.saldo, (localizacao.unitario * materiais.saldo) as [Valor Estoque]
FROM localizacao INNER JOIN materiais ON localizacao.material = materiais.material

Ai se quizer o valor total do estoque a consulta é
SELECT sum (localizacao.unitario * materiais.saldo) as [Valor Estoque]
FROM localizacao INNER JOIN materiais ON localizacao.material = materiais.material


yes [S41][S46]
RXGOMES 07/05/2004 13:27:23
#23503
A insturção correta é

Com = "SELECT sum (localizacao.unitario * Baixas.saldo) as [Valor Estoque]FROM localizacao INNER JOIN materiais ON localizacao.Código = Baixas.Código"
RXGOMES 07/05/2004 14:45:25
#23529
I lá vamos nós....

Com = "SELECT sum (localizacao.unitario * Baixas.saldo) as VEstoque FROM localizacao INNER JOIN materiais ON localizacao.Código = Baixas.Código"
LbTotal.Caption = Format(tbOs3!VEstoque, "##,##0.00")


Só me faço um favor não desista cara sempre tem uma solução as vezes demora mas nós chegamos lá... Quanto ao saco cheio não tem nada haver, temos que nos ajudar...afinal o forum é para isto
RXGOMES 07/05/2004 15:14:04
#23541
tente tirar o colchetes da consulta deste campo como o exemplo
RXGOMES 07/05/2004 21:06:35
#23646
faça o seguinte

No primerio select que eu passei então usa ele, depois faça um loop do recordset

dim Vestoque as doubel
do while not recordset.eof
Vestoque = tbOs3!baixas.saldo * tbOs3!localizacao.unitario
tbOs3.movenext
loop
label.caption = format(vestoque,"#,##0.00")
RXGOMES 10/05/2004 08:44:27
#23855
A única diferença no código é um espaço

Com = "SELECT sum (Localizacao.Unitario * Baixas.saldo) AS VEstoque FROM Localizacao INNER JOIN Materiais ON Localizacao.Código = Baixas.Codigo"
Tópico encerrado , respostas não são mais permitidas
Voltar