OpenFI 1421 как проставить номер дебитора в кредиторе

FILisiza

Добрый день!
При создании основной карточки кредитора XK01 во время сохранения активировано событие OPEN-FI 1421 ОСНОВНЫЕ ДАННЫЕ КРЕДИТОРА: сохр. с переносом данн. В этом событии прописываем создание дебитора с аналогичными параметрами кредитора.
Вопрос: как после завершения процесса создания дебитора, вернутся в карточку кредитора и заполнить поле Дебитор, номером созданного дебитора?

Aval

Проблема в том, что из OpenFI это сделать не получится, т.к данные по данному кредитору блокированы. Но можно сделать, например, вот так:

Code:

REPORT ZTTTTT .

DATA: bdc_tab LIKE BDCDATA OCCURS 20 WITH HEADER LINE,
      messtab TYPE TABLE OF BDCMSGCOLL WITH HEADER LINE,
      kred like lfa1-lifnr,
      deb  like kna1-kunnr.

call transaction 'XK01' using bdc_tab update 'S' messages into messtab.

read table messtab WITH KEY msgnr = '175'.
kred = messtab-msgv1.
import deb from memory id 'deb'.

perform bdc_dynpro      using 'SAPMF02K' '0101'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-EKORG'.
perform bdc_field       using 'BDC_OKCODE'
                              '=MALL'.
perform bdc_field       using 'RF02K-LIFNR'
                              kred.
perform bdc_field       using 'RF02K-BUKRS'
                              '1000'.
perform bdc_field       using 'RF02K-EKORG'
                              '1000'.
perform bdc_dynpro      using 'SAPMF02K' '0101'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-LIFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RF02K-LIFNR'
                              kred.
perform bdc_field       using 'RF02K-BUKRS'
                              '1000'.
perform bdc_field       using 'RF02K-EKORG'
                              '1000'.
perform bdc_field       using 'RF02K-D0110'
                              'X'.
perform bdc_field       using 'RF02K-D0120'
                              'X'.
perform bdc_field       using 'RF02K-D0130'
                              'X'.
perform bdc_field       using 'RF02K-D0210'
                              'X'.
perform bdc_field       using 'RF02K-D0215'
                              'X'.
perform bdc_field       using 'RF02K-D0220'
                              'X'.
perform bdc_field       using 'RF02K-D0310'
                              'X'.
perform bdc_field       using 'WRF02K-D0320'
                              'X'.
perform bdc_dynpro      using 'SAPMF02K' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-ANRED'.
perform bdc_field       using 'BDC_OKCODE'
                              '=VW'.
perform bdc_field       using 'LFA1-NAME1'
                              'gsfhdfshdj'.
perform bdc_field       using 'LFA1-LAND1'
                              'RU'.
perform bdc_dynpro      using 'SAPMF02K' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-KUNNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '=UPDA'.
perform bdc_field       using 'LFA1-KUNNR'
                              deb.

call transaction 'XK02' using bdc_tab update 'S' mode 'E'
                        messages into messtab.

Номер дебитора из OpenFI экспортировать в память.
Если подходить строго, то конечно присутствует риск неконсистенции
P.S. Сорри, за корявость стиля. Лепил быстро копи-пастом из разных мест.

FILisiza

спасибки за совет и за код.
Но куда вклинить это присвоение дебитора в кредиторе, дабы все выглядело автоматически? :shock:

Aval

Вклинивать никуда не надо. Это программа-обвертка вызова двух транзакций. В тр. SE93 создайте свою транзакцию для ее вызова.

FILisiza

Дело в том, что ввод контрагентов осуществляет оператор по заявке пользователей с помощью транзакции XK01. Дебитор создается автоматически. Поэтому хотелось бы чтобы и номер проставлялся без запуска опредленой транзакции, программно и незаметно для оператора, выполняющего ввод.

Aval

Создайте транзакцию, к примеру ZXK01, на основе выше приведенного кода. Запустите ее и попробуйте создать кредитора. Вы увидите, что ничего не изменилось за исключением того что по нажатию Сохранить внизу, в строке статуса, будет появлять сообщение - Изменения сохранены(это результат пакетной отработки XK02). Конечно надо будет с кодом поработать, например, не запускать XK02 если кредитор не создан. Повторюсь - я набросал Вам общий принцип реализации.

FILisiza

спасибо за помощь. попробую как вы рекомендуете.

FILisiza

Все получилось просто замечательно! Спасибо.
Одно, но как быть, чтобы при

CALL TRANSACTION 'XK01' USING bdc_tab update 'S' MESSAGES INTO messtab.

кнопки менюшки(назад, выход, Отменить) оставались активны, ну дабы пользователь мог выйти из транзакции, если передумал выполнять ввод.

кнопки активны при такой формулировке CALL TRANSACTION 'XK01'.

номне же нужно и USING bdc_tab update 'S' MESSAGES INTO messtab.
дабы из messtab получить номер кредитора.
:roll:

Besa

FILisiza написал(а):

Все получилось просто замечательно! Спасибо.
Одно, но как быть, чтобы при

CALL TRANSACTION 'XK01' USING bdc_tab update 'S' MESSAGES INTO messtab.

кнопки менюшки(назад, выход, Отменить) оставались активны, ну дабы пользователь мог выйти из транзакции, если передумал выполнять ввод.

кнопки активны при такой формулировке CALL TRANSACTION 'XK01'.

номне же нужно и USING bdc_tab update 'S' MESSAGES INTO messtab.
дабы из messtab получить номер кредитора.
:roll:

Немного не понятно что значит кнопки активны, Вы с каком режиме отрабатываете пакетный ввод? посмотрите справку по поводу дополенения к Call transaction MODE.

FILisiza

да смотрела,
перепробовала все варианты, все равно они серые, неактивные.

Aval

Цитата:

Одно, но как быть, чтобы при

CALL TRANSACTION 'XK01' USING bdc_tab update 'S' MESSAGES INTO messtab.

кнопки менюшки(назад, выход, Отменить) оставались активны, ну дабы пользователь мог выйти из транзакции, если передумал выполнять ввод.

Добавьте в код следующее:

Code:

DATA: opt like CTU_PARAMS.

opt-NOBINPT = 'X'.
opt-UPDMODE = 'S'.
opt-NOBIEND = 'X'.
opt-DISMODE = 'A'.
opt-CATTMODE = ''.
opt-DEFSIZE = ''.
opt-RACOMMIT = ''.

call transaction 'XK01' using bdc_tab messages into messtab
                        options from opt.

В результате транзакция будет выполняться вроде как и не в пакетном режиме(заметьте, экраны в обычном режиме и пакетном отличаются) и кнопки будут доступны.
А пользователей, на всякий случай обучите команде - /n.
Кстати, у меня и при пакетном режиме кнопка Назад доступна.

FILisiza

Супер! именно то что надо!

спасибо

Правила форума

OpenFI 1421 как проставить номер дебитора в кредиторе

Кто сейчас на конференции