REAL _archVal
TIME _archTime
INT _retCode
; čas archivácie
_archTime := %StrToTime("12:0:0 1-12-2000")
; príprava hodnoty spolu s časom
_archVal := 1 TIME _archTime
; zápis do archívu
UPDATEARCHVAL _archVal, H.Int, _retCode
; test úspešnosti akcie
IF _retCode # _ERR_NO_ERROR THEN
; chyba pri zápise
ENDIF
0 komentárov