Проблемы с пакетником IR01

mangetik · Червень 16, 2010, 08:23:42 ДП

Добрый день, возникла следующая проблема. Создаю сеанс пакетного ввода для транзакции IR01. При переходе на экран создания мощностей(SAPLCRA0 0101) не берутся данные из BDCDATA, соответсвенно пакетник стопорится. Когда пробую в SM35 выполнить запись на основании которой создан пакетник, то отрабатывает все нормально. Поставила точку останова в sm35 при call transaction, и в своей программе, сравнила что лежит в BDCDATA все параметры идентичны. Не пойму в чем проблема.

Uukrul · Червень 16, 2010, 09:32:26 ДП

Что данные не берутся вы как определили? Прошли пакетник с ключом "A" пошагово?

mangetik · Червень 16, 2010, 09:59:39 ДП

Естественно пошагово. Поля на этом экране просто не заполняются, при чем из программы не заполняются, а пакетник выполняется из SM35 ну ура. Прога идентична пакетнику 1 в 1.

mangetik · Червень 16, 2010, 10:06:37 ДП

Как я уже писала уже и точки останова ставила и в SM35и при колл транзакшен. BDCDATA заполнены абсолютно идентично. но в SM35 отрабатывает, а из проги - нет.

Uukrul · Червень 16, 2010, 10:18:45 ДП

Цитата: mangetik від Червень 16, 2010, 09:59:39 ДП
Естественно пошагово. Поля на этом экране просто не заполняются, при чем из программы не заполняются, а пакетник выполняется из SM35 ну ура. Прога идентична пакетнику 1 в 1.

Ага так увидел... странно, ладно гляну сейчас на этот экран...

Uukrul · Червень 16, 2010, 10:33:08 ДП

Там вообще-то транзакция CRAH вызывается причем для IR01 написано что ее реализация устарела, плюс к этому IR01 вызывает CRAH с флажком пропустить первый экран. В общем попробуйте сами вызвать создание через CRAH.

mangetik · Червень 16, 2010, 10:34:45 ДП

Спасибо, попробую.

Uukrul · Червень 16, 2010, 10:46:00 ДП

Цитата: mangetik від Червень 16, 2010, 10:34:45 ДП
Спасибо, попробую.

Ну про результат надеюсь расскажите ::)

mangetik · Червень 16, 2010, 10:53:28 ДП

Попробовала - та же проблема с тем-же экраном

Uukrul · Червень 16, 2010, 11:46:35 ДП

Цитата: mangetik від Червень 16, 2010, 10:53:28 ДП
Попробовала - та же проблема с тем-же экраном

Ну давайте начало своего пакетника с проходом этого экрана... если можно. Будем смотреть.

mangetik · Червень 16, 2010, 12:02:25 ПП

конечно можно :))

PERFORM fill_bdc USING:
'X' 'SAPLCRA0' '0099',
'' 'BDC_CURSOR' 'RC68A-VERWE',
'' 'BDC_OKCODE' '/00',
'' 'RC68A-VERWE'   '0005',

'X' 'SAPLCRA0' '0101',
'' 'BDC_CURSOR' 'RC68A-ARBPL',
'' 'BDC_OKCODE' '=NEXT',
'' 'RC68A-WERKS'   'PU02',
'' 'RC68A-ARBPL'   'PM-00003',
'' 'RC68A-VERWE'   '0005',

'X' 'SAPLCRA0' '4000',
'' 'BDC_OKCODE' '=VORA',
'' 'BDC_SUBSCR' 'SAPLCRA0 0001HEADER',
'' 'BDC_CURSOR' 'P1000-STEXT',
'' 'P1000-STEXT'   '123',
'' 'BDC_SUBSCR' 'SAPLCRA0 3000SUBSCREEN_BODY',
'' 'P3000-VERAN'   'usr',
'' 'P3000-PLANV'   '004',
'' 'P3000-VGWTS'   'SAP0',
'' 'BDC_SUBSCR' 'SAPLCRA0 3999SHIFTREPORT_SHIFTNOTE',

