Копирование данных инфо-типа 0001

Марат

Всем доброго утра.

Задача состоит в следующем.
Мне необходимо считать данные из первого инфо-типа у определенного табельника, создать копию (изменив только дату) и обратно запихнуть в первый инфо-тип.

С помощью каких ФМ можно это сделать?

Заранее благодарю за помощь

sy-uname

Марат написал(а):

Всем доброго утра.

Задача состоит в следующем.
Мне необходимо считать данные из первого инфо-типа у определенного табельника, создать копию (изменив только дату) и обратно запихнуть в первый инфо-тип.

С помощью каких ФМ можно это сделать?

Заранее благодарю за помощь

Курс HR350 будет полезно прочитать!
Читать ИТ через HR_READ_INFOTYPE
Изменять ИТ через HR_INFOTYPE_OPERATION

Марат

Большое спасибо.

С HR_READ_INFOTYPE все понятно

А вот с HR_INFOTYPE_OPERATION не совсем.

Допустим я скачал данные с инфо-типа 0001 в таблицу.
Беру нужную запись в этой таблице и...?

Для теста создал программу.

Code:

TABLES p0001 .
DATA: zp0001 like p0001 OCCURS 0 WITH HEADER LINE.
data: zRETURN like BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
data: ZKEY like BAPIPAKEY OCCURS 0 WITH HEADER LINE.
DATA: G_RETURN TYPE bapireturn1.

call function 'HR_READ_INFOTYPE'
  exporting
*   TCLAS                 = 'A'
    PERNR                 = '00000002'
    INFTY                 = '0001'
*   BEGDA                 = '18000101'
*   ENDDA                 = '99991231'
*   BYPASS_BUFFER         = ' '
*   LEGACY_MODE           = ' '
* IMPORTING
*   SUBRC                 =
  TABLES
    INFTY_TAB             = zp0001.

LOOP AT zp0001 INTO p0001.

P0001-BEGDA = '20080101'.
P0001-ENDDA = '99991231'.

CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'
EXPORTING
number = '00000002'
IMPORTING
return = g_return.

call function 'HR_INFOTYPE_OPERATION'
  exporting
    INFTY                  = '0001'
    NUMBER                 = P0001-PERNR
*   SUBTYPE                = P0001-SUBTY
*   OBJECTID               = P0001-OBJPS
*   LOCKINDICATOR          = P0001-SPRPS
*   VALIDITYEND            = P0001-ENDDA
*   VALIDITYBEGIN          = P0001-BEGDA
*   RECORDNUMBER           =
    RECORD                 = p0001
    OPERATION              = 'COP'
*   TCLAS                  = 'A'
*   DIALOG_MODE            = '0'
*   NOCOMMIT               =
*   VIEW_IDENTIFIER        =
*   SECONDARY_RECORD       =
 IMPORTING
   RETURN                 = zRETURN
   KEY                    = ZKEY
          .
CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'
EXPORTING
number = '00000002'.
exit.
*commit WORK AND WAIT.
ENDLOOP.

----------------------------------------------------------------------------
Не вышло пишет, что в таблице T527O нет записи
пробовал и так:

Code:

call function 'HR_INFOTYPE_OPERATION'
  exporting
    INFTY                  = '0001'
    NUMBER                 = P0001-PERNR
*   SUBTYPE                = P0001-SUBTY
*   OBJECTID               = P0001-OBJPS
*   LOCKINDICATOR          = P0001-SPRPS
   VALIDITYEND            = '99991231'
   VALIDITYBEGIN          = '20080101'
*   RECORDNUMBER           =
    RECORD                 = p0001
    OPERATION              = 'COP'
*   TCLAS                  = 'A'
*   DIALOG_MODE            = '0'
*   NOCOMMIT               =
*   VIEW_IDENTIFIER        =
*   SECONDARY_RECORD       =
 IMPORTING
   RETURN                 = zRETURN
   KEY                    = ZKEY.

---------------------------------------------------------------------------
Та же ошибка.
Попробовал по другому

