forum.clarionlife.net

Код: Выделить всё

{
	"TotalCount": 1,
	"Documents": [
		{
			"SubordinateDocumentIds": [
				{
					"MessageId": "daa0e01b-d04d-4f61-b47e-b252e4dfa6d8",
					"EntityId": "0daee88e-327b-45e2-942d-1a84bccc9520"
				}
			]
         ]
}

Код: Выделить всё

SubordinateDocumentIds_Que   Queue,Type
MessageId                                    String(40)
EntityId                                        String(40)
                                               end
Documents_Que  Queue,Type
SubordinateDocumentIds     &SubordinateDocumentIds_Que !ссылка на очередь
                          end

ResultGroup  Group
Documents      &Documents_Que !Ссылка на очередь
                    end

Код: Выделить всё

MyGroup   Group
FieldName       &String
          end

Код: Выделить всё

rh        CLASS(TCJsonRuleHelper)
AutoCB      PROCEDURE(STRING pFldName, cJSON pItem), DERIVED
          END

MyGroup   Group
FieldName   &String
          end

  CODE
  jRoot &= jParser.ParseFile('file.json')
  IF NOT jRoot &= NULL
    jRoot.ToGroup(MyGroup,,printf('[{{"name":"*","rulehelper":%i}, {{"name":"FieldName","auto":true}]', ADDRESS(rh)))
    jRoot.Delete()
  END

rh.AutoCB                     PROCEDURE(STRING pFldName, cJSON pItem)
  CODE
  IF pFldName = 'FIELDNAME' !- name in UPPERCASE as returned by WHO() w/o a prefix
    MyGroup.FieldName &= NEW STRING(pItem.GetStringSize())
    MyGroup.FieldName = pItem.GetStringValue()
  END

Код: Выделить всё

! --- Список тегов документа
Dia:Q_CustomDataItem        Queue,Type
Key                           CString( 61)      ! Название тега. Не может быть пустым. Регистронезависимый. Только буквы алфавита, цифры и символы «-» и «_»
Value                         CString(201)      ! Значение тега, соответствующее ключу Key. Может быть пустым. Регистронезависимый
                            end

! --- Представляет пару «ключ-значение», привязанную к документу в качестве метаданных
Dia:Q_MetadataItem          Queue,Type
Key                           CString( 61)      ! Непустой ключ. Должен быть валидным ключом метаданных для данного типа документа
Value                         CString(201)      ! Непустое значение, соответствующее ключу Key
                            end

! --- Документ любого типа
Dia:Q_DocumentAttachment    Queue,Type
                                                ! Содержимое файла вместе с ЭП под ним
SignedContent                 Group(Dia:G_SignedContent).
Comment                       CString(255)      ! Необязательный текстовый комментарий к документу. Длина не более 5000 символов
NeedRecipientSignature        Bool(False)       ! Флаг, обозначающий запрос подписи получателя под отправляемым документом
InitialDocumentIds            &Dia:Q_DocumentId ! Список идентификаторов документов, к которым привязывается отправляемый документ
SubordinateDocumentIds        &Dia:Q_DocumentId ! Список идентификаторов документов, которые должны ссылаться на отправляемый документ
CustomDocumentId              String(36)        ! Необязательный идентификатор документа во внешней системе, уникальный в рамках структуры MessageToPost
NeedReceipt                   Bool(False)       ! Необязательный признак того, что от получателя требуется сформировать извещение о получении данного документа
                                                ! Список пар вида «ключ-значение», содержащих произвольные данные по документу
CustomData                    &Dia:Q_CustomDataItem 
TypeNamedId                   String(36)        ! Cтроковой идентификатор типа документа. Доступные типы можно получить методом GetDocumentTypes.
                                                ! Идентификатор функции документа. Обязательно при отправке зашифрованных документов.
Function_                     String(36),Name('Function')
Version                       String(36)        ! Идентификатор версии документа. Обязательно при отправке зашифрованных документов.
                                                ! Список пар вида «ключ-значение», содержащих метаданные документа
Metadata                      &Dia:Q_MetadataItem
....
                            end

Код: Выделить всё

Здесь нужно идти по дереву и обрабатывать списочные структуры JSON