forum.clarionlife.net

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

SbpQRClass.OrderRegistry  Procedure(*OrderRegistryParamGroup org, *OrderRegistryResultGroup orr, *T_orderParams qMyOP, *T_orderOperationParams qMyOOP)!,LONG  !!!
...
json                      cJSONFactory
root                      &cJson
orderParams               &cJson
orderParam                &cJson
orderOperationParams      &cJson
  Code
  ...
  If org.registryType = SBP_RG_REGISTRY  ! Детальный отчёт по заказам

     Root &= json.Parse(Self.ResponseBuffer.Str(), CP_ACP)
     If Not Root &= Null
        If Root.ToGroup(orr) and orr.errorCode = 0

           orderParams &= root.FindObjectItem('orderParam')
           If Not orderParams &= Null  ! and orderParams.IsArray() - Inside ToQueue()

              orderParams.ToQueue(qMyOP)
              Loop xCount1# = 1 to Records(qMyOP) by 1  ! По списку заказов
                Get(qMyOP,xCount1#)

                orderParam           &= orderParams.GetArrayItem(xCount1)
                orderOperationParams &= orderParam.FindObjectItem('orderOperationParam')
                If Not orderOperationParams &= Null  ! and orderOperationParams.IsArray() - Inside ToQueue()
                   orderOperationParams.ToQueue(qMyOOP)

                   Loop xCount2# = 1 to Records(qMyOOP) by 1
                     Get(qMyOOP,xCount2#)
                     If Clip(qMyOOP.orderId) = ''  ! Операция без ордера (новая в списке)
                        qMyOOP.orderId = qMyOP.orderId  ! Связь списков заказов и операций по ID заказа
                        Put(qMyOOP)
                     end   
                   end
                end
              end  ! Loop xCount1 = 1 to Records(qMyOP) by 1              
           end
        end
        Root.Delete()
     end
  end
  ...