'X' 'SAPLCRA0'   '4000',
'' 'BDC_OKCODE' '=VK11',
'' 'BDC_SUBSCR' 'SAPLCRA0 0001HEADER',
'' 'BDC_SUBSCR' 'SAPLCRA0 3003SUBSCREEN_BODY',
'' 'BDC_CURSOR' 'P3003-STEUS_REF',
'' 'P3003-STEUS'   'PM01',
'' 'P3003-STEUS_REF'   'X',

'X' 'SAPLCRA0'   '4000',
'' 'BDC_OKCODE' '=KAUE',
'' 'BDC_SUBSCR' 'SAPLCRA0 0001HEADER',
'' 'BDC_SUBSCR' 'SAPLCRA0 1004SUBSCREEN_BODY',
'' 'BDC_CURSOR' 'PAD011-FORN1',
'' 'P1001-BEGDA'   '15.06.2010',
'' 'P1001-ENDDA'   '31.12.9999',
'' 'CRKEYK-KOSTL' 'PU01001239',
'' 'PAD011-LARN1' 'PMPS01',
'' 'PAD011-LARN1_REF' 'X',
'' 'PAD011-FORN1' 'SAP008',

'X' 'SAPLCRA0'   '4000',
'' 'BDC_OKCODE' '=NPOS',
'' 'BDC_SUBSCR' 'SAPLCRA0 0001HEADER',
'' 'BDC_SUBSCR' 'SAPLCRA0 0306SUBSCREEN_BODY',
'' 'BDC_CURSOR' 'P3006-FORKN(01)',
'' 'RC68A-KAPART(01)' '002',
'' 'P3006-FORKN(01)'   'SAP008',

'X' 'SAPLCRA0'   '0101',
'' 'BDC_OKCODE' '=KAZA',
'' 'BDC_SUBSCR' 'SAPLCRK0 0002HEADER',
'' 'KAKT-KTEXT' '123',
'' 'BDC_SUBSCR' 'SAPLCRK0 0131GENERAL',
'' 'KAKO-PLANR' '001',
'' 'BDC_SUBSCR' 'SAPLCRK0 0133STANDARD_CAP',
'' 'BDC_CURSOR' 'RC68K-PAUSE',
'' 'RC68K-BEGZT'   '02:00:00',
'' 'RC68K-ENDZT'   '02:00:00',
'' 'KAKO-NGRAD' '100',
'' 'RC68K-PAUSE'   '02:00:00',
'' 'KAKO-AZNOR' '22',
'' 'BDC_SUBSCR' 'SAPLCRK0 0132AVAIL_CAP',
'' 'KAKO-VERSA' '1',
'' 'KAKO-MEINS' '×ÀÑ',
'' 'BDC_SUBSCR' 'SAPLCRK0 0135PLAN_DETAILS',
'' 'RC68K-KAPLPL' 'X',
'' 'BDC_SUBSCR' 'SAPLCRK0 0130RESSOURCE',

'X' 'SAPLCRA0'   '0116',
'' 'BDC_CURSOR' 'KAZA-DATUV(01)',
'' 'BDC_OKCODE' '=INSI',
'' 'RC68K-VERSN'   '1',
'' 'KAZA_DEFAULT-BEGZT' '02:00:00',
'' 'KAZA_DEFAULT-ENDZT' '02:00:00',
'' 'KAZA_DEFAULT-PAUSE' '00:00:00',
'' 'KAZA_DEFAULT-NGRAD' '100',
'' 'KAZA_DEFAULT-ANZHL' '22',
'' 'BDC_SUBSCR' 'SAPLCRK0 0002HEADER',
'' 'KAKT-KTEXT' '123',

