Текущее время: Чт, сен 20 2018, 14:46

Часовой пояс: UTC + 4 часа


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


ВНИМАНИЕ!

Вопросы по SAP Query и Quick View - сюда



Начать новую тему Ответить на тему  [ Сообщений: 17 ]  На страницу 1, 2  След.
Автор Сообщение
 Заголовок сообщения: Пакетный ввод
СообщениеДобавлено: Пт, сен 10 2004, 13:19 
Гость
Правильно ли все написано почему не отрабатывается пакетный ввод?
*&---------------------------------------------------------------------*
*& Report ZPERORG *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZPERORG.
* Описание таблиц:
* data - таблица приема из EXCEL
DATA: BEGIN OF DTAB OCCURS 0,
SHORT LIKE HRP1000-SHORT,
BEGDA LIKE HRP1000-BEGDA,
ENDDA LIKE HRP1000-ENDDA,
STEXT LIKE HRP1000-STEXT,
END OF DTAB.


DATA: BEGIN OF BDCDATA OCCURS 0.
INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDCDATA.
DATA: N TYPE I,
CH TYPE I.
*Таблица для INTERN
DATA: BEGIN OF TAB_F OCCURS 0,
ROW TYPE KCD_EX_ROW_N,
COL TYPE KCD_EX_ROW_N,
VALUE TYPE CHAR50,
END OF TAB_F.

PARAMETERS: Filename like rlgrap-filename obligatory
DEFAULT 'C:\PERENOS\NShtatDol.xls'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR Filename.
CALL FUNCTION 'STPB1_GET_FILENAME'
EXPORTING
MODE = 'IMPORT'
IMPORTING
STEP_FILENAME = Filename.


START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = Filename
I_BEGIN_COL = 1
I_BEGIN_ROW = 2
I_END_COL = 4
I_END_ROW = 50000
TABLES
INTERN = TAB_F
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
* IF SY-SUBRC <> 0.
* MESSAGE i000 with Filename.
* ENDIF.

DESCRIBE TABLE TAB_F LINES N.
CH = N / 4.



LOOP AT TAB_F.
CASE TAB_F-COL.
WHEN '1'.

DTAB-SHORT = TAB_F-VALUE.
WHEN '2'.
DTAB-BEGDA = TAB_F-VALUE.
WHEN '3'.
DTAB-ENDDA = TAB_F-VALUE.
WHEN '4'.
DTAB-STEXT = TAB_F-VALUE.
append dtab.
endcase.

ENDLOOP.


DELETE ADJACENT DUPLICATES FROM DTAB COMPARING SHORT.



loop at DTAB.

REFRESH BDCDATA.
CLEAR BDCDATA.

perform bdc_dynpro using 'SAPMH5A0' '5100'.
perform bdc_field using 'BDC_CURSOR'
'PM0D1-SEARK'.
perform bdc_field using 'BDC_OKCODE'
'=INSE'.
perform bdc_field using 'PPHDR-PLVAR'
'01'.
perform bdc_field using 'PM0D1-SEARK'
''.
perform bdc_field using 'PM0D1-TIMR6'
'X'.
perform bdc_field using 'PPHDR-BEGDA'
SY-DATUM.
perform bdc_field using 'PPHDR-ENDDA'
'31.12.9999'.
perform bdc_field using 'MARKFELD(01)'
'X'.
perform bdc_dynpro using 'MP100000' '2000'.
perform bdc_field using 'BDC_CURSOR'
'P1000-STEXT'.
perform bdc_field using 'BDC_OKCODE'
'UPD'.
perform bdc_field using 'P1000-BEGDA'
DTAB-BEGDA.
perform bdc_field using 'P1000-ENDDA'
DTAB-ENDDA.
perform bdc_field using 'P1000-SHORT'
DTAB-SHORT.
perform bdc_field using 'P1000-STEXT'
DTAB-STEXT.
perform bdc_dynpro using 'SAPMH5A0' '5100'.
perform bdc_field using 'BDC_CURSOR'
'PPHDR-PLVAR'.
perform bdc_field using 'BDC_OKCODE'
'=BACK'.
perform bdc_field using 'PPHDR-PLVAR'
'01'.
perform bdc_field using 'PM0D1-SEARK'
'50000692'.

call transaction 'PO13' using BDCDATA MODE 'E' UPDATE 'S'.

ENDLOOP.

*&--------------------------------------------------------------------*
*& Form BDC_DYNPRO
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->PROGRAM text
* -->DYNPRO text
*---------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM. "BDC_DYNPRO

*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDFORM. "BDC_FIELD


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 13:46 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Вт, авг 17 2004, 13:50
Сообщения: 134
Откуда: UA->DE
Пол: Женский
А ты уже пробовал поменять в "call transaction 'PO13' using BDCDATA MODE 'E' UPDATE 'S'." MODE на 'A' и в отладчике посмотреть?


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 13:48 
Гость
Если ставим А, то ве работает, помогите


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 13:53 
Гуру-эксперт
Гуру-эксперт

