Skip to Content
author's profile photo Former Member
Former Member

Regarding user exist zxpadu02 in pa30 transaction

Dear Guru's,

I am working in the user exist zxpadu02 for pa30 transaction code for infotype 8.

My problem is i am entering annual salary then defaultly i would get the standard wage type /tpa with Monthly amount.

i have return the below code.

DATA: I0008 TYPE P0008,

BETRG TYPE BETRG.

CASE innnn-infty.

WHEN '0008'.

CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn

EXPORTING

prelp = innnn

IMPORTING

pnnnn = i0008.

betrg = i0008-ANSAL / 12.

IF i0008-lga01 = '/TPA'.

i0008-bet01 = betrg.

i0008-ind01 = ' '.

ELSEIF i0008-lga02 = '/TPA'.

i0008-bet02 = betrg.

i0008-ind02 = ' '.

ELSEIF i0008-lga03 = '/TPA'.

i0008-bet03 = betrg.

i0008-ind03 = ' '.

ELSEIF i0008-lga04 = '/TPA'.

i0008-bet04 = betrg.

i0008-ind04 = ' '.

ELSEIF i0008-lga05 = '/TPA'.

i0008-bet05 = betrg.

i0008-ind05 = ' '.

ENDIF.

CALL METHOD cl_hr_pnnnn_type_cast=>pnnnn_to_prelp

EXPORTING

pnnnn = i0008

IMPORTING

prelp = innnn.

ENDCASE.

I am not getting the value in /TPA wage type. But when ever i am giving some value for ex /TPA value 1,then press save then it will saves the details.

When I display the record it will shows the correct value like betrg = i0008-ANSAL / 12. Now my question is before saving only the wage type /TPA

value should be i0008-ANSAL / 12 after pressing enter.

I am able to see the correct value of wage type /TPA in debugging,but the value is not reflecting the pa30 screen.

Please can any body help me out.

Thanks in advance,

Kishor Kumar

Add a comment
10|10000 characters needed characters exceeded

Related questions

1 Answer

  • author's profile photo Former Member
    Former Member
    Posted on May 07, 2012 at 01:42 PM

    Hi Kishore,

    Thr i0008 , which will shows the current entry of the screen., , but if u want to populate the values , u want to assign the values at table level....

    example :

    CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn

    EXPORTING

    prelp = innnn

    IMPORTING

    pnnnn = w_p0002.

    select SINGLE * from t511k into WA_IT2 where konst = 'ZPEN' and MOLGA = '99' and begda LE Sy-datum

    and ENDDA GE Sy-datum.

    If WA_IT2-KWERT is not initial.

    V_KWERT = WA_IT2-KWERT .

    Endif.

    select single * from t511k into WA_IT3 WHERE KONST = 'ZNSF' AND BEGDA LE SY-DATUM AND ENDDA GE SY-DATUM.

    IF WA_IT3-KWERT IS NOT INITIAL.

    V_KWERT1 = WA_IT3-KWERT.

    ENDIF.

    *data : field type q0014-eitxt.

    * FIELD-SYMBOLS:<fs_eitxt> type q0014.

    if w_p0002-zzpn = 'X'.

    wa_pa0014-pernr = innnn-pernr.

    wa_pa0014-endda = innnn-endda.

    wa_pa0014-begda = innnn-begda.

    wa_pa0014-anzhl = v_kwert.

    wa_pa0014-SUBTY = '2000'.

    wa_pa0014-LGART = '2000'.

    wa_pa0014-WAERS = 'KES'.

    Q0014-EITXT = 'PERCENT'.

    modify pa0014 from wa_pa0014.

    endif.

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.