Code:

P0001-BEGDA = '20080101'.
P0001-ENDDA = '99991231'.
call function 'HR_INFOTYPE_OPERATION'
  exporting
    INFTY                  = '0001'
    NUMBER                 = P0001-PERNR
   SUBTYPE                = P0001-SUBTY
   OBJECTID               = P0001-OBJPS
   LOCKINDICATOR          = P0001-SPRPS
   VALIDITYEND            = P0001-ENDDA
   VALIDITYBEGIN          = P0001-BEGDA
*   RECORDNUMBER           =
    RECORD                 = p0001
    OPERATION              = 'INS'
*   TCLAS                  = 'A'
*   DIALOG_MODE            = '0'
*   NOCOMMIT               =
*   VIEW_IDENTIFIER        =
*   SECONDARY_RECORD       =
 IMPORTING
   RETURN                 = zRETURN
   KEY                    = ZKEY.

----------------------------------------------------------------------
Выдает ошибку, что не все поля заполнены

Что я не так делаю?

Заранее спасибо

kizif

А почему бапишкой блокируете.
Попробуйте модулем ENQUEUE_EPPRELE и DEQUEUE_EPPRELE.

Bully

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

А почему бапишкой блокируете.

Потомучто так рекомендовано в курсе.

Марат написал(а):

Что я не так делаю?

Диапазон BEGDA и ENDDA должен передаваться параметрами ФМ, а не через структуру.

Марат, плз, используй тег Code при оформлении сообщений. Жутко нечитабелен текст

sibrin

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

используй тег Code при оформлении сообщений. Жутко нечитабелен текст

Есть маленькая хитрость: если нажать "Скачать сообщение", то можно получить текст сообщения в авторском варианте, т.е. с форматированием. Неудобно, конечно, но ведь каждому не разъяснишь

С другой стороны, Марат может отредактировать своё сообщение и добавить [code].

PS. Сорри за офтоп.

Bully

sibrin написал:

С другой стороны, Марат может отредактировать своё сообщение и добавить [code].

Я на это собственно и хотел намекнуть

sibrin написал:

PS. Сорри за офтоп.

ИМХО полезный оффтоп.

sy-uname

Марат написал(а):

Большое спасибо.

С HR_READ_INFOTYPE все понятно

А вот с HR_INFOTYPE_OPERATION не совсем.

Допустим я скачал данные с инфо-типа 0001 в таблицу.
Беру нужную запись в этой таблице и...?

Для теста создал программу.

....
----------------------------------------------------------------------
Выдает ошибку, что не все поля заполнены

Что я не так делаю?

Заранее спасибо

Что-то это всё напоминает тему
ФМ HR_INFOTYPE_OPERATION , HR_INFOTYPE_GETDETAIL подробнее о парметрах

sy-uname

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

А почему бапишкой блокируете.
Попробуйте модулем ENQUEUE_EPPRELE и DEQUEUE_EPPRELE.

Блокируется, кстати, правильно, так и должно быть.

Марат

Всем спасибо за помощь.

Я разобрался в чем дело (вроде бы). Просто табельник на котором я тестировал какой-то не такой. У этого табельника был ключ организации, которого не было в таблице T527O. Почему? Я не знаю. Начал тестировать на других табельниках и все получилось.

Code:

      
        call function 'HR_INFOTYPE_OPERATION'
          exporting
            INFTY         = '0001'
            NUMBER        = MY_P0001-PERNR
            VALIDITYEND   = MY_P0001-ENDDA
            VALIDITYBEGIN = MY_P0001-BEGDA
            RECORD        = MY_P0001
            OPERATION     = 'COP'
          importing
            RETURN        = MY_RETURN.

Bully

Марат написал(а):

Всем спасибо за помощь.

Всегда пожалуйста.

А первое сообщение так и не поправил :wink:

Марат

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

Всегда пожалуйста.

А первое сообщение так и не поправил :wink:

Сорри уже исправил

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

Копирование данных инфо-типа 0001

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