EXIBINDO MONET?RIO FORMATADO

MESTRE 09/06/2015 09:07:06
#447531
Fala pessoal tudo bem? estou com um problema chato de resolver, ja tentei diversas maneiras e não consegui..

tenho várias gráficos utilizando o Chart da DevExpress. os valores estão em Double(15,5) no banco então por exemplo tenho no banco:
68410.47000
meu gráfico exibe o valor assim: 68410,47

Só que ai está o problema, queria exibir o valor mais [Ô]visualizável[Ô] do tipo: R$ 68.410,47

Ja tentei dessas duas formas:
  MinhaVariavel = String.Format([Ô]{0 : C }[Ô], Variavel)  
MinhaVariavel = FormatCurrency(Variavel, 2, TriState.UseDefault)
MESTRE 09/06/2015 09:18:06
#447532
Consegui assim:
     ValorAbertas = Format(reader!ValorAbertas, [Ô]c[Ô])
                MessageBox.Show(ValorAbertas)


Só que no Messagebox sai bonito e no gráfico continua saindo 68410,47 o problema é agora pra colocar no gráfico também

       g1_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorAbertas}))
JABA 09/06/2015 15:27:53
#447555
https://msdn.microsoft.com/en-us/library/0c899ak8(v=vs.110).aspx
MESTRE 10/06/2015 07:41:55
#447578
Não funcionou, do jeito que eu fiz funcionou o problema é para passar pro gráfico porque ele passa um Double para o gráfico..
GUIMORAES 10/06/2015 10:30:38
#447585
Mestre, você já tentou converter para decimal?
FILMAN 10/06/2015 18:54:51
#447598
Tente assim
MinhaVariavel = String.Format([Ô]{0:C2}[Ô], Variavel)

ou assim
MinhaVariavel = Variavel.ToString([Ô]C[Ô])

Lembrando que Variavel é do tipo Decimal
Dim Variavel As Decimal = 68410.47
Dim MinhaVariavel As String
MESTRE 11/06/2015 07:35:39
#447606
Então gente eu consegui deixar bonitinho o número mesmo sendo Double

assim funcionou:
   ValorAbertas = Format(reader!ValorAbertas, [Ô]c[Ô])


Assim também funcionou com Decimal:
  MinhaVariavel = String.Format([Ô]{0:C2}[Ô], Variavel)


Só que o grande problema está na hora de adicionar o ponto ao gráfico, se eu coloco o valor em Decimal ele da erro, se ele for em double não da erro, más
como vou subir um valor em double com a formatação desejada??

Código que estou utilizando para preencher o gráfico e adiconar os pontos:

     Dim Graf1 As ChartControl = ChartControl1
        Dim Graf2 As ChartControl = ChartControl2
        Dim Graf3 As ChartControl = ChartControl3

        Dim g1_series1 As New Series([Ô]Total de Propostas[Ô], ViewType.Bar)
        Dim g1_series2 As New Series([Ô]Total Abertas[Ô], ViewType.Bar)
        Dim g1_series3 As New Series([Ô]Total Fechadas[Ô], ViewType.Bar)

        Dim g2_series1 As New Series([Ô]Valor Abertas[Ô], ViewType.Bar)
        Dim g2_series2 As New Series([Ô]Valor Fechadas[Ô], ViewType.Bar)
        Dim g2_series3 As New Series([Ô]Total Venda[Ô], ViewType.Bar)

        Dim g3_series1 As New Series([Ô]Propostas Fechadas (%)[Ô], ViewType.Bar)
        Dim g3_series2 As New Series([Ô]Propostas Por Valor (%) [Ô], ViewType.Bar)
        Dim g3_series3 As New Series([Ô]Vendedor x Faturamento (%)[Ô], ViewType.Bar)

        Dim Vendedor As String
        Dim TotalGeral, TotalAbertas, TotalFechadas As Integer
        Dim ValorAbertas, ValorFechadas, ValorTotal As String
        Dim Des1, Des2, Des3 As String

        Try
            Dim sql As String
            sql = [Ô]SELECT * FROM zvendas[Ô]
            objConexao.Open()

            Dim objMysqlCommand As New MySqlCommand(sql, objConexao)
            Dim reader As MySqlDataReader = objMysqlCommand.ExecuteReader()

            Do While (reader.Read)

                Vendedor = reader!Vendedor
                TotalGeral = reader!TotalGeral
                TotalAbertas = reader!TotalAbertas
                TotalFechadas = reader!TotalFechadas

                ValorAbertas = reader!ValorAbertas
                ValorFechadas = reader!ValorFechadas
                ValorTotal = reader!TotalVenda

                Des1 = reader!DES1
                Des2 = reader!DES2
                Des3 = reader!DES3


                g1_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {TotalGeral}))
                g1_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {Variavel}))
                g1_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {TotalFechadas}))

                g2_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorAbertas}))
                g2_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorFechadas}))
                g2_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorTotal}))

                g2_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorAbertas}))
                g2_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorFechadas}))
                g2_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorTotal}))

                g3_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {Des1}))
                g3_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {Des2}))
                g3_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {Des3}))

            Loop
   
            Graf1.Series.Add(g1_series1)
            Graf1.Series.Add(g1_series2)
            Graf1.Series.Add(g1_series3)

            Graf2.Series.Add(g2_series1)
            Graf2.Series.Add(g2_series2)
            Graf2.Series.Add(g2_series3)

            Graf3.Series.Add(g3_series1)
            Graf3.Series.Add(g3_series2)
            Graf3.Series.Add(g3_series3)

            Dim TituloGraf1 As New ChartTitle()
            TituloGraf1.Text = [Ô]Total Geral de Propostas Feitas[Ô]
            Graf1.Titles.Add(TituloGraf1)
            Me.Controls.Add(Graf1)


            Dim TituloGraf2 As New ChartTitle()
            TituloGraf2.Text = [Ô]Valores das Propostas[Ô]
            Graf2.Titles.Add(TituloGraf2)
            Me.Controls.Add(Graf2)

            Dim TituloGraf3 As New ChartTitle()
            TituloGraf3.Text = [Ô]Desempenho (%)[Ô]
            Graf3.Titles.Add(TituloGraf3)
            Me.Controls.Add(Graf3)

        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            objConexao.Close()
        End Try