'X' 'SAPLCRA0'   '0116',
'' 'BDC_CURSOR' 'KAZA-DATUB(01)',
'' 'BDC_OKCODE' '/00',
'' 'RC68K-VERSN'   '1',
'' 'KAZA_DEFAULT-BEGZT' '02:00:00',
'' 'KAZA_DEFAULT-ENDZT' '02:00:00',
'' 'KAZA_DEFAULT-PAUSE' '00:00:00',
'' 'KAZA_DEFAULT-NGRAD' '100',
'' 'KAZA_DEFAULT-ANZHL' '22',
'' 'KAZA-DATUV(01)' '01.01.2010',
'' 'KAZA-DATUB(01)' '01.01.9999',
'' 'KAZA-ANZTG(01)' '1',
'' 'BDC_SUBSCR' 'SAPLCRK0 0002HEADER',
'' 'KAKT-KTEXT' '123',

'X' 'SAPLCRA0'   '0116',
'' 'BDC_CURSOR' 'KAZA-TPROG(02)',
'' 'BDC_OKCODE' '=INSS',
'' 'RC68K-VERSN'   '1',
'' 'KAZA_DEFAULT-BEGZT' '02:00:00',
'' 'KAZA_DEFAULT-ENDZT' '02:00:00',
'' 'KAZA_DEFAULT-PAUSE' '00:00:00',
'' 'KAZA_DEFAULT-NGRAD' '100',
'' 'KAZA_DEFAULT-ANZHL' '22',
'' 'KAZA-BEGZT(02)' '16:00:00',
'' 'KAZA-ENDZT(02)' '17:00:00',
'' 'BDC_SUBSCR' 'SAPLCRK0 0002HEADER',
'' 'KAKT-KTEXT' '123 ',

'X' 'SAPLCRA0'   '0116',
'' 'BDC_CURSOR' 'KAZA-TPROG(02)',
'' 'BDC_OKCODE' '=INSS',
'' 'RC68K-VERSN'   '1',
'' 'KAZA_DEFAULT-BEGZT' '02:00:00',
'' 'KAZA_DEFAULT-ENDZT' '02:00:00',
'' 'KAZA_DEFAULT-PAUSE' '00:00:00',
'' 'KAZA_DEFAULT-NGRAD' '100',
'' 'KAZA_DEFAULT-ANZHL' '22',
'' 'KAZA-BEGZT(02)' '12:00:00',
'' 'KAZA-ENDZT(02)' '13:00:00',
'' 'KAZA-PAUSE(02)' '01:00:00',
'' 'BDC_SUBSCR' 'SAPLCRK0 0002HEADER',
'' 'KAKT-KTEXT' '123',

'X' 'SAPLCRA0'   '0116',
'' 'BDC_CURSOR' 'KAZA-PAUSE(02)',
'' 'BDC_OKCODE' '=UPD',
'' 'RC68K-VERSN'   '1',
'' 'KAZA_DEFAULT-BEGZT' '02:00:00',
'' 'KAZA_DEFAULT-ENDZT' '02:00:00',
'' 'KAZA_DEFAULT-PAUSE' '00:00:00',
'' 'KAZA_DEFAULT-NGRAD' '100',
'' 'KAZA_DEFAULT-ANZHL' '22',
'' 'KAZA-BEGZT(02)' '10:00:00',
'' 'KAZA-ENDZT(02)' '11:00:00',
'' 'KAZA-PAUSE(02)' '01:00:00',
'' 'BDC_SUBSCR' 'SAPLCRK0 0002HEADER',
'' 'KAKT-KTEXT' '123'
.

ls_options-dismode = 'A'.
ls_options-UPDMODE = 'A'.
ls_options-nobinpt = 'X'.
ls_options-defsize = 'X'.

CALL TRANSACTION 'CRAH'
USING bdcdata
OPTIONS FROM ls_options
MESSAGES INTO gt_mes.

А у Вас подобный пакетник отрабатывает? По идее того что происходит у меня не должно быть. Я бы подумала что пропустила что-то или не заметила, но уже пару чел. смотрели на это действо.

Uukrul · Червень 16, 2010, 12:32:55 ПП

Код Виділити


*&---------------------------------------------------------------------*
*& Report  YUUK_TEST_IR01
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yuuk_test_ir01.

