search

viniciussanchez / dataset-serialize

JSON to DataSet and DataSet to JSON converter for Delphi and Lazarus (FPC)
MIT License
653 stars 161 forks source link

TJSONObject Dentro do TJSONArray - FK (1..1) #186

Closed armandocorrea closed 1 year ago

armandocorrea commented 1 year ago

Quando temos um relacionamento de 1..1 (FK) entre as entidades o DataSet.Serialize.Import não retorna o valor do TJSONObject aninhado, pois para esse LJSONValue não existe o .Value e sim um .ToString.

Exemplo: [ { "id": 10, "date": "2023-02-18", "hour": "18:00:00.000", "resultTeamA": 0, "resultTeamB": 0, "status": true, "teamA": { "id": 28, "name": "PALMEIRAS" }, "teamB": { "id": 29, "name": "FLAMENGO" } } ]

viniciussanchez commented 1 year ago

Bom dia... Eu não testei, mas olhando o código, acredito que a sua implementação vai dar problema nessa funcionalidade aqui: image

armandocorrea commented 1 year ago

Bom dia... Eu não testei, mas olhando o código, acredito que a sua implementação vai dar problema nessa funcionalidade aqui: image

Na verdade não ia dar erro porque o meu tipo o dataset reconhece como ftString. Porém analisando o código aqui se o dataset estiver iterando com um ftDataset e o par do JSon for um TJsonObject, a minha implementação vai acabar matando essa parte do código.

Vou ter que colocar essa minha alteração no case do ftString. Amanhã cedo faço a alteração, testo na minha rotina e testo o sample tbm.

Obrigado por me alertar.

armandocorrea commented 1 year ago

Vinny mandei a correção. Qualquer coisa estou a disposição. Abraços