MESTRE 15/06/2015 12:03:29
#447720
RESOLVI depois de muito sofrimento 
   Dim Graf1 As ChartControl = ChartControl1
        Dim Graf2 As ChartControl = ChartControl2
        Dim Graf3 As ChartControl = ChartControl3

        Dim g1_series1 As New Series([Ô]Total de Propostas[Ô], ViewType.Bar)
        Dim g1_series2 As New Series([Ô]Total Abertas[Ô], ViewType.Bar)
        Dim g1_series3 As New Series([Ô]Total Fechadas[Ô], ViewType.Bar)

        Dim g2_series1 As New Series([Ô]Valor Abertas[Ô], ViewType.Bar)
        Dim g2_series2 As New Series([Ô]Valor Fechadas[Ô], ViewType.Bar)
        Dim g2_series3 As New Series([Ô]Total Venda[Ô], ViewType.Bar)

        Dim g3_series1 As New Series([Ô]Propostas Fechadas (%)[Ô], ViewType.Bar)
        Dim g3_series2 As New Series([Ô]Propostas Por Valor (%) [Ô], ViewType.Bar)
        Dim g3_series3 As New Series([Ô]Vendedor x Faturamento (%)[Ô], ViewType.Bar)


        [ô] Dim ListaTotalGeral As New List(Of Integer)
        Dim Vendedor As String
        Dim TotalGeral, TotalAbertas, TotalFechadas As Integer
        Dim ValorAbertas, ValorFechadas, ValorTotal As String
        Dim Des1, Des2, Des3 As String

        Try
            Dim sql As String
            sql = [Ô]SELECT * FROM zvendas[Ô]
            objConexao.Open()

            Dim objMysqlCommand As New MySqlCommand(sql, objConexao)
            Dim reader As MySqlDataReader = objMysqlCommand.ExecuteReader()

            Do While (reader.Read)

                Vendedor = reader!Vendedor
                TotalGeral = reader!TotalGeral
                TotalAbertas = reader!TotalAbertas
                TotalFechadas = reader!TotalFechadas

                ValorAbertas = reader!ValorAbertas
                ValorFechadas = reader!ValorFechadas
                ValorTotal = reader!TotalVenda

                [ô]  ValorAbertas = Format(reader!ValorAbertas, [Ô]c[Ô])

                [ô] MessageBox.Show(ValorAbertas)
                Des1 = reader!DES1
                Des2 = reader!DES2
                Des3 = reader!DES3


                g1_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {TotalGeral}))
                g1_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {TotalAbertas}))
                g1_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {TotalFechadas}))


                g2_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorAbertas}))
                g2_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorFechadas}))
                g2_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {ValorTotal}))

                g3_series1.Points.Add(New SeriesPoint(Vendedor, New Double() {Des1}))
                g3_series2.Points.Add(New SeriesPoint(Vendedor, New Double() {Des2}))
                g3_series3.Points.Add(New SeriesPoint(Vendedor, New Double() {Des3}))


            Loop

                     Graf1.Series.Add(g1_series1)
            Graf1.Series.Add(g1_series2)
            Graf1.Series.Add(g1_series3)

            Graf2.Series.Add(g2_series1)
            Graf2.Series.Add(g2_series2)
            Graf2.Series.Add(g2_series3)

            Graf3.Series.Add(g3_series1)
            Graf3.Series.Add(g3_series2)
            Graf3.Series.Add(g3_series3)

            Dim TituloGraf1 As New ChartTitle()
            TituloGraf1.Text = [Ô]Total Geral de Propostas Feitas[Ô]
            Graf1.Titles.Add(TituloGraf1)
            Me.Controls.Add(Graf1)


            Dim TituloGraf2 As New ChartTitle()
            TituloGraf2.Text = [Ô]Valores das Propostas[Ô]
            Graf2.Titles.Add(TituloGraf2)
            Me.Controls.Add(Graf2)

            Dim TituloGraf3 As New ChartTitle()
            TituloGraf3.Text = [Ô]Desempenho (%)[Ô]
            Graf3.Titles.Add(TituloGraf3)
            Me.Controls.Add(Graf3)


            [ô] Hide the legend (if necessary).
            ChartControl1.Legend.Visible = False

            [ô]Show crosshair axis lines and axis labels to see format values of crosshair labers 
            Graf2.CrosshairOptions.ShowArgumentLabels = True
            Graf2.CrosshairOptions.ShowValueLabels = True
            Graf2.CrosshairOptions.ShowValueLine = True
            Graf2.CrosshairOptions.ShowArgumentLine = True

            [ô] Specify the crosshair label pattern.
            g2_series1.CrosshairLabelPattern = [Ô]{V:c2}[Ô]
            g2_series1.CrosshairLabelPattern = [Ô]{V:c2}[Ô]

            g2_series2.CrosshairLabelPattern = [Ô]{V:c2}[Ô]
            g2_series2.CrosshairLabelPattern = [Ô]{V:c2}[Ô]

            g2_series3.CrosshairLabelPattern = [Ô]{V:c2}[Ô]
            g2_series3.CrosshairLabelPattern = [Ô]{V:c2}[Ô]
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            objConexao.Close()
        End Try
End Sub

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