ERROR USANDO JSON

[jbrita]

Hola Amigos necesito de su ayuda urgente:
tengo este ejemplo me sale error:


function Main()
*------------
local cFileRuta, aRet, nHsh, hJson, cOk, cFolio,cArchivoTxt

cFileRuta := "C:\SYSTEMA\FARMA_CAJA\salida.txt"

cArchivoTxt := memoread(cFileRuta)
nHsh := Hb_JSONDECODE( cArchivoTxt, @hJson ) // decodificamos el json a un hash

cOk := IF(hJSon["ok"], 1,0) //ACA SALE EL ERROR

cFolio := hJSon["folio"]

? cfolio

return .t.

ARCHIVO: salida.txt
{"ok":1,"folio":"22756"}

ERROR:
Application
===========
Path and name: C:\ribon\ribbon.Exe (32 bits)
Size: 689,152 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130326)
FiveWin Version: FWHX 12.08
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/03/21, 19:58:31
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = N 1

Stack Calls
===========
Called from: C:\SYSTEMA\FARMA_CAJA\x.prg => MAIN( 14 )


cualquier ayuda bienvenida

saludos

[cnavarro]

Mira, mi lógica me dice que el problema está aquí: ( a ver si es lo que pretendes )

Code: Select all  Expand view

// Asi es como yo considero que se debería programar
cOk := IF( hJSon["ok"] = 1, .T., .F. ) //{"ok":1,"folio":"22756"}
 

[jbrita]

resulto .. muchisimas gracias