DATA: BEGIN OF bdcdata OCCURS 0.
        INCLUDE STRUCTURE bdcdata.
DATA: END OF bdcdata.
DATA BEGIN OF gt_mes OCCURS 10.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA END OF gt_mes.



PERFORM fill_bdc USING:
           'X' 'SAPLCRA0' '0099',
           '' 'BDC_CURSOR'  'RC68A-VERWE',
           '' 'BDC_OKCODE'  '/00',
           '' 'RC68A-VERWE'   '0005',

           'X' 'SAPLCRA0' '0101',
           '' 'BDC_CURSOR' 'RC68A-ARBPL',
           '' 'BDC_OKCODE' '=NEXT',
           '' 'RC68A-WERKS'   '1000',                  "PU02 (Ну у меня такого завода нет :-) но название как-то знакомо )
           '' 'RC68A-ARBPL'   'PM-00003',
           '' 'RC68A-VERWE'   '0005',
           '' 'RC68A-REF_WERKS' space,                 "Так как может быть проблема
           '' 'RC68A-REF_ARBPL' space,

           'X' 'SAPLCRA0' '4000',
           '' 'BDC_OKCODE'  '=VORA',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                0001HEADER',
           '' 'BDC_CURSOR'  'P1000-STEXT',
           '' 'P1000-STEXT'   '123',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                3000SUBSCREEN_BODY',
           '' 'P3000-VERAN'   'usr',
           '' 'P3000-PLANV'   '004',
           '' 'P3000-VGWTS'   'SAP0',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                3999SHIFTREPORT_SHIFTNOTE',

           'X' 'SAPLCRA0'   '4000',
           '' 'BDC_OKCODE'  '=VK11',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                0001HEADER',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                3003SUBSCREEN_BODY',
           '' 'BDC_CURSOR'  'P3003-STEUS_REF',
           '' 'P3003-STEUS'   'PM01',
           '' 'P3003-STEUS_REF'   'X',

           'X' 'SAPLCRA0'   '4000',
           '' 'BDC_OKCODE'  '=KAUE',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                0001HEADER',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                1004SUBSCREEN_BODY',
           '' 'BDC_CURSOR'  'PAD011-FORN1',
           '' 'P1001-BEGDA'   '15.06.2010',
           '' 'P1001-ENDDA'   '31.12.9999',
           '' 'CRKEYK-KOSTL'  'PU01001239',
           '' 'PAD011-LARN1'  'PMPS01',
           '' 'PAD011-LARN1_REF'  'X',
           '' 'PAD011-FORN1'  'SAP008',

           'X' 'SAPLCRA0'   '4000',
           '' 'BDC_OKCODE'  '=NPOS',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                0001HEADER',
           '' 'BDC_SUBSCR'  'SAPLCRA0                                0306SUBSCREEN_BODY',
           '' 'BDC_CURSOR'  'P3006-FORKN(01)',
           '' 'RC68A-KAPART(01)'  '002',
           '' 'P3006-FORKN(01)'   'SAP008',

           'X' 'SAPLCRA0'   '0101',
           '' 'BDC_OKCODE'  '=KAZA',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0002HEADER',
           '' 'KAKT-KTEXT'  '123',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0131GENERAL',
           '' 'KAKO-PLANR'  '001',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0133STANDARD_CAP',
           '' 'BDC_CURSOR'  'RC68K-PAUSE',
           '' 'RC68K-BEGZT'   '02:00:00',
           '' 'RC68K-ENDZT'   '02:00:00',
           '' 'KAKO-NGRAD'  '100',
           '' 'RC68K-PAUSE'   '02:00:00',
           '' 'KAKO-AZNOR'  '22',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0132AVAIL_CAP',
           '' 'KAKO-VERSA'  '1',
           '' 'KAKO-MEINS'  '×ÀÑ',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0135PLAN_DETAILS',
           '' 'RC68K-KAPLPL'  'X',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0130RESSOURCE',

           'X' 'SAPLCRA0'   '0116',
           '' 'BDC_CURSOR'  'KAZA-DATUV(01)',
           '' 'BDC_OKCODE'  '=INSI',
           '' 'RC68K-VERSN'   '1',
           '' 'KAZA_DEFAULT-BEGZT'  '02:00:00',
           '' 'KAZA_DEFAULT-ENDZT'  '02:00:00',
           '' 'KAZA_DEFAULT-PAUSE'  '00:00:00',
           '' 'KAZA_DEFAULT-NGRAD'  '100',
           '' 'KAZA_DEFAULT-ANZHL'  '22',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0002HEADER',
           '' 'KAKT-KTEXT'  '123',

           'X' 'SAPLCRA0'   '0116',
           '' 'BDC_CURSOR'  'KAZA-DATUB(01)',
           '' 'BDC_OKCODE'  '/00',
           '' 'RC68K-VERSN'   '1',
           '' 'KAZA_DEFAULT-BEGZT'  '02:00:00',
           '' 'KAZA_DEFAULT-ENDZT'  '02:00:00',
           '' 'KAZA_DEFAULT-PAUSE'  '00:00:00',
           '' 'KAZA_DEFAULT-NGRAD'  '100',
           '' 'KAZA_DEFAULT-ANZHL'  '22',
           '' 'KAZA-DATUV(01)'  '01.01.2010',
           '' 'KAZA-DATUB(01)'  '01.01.9999',
           '' 'KAZA-ANZTG(01)'  '1',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0002HEADER',
           '' 'KAKT-KTEXT'  '123',

           'X' 'SAPLCRA0'   '0116',
           '' 'BDC_CURSOR'  'KAZA-TPROG(02)',
           '' 'BDC_OKCODE'  '=INSS',
           '' 'RC68K-VERSN'   '1',
           '' 'KAZA_DEFAULT-BEGZT'  '02:00:00',
           '' 'KAZA_DEFAULT-ENDZT'  '02:00:00',
           '' 'KAZA_DEFAULT-PAUSE'  '00:00:00',
           '' 'KAZA_DEFAULT-NGRAD'  '100',
           '' 'KAZA_DEFAULT-ANZHL'  '22',
           '' 'KAZA-BEGZT(02)'  '16:00:00',
           '' 'KAZA-ENDZT(02)'  '17:00:00',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0002HEADER',
           '' 'KAKT-KTEXT'  '123 ',

           'X' 'SAPLCRA0'   '0116',
           '' 'BDC_CURSOR'  'KAZA-TPROG(02)',
           '' 'BDC_OKCODE'  '=INSS',
           '' 'RC68K-VERSN'   '1',
           '' 'KAZA_DEFAULT-BEGZT'  '02:00:00',
           '' 'KAZA_DEFAULT-ENDZT'  '02:00:00',
           '' 'KAZA_DEFAULT-PAUSE'  '00:00:00',
           '' 'KAZA_DEFAULT-NGRAD'  '100',
           '' 'KAZA_DEFAULT-ANZHL'  '22',
           '' 'KAZA-BEGZT(02)'  '12:00:00',
           '' 'KAZA-ENDZT(02)'  '13:00:00',
           '' 'KAZA-PAUSE(02)'  '01:00:00',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0002HEADER',
           '' 'KAKT-KTEXT'  '123',

           'X' 'SAPLCRA0'   '0116',
           '' 'BDC_CURSOR'  'KAZA-PAUSE(02)',
           '' 'BDC_OKCODE'  '=UPD',
           '' 'RC68K-VERSN'   '1',
           '' 'KAZA_DEFAULT-BEGZT'  '02:00:00',
           '' 'KAZA_DEFAULT-ENDZT'  '02:00:00',
           '' 'KAZA_DEFAULT-PAUSE'  '00:00:00',
           '' 'KAZA_DEFAULT-NGRAD'  '100',
           '' 'KAZA_DEFAULT-ANZHL'  '22',
           '' 'KAZA-BEGZT(02)'  '10:00:00',
           '' 'KAZA-ENDZT(02)'  '11:00:00',
           '' 'KAZA-PAUSE(02)'  '01:00:00',
           '' 'BDC_SUBSCR'  'SAPLCRK0                                0002HEADER',
           '' 'KAKT-KTEXT'  '123'
           .

