|
Чувствую, что неправильна сама постановка задачи, но решить ее как-то надо. Подскажите, плиз.
Короче, есть компьютер, на котором хранится куча фокс-таблиц и комбинированных (очень сложных, многоступенчатых) поисковых процедур к ним. Все эти процедуры получали запросные параметры (код,Ф.И.О.,адресные реквизиты, и т.п.) из единой запросной пользовательской формы, выполняли поиск и выдавали результаты. И все это прекраснейшим образом работало в одно-машинном режиме.
Но вот встала проблема перевести все это добро в режим «1 сервер – 8 клиентов (тонких)». Чтобы не переписывать поисковые и прочие хорошо зарекомендовавшие себя процедуры (неоправданно долго!), я подумал, что проще будет организовать все через один SHARED-dbf-ник (расположенный на сервере), в соответствующие поля которого компьютеры-клиенты по сети будут записывать значения запросных параметров, а простенькая программа на сервере будет просматривать этот dbf-ник и запускать соответствующие (прежние) поисковые процедуры.
В режиме отладки (если делать одноразовый просмотр этого dbf-ника) все вроде нормально работает. Но фишка-то в том, чтобы запустить циклическое сканирование этого dbf-ника – и вот тут-то и начинаются неприятности. Вернее, неприятность одна – пока dbf-ник сканируется, в него ничего записать НЕВОЗМОЖНО, оказывается. Я уже и от SCAN-ENDSCAN отказался, попробовал сделать все через SKIP в цикле DO WHILE … ENDWHILE – все равно доступ для записи запрещен… Можно, конечно, сделать просмотр с паузами, но это уже – «сарай с пристройкой» получится.
Не хотелось бы излишне усложнять решение проблемы применением разных ВебСервисов, Soap’ов, IIS’ов и прочих притянутых за уши к Фоксу вещей – мне кажется, что это можно решить классическими VFP7-средствами, пользуясь исключительной самодостаточностью Фокса. Но пока ничего дельного в голову не приходит. Честно говоря, я не знаю самих принципов передачи информации от клиента к серверу, чтобы сервер мог эту информацию тут же отследить.
Подскажите, пожалуйста, где об этом можно прочитать, и как лучше поступить в данном конкретном случае.
Для иллюстрации приведу сильно упрощенные фрагменты «непокорных» программ:
Структура и примерный набор данных SHARED-dbf-ника xxs.dbf:
CREATE TABLE xxs (idk c(50),baza c(3),done l(1),zapros m(4),kod c(10),fam c(30),nam c(30),otc c(30))
INSERT INTO xxs (idk,baza,done,kod,fam,nam,otc) VALUES ;
('\\COMPUTER_1\C\KATALOG\PODKATALOG','YUR',.F.,'1234567890','ИВАНОВ','ИВАН','ИВАНОВИЧ')
INSERT INTO xxs (idk,baza,done,kod,fam,nam,otc) VALUES ;
('\\COMPUTER_2\C\KATALOG\PODKATALOG','FIZ',.F.,'2345678901','ПЕТРОВ','ПЕТР','ПЕТРОВИЧ')
INSERT INTO xxs (idk,baza,done,kod,fam,nam,otc) VALUES ;
('\\COMPUTER_3\C\KATALOG\PODKATALOG','GAI',.F.,'3456789012','СИДОРОВ','СИДОР','СИДОРОВИЧ')
INSERT INTO xxs (idk,baza,done,kod,fam,nam,otc) VALUES ;
('\\COMPUTER_4\C\KATALOG\PODKATALOG','YUR',.F.,'4567890123','КУЗНЕЦОВ','КУЗЬМА','КУЗЬМИЧ')
«Эскиз» «сканирующей» программы на сервере:
use xx_s SHARED
DO WHILE .T.
select xx_s
IF xxs.done=.F.
&& Выполнение обработки полученных параметров - kod,fam,nam,otc...
&& или для примера хотя бы:
? ALLTRIM(xxs.id_k)+'###'+ALLTRIM(xxs.baza)+'###'+ALLTRIM(xxs.kod)
ENDIF
IF RECNO()=RECCOUNT() && Пробовал и SCAN...ENDSCAN - тем более не дает изменить табл.xxs
GO TOP
ELSE
SKIP 1
ENDIF
ENDDO
Клиентская «посылка»:
use xxs shared
m.name_k='COMPUTER_1'
m.asd_baza='YUR'
m.asd_kod='1234567890'
m.asd_fam='ИВАНОВ'
m.asd_nam='ИВАН'
m.asd_otc='ИВАНОВИЧ'
replace xxs.baza WITH m.asd_baza,;
xxs.done WITH .F.,;
xxs.kod WITH m.asd_kod,;
xxs.fam WITH m.asd_fam,;
xxs.nam WITH m.asd_nam,;
xxs.otc WITH m.asd_otc;
ALL FOR upper(substr(strtran(alltrim(xxs.id_k),'\\',''),1,at('\',strtran(alltrim(xxs.id_k),'\\',''),1)-1))==upper(m.name_k)
*!* или через UPDATE (тем более не работает, ибо там всякие неочевидные FLOCK'и политику диктуют):
*!* UPDATE xxs;
*!* SET xxs.baza=m.asd_baza,;
*!* xxs.done=.F.,;
*!* xxs.kod=m.asd_kod,;
*!* xxs.fam=m.asd_fam,;
*!* xxs.nam=m.asd_nam,;
*!* xxs.otc=m.asd_otc;
*!* WHERE upper(substr(strtran(alltrim(xxs.id_k),'\\',''),1,at('\',strtran(alltrim(xxs.id_k),'\\',''),1)-1))==upper(m.name_k)
|
