SAPфорум.RU https://www.sapboard.ru/forum/ |
|
(HR) Поменять дату последнего расчета в ИТ 0003 https://www.sapboard.ru/forum/viewtopic.php?f=13&t=96433 |
Страница 1 из 1 |
Автор: | Kuranov.Dmitry [ Ср, май 23 2018, 16:54 ] |
Заголовок сообщения: | (HR) Поменять дату последнего расчета в ИТ 0003 |
Здравствуйте, каким ФМ можно поменять дату СамРанДИзменОсД ( поле RRDAT )? пробовал HR_INFOTYPE_OPERATION, но поле не меняятся |
Автор: | Kuranov.Dmitry [ Ср, май 23 2018, 17:01 ] |
Заголовок сообщения: | Re: (HR) Поменять дату последнего расчета в ИТ 0003 |
В программе 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 таблицы.. |
Автор: | Besa [ Чт, май 24 2018, 00:07 ] |
Заголовок сообщения: | Re: (HR) Поменять дату последнего расчета в ИТ 0003 |
Kuranov.Dmitry написал(а): В программе RPUTRBK0 нашел такой кусок: насколько безопасно его выдрать себе? немного смущает прямой UPDATE таблицы.. Обычно такие вещи регламентируются. На счет "выдрать себе" как я понял Вы имеете ввиду скопировать код. Если да, то получается что с своем коде Вы апдейтите стандартную таблицу, а это плохо и обычно это запрещено, если и допускается, то по согласованию. В общем случае если возможен PERFORM … IN PROGRAM (стандартная программа) как бы можно, но надо смотреть. |
Автор: | Kuranov.Dmitry [ Чт, май 24 2018, 10:32 ] |
Заголовок сообщения: | Re: (HR) Поменять дату последнего расчета в ИТ 0003 |
Вот я и спрашивал в первом посте, есть и регламент в сапе. В данном случае, в этой форме нет никакой логики, просто заполнение струтуры PA0003 из параметров селекционника. То есть делать PERFORM IN PROGRAMM не слишком целесообразно, так как логика заполнения у меня своя |
Автор: | Besa [ Чт, май 24 2018, 10:39 ] |
Заголовок сообщения: | Re: (HR) Поменять дату последнего расчета в ИТ 0003 |
Kuranov.Dmitry написал(а): Вот я и спрашивал в первом посте, есть и регламент в сапе. В данном случае, в этой форме нет никакой логики, просто заполнение струтуры PA0003 из параметров селекционника. То есть делать PERFORM IN PROGRAMM не слишком целесообразно, так как логика заполнения у меня своя Не видел где Вы спрашивали про регламент в САПе. Я имею ввиду регламент по разработке в рамках проекта/системы. Так то "делай что хочешь" система позволяет. По поводу писать в своем коде прямые апдейты стандартных таблиц я уже ответил. Если в Вашем случае приемлемо, то можно эту программу вызвать submit-ом. |
Автор: | Kuranov.Dmitry [ Чт, май 24 2018, 17:54 ] |
Заголовок сообщения: | Re: (HR) Поменять дату последнего расчета в ИТ 0003 |
Besa написал: Не видел где Вы спрашивали про регламент в САПе. Я имею ввиду регламент по разработке в рамках проекта/системы. Так то "делай что хочешь" система позволяет. По поводу писать в своем коде прямые апдейты стандартных таблиц я уже ответил. Если в Вашем случае приемлемо, то можно эту программу вызвать submit-ом. я вас не правильно понял, про какой регламент вы говорили. По нашему регламенту на проекте, прямой доступ не возбраняется, если нет подходящего ФМ. |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |