Error in Render json (Integer Values)

[rodrigoceren]

Hello! I'm migrating from the sodium version to the magnesium version and the integer values ​​are returning floats (with .0). How do I solve this in this version?
magnesium
{
"data": [
{
"id": 180.0,
"nome_razao": "CUSTOMERS",
"fantasia": "CUSTOMERS",
"datcad": "2013-07-25T13:45:37.000-03:00",
"datalt": "2017-06-08T11:13:00.000-03:00",
"excluir": 0.0,
"fk_empresa": 1.0,
"limite_cred": 0.0,
"fk_vendedor": 3714.0,
"fk_lstpreco": 1.0,
"fk_cndpgto": 1.0,
"digito_ruc": null
}
]
}

sodium
{
"data": [
{
"id": 180,
"nome_razao": "CUSTOMERS",
"fantasia": "CUSTOMERS",
"datcad": "2013-07-25T13:45:37.000-03:00",
"datalt": "2017-06-08T11:13:00.000-03:00",
"excluir": 0,
"fk_empresa": 1,
"limite_cred": 0,
"fk_vendedor": 3714,
"fk_lstpreco": 1,
"fk_cndpgto": 1,
"digito_ruc": null
}
]
}

my code:
Qry := gDM.NewQuery('Select CADASTRO_PESSOA.ID,' + #13#10 +
'CADASTRO_PESSOA.NOME_RAZAO,' + #13#10 +
'CADASTRO_PESSOA.FANTASIA,' + #13#10 +
'CADASTRO_PESSOA.RUC,' + #13#10 +
'CADASTRO_PESSOA.FISJUR,' + #13#10 +
'CADASTRO_PESSOA.DATCAD,' + #13#10 +
'CADASTRO_PESSOA.DATALT,' + #13#10 +
'CADASTRO_PESSOA.EXCLUIR,' + #13#10 +
'CADASTRO_PESSOA.FK_EMPRESA,' + #13#10 +
'CADASTRO_PESSOA.LIMITE_CRED,' + #13#10 +
'CADASTRO_PESSOA.FK_VENDEDOR,' + #13#10 +
'CADASTRO_PESSOA.FK_LSTPRECO,' + #13#10 +
'CADASTRO_PESSOA.FK_CNDPGTO,' + #13#10 +
'CADASTRO_PESSOA.DIGITO_RUC,' + #13#10 +
'DBMS_LOB.SUBSTR(CADASTRO_PESSOA.OBSERVACAO) as OBSERVACAO,' + #13#10 +
'CADASTRO_PESSOA.CODANT,' + #13#10 +
'CADASTRO_PESSOA.BLOQUEADO,' + #13#10 +
'DBMS_LOB.SUBSTR(CADASTRO_PESSOA.TELEFONES) as TELEFONES,' + #13#10 +
'CADASTRO_PESSOA.COMISSAO,' + #13#10 +
'CADASTRO_PESSOA.COMIS_ESPECIAL,' + #13#10 +
'CADASTRO_PESSOA.EMAIL,' + #13#10 +
'CADASTRO_PESSOA.PERCOMVENLUCRO ' + #13#10 +
'From CADASTRO_PESSOA' + #13#10 +
'where excluir = 0 and fk_empresa = '+TAuthCriteria.ObterEmpresa(Context.LoggedUser.UserName) + #13#10 +
'and fk_vendedor = '+TAuthCriteria.ObterVendedor(Context.LoggedUser.UserName) + #13#10 +
'order by nome_razao');
Qry.Open('');
Context.Response.SetCustomHeader('Cache-Control', 'no-store, no-cache, must-revalidate, max-age=0');
Render(ObjectDict(False).Add('data', Qry));