RECORD (SD.Def) _srcRec
RECORD (SD.Def) _dstRec
BEGIN
REDIM _srcRec[10]
REDIM _dstRec[10]
; činnosť akcie SETCOLTIME
IF _srcRec\DIM # _dstRec\DIM THEN
; chyba _ERR_RANGE_ERROR
END
ENDIF
INT _row
_row := 1
DO_LOOP
EXIT_LOOP _row > _srcRec\DIM
IF ! _srcRec[_row]^TimeCol\VLD THEN
; chyba
END
ENDIF
_dstRec[_row]^ValueCol := _dstRec[_row]^ValueCol TIME _srcRec[_row]^TimeCol
_row := _row + 1
END_LOOP
; koniec akcie
END
0 komentárov