Calculate salary of employee from April to December ??

Question

Hi all,
I want to find the salary of the employee from April to December month for that particular year entered on the selection screen, and then from January to March as well.
How is it possible?
I tried looking into various infotypes, but I couldn't find how to resolve this.
Any help would be apperciated and rewarded.
Regards
Tarun

Answer 1

Hi all,
I am using the below code for my problem.
  data: l_pernr like pa0000-pernr.
deviding the date and month
month = date+4(2).
*date = date+6(2).
curr_year = date+0(4).
IF month GT 3.
next_year = curr_year + 1.
ELSE.
next_year = curr_year.
curr_year = curr_year - 1.
ENDIF.
*CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
i_date = mydate
I_MONMIT = 00
i_periv = 'XX'
IMPORTING
E_BUPER =
E_GJAHR = curr_year
EXCEPTIONS
INPUT_FALSE = 1
T009_NOTFOUND = 2
T009B_NOTFOUND = 3
OTHERS = 4
CONCATENATE curr_year '04' '01' INTO p_begda.
CONCATENATE curr_year '12' '31' INTO p_endda.
  call function 'CU_READ_RGDIR'
    exporting
      persnr          = ls_tds_1-pernr
    importing
      molga           = w_molga
    tables
      in_rgdir        = it_rgdir1
    exceptions
      no_record_found = 1
      others          = 2.
  if not w_molga is initial.
    call function 'CD_READ_LAST'
      exporting
        begin_date      = p_begda
        end_date        = p_endda
      importing
        out_seqnr       = w_seqnr
      tables
        rgdir           = it_rgdir
      exceptions
        no_record_found = 1
        others          = 2.
  endif.
  sort it_rgdir by fpend descending.
  loop at it_rgdir into wa_itrgdir. "where fpbeg le p_endda and fpend = p_endda.
    w_seqnr = wa_itrgdir-seqnr.
  endloop.
  select single relid from t500l into w_relid where molga  =  'W_MOLGA'.
  l_pernr = ls_tds_1-pernr .
  call function 'PYXX_READ_PAYROLL_RESULT'
    exporting
      clusterid                    = w_relid
      employeenumber               = l_pernr
      sequencenumber               = w_seqnr                "'00003'
      read_only_international      = 'X'
    changing
      payroll_result               = it_result
    exceptions
      illegal_isocode_or_clusterid = 1
      error_generating_import      = 2
      import_mismatch_error        = 3
      subpool_dir_full             = 4
      no_read_authority            = 5
      no_record_found              = 6
      versions_do_not_match        = 7
      error_reading_archive        = 8
      error_reading_relid          = 9
      others                       = 10.
  loop at it_result-inter-rt into wa_rt.    " MAIN DATA THAT CAME FROM RT TABLE   FROM FN MODULE... LIKE FINAL PAYMENT I.E IN AMNT 19
    wagetype = wa_rt-lgart.
    case wagetype.
      when '1000'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg.
      when '1010'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1020'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1030'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1100'. " HRA REPAYMENT
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1040'. " HRA BALANCE
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1050'. " STAFF ADVANCE REPAYMENT
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1060'. " STAFF ADVANCE BALANCE
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1080'. " STAFF LOAN REPAYMENT
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1090'. " STAFF LOAN REPAYMENT
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1120'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1130'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1140'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '3010'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1160'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '/3E1'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '/3E2'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '/460'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '/3P1'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '9000'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg . " BONUS
      when '4000'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ). " ADVANCE
      when '4020'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ).
      when '4080'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ).
      when '4030'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ).
      when '4045'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ).
      when '4070'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ).
      when '4010'.
        ls_tds-up_to_april = ls_tds-up_to_april + ( -1 * wa_rt-betrg ).
      when '/3W1'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
      when '1170'.
        ls_tds-up_to_april = ls_tds-up_to_april + wa_rt-betrg .
    endcase.
  endloop.
The first fm is giving me all the date periods which are there in pc_payresult, but the second fm is not giving me anything in it_rgdir. What is the reason for that.
Further, i am using all this code in a form, and calling this form inside a loop for all the pernrs.
And now seqnr will be different for different date periods. so suppose for 1.4.2011 to 31.12.2011, will have 9 different seqnr's, so i will have to call the last fm(3rd fm) 9 times to get complete sum, or any other solution is available??