(12-04-2017, 10:02 PM)insyncs Wrote: Hi, 

Trying this code. I haven't put an sd card in yet, so wanted to see if there were any errors.  is all the code supposed to be in the init section? do i need to add the tags?

see attached picture.

I inserted a card and got similar errors, see second pic.

Cheers M

(13-04-2017, 05:52 PM)insyncs Wrote: Hi Ludo,

Using the latest version V12.0s1

Cheers M

Quote:  CurID% = GETSYS Prg,"EVTINFO" : REM Get ActionID

Quote:SDCardSize_Int% = Val  SDCardSize$

(27-01-2017, 04:39 PM)simon Wrote: Hi guys,

As of the firmware 12.1s2, you can extend the Usr memory of your eWON by using a SD card (aka EUM card).

One of the use case is to store historical data reports on this memory extension.  You'll then be able to retrieve them by using your FTP client.

Here is an example of how to generate these historical data reports on an incremental way (to paste in the init section) :

Code:

CLS
REM GENERATE REPORT EVERY HOUR
ONDATE 1,"0 * * * *","GOTO GENERATE_REPORT"
ONSTATUS "GOTO SCHEDULEDACTION_END"
GOTO GENERATE_REPORT
END


GENERATE_REPORT:
//Check if SD card is inserted or if there is enough space
SETSYS INF,"LOAD"
SDCardSize$ = GETSYS INF, "SDExtFree"
SDCardSize_Int% = Val  SDCardSize$
IF SDCardSize_Int% > 5000 THEN   // 5 MB remains
  GOSUB READ_LASTTMS
  LAST_TIME$ = @GetCurrentTimeStamp$()
  EBD_STRING$ = "$dtHL$ftT$et" + LAST_TIME$ + "$st" + LASTTMS$
  FILENAME$ = "/usr/sdext/DataReport" + LAST_TIME$ + ".txt"
  WRITEEBD  EBD_STRING$, FILENAME$
  ActionID% = GETSYS Prg, "ACTIONID"
ELSE
 LOGEVENT "EUM Card full or not present", -1
ENDIF
END

SCHEDULEDACTION_END:
  CurID% = GETSYS Prg,"EVTINFO" : REM Get ActionID
   REM : Check if it is the right schedule action to save last timestamp otherwize do nothing
   If ActionID% = CurID% THEN
     SETSYS Prg, "ACTIONID", CurID%
     CurID_Status% = GETSYS Prg,"ACTIONSTAT"
     REM Action successfully done --> Write last timestamp in file
     IF CurID_Status% = 0 THEN
       LOGEVENT "FILE " + FILENAME$ + " SUCCESSFULLY EXPORTED", 100
       @WRITETMS(LAST_TIME$)
     ELSE
       LOGEVENT "FILE " + FILENAME$ + " NOT SUCCESSFULLY EXPORTED", 0
     ENDIF
   ENDIF
END

READ_LASTTMS:
SETSYS PRG,"RESUMENEXT",1
 REM GET LAST TIMESTAMP
OPEN "file:/usr/tms.dat" FOR BINARY INPUT AS 1
  LASTTMS$ = GET 1,15
CLOSE 1

Cur_Err% = GETSYS PRG,"LSTERR"
 
IF Cur_Err% = 33 THEN //REM File does not exist
  LASTTMS$= "01011970_000000"
  SETSYS PRG,"LSTERR",0
ENDIF

SETSYS PRG,"RESUMENEXT",0
CLS

RETURN

FUNCTION WriteTMS($LastTimeStamp$):
OPEN "file:/usr/tms.dat" FOR BINARY OUTPUT AS 1
  PUT 1,$LastTimeStamp$
CLOSE 1
ENDFN

FUNCTION GetCurrentTimeStamp$()
REM TIME$ = 19/12/2014 10:03:01
$EWON_TIME$ = TIME$
$GetCurrentTimeStamp$ = $EWON_TIME$(1 To 2) + $EWON_TIME$(4 To 5) + $EWON_TIME$(7 To 10) + "_" + $EWON_TIME$(12 To 13) + $EWON_TIME$(15 To 16)+ $EWON_TIME$(18 To 19)
ENDFN