PROBLEMA COM CONSULTA NO FLEXGRID

AQUILESBRUM 27/10/2010 15:08:31
#356054
Meu caro Marcelo, a soma esta [Ô]certa[Ô] agora. Mas ainda continua o problema da fromatação. Dê uma olhada na tela do grid depois da mudança.

Nos totais é mostrado:
Venda a Vista : 200,00 - Deveria ser: 2,00
Venda a Prazo sem restrição: 1.180,00 - Deveria ser: 11,80
Venda a Prazo com restrição: 350,00 - Deveria ser: 3,50
Venda Total : 1.730,00 - Deveria ser: 17,30



Aquiles
Cel: (31)8769-4700
MSN: aquilesbrum@hotmail.com
MARCELO.TREZE 27/10/2010 17:18:18
#356070
bom colega eu fiz um simulado exatamente usando o mesmo código e veja o resultado



alguma coisa em outra parte do código está prejudicando a soma
AQUILESBRUM 27/10/2010 17:56:17
#356077
Ok Marcelo. Percebi que os números que você inseriu estão separados por [Ô]vírgula[Ô], e os números que recebo do banco (SQL Server) estão separados por [Ô]ponto[ô]. Acho que este é o problema. Vou ver se consigo trocar o ponto por virgula. Se obtiver resultado posto aqui.

Um abraço e obrigado pela ajuda.
MARCELO.TREZE 27/10/2010 18:03:43
#356079
Ah agora sim ta explicado faz assim

Public Sub CalculaVenda()

Dim dVendaPrazo As Double, dVendaVista As Double, dVendaRestricao As Double, dValor As Double, dVendaTotal As Double
    
  lblVendaPrazo = 0
With MSFlexGrid
    For i = 1 To .Rows - 1
        If (.TextMatrix(i, 8) <> [Ô][Ô]) And (.TextMatrix(i, 6) <> [Ô][Ô]) Then

            If .TextMatrix(i, 8) = [Ô]1[Ô] Then [ô]Venda a Prazo
                dVendaPrazo = dVendaPrazo + CDbl(Replace(.TextMatrix(i, 6), [Ô].[Ô], [Ô],[Ô]))
            End If
  
            If .TextMatrix(i, 8) = [Ô]2[Ô] Then [ô]Venda a Vista
                dVendaVista = dVendaVista + CDbl(Replace(.TextMatrix(i, 6), [Ô].[Ô], [Ô],[Ô]))
            End If
  
            If .TextMatrix(i, 8) = [Ô]9[Ô] Then [ô]Venda a prazo com Restrição
                dVendaRestricao = dVendaRestricao + CDbl(Replace(.TextMatrix(i, 6), [Ô].[Ô], [Ô],[Ô]))
            End If
        End If
    Next i
End With
    If dVendaPrazo = 0 Then
        lblVendaPrazo.Caption = [Ô]R$ 0,00[Ô]
    Else
        lblVendaPrazo.Caption = Format(dVendaPrazo, [Ô]currency[Ô])
    End If

    If dVendaRestricao = 0 Then
        lblVendaRestricao.Caption = [Ô]R$ 0,00[Ô]
    Else
        lblVendaRestricao.Caption = Format(dVendaRestricao, [Ô]currency[Ô])
    End If

    If dVendaVista = 0 Then
        lblVendaVista.Caption = [Ô]R$ 0,00[Ô]
    Else
        lblVendaVista.Caption = Format(dVendaVista, [Ô]currency[Ô])
    End If
    
    dVendaTotal = dVendaPrazo + dVendaRestricao + dVendaVista
    
    lblVendaTotal.Caption = Format(dVendaTotal, [Ô]currency[Ô])
        
End Sub
AQUILESBRUM 28/10/2010 07:40:13
#356117
Marcelo de até que fim deu certo. Muito obrigado pela ajuda e paciência. Obrigado também aos outros membros do forum que deram sua contriubuição.
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar