PC Toledo

Código: Selecionar todos

   DbUseArea(.T.,"DBFCDX", "CADASTRO", "CADASTRO", .T.)
   
   nFields  := CADASTRO->(FCount())
   nHandle  := fCreate("NEW.JSON")
   hRecords := { => }
   DO WHILE ! CADASTRO->(EOF())
      hRecord := { => }
      FOR nField := 1 TO nFields
         hb_HSet(hRecord, FieldName(nField), FieldGet(nField)) // for each record, hrecord holds a hash of column name: column value
      NEXT
      hb_HSet(hRecords, LTRIM(STR(RecNo())), hRecord) // like so, a hash of recno: hash of columns/values of this record 
      CADASTRO->(DbSkip())
   ENDDO
   fSeek(nHandle, 0, 2)
   fWrite(nHandle, hb_jsonEncode( hRecords, .T. ))
   fClose(nHandle)

Código: Selecionar todos

cJSON:=memoread( "new.json" )
nLen := hb_jsondecode( cJSON, @htable )
FOR EACH oElemento IN htable
   ? oElemento["APTO"], oElemento["SACADO"]
NEXT