forum.clarionlife.net

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

curl -X POST "https://markirovka.crpt.ru/api/v4/true-api/codes/check" -H "X-API-KEY: 43...ed" -H "Content-Type: application/json" -d @"mark.json" -o 1.txt

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

{
  "codes":[
      "0104607150100176215(j4Fc\u001D93aQ55"
  ]
}

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

{"code":0,"description":"ok","codes":[{"cis":"0104607150100176215(j4Fc\u001D93aQ55","valid":true,"printView":"0104607150100176215(j4Fc","gtin":"04607150100176","groupIds":[8],"verified":true,"found":true,"realizable":true,"utilised":true,"isBlocked":false,"expireDate":"2023-10-18T00:00:00.000Z","productionDate":"2023-10-15T00:00:00.000Z","prVetDocument":"6b6bbe21-6492-4b8b-a999-6f2ef5c764c6","errorCode":0,"isTracking":false,"sold":false,"packageType":"UNIT","producerInn":"6221000024","grayZone":false}],"reqId":"add5dafd-6648-47a9-90e8-2d2846cf0e75","reqTimestamp":1697874169849}

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

testOld_r  routine   !проверка
   DATA
jsonFactory  cJSONFactory
root    &cJSON
item    &cJSON

JSONString STRING(10024)
lor:mark    string(80)
lor:dateStr string(40)
lor:date    long

   CODE

  JSONString='тут json строка'

   root &= jsonFactory.Parse(JSONString)
  if root &= null
     exit
  .
  item &= root.FindArrayItem('codes', 1)
  if ~(item &= null)
     item &= item.GetObjectItem('expireDate')
     lor:dateStr = item.ToString(1)
     sleep(100)  !вот это ---------------------------------------
     if lor:dateStr<>''
        lor:date=deformat(sub(lor:dateStr,2,10),@d10-)
        if lor:date>0 and lor:date<today()
           Loc:Ok=0   !просрочено
        .
     .
  .

  root.Delete()

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

  Root &= MyJSon.Parse(JSONString)
  If Not (Root &= Null)
  
     jResult &= Root.FindObjectItem('Codes')
     If Not (jResult &= Null)
     
        jResult.ToQueue(qResult)
        If Records(qResult) > 0
           Get(qResult,1)
           If Not ErrorCode() then Message(Format( Deformat(Sub(qResult.expireDate,2,10),@d10-),@d06.b)).
        end
     end
     
     Root.Delete()
  end