Dentro da função DataSetToJSONObject quanto eu utilizo, eu coloco key := LowerCase(dataSet.Fields[i].FieldName) afim de manter um "padrão" para o JSON com as keys em letras minúsculas. Você acharia interessante colocar isso no projeto principal?

Bom dia!
Primeiramente parabéns pelo framework, muito útil. Estou começando a utilizar este framework e me deparei com a seguinte situação:
em numa tabela(Firebird 2.5) eu tenho um campo definido como decimal(5,2). Ao gerar um ClientDataSet para esta tabela eu estou definindo o campo como Float. No momento em que eu executo o seguinte comando 'RESTRequest.Execute' é mostrado a seguinte mensagem de erro: 'invalid class typecast'. Se este campo for alterado para decimal(10,2) ou maior não ocorre o erro.
Tentei fazer algumas alterações mas não obtive sucesso.
O framework está atualizado(29/05/2018).
Tem alguma ideia do que pode ser?
Att.,
Rafael Moroni

Olá,
O que acha de modificarmos a classe de helper?
Me refiro, para podermos seguir o padrão da embarcadero, como por exemplo voce pegar uma variável do tipo inteiro, e colocar .ToString e não .AsString...
Posso me encarregar de realizar os ajustes se quiser...

some of the Dataset use the TFieldType.ftBCD as a datatype witch is not enumerated in the implementation.

Existe alguma forma de criar os campos do dataset direto de um jsonArray ou jsonObject?
Tentei procurar pelo ToStructure mas parece que não existe mais.

Source:
field.AsCurrency := (jv as TJSONNumber).AsDoulbe;
and
field.AsFloat := (jv as TJSONNumber).AsDouble;

ChangeTo:
field.AsCurrency := StrToCurr(jv.Value);
and
field.AsFloat := StrToFloat(jv.Value);

Then support set:
System.SysUtils.FormatSettings.DecimalSeparator

    TFieldType.ftCurrency:
      begin
        if jv is TJSONNull then
          field.Clear
        else

// field.AsCurrency := (jv as TJSONNumber).AsDouble;
field.AsCurrency := StrToCurr(jv.Value);
end;
TFieldType.ftFloat, TFieldType.ftFMTBcd, TFieldType.ftBCD:
begin
if jv is TJSONNull then
field.Clear
else
// field.AsFloat := (jv as TJSONNumber).AsDouble;
field.AsFloat := StrToFloat(jv.Value);
end;

For larger datasets it might be better to use System.JSON.Writers.TJsonWriter instead of JSON Objects Framework

I have a situation where would be interesting to fill an empty dataset with all the fields from the json, for example, before import all json objects from an Array of JsonObjects, I could give the dataset one scheme with the sample data that better represents the expected structure

var sample_data = '{"name": "Some String", "age": 99, "valid_date": "2023-01-01 11:00:00", "valid_number": 999.99 }';
dataset.addFieldFromJson(sample_data);
dataset.fromJsonArray; 

Intended to produce the following dataset

  dataset.FieldDefs.Add('name', ftString, 10, {required = } false);
  dataset.FieldDefs.Add('age', ftInteger, {required = } false);
  dataset.FieldDefs.Add('valid_date', ftDateTime, {required = } false);
  dataset.FieldDefs.Add('valid_number', ftExtended, {required = } false);

Or another most explicit structure whould result in the same dataset

var sample_data = '[
     {"field_name": "name, "field_type": "ftString", "field_size": 10, "field_required": true },
     {"field_name": "age, "field_type": "ftInteger", "field_required": false},
     {"field_name": "valid_date, "field_type": "ftDate", "field_required": true },
     {"field_name": "valid_number, "field_type": "ftExtended", "field_size": 18, "field_precision": 2 , "field_required": false},
 ]';

Seria interessante criar um parâmetro incluir ou não a timezone já que a própria função DateToISO8601 permite isso.

No meu caso estou tendo que remover o Z do final da data para poder formatar a mesma no javascript, já que formatando com o Z a hora fica errada.

TFieldType.ftDate, TFieldType.ftTimeStamp, TFieldType.ftDateTime, TFieldType.ftTime:
begin
  Result.AddPair(key, TJSONString.Create(DateToISO8601(dataSet.Fields[i].AsDateTime, FALSE)))
end;

Estou usando UUID como pk nas tabelas, com banco postgres, ai na hora de converter o dataset para json ocorre uma exceção dizendo que não encontrou um tipo correto para esse campo. Obs, não estou criando os fields na query, apenas fazendo o open no sql. Existe alguma solução que não seja criar todos os campos no dataset?

Na conversão de DataSet para Json existe alguma maneira de omitir alguns campos?
Ao gerar json para enviar para inclusão ou alteração as vezes não queremos incluir campos de data/hora ou o campo de id no caso de novo cadastro.

Desde já obrigado.

Essa classe foi criada para aceitar apenas TClientDataset ?

Ao tentar testar utilizando a classe TFDMemTable eu não posso abrir a tabela sem antes definir os FIELDs.

Tive que remover as linhas onde verifica se a tabela já está aberta

Hello,

I have an SQL Server table with tinyint column. That column translates as ftByte.

ftByte raises an exception "Cannot find type for field..."

I have added ftByte among ftInteger group. Writing in here just to let you know about issue.

Thanks.

--Ertan

Ezequiel
Existe um problema na conversão do DataSet.AsJSONArray, para campos datetime no SQLSERVER

Este campos no firedac são do tipo TSQLTimeStampField e na conversao do da rotina DataSetConvert4D.imp , estes campos ficam sem a parte da DATA, acredito que o tipo deva estar na opção de TFieldType.ftDateTime também.

TFieldType.ftTimeStamp, TFieldType.ftTime:
begin
if not dataSet.Fields[i].IsNull then
begin
timeStamp := dataSet.Fields[i].AsSQLTimeStamp;
Result.AddPair(key, TJSONString.Create(SQLTimeStampToStr('hh:nn:ss', timeStamp)));
end
else
Result.AddPair(key, TJSONNull.Create);

Acredito que essa função deve ter um "DataSet.DisableControls" antes de iniciar o loop e consequentemente um "DataSet.EnableControls" ao final do processo. Ou colocar como opção.

Bom dia!
Eu estou utilizando este framework para enviar as NFes de um sistema mobile para um servidor e está funcionando normalmente. O grande problema é que eu estou enviando primeiramente o cabeçalho da NFe, depois os seus produtos, as parcelas da NFe e finalmente o cliente. É que da forma que estou enviando eu estou perdendo a atomicidade do banco de dados, ou seja, se caso ocorrer um problema num dos envios eu fico com parte da NFe gravada e outra não.
Gostaria de saber se existe alguma forma de eu enviar/receber todos os dados em apenas um JSONArray utilizando este framework?

Master/Detail?

Obrigado,
Rafael Moroni

Do you plan to add automatic creation of the dataset structure during conversion JSON-> DS?

Check if the visible field property to serialize it.