Текущее время: Чт, мар 28 2024, 15:32

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


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


ВНИМАНИЕ!

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



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

Зарегистрирован:
Вт, сен 05 2017, 23:56
Сообщения: 537
Здравствуйте,

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

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


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

Зарегистрирован:
Вт, сен 05 2017, 23:56
Сообщения: 537
В программе 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, 00:07 
Гуру-эксперт
Гуру-эксперт
Аватара пользователя

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

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

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


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

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

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


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

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

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

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

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


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

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

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


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


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

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


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

Сейчас этот форум просматривают: нет зарегистрированных пользователей


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

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