|
|
|
|
#1 |
|
Участник
|
Таблица "серия номеров" блокирована
Лечил так CU 396 NoSeriesManagement GetNextNo(NoSeriesCode : Code[10];SeriesDate : Date;ModifySeries : Boolean) : Code[20] Код: IF ModifySeries THEN IF NOT NoSeries.NoLock THEN //Storkich 17.02.07 пользователи блокируют друг друга NoSeriesLine.LOCKTABLE; Код: //+Storkich
//нужно просто обеспечить уникальность номера, не блокируя таблицу
//к номеру, в конце прибавляю id сессии пользователя
IF NoSeries.NoLock THEN BEGIN
IF SessionID='' THEN BEGIN
Session.SETRANGE(Session."Моя сессия",TRUE);
Session.FIND('-');
IF STRLEN(FORMAT(Session."Соединение ID"))>2 THEN
ERROR('Закройте Navision и заново запустите');
SessionID:=CONVERTSTR(FORMAT(Session."Соединение ID",2,2),' ','0');
END;
END;
//-Storkich
EXIT(NoSeriesLine."Last No. Used"+SessionID); |
|
|