*ls_options-dismode = 'A'.
*ls_options-updmode = 'A'.
*ls_options-nobinpt = 'X'.
*ls_options-defsize = 'X'.

CALL TRANSACTION 'CRAH'
                    USING bdcdata
                    MODE 'A' UPDATE 'S'
                    MESSAGES INTO gt_mes.

*&---------------------------------------------------------------------*
*&      Form  DYNPRO
*&---------------------------------------------------------------------*
*                   Генерация полей для BATCH-INPUT
*----------------------------------------------------------------------*
FORM fill_bdc USING dynbegin name value.
  IF dynbegin = 'X'.
    CLEAR bdcdata.
    MOVE: name TO bdcdata-program,
          value TO bdcdata-dynpro,
          'X' TO bdcdata-dynbegin.
    APPEND bdcdata.
  ELSE.
    CLEAR bdcdata.
    MOVE: name TO bdcdata-fnam,
          value TO bdcdata-fval.
    APPEND bdcdata.
  ENDIF.
ENDFORM.                    "fill_bdc

В общем-то я чуток модифицировал код, ну если не считать завода, то дополнительно поставил очистку ссылочного завода это раз и немного переделал вызов на такой код:

Код Виділити


CALL TRANSACTION 'CRAH'
                    USING bdcdata
                    MODE 'A' UPDATE 'S'
                    MESSAGES INTO gt_mes.

