B4J Question [SOLVED] Number formatter B4XTable

[Peter Lewis]

Hi

I am trying to make a B4XTable cells showing 2 decimal places regardless if they have values or not.

In the Table I have formatted the Cell as Number

and this is the code I have been trying without any success

    formatter.Initialize
    Dim DefaultFormat As B4XFormatData = formatter.GetDefaultFormat
    formatter.GetDefaultFormat.MaximumFractions = 2
    formatter.GetDefaultFormat.MinimumFractions = 2
    
    tblInvDetail.DefaultDataFormatter.GetDefaultFormat

Any Suggestions would be great

Thank you

 

[TILogistic]

you have to round the value to 2 decimal places

see example

Public Sub TestFormatter
    Dim out As String
   
    out = out & CRLF & SetFormmatter("12345.678", 2)
    out = out & CRLF & SetFormmatter("3.45", 2)
    out = out & CRLF & SetFormmatter("123", 2)
    out = out & CRLF & SetFormmatter("2456000.3", 2)
   
    Log(out)
End Sub

Public Sub SetFormmatter( Value As String, Decimal As Int) As String
    Dim formatter As B4XFormatter
    formatter.Initialize
    formatter.GetDefaultFormat.GroupingCharacter = ","
    formatter.GetDefaultFormat.DecimalPoint = "."
    formatter.GetDefaultFormat.MaximumFractions = Decimal
    formatter.GetDefaultFormat.MinimumFractions = Decimal
    Dim Data As Double = Round2(Value, Decimal)
    Return formatter.Format(Data)
End Sub

see:

Formattare con separat migliaia e virgola decimali (modo italiano)

Ho delle stringhe lette con questo formato : esempio: 12345,6789 Vorrei esporle con il separat. delle migliaia e arrotond. a due decimali, quindi ottenere 12.345,68 Sto impazzendo con NumberFormat2 ecc. ma non ci riesco perchè mi mette la virgola come separatore delle migliaia e il punto come...

www.b4x.com

 

[Peter Lewis]

So if I understand you correctly , I should not use the tblInvDetail.COLUMN_TYPE_NUMBERS in the cell. I should use the formatter and make it a String ?

 

[TILogistic]

just round the value to 2 decimal places, the one you want to display in the column
see

Public Sub TestFormatter
    Dim out As String
    
    out = out & CRLF & SetFormmatter(12345.678, 2)
    out = out & CRLF & SetFormmatter(3.45, 2)
    out = out & CRLF & SetFormmatter(123, 2)
    out = out & CRLF & SetFormmatter(2456000.3, 2)
    out = out & CRLF & SetFormmatter(0, 2)
    out = out & CRLF & SetFormmatter(-1, 2)
    
    Log(out)
End Sub

Public Sub SetFormmatter(Value As Double, Decimal As Int) As String
    Dim DataFormatter As B4XFormatter
    DataFormatter.Initialize
    DataFormatter.GetDefaultFormat.MaximumFractions = Decimal
    DataFormatter.GetDefaultFormat.MinimumFractions = Decimal
    Return DataFormatter.Format(Round2(Value,2))
End Sub

 

[TILogistic]

In the published post, the format of the currency sign, thousands and decimals of each country, was discussed.

 

[TILogistic]

post the routine where you assign the values to the b4xtable.

so they can help you

or

see:

[B4X] B4XFormatter - Advanced number formatter

B4XFormatter is an alternative to NumberFormat / NumberFormat2 keywords. It is implemented in B4X and it is cross platform. There are two types in the library: B4XFormatter - The main class. B4XFormatData - A type with various configurable fields. The formatter holds a list of format data...

www.b4x.com