Большая просьба помочь советом, что смотреть. Есть маленькая программка для одного пользователя по регистрации исходящей почты. Есть dbf-таблица с одним полем num, откуда берется порядковый номер исходящего отправления (счетчик наращивается на 1 каждый раз при записи очередного отправления), и сама база (тоже отдельная dbf-таблица) исходящих отправлений. Возникла необходимость работы вдвоем. Пробуем вводить с двух компьютеров - данные, введенные одним пользователем, затирают введенные другим. Запись в таблицу идет через INSERT. На время записи блокируем при помощи FLOCK сначала таблицу со счетчиком, затем саму таблицу регистрации. FLUSH FORCE сразу после записи не помогло. Опыта создания многопользовательских приложений нет, только маленькие программы обработки в VFP 6.0.

Dima T,
кнопка записи сейчас так (num - счетчик, jurnal - таблица регистрации почты), prizn=1 - режим ввода, иначе - режим редактирования

SET REPROCESS TO 5
IF m.prizn=1

SELECT num
IF FLOCK()
LOCATE FOR god=STR(god_jur,4)
IF !EOF()
m.num=num.num
REPLACE num WITH num+1
FLUSH FORCE
ELSE
m.num=1
INSERT INTO num (god,num) VALUES (STR(m.god_jur,4),m.num)
ENDIF
ENDIF
FLUSH force
UNLOCK


SElECT adresat
IF FLOCK()
IF !SEEK(m.adresat)
m.kod_t=0
ENDIF
ENDIF
UNLOCK
SELECT jurnal
IF FLOCK()
INSERT INTO jurnal(god,datareg,num,dsp,kod_nt,adresant,tema,kod_t,adresat,kod_vid,vid,kod_konv,vid_konv,rospis,operator,data_vv,time_vv) ;
VALUES (STR(YEAR(datareg),4),m.datareg,m.num,m.dsp,m.kod_nt,m.adresant,m.tema,m.kod_t,m.adresat,m.kod_vid,m.vid,m.kod_konv,m.vid_konv,m.rospis,m.fio_vib,DATE(),TIME())
ENDIF
FLUSH force
UNLOCK

ELSE

SElECT adresat
IF FLOCK()
IF !SEEK(m.adresat)
m.kod_t=0
ENDIF
ENDIF
UNLOCK

SELECT jurnal
IF FLOCK()
REPL kod_nt WITH m.kod_nt,adresant WITH m.adresant, tema WITH m.tema, kod_t WITH m.kod_t, adresat WITH m.adresat, kod_vid WITH m.kod_vid,;
vid WITh m.vid, kod_konv WITH m.kod_konv, vid_konv WITH m.vid_konv, rospis WITH m.rospis, dsp WITH m.dsp, operator WITH m.fio_vib,data_vv WITH DATE(),;
time_vv WITH TIME()
ENDIF
FLUSH force
UNLOCK


ENDIF
SELECT jurnal



RELEASE ThisForm


Пусть бы счетчик сбивался, записи были с одинаковым номером, мне не непонятно, почему один пользователь вводит - видит свои записи на Gridе, второй видит свои (кнопка записи расположена на форме с Grid). Но по выходу в базе записи только одного пользователя, будто второй ничего не записывал.

ВладимирМ, оба пользователя работают на ввод (m.prizn=1) - проверяю пока только эту ветку, т.е. команда INSERT. Есть форма c Grid с уже введенными записями, на ней кнопка, открывающая форму ввода новой записи, на ней кнопка сохранения. В кнопке сохранения указанный код - записи должен присвотся очередной номер при сохранении. Запускаю программу из сетевой папки на двух компьютерах до формы Grid и начинаю ввод. Ввожу и сохраняю запись на компьютере №1, отображается в Grid. На компьютере №2 программа уже запущена, открыта форма с Grid. но введенная на компьютере №1 запись в Grid на компьютере №2 не отображается. Ввожу на компьютере №2 запись - она сохраняется с тем же номером , что и предыдущая , введенная на компьютере №1, т.е. на двух компьютерах в Grid под одним и тем же номером разные записи. При выходе из программы в dbf под присвоенным номером сохраняется последняя введенная запись , т.е. с компьютера №2. Открываю таблицу нумерации и в процессе ввода смотрю изменение в ней номера - при вводе первой записи на компьютере №1 номер увеличивается на 1, при вводе с компьютера №2 следующей записи номер не изменяется. Времени и сил разбираться с буфферизацией нет, хотелось обойтись минимальными изменениями - SET EXCLUSIVE OFF , но не получается. Была написана изначально маленькая программка для одного человека , четыре года работала, теперь начальство хочет, чтобы работали одновременно два человека.

ВладимирМ,
ситуация выглядит так, будто после входа в программу у каждого пользователя своя копия базы , поэтому и нумерация у обоих идет параллельно. И в dbf после выхода из программы в результате сбрасывается копия того пользователя, который последний ввел и сохранил данные. Что-то не так прописано на этапе открытия таблиц (таблицы открываются в главной форме в Data Environment), что нужно, чтобы записи напрямую попадали в таблицу? Запускаю программу на одном и на втором компьютере, ввожу на первом три записи под номером 51,52,53. Отображаются в Grid на текущем компьютере, на втором в Grid этих записей нет. На втором компьютере ввожу запись - попадает в Grid под номером 51. Выхожу из программы на обоих компьютерах, в базе последняя запись под номером 51, введенная на втором компьютере. Т.е. физически записи сразу в dbf не пишутся.

Dima T, перед обращением сюда прочитано все, что нашлось в поиске по похожей проблеме. Буфферизацию отключена. Да, при входе с любого компьютера вижу один и тот же результат - записывается физически данные с компьютера, где сохранялись последние данные.

x1ca4064,
если на одном компьютере запустить дважды программу на сервере и вврдить поочередно данные - все в порядке, все записи на месте. Единственное, если вводишь данные в сессии №1, в Grid сессии №2 данные , только что введенные в сессии №1, не отображаются. Но после сохранения записи в сессии №2, в Grid сессии №2 появляются и перед этим сохраненные записи сессии №1, и введенная только что запись.

x1ca4064, запускаю по сети (в сетевой папке) с одного компьютера дважды программу - все нормально, с разных компьютеров в этой же сетевой папке - данные одного затирают данные другого.

Dima T,
Refresh есть в Activate формы, и для своего Grid отрабатывает, а вот данные, введенные на одном компьютере , на другом не отображаются. Выглядит все так, что у каждого пользователя своя виртуальная копия таблицы, в которую пишутся свои данные и по закрытию программы на обоих компьютерах физически в таблице на сервере сохраняются копия с того компьютера, в которй были последние по времени изменения. По поводу сети и сервера сейчас ответить не могу.