Re: Coding reqd using HR_MAINTAIN_MASTERDATA function for upload

manubhutani — Wed, 06 Jun 2007 17:22:25 GMT

Please reward points if helpful.

Please check out the code

----

***INCLUDE LHRWPC_PCR_WT_ACTIONSF01 .

----

&----

*& Form run_action_50

&----

text

----

--> p1 text
<-- p2 text

----

FORM run_action_50 .

action = '50'.

Fill proposed values for action infotype(0000)

PERFORM fill_prop_values_action using action.

Fill proposed values for organization assignment infotype(0001)

PERFORM fill_prop_value_org_assign using action.

Fill proposed values for plant working time infotype(0007)
perform fill_prop_value_wrk_time.

Fill proposed values for basic pay infotype(0008)

PERFORM fill_prop_value_basic_pay using action.

Fill proposed values for cost distribution infotype(0027)

*skip this infotype

perform fill_prop_value_cost_dist.

Fill proposed values for internal data infotype(0032)

*skip this infotype

PERFORM fill_prop_value_inter_data.

Fill proposed values for work tax area infotype(0208)

*skip this infotype

PERFORM fill_prop_value_wrk_area.

Fill proposed values for unemployment status infotype(0209)

*skip this infotype

PERFORM fill_prop_value_unemp_stat.

Fill proposed values for compensation programe infotype(0758)

PERFORM fill_prop_value_comp_prog.

Fill proposed values for time recording infotype(0050)

PERFORM fill_prop_value_time_rec.

CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'

EXPORTING

pernr = pernr

massn = massn

actio = 'COP'

begda = v_inrec-eff_date

dialog_mode = '2'

IMPORTING

return1 = return

TABLES

proposed_values = t_proposed_values.

IF NOT return IS INITIAL.

MESSAGE ID return-id TYPE return-type NUMBER return-number

WITH return-message_v1 return-message_v2

return-message_v3 return-message_v4.

RAISE action_stopped.

ELSE.

MESSAGE s054(hrwpc_pcr).

ENDIF.

ENDFORM. " run_action_50

&----

*& Form run_action_52

&----

text

----

--> p1 text
<-- p2 text

----

FORM run_action_52 .

action = '52'.

Fill proposed_values

Fill proposed values for action infotype(0000)

PERFORM fill_prop_values_action using action.

Fill proposed values for organization assignment infotype(0001)

PERFORM fill_prop_value_org_assign using action.

Fill proposed values for plant working time infotype(0007)

perform fill_prop_value_wrk_time using action.

Fill proposed values for basic pay infotype(0008)

PERFORM fill_prop_value_basic_pay using action.

Fill proposed values for cost distribution infotype(0027)

perform fill_prop_value_cost_dist.

Fill proposed values for internal data infotype(0032)

PERFORM fill_prop_value_inter_data.

Fill proposed values for work tax area infotype(0208)

PERFORM fill_prop_value_wrk_area.

Fill proposed values for unemployment status infotype(0209)

PERFORM fill_prop_value_unemp_stat.

Fill proposed values for withholding info infotype(0210)

perform fill_prop_withholding_info.

Fill proposed values for compensation programe infotype(0758)

PERFORM fill_prop_value_comp_prog.

Fill proposed values for time recording infotype(0050)

PERFORM fill_prop_value_time_rec.

CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'

EXPORTING

pernr = pernr

massn = massn

actio = 'COP'

begda = v_inrec-eff_date

dialog_mode = '2'

IMPORTING

return1 = return

TABLES

proposed_values = t_proposed_values.

IF NOT return IS INITIAL.

MESSAGE ID return-id TYPE return-type NUMBER return-number

WITH return-message_v1 return-message_v2

return-message_v3 return-message_v4.

RAISE action_stopped.

ELSE.

MESSAGE s054(hrwpc_pcr).

ENDIF.

ENDFORM. " run_action_52

&----

*& Form run_action_53

&----

text

----

--> p1 text
<-- p2 text

----

FORM run_action_53 .

Set action equal to '53'

action = '53'.

refresh t_proposed_values.

Fill proposed values for action infotype(0000)

PERFORM fill_prop_values_action using action.

Fill proposed values for organization assignment infotype(0001)

PERFORM fill_prop_value_org_assign using action.

Fill proposed values for plant working time infotype(0007)

perform fill_prop_value_wrk_time using action.

Fill proposed values for basic pay infotype(0008)

PERFORM fill_prop_value_basic_pay using action.

Fill proposed values for compensation programe infotype(0758)

PERFORM fill_prop_value_comp_prog.

CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'

