Android Question BigDecimal problem

[astf]

Every time i tried to pass a BigDecimal value to PagSeguro (with intent), the value received by it is always 0

...
   Private gValorRec as Double ' valor de recebimento
   Private valor As BigDecimal ' valor a passar pagseguro

   valor.Initialize(gValorArec)
   valor.SetScale(2)
...

...
   In.PutExtra("FLAG_APP_PAYMENT_VALUE",valor)
...

Part of manual (java)

...
   private static final String FLAG_APP_PAYMENT_VALUE = "FLAG_APP_PAYMENT_VALUE";

   BigDecimal paymentValue = new BigDecimal(“10.99”);

   Intent it = new Intent(Intent.ACTION_MAIN);
   it.setClassName(PAG_SEGURO_PACKAGE_NAME, PAG_SEGURO_CLASS_NAME);
   it.putExtra(FLAG_APP_PAYMENT_VALUE, paymentValue);
...

When o tried to pass a string value or zero, instead of var valor, pagseguro returns me "Value can't be lower than 1,00"

Spoiler: Part of B4A Code

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' AÇÕES DE REQUISÃO AO APP PAGSEGURO
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' CHAMA APP PAGSEGURO
Sub IniciaPagSeguro
    Dim In As Intent
   
    Try
        valor.Initialize(gValorArec)
        valor.SetScale(2)
       
    Catch
        Log(LastException)
    End Try


    Log(valor)
    In.Initialize(In.ACTION_MAIN,"")
    In.PutExtra("FLAG_APP_PAYMENT_VALUE",valor)
    In.SetComponent("br.com.uol.ps/br.com.uol.ps.app.MainActivity")
   
    StartActivityForResult(In)
End Sub

'' ESPERANDO O RESULTADO DO PAGSEGURO
Sub StartActivityForResult(In As Intent)
   Dim jo As JavaObject = GetBA
   ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
   jo.RunMethod("startActivityForResult", Array As Object(ion, In))
End Sub

Sub GetBA As Object
   Dim jo As JavaObject
   Dim cls As String = Me
   cls = cls.SubString("class ".Length)
   jo.InitializeStatic(cls)
   Return jo.GetField("processBA")
End Sub

 

[Erel]

Test it with:

valor.Initialize("10.99")

 

[astf]

Nothing.....
i tried

valor.Initialize(10)
valor.Initialize(10.99)
valor.Initialize(10,99)
valor.Initialize("10")
valor.Initialize("10.99")
valor.Initialize("10,99")

 

[Erel]

It is related to the way the BigDecimal type is implemented in the library.

You will need to use this code to get the native object:

Dim r As Reflector
r.Target = valor
Dim bd As Object = r.GetField("bigd")
'send bd in the intent