Работаю в файл-сервере, алгоритм формирования уникальных номеров белых накладных внутри одного года двоит номера. Понял что блокировка работает как то не так. Хочу сделать COM сервер который будет раздавать номера, и вести протокол событий. Кто нибудь такое уже делал, дайте подсмотреть.

Уникальные номера меня не интересуют , мне нужен COM сервер на который я обращаюсь с клиентскихз машин и который работает с базой.

Да я хочу запустить на сервере (Win XP) Fox-совую програмку и через нее делать всяки разны вещи, в том числе и получение уникального кода.
Насчет транкзаций наверное это справедливо, но я использую их только при резервировании, списывании количеств товаров. В транкзакциях учавствуют только 3 таблицы: Наличие, список документов и спецификация документов.
Как выполнить функцию именно на сервере, запустив процесс с клиента.
Например xx.User_reg(<Код юзера>,1)
Люди, пришлите пару строчек если есмъ.

При
youcom = getobject('', 'youcomdll.yourcom')
youcomdll - имя DLL-ля
yourcom - это что ?

Понял где что, уже просто полностью пример передрал. Неопознанная ошибка ... :[

PROCEDURE SRV_ID

RETURN
DEFINE CLASS YourCOM AS CUSTOM OLEPUBLIC

verylastKey = 0

* Ãåíåðàöèÿ ñëó÷àéíîãî êëþ÷à..
Function CasualKey
LOCAL nKey

DO WHILE .T.
nKey = VAL(SYS(1)+PADL(ALLTRIM(STR(SECONDS()*1000)),8,[0]))
IF nKey <> this.verylastKey THEN
Exit
ENDIF
ENDDO
verylastKey = nKey

RETURN nKey
ENDFUNC
ENDDEFINE
********************

вызов из командного окна
xx = getobject(,'srv_id.yourcom')
получаем: OLE error 0x800401e3:Операция недоступна
или
xx = getobject('','srv_id.yourcom')
получаем: OLE error 0x800040005:Неопознанная ошибка

FVP7
Упростил код :
в проекте один файл srv_id.prg
вот его содержимое:

PROCEDURE SRV_ID
RETURN
DEFINE CLASS YourCOM AS CUSTOM OLEPUBLIC
Function CasualKey
RETURN 1
ENDFUNC
ENDDEFINE

компилирую как Multi COM с Regenerate
ну ... хоть тресни...

Народ , признаю, косяк в NewId() был, но Сервер работает быстрее чем любая из станций. И хорошо что процесс не паралельный! Это гарантия что раздача тарелок идет из одного окна, и дубля не будет. Будет очередь, но при 20 компах незначительная, тем более не все работают одновременно.
А кроме того я создам функцию регистрации пользователя на сервере, службу внутренних сообщений и прочая прочая, те файлы которые не хочется открывать со станции. Например связанные с деньгой, адресами клиентов. Вот и сбудется мечта идиота о секретном хранении данных в Foxpro :) а общаться они будут через функции COM сервера.

А по предыдущем сабжам я понял что DLL должен быть зарегистрирован. Как это сделать, и не регистрируется ли он во время сборки если проставить флажек Regenerate Components IDs ?
И еще обязательно ли сразу помещать его на физический сервер, и как с него тогда выполнять? а нельзя ли сначала локально запускать клиент и сервер из одного или двух окон Fox-пры?
Народ я осознаю убогость вопросов, но книжки уже истер до дыр, там нету...

Похоже придется бороться самому.
Regssrv32.exe /i srv_id.dll ругается: Ошибка при вызове LoadLibrary("srv_id.dll")-не найден указанный модуль.
Да как же не найден? я его в system32 закатал куда уж искать? или можеть чего другое?

911 - как это было: Я как всегда сидел на рабочем месте ...

911 - как это было: Я как всегда сидел на рабочем месте ...