А с етим как работать? не умею работать с функциями, поэто с двух слов понять как это делать не могу

тр. SNRO
Попытаюсь немного защитить автора. Да с диапазонами работать и удобно и вроде бы правильно (кстати если может вы не умеете, то почитайте тут http://sap-easy.net.ru/diap.htm). Но иногда надо чтобы в работе был только один документ (правда я думаю это не та задача), как правило это связано с блажью юзеров по отсутствию окон в нумерации. Т.е. пока не проведется документ, второй проводить нельзя - а то вдруг первый не отработает. Но повторяю, я считаю это блажью...
понятно никто не запрещает использовать обе технологии одновременно

и все таки, если продолжить тему, что не правильно в моем коде?
* Global Data
INCLUDE ZAATX012_TOP.
DATA INDEX LIKE INDX-PGMID.
CALL FUNCTION 'DEQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 0
EXCEPTIONS
FOREIGN_LOCK = 1
SYSTEM_FAILURE = 2.

IF SY-SUBRC NE 0.


МESSAGE s001 WITH 'Акт приемки-передачи формируется другим пользоватем'.
ENDIF.
* PBO Module
INCLUDE ZAATX012_PBO.
* PAI Module
INCLUDE ZAATX012_PAI.
INCLUDE ZAATX012_FORM.

*&---------------------------------------------------------------------*
*& Form VIG_EXCEL
*&---------------------------------------------------------------------*

CALL FUNCTION 'dEQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 0.

Сначала должен быть вызов ENQUEUE_... - установка блокировки, а потом DEQUEUE_... - снятие блокировки.

поподробней для чайников

Надо использовать ф-цию ENQUEUE_ESINDX - она создает объект блокировки. Вы же 2 раза пытаетесь его освободить, но, т.к. у Вас его нет, то и освобождать его не получается.
Далее. INDEX - это имя Вашего объекта блокировки, параметр SRTF2 - счетчик. Еще есть область видимости/время жизни блокировки, но еще не успел сегодня про них прочитать. Пусть гуру по памяти рассказывают Кроме того, они выставляются по умолчанию, поэтому пока можно их не трогать.



З.Ы. 2АВС. Тормоза... Из-за них одновременно (почти) написали об одном и том же

По идее, если один пользователь использует программу, то когда второй пытается в нее войти, должно выползать сообщение и прекращать работу программы. но этого не происходит:(

Можно обойтись без leave program., если установку блокировки и МESSAGE Е001 (именно типа "Е", а не предупреждающего) сделать в AT SELECTION-SCREEN.

Согласен на все 100%. Это кому как больше нравится. Мне просто кажется что в случае блокирования и не надо даже человеку давать селекционный экран. Просто надо блокирование поместить в INITIALIZATION.

Мне просто не понравилось, что экран мелькает еще с пустыми неподписанными контролами (если проверку сделать в INITIALIZATION) - я и перенес ее в секцию AT SELECTION-SCREEN.

У меня ничего не мелькает? А может у тебя как и у всех пернатых зрение более быстрое?

Народ, а в 4.0 это работает?

Не помню с какой системы я начал это использовать, но вроде с 4.0

А ты прямо перенесла мой код в программу? и не работает?

да:(
INCLUDE ZAATX012_TOP.
* Global Data
INITIALIZATION.
DATA INDEX LIKE SY-REPID.
INDEX = SY-REPID.
CALL FUNCTION 'ENQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 0
EXCEPTIONS
FOREIGN_LOCK = 1
SYSTEM_FAILURE = 2.

IF SY-SUBRC NE 0.
MESSAGE S001 WITH 'Акт приемки-передачи формируется другим пользоватем'.
LEAVE PROGRAM.
ENDIF.

* PBO Module
INCLUDE ZAATX012_PBO.
* PAI Module
INCLUDE ZAATX012_PAI.
INCLUDE ZAATX012_FORM.

*&---------------------------------------------------------------------*
*& Form VIG_EXCEL
*&---------------------------------------------------------------------*
FORM VIG_EXCEL.
***********************

ENDFORM. " VIG_EXCEL
CALL FUNCTION 'DEQUEUE_ESINDX'
EXPORTING
RELID = 'ZZ'
SRTFD = INDEX
SRTF2 = 1.