т.е. явно указал режим запуска (потом можно с А поменять на E), так вот исходя из картинок как видим все передается. Попробуйте сделать тоже у себя.

mangetik · Червень 16, 2010, 12:57:35 ПП

Ну у меня ведь тоже в коде стоит ls_options-dismode = 'A'., а не ls_options-dismode = 'E'. Просто у Вас явно указано mode. Насчет завода, то попробую сделать так как Вы советуете.

Uukrul · Червень 16, 2010, 01:00:03 ПП

Цитата: mangetik від Червень 16, 2010, 12:57:35 ПП
Ну у меня ведь тоже в коде стоит ls_options-dismode = 'A'., а не ls_options-dismode = 'E'. Просто у Вас явно указано mode. Насчет завода, то попробую сделать так как Вы советуете.

Да завод, то дело такое.. вы лучше колтранзакшен явно укажите опции вызова...

mangetik · Червень 16, 2010, 01:23:02 ПП

все то-же самое (((

Uukrul · Червень 16, 2010, 11:19:35 ПП

Цитата: mangetik від Червень 16, 2010, 01:23:02 ПП
все то-же самое (((

В общем виде проблема таки с этим экраном, там размещено 5 подэкранов и в момент обработки, похоже система теряется какой экран вызван. В общем похоже проблема решается путем изменения порядка обхода закладок... У меня руки не дошли, а девушка если захочет сама расскажет про правильную последовательность обхода, так как я понял она ее нашла. ;D

NachDenken · Червень 17, 2010, 07:33:38 ДП

может бапишку какую поискать, чтоб не мучить эти пакетники ?

Uukrul · Червень 17, 2010, 07:53:17 ДП

Цитата: NachDenken від Червень 17, 2010, 07:33:38 ДП
может бапишку какую поискать, чтоб не мучить эти пакетники ?

Ну я первым делом это и сделал.. но ее похоже нет, там есть функции записи внутри, но они похоже мало применимы...

Sapforum.Biz

Новини:

Проблемы с пакетником IR01

mangetik

Uukrul

mangetik

mangetik

Uukrul

Uukrul

mangetik

Uukrul

mangetik

Uukrul

mangetik

Uukrul

mangetik

Uukrul

mangetik

Uukrul

NachDenken

Uukrul