Зарегистрирован:
Вт, сен 07 2004, 18:47
Сообщения: 2988
Anonymous написал(а):
Если ставим А, то ве работает, помогите

А в чём конкретно то проявляется неработа?


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 13:55 
Гость
Если ставим А, то ве работает, помогите


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 13:57 
Гость
Данные не заносятся в в таблицу, такое впечатление что пакетный ввод на отрабатывает


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:   Тема решена
СообщениеДобавлено: Пт, сен 10 2004, 14:12 
Специалист
Специалист

Зарегистрирован:
Чт, авг 19 2004, 16:33
Сообщения: 160
Откуда: R/3 4.7
В 4.7 это Enjoy - транзакция.
А с такими использовать call transaction SAP не рекомендует.
Если в твоей версии R/3 это Enjoy транз. то ищи другие пути.


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 14:15 
Гость
Что значит enjoy транзакция, извините может быть дурацкий вопрос


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 14:17 
Гость
Подскажите как закачать данные через PO13 для инфотипа объект, создать запись.....


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 14:41 
Гуру-эксперт
Гуру-эксперт

Зарегистрирован:
Вт, сен 07 2004, 18:47
Сообщения: 2988
Anonymous написал(а):
Подскажите как закачать данные через PO13 для инфотипа объект, создать запись.....

CALL FUNCTION 'RH_OBJECT_CREATE' ?


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 14:54 
Гость
ДА ЧТО ВРОДЕ ТОГО КАК ЕГО ПРИКРУТИЬ К МОЕЙ ПРОГРАММЕ


Пометить тему как нерешенную
Вернуться к началу
  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 15:03 
Председатель
Председатель
Аватара пользователя

Зарегистрирован:
Пн, сен 06 2004, 12:43
Сообщения: 1551
Пол: Мужской
Anonymous написал(а):
Что значит enjoy транзакция, извините может быть дурацкий вопрос

Если мне не изменяет память, то это транзакция которая в экранах имеет визуальные элементы которые отрабатываются только на уровне ГУЯ и поэтому в записанном пакетнике не отражаются данные и операции по нему. Хотя это со слов препода с курсов. Сам с ними дела не имел.

А по поводу отрабатывает - не отрабатывает - из практики скажу, что попадаются транзакции, которые имеют "ветвления". Т.Е. на каком-то этапе в зависиммости от введенных данных уходит в разные экраны. Я так со сбытовскими данными мудохался - когда наш функциональщик записал пакетник на одну группу данных, а потом кричал, что не может ввести другую.

_________________
Ex ipso fonte bibere
Цитата:
Abyssus abyssum invocat
Dies diem docet
Ducunt volentem fata, nolentem trahunt

Estote prudentes sicut serpentes


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 15:42 
Специалист
Специалист
Аватара пользователя

Зарегистрирован:
Вт, авг 17 2004, 13:50
Сообщения: 134
Откуда: UA->DE
Пол: Женский
vvvictor написал:
А по поводу отрабатывает - не отрабатывает - из практики скажу, что попадаются транзакции, которые имеют "ветвления". Т.Е. на каком-то этапе в зависиммости от введенных данных уходит в разные экраны.

Еще и появление каких-либо предупреждающих сообщений мешать может.


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Пт, сен 10 2004, 16:33 
Специалист
Специалист

Зарегистрирован:
Чт, авг 19 2004, 16:33
Сообщения: 160
Откуда: R/3 4.7
Anonymous написал(а):
Что значит enjoy транзакция, извините может быть дурацкий вопрос

По логике SAP Enjoy - это вещь. А не Enjoy - ну совсем не Enjoy и все тут. :D
А вообще это транзакции с новым интерфейсом.
Для примера ME21 - не Enjoy, а вот ME21N - полный Enjoy. :)


Пометить тему как нерешенную
Вернуться к началу
 Профиль  
 
 Заголовок сообщения:
СообщениеДобавлено: Вс, сен 12 2004, 17:25 
Гость
Anonymous написал(а):
Данные не заносятся в в таблицу, такое впечатление что пакетный ввод на отрабатывает


Давайте оперировать фактами, а не впечатлениями, когда это возможно :) Чтобы посмотреть, на что собственоо жалуется пакетник, объявите таблицу для сбора сообщений
DATA: MSG_TAB TYPE TABLE OF BDCMSGCOLL.
и добавьте MESSAGES INTO msg_tab в конец вызова CALL TRANSACTION и посмотрите на улов.
Но вообще-то справедливо замечено, что использование BDC c Enjoy Transactions дело неблагодарное. Попробуйте использовать PP02, которая специально для этого расчитана.


Пометить тему как нерешенную
Вернуться к началу
  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 17 ]  На страницу 1, 2  След.

Часовой пояс: UTC + 4 часа


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

Сейчас этот форум просматривают: ghost, Yandex [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB