Текущее время: Чт, авг 16 2018, 22:01

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


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


ВНИМАНИЕ!

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



Начать новую тему Ответить на тему  [ Сообщений: 6 ] 
Автор Сообщение
 Заголовок сообщения: (HR) Поменять дату последнего расчета в ИТ 0003
СообщениеДобавлено: Ср, май 23 2018, 17:54 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 326
Здравствуйте,

каким ФМ можно поменять дату СамРанДИзменОсД ( поле RRDAT )?

пробовал HR_INFOTYPE_OPERATION, но поле не меняятся


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: (HR) Поменять дату последнего расчета в ИТ 0003
СообщениеДобавлено: Ср, май 23 2018, 18:01 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 326
В программе RPUTRBK0 нашел такой кусок:

Code:
FORM UPDATE_PA0003.
* Before assigning the new field values,
* store the current values in the work area
  MOVE-CORRESPONDING P0003 TO PA0003.

* Set selected fields to the new values
*-Payroll/retroactive accounting block (on PA30)
  IF P_PRDAT EQ 'X'.                      "Earl.pers. RA date
    PA0003-PRDAT = D_PRDAT.
  ENDIF.
  IF P_ABWD1 EQ 'X'.                      "Run payroll up to
    PA0003-ABWD1 = D_ABWD1.
  ENDIF.
  IF P_ABWD2 EQ 'X'.                      "Do not process after
    PA0003-ABWD2 = D_ABWD2.
  ENDIF.
  IF P_ABRDT EQ 'X'.                      "Accounted to
    PA0003-ABRDT = D_ABRDT.
  ENDIF.
  IF P_RRDAT EQ 'X'.                      "Earliest MD change
    PA0003-RRDAT = D_RRDAT.
  ENDIF.
  IF P_RRDAF EQ 'X'.                      "Recal.follow-up prog
    PA0003-RRDAF = D_RRDAF.
  ENDIF.
  IF P_RCBON EQ 'X'.                      "Mast.data chng.bonus
    PA0003-RCBON = D_RCBON.
  ENDIF.
  IF P_ABRSP EQ 'X'.                      "Pers.no.locked
    PA0003-ABRSP = D_ABRSP.
  ENDIF.
*  IF P_KOABR EQ 'X'.                      "NMH0448731
*    PA0003-KOABR = D_KOABR.               "NMH0448731
*  ENDIF.                                  "NMH0448731
  IF P_ADRUN EQ 'X'.                      "Special run
    PA0003-ADRUN = D_ADRUN.
  ENDIF.

*-Time evaluation block (on PA30)
  IF P_PRTEV EQ 'X'.                      "Earl.pers.rec.date
    PA0003-PRTEV = D_PRTEV.
  ENDIF.
  IF P_PKGAB EQ 'X'.                      "Pers.calendar from
    PA0003-PKGAB = D_PKGAB.
  ENDIF.
  IF P_BDERR EQ 'X'.                      "PDC recalculation
    PA0003-BDERR = D_BDERR.
  ENDIF.
  IF P_KOBDE EQ 'X'.                      "PDC error indicator
    PA0003-KOBDE = D_KOBDE.
  ENDIF.

* Store last change information
  PA0003-AEDTM = SY-DATUM.
  PA0003-UNAME = SY-UNAME.

* Update table PA0003
  UPDATE PA0003.
  IF SY-SUBRC EQ 0.
    W_OK = W_OK + 1.
    IF P_KOABR EQ 'X'.                      "NMH0448731
      IF D_KOABR EQ 'X'.                    "NMH0448731
        PERFORM SET_MCW.                    "NMH0448731
      ELSE.                                 "NMH0448731
        PERFORM RESET_MCW.                  "NMH0448731
      ENDIF.                                "NMH0448731
    ENDIF.                                  "NMH0448731
  ELSE.
    PERFORM SAVE_ERROR_LOG USING PERNR-PERNR TEXT-L02.
  ENDIF.

ENDFORM.                    " UPDATE_PA0003


насколько безопасно его выдрать себе? немного смущает прямой UPDATE таблицы..


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: (HR) Поменять дату последнего расчета в ИТ 0003
СообщениеДобавлено: Чт, май 24 2018, 01:07 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 17:25
Сообщения: 2952
Пол: Мужской
Kuranov.Dmitry написал(а):
В программе RPUTRBK0 нашел такой кусок:

насколько безопасно его выдрать себе? немного смущает прямой UPDATE таблицы..

Обычно такие вещи регламентируются.
На счет "выдрать себе" как я понял Вы имеете ввиду скопировать код. Если да, то получается что с своем коде Вы апдейтите стандартную таблицу, а это плохо и обычно это запрещено, если и допускается, то по согласованию.
В общем случае если возможен PERFORM … IN PROGRAM (стандартная программа) как бы можно, но надо смотреть.


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: (HR) Поменять дату последнего расчета в ИТ 0003
СообщениеДобавлено: Чт, май 24 2018, 11:32 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 326
Вот я и спрашивал в первом посте, есть и регламент в сапе.

В данном случае, в этой форме нет никакой логики, просто заполнение струтуры PA0003 из параметров селекционника.
То есть делать PERFORM IN PROGRAMM не слишком целесообразно, так как логика заполнения у меня своя


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
 Заголовок сообщения: Re: (HR) Поменять дату последнего расчета в ИТ 0003
СообщениеДобавлено: Чт, май 24 2018, 11:39 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

Зарегистрирован:
Чт, ноя 11 2004, 17:25
Сообщения: 2952
Пол: Мужской
Kuranov.Dmitry написал(а):
Вот я и спрашивал в первом посте, есть и регламент в сапе.

В данном случае, в этой форме нет никакой логики, просто заполнение струтуры PA0003 из параметров селекционника.
То есть делать PERFORM IN PROGRAMM не слишком целесообразно, так как логика заполнения у меня своя

Не видел где Вы спрашивали про регламент в САПе.
Я имею ввиду регламент по разработке в рамках проекта/системы.
Так то "делай что хочешь" система позволяет.

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


Принять этот ответ
Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: (HR) Поменять дату последнего расчета в ИТ 0003
СообщениеДобавлено: Чт, май 24 2018, 18:54 
Старший специалист
Старший специалист
Аватара пользователя

Зарегистрирован:
Ср, сен 06 2017, 00:56
Сообщения: 326
Besa написал:
Не видел где Вы спрашивали про регламент в САПе.
Я имею ввиду регламент по разработке в рамках проекта/системы.
Так то "делай что хочешь" система позволяет.

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


я вас не правильно понял, про какой регламент вы говорили. По нашему регламенту на проекте, прямой доступ не возбраняется, если нет подходящего ФМ.


Принять этот ответ
Вернуться к началу
 Профиль Отправить email  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 6 ] 

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


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

Сейчас этот форум просматривают: BingBot


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

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