EXPORTING

pernr = pernr

massn = massn

actio = 'COP'

begda = v_inrec-eff_date

dialog_mode = '2'

IMPORTING

return1 = return

TABLES

proposed_values = t_proposed_values.

IF NOT return IS INITIAL.

MESSAGE ID return-id TYPE return-type NUMBER return-number

WITH return-message_v1 return-message_v2

return-message_v3 return-message_v4.

RAISE action_stopped.

ELSE.

MESSAGE s054(hrwpc_pcr).

ENDIF.

ENDFORM. " run_action_53

&----

*& Form fill_prop_values_action

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_values_action using p_action.

CLEAR w_proposed_values.

w_proposed_values-infty = '0000'.

w_proposed_values-fname = 'P0000-MASSN'.

w_proposed_values-fval = p_action.

APPEND w_proposed_values TO t_proposed_values.

If p_action = '50' .

CLEAR w_proposed_values.

w_proposed_values-infty = '0000'.

w_proposed_values-fname = 'P0000-MASSG'.

w_proposed_values-fval = '05'.

w_proposed_values-fval = v_inrec-reason_code.

APPEND w_proposed_values TO t_proposed_values.

elseif p_action = '52'.

CLEAR w_proposed_values.

w_proposed_values-infty = '0000'.

w_proposed_values-fname = 'P0000-MASSG'.

w_proposed_values-fval = '04'.

w_proposed_values-fval = v_inrec-reason_code.

APPEND w_proposed_values TO t_proposed_values.

elseif p_action = '53'.

CLEAR w_proposed_values.

w_proposed_values-infty = '0000'.

w_proposed_values-fname = 'P0000-MASSG'.

w_proposed_values-fval = '06'.

w_proposed_values-fval = v_inrec-reason_code.

APPEND w_proposed_values TO t_proposed_values.

endif.

ENDFORM. " fill_prop_values_action

&----

*& Form fill_prop_value_org_assign

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_org_assign using p_action.

if p_action = '50' or p_action = '52'.

CLEAR w_proposed_values.

w_proposed_values-infty = '0001'.

w_proposed_values-fname = 'P0001-PLANS'.

w_proposed_values-fval = v_inrec-pos_num.

APPEND w_proposed_values TO t_proposed_values.

*CLEAR w_proposed_values.

w_proposed_values-infty = '0001'.
APPEND w_proposed_values TO t_proposed_values.

elseif p_action = '53'.

CLEAR w_proposed_values.

w_proposed_values-infty = '0001'.

APPEND w_proposed_values TO t_proposed_values.

endif.

ENDFORM. " fill_prop_value_org_assign

&----

*& Form fill_prop_value_wrk_time

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_wrk_time using p_action .

if p_action = '50' or p_action = '53'.

SELECT * FROM zhr_wrk_schedule WHERE pernr = pernr UPTO 1 row.
ENDSELECT.

IF sy-subrc EQ 0.
CLEAR w_proposed_values.
w_proposed_values-infty = '0007'.
w_proposed_values-fname = 'P0007-SCHKZ'.
w_proposed_values-fval = zhr_wrk_schedule-z_schkz.
APPEND w_proposed_values TO t_proposed_values.

IF z_wrk_schedule-z_pa NE 'X'.

zhr_wrk_schedule-z_pa = 'X'.
UPDATE z_wrk_schedule FROM zhr_wrk_schedule.
ENDIF.

ENDIF.

data: wa_schedule type zhr_wrk_schedule.

SELECT * FROM zhr_wrk_schedule

INTO wa_schedule

UP TO 1 ROWS

WHERE pernr = v_inrec-pernr .

ENDSELECT.

IF syst-subrc = 0.

Updating the proposed value table with work schedule rule
add_value: '0007' 'P0007-SCHKZ' wa_schedule-z_schkz.

w_proposed_values-infty = '0007'.

w_proposed_values-fname = 'P0007-SCHKZ'.

w_proposed_values-fval = wa_schedule-z_schkz.

APPEND w_proposed_values TO t_proposed_values.

v_pte = wa_schedule-z_pte.

If PA indicator in the table is initial the set it else keep it as it is

IF wa_schedule-z_pa IS INITIAL.

wa_schedule-z_pa = 'X'.

UPDATE zhr_wrk_schedule FROM wa_schedule.

ENDIF.

ELSE.

ENDIF.

elseif p_action = '53'.

clear w_proposed_values.

w_proposed_values-infty = '0007'.

APPEND w_proposed_values TO t_proposed_values.

endif.

ENDFORM. " fill_prop_value_wrk_time

&----

*& Form fill_prop_value_basic_pay

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_basic_pay using p_action .

if p_action = '50' or p_action = '53'.

CLEAR w_proposed_values.

w_proposed_values-infty = '0008'.

w_proposed_values-fname = 'P0008-PREAS'.

*check reason

w_proposed_values-fval = pay_change_reason.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0008'.

w_proposed_values-fname = 'P0008-ANSAL'.

w_proposed_values-fval = v_inrec-new_salary.

APPEND w_proposed_values TO t_proposed_values.

elseif p_action = '52'.

CLEAR w_proposed_values.

w_proposed_values-infty = '0008'.

APPEND w_proposed_values TO t_proposed_values.

endif.

ENDFORM. " fill_prop_value_basic_pay

&----

*& Form fill_prop_value_cost_dist

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_cost_dist .

DATA: t_0001 TYPE STANDARD TABLE OF p0001 WITH HEADER LINE,

t_0003 TYPE STANDARD TABLE OF p0003,

last_paydate TYPE sydatum.

DATA: w_0001 TYPE p0001,

w_0003 TYPE p0003.

CALL FUNCTION 'HR_READ_INFOTYPE'

EXPORTING

TCLAS = 'A'

pernr = pernr

infty = '0001'

begda = v_inrec-eff_date

TABLES

infty_tab = t_0001[]

EXCEPTIONS

INFTY_NOT_FOUND = 1

OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

Sort the Employee records based on Begin Date

ENDIF.

SORT t_0001 BY begda DESCENDING.

Read the latest employee records

READ TABLE t_0001 INTO w_0001 INDEX 1.

IF sy-subrc = 0.

CLEAR w_proposed_values.

w_proposed_values-infty = '0027'.

w_proposed_values-fname = 'P0027-KSTAR'.

w_proposed_values-fval = '01'.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0027'.

w_proposed_values-fname = 'P0027-KBU01'.

w_proposed_values-fval = w_0001-bukrs.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0027'.

w_proposed_values-fname = 'P0027-KST01'.

w_proposed_values-fval = w_0001-kostl.

APPEND w_proposed_values TO t_proposed_values.

Read the last payroll run date from PCL2

CALL FUNCTION 'HR_MX_LAST_NEXT_PAYROLL_PERIOD'

EXPORTING

pernr = v_inrec-pernr

IN_RGDIR =

IMPORTING

LAST_PAY_PERIOD =
LAST_PAY_YEAR =
LAST_FPPER =
LAST_FPBEG =
LAST_FPEND =
NEXT_PAY_PERIOD =
NEXT_PAY_YEAR =
NEXT_FPPER =
NEXT_FPBEG =
NEXT_FPEND =

last_paydate = last_paydate

OUT_RGDIR =

EXCEPTIONS

no_rgdir_entries = 1

it1_error = 2

t549a_error = 3

t549q_error = 4

OTHERS = 5

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CLEAR w_proposed_values.

w_proposed_values-infty = '0027'.

w_proposed_values-fname = 'P0027-BEGDA'.

w_proposed_values-fval = last_paydate.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0027'.

w_proposed_values-fname = 'P0027-ENDDA'.

w_proposed_values-fval = v_inrec-eff_date.

APPEND w_proposed_values TO t_proposed_values.

ENDIF.

ENDFORM. " fill_prop_value_cost_dist

&----

*& Form fill_prop_value_wrk_area

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_wrk_area .

CLEAR w_proposed_values.

w_proposed_values-infty = '0208'.

w_proposed_values-fname = 'P0208-WTART'.

w_proposed_values-fval = v_inrec-wrk_state.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0208'.

w_proposed_values-fname = 'P0208-ALLPC'.

w_proposed_values-fval = '100'.

APPEND w_proposed_values TO t_proposed_values.

ENDFORM. " fill_prop_value_wrk_area

&----

*& Form fill_prop_value_inter_data

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_inter_data .

CLEAR w_proposed_values.

w_proposed_values-infty = '0032'.

w_proposed_values-fname = 'P0032-ZLOCN_TYPE'.

w_proposed_values-fval = v_inrec-loc_type.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0032'.

w_proposed_values-fname = 'P0032-ZLOCN_CODE'.

w_proposed_values-fval = v_inrec-loc_code.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0032'.

w_proposed_values-fname = 'P0032-ZPTE'.

w_proposed_values-fval = V_pte.

APPEND w_proposed_values TO t_proposed_values.

ENDFORM. " fill_prop_value_inter_data

&----

*& Form fill_prop_value_unemp_stat

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_unemp_stat .

