RECORD (SD.Def) _srcRec
RECORD (SD.Def) _dstRec
BEGIN
REDIM _srcRec[10]
REDIM _dstRec[10]
; Činnosť akcie GETCOLTIME
IF _srcRec\DIM # _dstRec\DIM THEN
; CHYBA _ERR_RANGE_ERROR
END
ENDIF
INT _row
_row := 1
DO_LOOP
EXIT_LOOP _row > _srcRec\DIM
_dstRec[_row]^DateTimeCol := _srcRec[_row]^Col\TIM
_row := _row + 1
END_LOOP
; koniec akcie
END
Pridať komentár