********************************************************
* fixreccount.prg
*
* Author: Широков А.
*
* Usage: do fixreccount with "my.dbf"
*
********************************************************
* 0    (Default) Read Only    Buffered
#DEFINE FA_READONLY 0  && some comment
* 1    Write-Only    Buffered
#DEFINE FA_WRITEONLY 1
* 2    Read and Write    Buffered
#DEFINE FA_READWRITE 2
* 10    Read-Only    Unbuffered
#DEFINE FA_READONLY_DIRECT 10
* 11    Write-Only    Unbuffered
#define FA_WRITEONLY_DIRECT 11
* 12    Read and Write    Unbuffered
#define FA_READWRITE_DIRECT 12

*0    (Default) The beginning of the file.
#define FS_BEGIN 0
*1    The current file pointer position
#define FS_CURRENT 1
*2    The end of the file
#define FS_END 2
* снять комментарий если требуется детальная информация
* #define MY_DEBUG

lparam tcFile

private all

if type('m.tcFile') != 'C'
    =MessageBox("Не задан DBF файл для корректировки!", 16, "Ошибка вызова")
    return .f. 
endif

lnFile = fopen(m.tcFile, FA_READWRITE)
if m.lnFile = -1
    =MessageBox("Не возможно открыть файл "+m.tcFile, 16, "Ошибка")
    return .f.
endif
* проверка признака DBF файла
*
lnByte = asc(fread(m.lnFile, 1))

if not inlist(m.lnByte, ;
    0*16+2,     ; &&    FoxBASE
    0*16+3,     ; &&    FoxBASE+/dBASE III PLUS, no memo
    3*16+0,     ; &&    Visual FoxPro
    4*16+3,        ; &&    dBASE IV SQL table files, no memo
    6*16+3,     ; &&    dBASE IV SQL system files, no memo
    8*16+3,        ; &&    FoxBASE+/dBASE III PLUS, with memo
    8*16+11,     ; &&    dBASE IV with memo
    12*16+11,    ; &&    dBASE IV SQL table files, with memo
    15*16+5,     ; &&    FoxPro 2.x (or earlier) with memo
    15*16+11    ; &&    FoxBASE
    )
..........

* попробую из Оперы
close databases all
=messagebox('Привет')