Pick work site and location code from ZHCM_MWS

select * from ZHCM_MWS up to 1 rows where CAESAR_CODE = v_inrec-loc_code .

endselect.

CLEAR w_proposed_values.

w_proposed_values-infty = '0209'.

w_proposed_values-fname = 'P0209-TAXAU'.

w_proposed_values-fval = ZHCM_MWS-taxau.

APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.

w_proposed_values-infty = '0209'.

w_proposed_values-fname = 'P0209-WKSIT'.

w_proposed_values-fval = ZHCM_MWS-wksit.

APPEND w_proposed_values TO t_proposed_values.

*CLEAR w_proposed_values.

w_proposed_values-infty = '0209'.
w_proposed_values-fname = 'P0209-TAXAU'.
w_proposed_values-fval = v_inrec-wrk_state.
APPEND w_proposed_values TO t_proposed_values.

ENDFORM. " fill_prop_value_unemp_stat

&----

*& Form fill_prop_value_comp_prog

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_comp_prog .

CLEAR w_proposed_values.

w_proposed_values-infty = '0758'.

APPEND w_proposed_values TO t_proposed_values.

ENDFORM. " fill_prop_value_comp_prog

&----

*& Form fill_prop_value_withhold_info

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_withhold_info .

CLEAR w_proposed_values.

w_proposed_values-infty = '0210'.

APPEND w_proposed_values TO t_proposed_values.

ENDFORM. " fill_prop_value_withhold_info

&----

*& Form fill_prop_value_time_rec

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_value_time_rec .

CLEAR w_proposed_values.

w_proposed_values-infty = '0050'.

APPEND w_proposed_values TO t_proposed_values.

ENDFORM. " fill_prop_value_time_rec

&----

*& Form fill_prop_withholding_info

&----

text

----

--> p1 text
<-- p2 text

----

FORM fill_prop_withholding_info .

DATA: t_0006 TYPE STANDARD TABLE OF p0006 WITH HEADER LINE.

DATA: w_0006 TYPE p0006,

ls_proposed_values TYPE pprop.

DEFINE add_value.

w_proposed_values-infty = &1.

w_proposed_values-fname = &2.

w_proposed_values-fval = &3.

append w_proposed_values to t_proposed_values.

END-OF-DEFINITION.

Read permant adress of an employee

CALL FUNCTION 'HR_READ_INFOTYPE'

EXPORTING

TCLAS = 'A'

pernr = v_inrec-pernr

infty = '0006'

begda = v_inrec-datum

ENDDA = '99991231'
BYPASS_BUFFER = ' '
LEGACY_MODE = ' '
IMPORTING
SUBRC =

TABLES

infty_tab = t_0006[]

EXCEPTIONS
INFTY_NOT_FOUND = 1
OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Sort the Employee records based on Begin Date

SORT t_0006 BY begda DESCENDING.

Read the latest employee records

READ TABLE t_0006 INTO w_0006 INDEX 1.

IF syst-subrc = 0.

Update the proposed value table with work tax area and filing status

add_value:

'0210' 'P0210-TAURT' w_0006-state,

'0210' 'P0210-TXSTA' '01'.

ENDIF.

ENDFORM. " fill_prop_withholding_info

&----

*& Form lock_emp

&----

text

----

-->P_PERNR text

----

FORM lock_emp USING l_pernr.

CALL FUNCTION 'BAPI_EMPLOYEE_ENQUEUE'

EXPORTING

number = l_pernr.

IMPORTING
RETURN = .

ENDFORM. " lock_emp

&----

*& Form unlock_emp

&----

text

----

-->P_PERNR text

----

FORM unlock_emp USING l_pernr.

CALL FUNCTION 'BAPI_EMPLOYEE_DEQUEUE'

EXPORTING

number = l_pernr.

IMPORTING
RETURN = .

ENDFORM. " unlock_emp

&----

*& Form maintain_infotype

&----

text

----

--> p1 text
<-- p2 text

----

FORM maintain_infotype USING l_action .

CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'

EXPORTING

pernr = pernr

massn = l_action

actio = 'COP'

tclas = 'A'

begda = v_inrec-eff_date

endda = '99991231'

OBJPS =
SEQNR =
SPRPS =
SUBTY =
WERKS =
PERSG =
PERSK =
PLANS =

DIALOG_MODE = '2'

LUW_MODE = '1'
NO_EXISTENCE_CHECK = ' '
NO_ENQUEUE = ' '
IMPORTING
RETURN =
RETURN1 =
HR_RETURN =

TABLES

proposed_values = t_proposed_values

MODIFIED_KEYS =

