Работа с JSON на ISBL с помощью JavaScript. Часть 2

Реализация хранения данных с этапа МД с помощью JSON

В результате, решили воспользоваться форматом, изначально предназначенном для хранения структурированной информации в текстовом виде - JSON.

Формат JSON – более удобен, наглядно видны все полученные данные с этапов, в т. ч. массивы с множественных этапов. Так же существуют всевозможные редакторы для работы с ним, что очень удобно при отладке (универсальные функции для работы с форматом JSON можно посмотреть во вложении к первой части статьи).

В итоге с зацикленных этапов получаем массив объектов, представляющих данные, введенные на шаге, при этом каждое поле имеет явное наименование.

Ниже приведен пример данных, полученных из идентичного цикла этапов, указанного в примере с первой реализации.

Пример (стало):

{
  "Data": [
    {
      "extractSubject_RealtyType": "Здание",
      "_DeleteExtractSubject": false,
      "extractSubject_ParcelCategory": null,
      "extractSubject_ParcelUsageType": null,
      "_extractSubject_AddRealtyType": true,
      "extractSubject_BuildingPurpose": [
        " Д000001",
        " Д000003"
      ],
      "extractSubject_RoomChoice": null,
      "extractSubject_OtherObjectType": null,
      "extractSubject_OtherNotes": null
    },
    {
      "extractSubject_RealtyType": "Земельный участок",
      "_DeleteExtractSubject": false,
      "extractSubject_ParcelCategory": [
        " Д000003",
        " Д000004",
        " Д000006"
      ],
      "extractSubject_ParcelUsageType": [
        " Д000013",
        " Д000007",
        " Д000016"
      ],
      "_extractSubject_AddRealtyType": true,
      "extractSubject_BuildingPurpose": null,
      "extractSubject_RoomChoice": null,
      "extractSubject_OtherObjectType": null,
      "extractSubject_OtherNotes": null
    }
  ],
  "Index": 2
}

Функции, которые использовались в мастерах действий, основаны на преобразовании списка параметров мастера действий IWizardParam в объект JS и обратно. Ниже приведен упрощенный пример данных функций, которые могут работать c IList. Пример мастера действия с одним зацикленным этапом и функции, которые использовались, будут во вложении к статье.

Преобразование списка IList в объект и обратно в мастере действий:

  // Пример части кода на событии Next МД
  Params = Wizard.Params
  Index = Params.ValueByName('Index').Value
  if not Assigned(Params.ValueByName('Person_JSON').Value)
    // Создать объекты для работы с js
    PersonArray = CreateJavascriptArray()   
  else
    PersonArray = JSONToObject(Params.ValueByName('Person_JSON').Value)
  endif
  ResultObject = CreateJavascriptObject()
  // Создать списки с данными
  PersonList = CreateList()
  PersonList.Add('FirstName'; Params.ValueByName('FirstName').Value)
  PersonList.Add('FamilyName'; Params.ValueByName('FamilyName').Value)
  PersonList.Add('Patronymic'; Params.ValueByName('Patronymic').Value)
  PersonList.Add('AddPerson'; Params.ValueByName('AddPerson').Value)
  LocationList = CreateList()
  LocationList.Add('Country'; Params.ValueByName('Country').Value)
  LocationList.Add('City'; Params.ValueByName('City').Value)
  LocationList.Add('Street'; Params.ValueByName('Street').Value) 
  // Сформировать JS объект из IList
  PersonObject = CreateJSObjectFromList(PersonList) 
  LocationObject = CreateJSObjectFromList(LocationList)     
  // Установить значения 
  SetJSObjectProperty(ResultObject; "PersonList"; PersonObject)
  SetJSObjectProperty(PersonObject; "Location"; LocationObject)  
  SetJSValueInArray(PersonArray; Index; PersonObject)  
  Params.ValueByName('Person_JSON').Value = JSObjectToJSON(PersonArray)

  // Пример кода на событии Previous
  FullObject = JSONToObject(Params.ValueByName('Person_JSON').Value) 
  PersonData = GetJSValueFromArray(FullObject; Params.ValueByName('Index').Value)
  Params.ValueByName('FirstName').Value = GetJSObjectProperty(PersonData; 'FirstName')
  Params.ValueByName('FamilyName').Value = GetJSObjectProperty(PersonData; 'FamilyName')
  Params.ValueByName('Patronymic').Value = GetJSObjectProperty(PersonData; 'Patronymic')
  LocationData = GetJSObjectProperty(PersonData; 'Location')
  Params.ValueByName('Country').Value = LocationData.Country
  Params.ValueByName('City').Value = LocationData.City
  Params.ValueByName('Street').Value = LocationData.Street

Пример преобразования формата JSON в IList:

  JSON =  '{"PersonList":{"Name":"Петров","Surname":"Александр","Patronymic":"Константинович","Location":{"Country":"Россия","City":"Москва","Street":"Достоевского"}}}'
  PersonList = CreateList()
  PersonList.Add('Name'; '')
  PersonList.Add('Surname'; '')
  PersonList.Add('Patronymic'; '')
  FullObject = JSONToObject(JSON) 
  Person = GetJSObjectProperty(FullObject; "PersonList")
  PersonList = FillListFromObject(Person; PersonList) 
  ShowMessage(PersonList.Values(1))

С помощью формата JSON можно решать и другие задачи, где может понадобиться:

• хранить структурированные данные, которые не имеют четкого формата;
• хранить контекстные данные, к которым нужно часто обращаться и изменять;
• передача сложных объектов в функции и т.д.

Таким образом JS можно расширить  возможности прикладной. Надеюсь наработки будут полезны в вашей работе.