TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic
Com a query acima eu busco a OS com o maior valor e apresento o resultado. Acontece o seguinte, tenho as OS:
135421 - 10.000,00
135433 - 12.500,00
135444 - 1.000,00
135466 - 1.500,00
Bom acima no ranking esta a OS 135433 com 12.500,00 porem todas são do grupo (1354), como faria para buscar os grupos identicos e somar seus valores pesquisando os quatro primeiros dígitos e dando o resultado de 25.000,00?
Segue abaixo o código completo:
Sub TelaIndice()
AtivaIcon
Dim textranking As Integer
textranking = 3
Set TbResumo = New ADODB.Recordset
TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic
Pergunta
Guest --Irenko --
TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic
Com a query acima eu busco a OS com o maior valor e apresento o resultado. Acontece o seguinte, tenho as OS:
135421 - 10.000,00
135433 - 12.500,00
135444 - 1.000,00
135466 - 1.500,00
Bom acima no ranking esta a OS 135433 com 12.500,00 porem todas são do grupo (1354), como faria para buscar os grupos identicos e somar seus valores pesquisando os quatro primeiros dígitos e dando o resultado de 25.000,00?
Segue abaixo o código completo:
Sub TelaIndice()
AtivaIcon
Dim textranking As Integer
textranking = 3
Set TbResumo = New ADODB.Recordset
TbResumo.Open "SELECT Distinct OS, Sum(Quant*Unit) AS Total FROM Dados GROUP BY OS ORDER BY Sum(Quant*Unit) DESC", BancoSobra, adOpenDynamic, adLockOptimistic
Do While Not TbResumo.EOF
If textranking = 3 Then
Label92.Caption = TbResumo("OS")
Label105.Caption = Format(TbResumo("Total"), "#,##0.00")
End If
If textranking = 2 Then
Label93.Caption = TbResumo("OS")
Label106.Caption = Format(TbResumo("Total"), "#,##0.00")
End If
If textranking = 1 Then
Label94.Caption = TbResumo("OS")
Label107.Caption = Format(TbResumo("Total"), "#,##0.00")
End If
If textranking = 0 Then
Label95.Caption = TbResumo("OS")
Label108.Caption = Format(TbResumo("Total"), "#,##0.00")
End If
textranking = (textranking - 1)
TbResumo.MoveNext
Loop
'Fecha recordset
TbResumo.Close
Set TbResumo = Nothing
Call Gerar
End Sub
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.