ENDFORM. " maintain_infotype

**********************************************************

&----

*& Form create_vacancy

&----

text

----

--> p1 text
<-- p2 text

----

FORM create_vacancy .

DATA: new_date TYPE char10.

DATA: position TYPE pm0d1-seark.

position = v_inrec-oldposition.

position = v_objid.

PERFORM format_date USING v_inrec-vac_eff_dt CHANGING new_date.

IF v_inrec-vacancy_flag EQ '1'.

CALL FUNCTION 'ZOM_CREATE_VACANCY'

EXPORTING

vacancy_code = position

begda = new_date

ENDDA = '12319999'

ENDIF.

endform. " create_vacancy

&----

*& Form format_date

&----

text

----

-->U_DATE text
-->C_DATE text

----

FORM format_date USING u_date CHANGING c_date.

c_date0(2) = u_date4.

c_date2(2) = u_date6.

c_date+4(4) = u_date.

ENDFORM. "format_date

&----

*& Form find_position

&----

text

----

--> p1 text
<-- p2 text

----

FORM find_position .

DATA: l_object TYPE hrobject_t,

l_begda TYPE begda,

l_endda TYPE endda,

t_object TYPE p1001tab,

w_object1 TYPE LINE OF p1001tab,

w_object TYPE LINE OF hrobject_t,

new_date TYPE char10.

w_object-plvar = '01'.

w_object-otype = 'P'.

w_object-objid = pernr.

APPEND w_object TO l_object.

CALL FUNCTION 'HR_HCP_GET_POSITION_FOR_EMPL'

EXPORTING

im_objecttab = l_object[]

im_begda = v_inrec-eff_date

im_endda = '99991231'

IMPORTING

ex_1001_tab = t_object[]

EXCEPTIONS

read_1001_error = 1

OTHERS = 2.

IF sy-subrc <> 0.

EXIT.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

READ TABLE t_object INTO w_object1 INDEX 1.

v_objid = w_object1-sobid.

ENDFORM. " find_position

*&----

**& Form fill_prop_value_cost_dist

*&----

text

*----

--> p1 text
<-- p2 text

*----

*FORM fill_prop_value_cost_dist .

DATA: t_0001 TYPE STANDARD TABLE OF p0001 WITH HEADER LINE.
DATA: next_paydate TYPE sydatum,
w_0001 TYPE p0001.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
pernr = pernr
infty = '0001'
begda = eff_date
TABLES
infty_tab = t_0001[]
EXCEPTIONS
infty_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
EXIT.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

SORT t_0001 BY begda DESCENDING.

Read the latest employee records

READ TABLE t_0001 INTO w_0001 INDEX 1.
IF sy-subrc = 0.

CLEAR w_proposed_values.
w_proposed_values-infty = '0027'.
w_proposed_values-fname = 'P0027-KSTAR'.
w_proposed_values-fval = '01'.
APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.
w_proposed_values-infty = '0027'.
w_proposed_values-fname = 'P0027-KBU01'.
w_proposed_values-fval = w_0001-bukrs.
APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.
w_proposed_values-infty = '0027'.
w_proposed_values-fname = 'P0027-KST01'.
w_proposed_values-fval = w_0001-kostl.
APPEND w_proposed_values TO t_proposed_values.

**Get the payroll period

CALL FUNCTION 'HR_MX_LAST_NEXT_PAYROLL_PERIOD'
EXPORTING
pernr = pernr
IMPORTING
last_paydate = next_paydate
EXCEPTIONS
no_rgdir_entries = 1
it1_error = 2
t549a_error = 3
t549q_error = 4
OTHERS = 5.
IF sy-subrc <> 0.
EXIT.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.
CLEAR w_proposed_values.
w_proposed_values-infty = '0027'.
w_proposed_values-fname = 'P0027-BEGDA'.
w_proposed_values-fval = next_paydate.
APPEND w_proposed_values TO t_proposed_values.

CLEAR w_proposed_values.
w_proposed_values-infty = '0027'.
w_proposed_values-fname = 'P0027-ENDDA'.
w_proposed_values-fval = eff_date.
APPEND w_proposed_values TO t_proposed_values.
ENDIF.

*ENDFORM. " fill_prop_value_cost_dist

topic Re: Coding reqd using HR_MAINTAIN_MASTERDATA function for upload in Application Development and Automation Discussions

Coding reqd using HR_MAINTAIN_MASTERDATA function for upload

Re: Coding reqd using HR_MAINTAIN_MASTERDATA function for upload

Re: Coding reqd using HR_MAINTAIN_MASTERDATA function for upload