Uncheck non eligible employees by Flag

Hi All
Is there a flag option in SAP to uncheck employees not eligible for company pension plans
and the pension box needs to remain unchecked on yearend W-2’s.
Thanks in advance

Hi Somu,
You can use HRECM00_ELIGIBILITY BADI method CHECK_ELIGIBILITY. You should be able to change eligibility. However, if you want to restrict number of employee employee based on eligibility then it would required you to make changes in configuration. Number of employee being fetched based on SAP Standard OM evaluation path. you might need to create FM in stead of OM evaluation path to restrict employee. I remember IMG path that we used in iView ECM. Not sure whether same config used for webdynpro based application.
Integration with Other SAP Components->Business Packages / Functional Packages->Manager Self-Service->Object and Data Provider->Group Views of Organizational Structure.
Here we used to configured drop down for employee selection. Hope you would be able to find something relevant here. Not sure about webdynpro application point of view.

Similar Messages

A report that lists all non-exempt employees that do not have a supervisor

HI all,
Please help. This is urgent.
bold "A report that lists all non-exempt employees that do not have a supervisor assigned in R/3." bold
I have already selected non-exempt employees but don't know how to select people who do not have a supervisor" What selection criteria I should choose in the ad-hoc query
Thanks a bunch,
Rashmi

Hi
Actually its not that difficult. You can give a criteria in selection where relationship A002 is equal to a space . Replace A002 in this example with the relatioship you have defined for 'Reports(line) to'.
Regards
Waz

Eligible employees for compensation review

Hi,
I currently have a requirement which is handling the Compensation Planning Budgeting. While creating the Budget structures I need to determine the Eligible employee population depending on the Compensation Review Item selected on the selection of the Custom program.
Compensation Review Item is in V_T71ADM09-CITEM. So with this condition how can I find all the Eligible Employees having the Comp Item selected.
Kindly let me know if you have any information regarding this.
Thanks and Regards,
Zareena.

Hi Anil..
      Thanks for the reply..
       we wanted to make use of the FM : HR_ECM_CHECK_ELIGIBILITY ,this will work for a single pernr at a time,but suppose if a org has 20000 employees who belongs to the citem selected then calling this FM for all those employees is not realistic.
       Kindly let me know incase we have any other FM's which wil serve our purpose or the logic which we can make use of to resolve the perrformance issue.
Thanks and Regards,
Zareena.

Problem with WorkFlow of Purchase Orders related to non active employees

Dear all,
We are running into issues with the WorkFlow when people are linked to a PO who are not anymore an active employee. That will give problems in the workflow as those people are logically not going to goods receipt/invoice reciept/approve those invoices.
How should we deal with this problem?
We are thinking about a solution like creating an overview of ALL purchase orders (without Goods Receipt) in which the creator, project manager or project sponsor of that specific PO is not anymore an active employee.
Could someone please advise the right solution?
Thanks in advance.

Experts? Anyone?

How to enter a non-oracle employee"labor hours in Oracle PA"

Hi Friends,
I have an issue that "need to enter outside Oracle employee (who has not entered as employee in HRMS, but working as temporary only) labor hours in PA" (11.5.10.2) for a perticular Project.
Thanks in advance
Surya Dev

Hi Dina,
Thanks for the reply.
we are using 11i (11.5.10.2) and I checked in the same tab "expnd/costing" tab only (in Setup > System > Implemenion Options). But there is no check boxes as "Import Contingent Worker Timecards with Purchase Order Integration" and "Interface Contingent Worker Labor Costs".
Is there any profile options related to enable these options?
Please advise.
Thanks,
Prakash

Creating non-ad employee records

I would like to develop a solution that will allow a user to go to his/her mypage and enter address, phone, degrees, certifications, awards, and resume. I would then like their supervisor/manager to be able to see their team's information from a dashboard.
It sounds like ti should be pretty simple to do, but I just can seem to figure out a starting point. Suggestions?

Matt,
I am sure you are aware of SharePoint mysite which is personal space for each employee. By default SP provides most of the fields(as you said) to editable by user which is configuration by Central admin & user. You need to create for more custom user
profile property which are not present in SP. You can think of creating them in AD as well(but depends).
Thats it. User will update and their manager will see as per property visibility scope.
https://support.office.com/en-US/Article/Build-a-My-Site-profile-to-help-people-find-you-ae18c3a3-5be9-4cc7-a1af-00a42575c742?ui=en-US
https://www.youtube.com/watch?v=1s4vf_v0l0k
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=sharepoint%202010%20add%20profile%20property
Please 'propose as answer' if it helped you, also 'vote helpful' if you like this reply.

IPhone pricing for non-eligible upgrades

I've been wanting an iPhone for months now pretty much since the 3G came out. I think it's pretty ridiculous I just can't upgrade my contract now and get the 3Gs and sign into additonal 2yrs. Why oh why does the pricing have to be this way!

shananies wrote:
I get it, I just think it's so annoying. The device is more than just a **** phone let people buy it. You know how many MORE they would sell if you could just outright buy it at that price! I'm pretty sure it would double the market.
So, your contention is that if they sold the phone outright at a loss, they could make it up in volume?

Need API for checking Employeement Flag

Hi Team ,
I have terminated an employee on today's date and the employeement flag is "Y" for the whole day.
Its not effecting the employeement at the time of terminate.
Is there any work flow dependence or its not Time Stamp dependent.?
Is there any API to get the Employeement Status Flag?
Thanks In Advance,
Ajit

You should probably ask this in the eBusiness Suite forum.

ECM - How to check eligiblity of the employees for a comp review item

Hi
We have one requirement in Compensation management, While creating the Budget structures I need to determine the Eligible employee population (For amount calculation) depending on the Compensation Review Item selected on the selection of the Custom program. Compensation Review Item is in V_T71ADM09-CITEM. So with this condition how can I find all the Eligible Employees having the Comp Item selected.
Thanks in advance,
Shrinivas

Hi,
eligbility is maintained in IT0381 - Compensation Eligibility
Wilfred.

ECM Employee Does Not Meet the Requirements Error

We're receiving an error on the ECM compensation planning iView for certain eligible employees. It says, 'employee does not meet the requirements to proceed with this action' error. Have you seen this error before? If yes, then what fixed it? These employees are eligible on IT758 records.

I can think of this:
Scenario 1
Configuration setting in V_T71ADM08: Anytime review is checked for your review.
System response: Dates in V_T71ADM10 are not checked and you are able to process the review.
Scenario 2
Configuration setting in V_T71ADM08:
Anytime review is not checked for your review.
Selection period 01/01/2010 - 04/15/2010
Review period 12/31/2009 - 12/31/2009
Configuration setting in V_T71ADM10:
Effective Date 3/31/2010 (fixed)
System response: Error as the effective date is March 31st 2010. The review will only be effective for that day. Anytime review does not check this date as explained in the 1st scenario. I think you need to remove the fixed effective date and use the effective date begin and end date as 01/01/2010 u2013 04/15/2010. You would then also uncheck the anytime review setting in V_T71ADM08. I think the review period in the same table should also match the effective dates.
Hope this helps.
Donnie

Unwanted leave approval notification mails to Non-Manager

Hello All,
I have a situation wherein one of our portal users started getting leave approval notification mails from other employees in that Org Unit. Now the interesting part is he is not a manager and never was. Checked his relationships, substitutes and delegations and every where it is normal and not supposed to receive such mails. Moreover we are not using workflows yet
Where could we have gone wrong, after so many attempts now my I am gone blank so please do suggest me all tables or customizations where it could went wrong or possibly any silly mistakes that would trigger this kind of problems.

Thanq, that was very prompt;
Here are my settings in RPTARQEAIL.
Send email to requestor with text HR_TIM_ARQ_REQUESTOR with general notification almost for all.
But should I rather check the settings for mail to approver instead? Coz one of a non manager employee is getting approver notification mail such as " your employees in your dept are awaiting for your processing..."
Can you brief me out on why this document selection radio button could have gone wrong in sending mails to requestor regarding approvals.

Reading payroll results for an employee from ABAP-HR?

Hi,
   I dont know whether i must post this question in this category ? but i had a problem in reading of the payroll data for employees.
    I used the function of PYXX_READ_PAYROLL_RESULT and passed the PERNR(employee number), SEQNR, RELID(clusterid) for a given period of say PN-BEGDA AND PN-ENDDA. And i took the payroll structure of germany (its PAYDE_RESULT). program is showing the exceptions since between the selected periods i had many different country employees other than germany DE. how can i solve that problem ? if i use PAY99_RESULT then i cant read the National wage types? how to solve this problem?
    which function i must use so that i must get all the payroll data of the employees between the given period with inter/national payroll details and also which structure(like PAYDE_RESULT) i must use for holding the payroll data that is unique?
   please help me.
   ***Ratings are must for a possible answer.

Hi KK,
In this sample code...you will find the use of the method i meantioned.
REPORT zgratuity_ipcl MESSAGE-ID zh.
TABLES : pernr , pa0001, pa0008 , pa0000 , t569v.
TYPE-POOLS: slis.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
INFOTYPES: 0008 ,0001,0002,0000.
DATA : period(6),
       pay_period(6),
       c_period(6).
DATA: number LIKE pc261-seqnr.
DATA : refdt LIKE p0000-begda.
DATA: ason_yr LIKE p0347-scryy,
      ason_mon LIKE p0347-scrmm.
DATA : BEGIN OF it_0000 OCCURS 100,
       pernr LIKE pa0000-pernr,
       stat2 LIKE pa0000-stat2,
       massn LIKE pa0000-massn,
       begda LIKE pa0000-begda,
       endda LIKE pa0000-endda,
       END OF it_0000.
DATA : g_molga LIKE t512t-molga.
DATA: BEGIN OF package,
        lga LIKE p0008-lga01,
        bet LIKE p0008-bet01,
      END OF package.
DATA : BEGIN OF rgdir OCCURS 0.
        INCLUDE STRUCTURE pc261.
DATA : END OF rgdir.
DATA : BEGIN OF rx-key OCCURS 0.
        INCLUDE STRUCTURE pc200.
DATA : END OF rx-key.
DATA : BEGIN OF crt OCCURS 0.         "result table
        INCLUDE STRUCTURE pc208.
DATA : END OF crt.
DATA : b_date LIKE sy-datum,
       e_date LIKE sy-datum.
DATA : darate LIKE t539j-gwcht.
DATA : gamt TYPE p.
DATA : BEGIN OF it_0001 OCCURS 100,
       pernr LIKE pa0000-pernr,
       ename LIKE pa0001-ename,
       bukrs LIKE pa0001-bukrs,
       persk LIKE pa0001-persk,
       persg LIKE pa0001-persg,
       werks LIKE pa0001-werks,
       END OF it_0001.
**start of mod by tejas on 31.05.06
DATA : BEGIN OF it_final_sup OCCURS 100,
       pernr LIKE pa0001-pernr, "PL No
       ename LIKE pa0001-ename, "NAME
       persg LIKE pa0001-persg, "EMP GROUP
       persk LIKE pa0001-persk, "ESG
       zzpla LIKE pa0001-zzpla, "PLANT/BUSINESS
       orgeh LIKE pa0001-orgeh, "ORG UNIT
       orgtx LIKE t527x-orgtx,   "ORG UNIT TEXT
       gbdat LIKE pa0002-gbdat, "DOB
       termn LIKE pa0019-termn, "DOJ
       zzrtdt LIKE pa0002-zzrtdt,"DOR
       sepdt LIKE pa0000-begda,
       no_years TYPE i,          "SERVICE YEARS
       stat2 LIKE pa0000-stat2, "STATUS
       s_text(15),               "STATUS TEXT
       basic LIKE pa0008-bet01, "BASIC
       da LIKE pa0008-bet01,     "DA
       total LIKE pa0008-bet01, "TOTAL
       crt LIKE pc207-betrg,     "GRTUITY
       massn LIKE pa0000-massn,
       begda LIKE pa0000-begda,
       ason(6) ,
      dates LIKE pa0002-zzrtdt,
       END OF it_final_sup.
DATA : BEGIN OF it_final_nonsup OCCURS 100,
       pernr LIKE pa0001-pernr, "PL No
       ename LIKE pa0001-ename, "NAME
       persg LIKE pa0001-persg, "EMP GROUP
       persk LIKE pa0001-persk, "ESG
       zzpla LIKE pa0001-zzpla, "PLANT/BUSINESS
       orgeh LIKE pa0001-orgeh, "ORG UNIT
       orgtx LIKE t527x-orgtx,   "ORG UNIT TEXT
       gbdat LIKE pa0002-gbdat, "DOB
       termn LIKE pa0019-termn, "DOJ
       zzrtdt LIKE pa0002-zzrtdt,"DOR
       sepdt LIKE pa0000-begda,
       no_years TYPE i,          "SERVICE YEARS
       stat2 LIKE pa0000-stat2, "STATUS
       s_text(15),               "STATUS TEXT
       basic LIKE pa0008-bet01, "BASIC
       da LIKE pa0008-bet01,     "DA
       total LIKE pa0008-bet01, "TOTAL
       crt LIKE pc207-betrg,     "GRTUITY
       massn LIKE pa0000-massn,
       begda LIKE pa0000-begda,
       ason(6) ,
      dates LIKE pa0002-zzrtdt,
       END OF it_final_nonsup.
DATA : BEGIN OF it_final OCCURS 100,
       pernr LIKE pa0001-pernr, "PL No
       ename LIKE pa0001-ename, "NAME
       persg LIKE pa0001-persg, "EMP GROUP
       persk LIKE pa0001-persk, "ESG
       zzpla LIKE pa0001-zzpla, "PLANT/BUSINESS
       orgeh LIKE pa0001-orgeh, "ORG UNIT
       orgtx LIKE t527x-orgtx,   "ORG UNIT TEXT
       gbdat LIKE pa0002-gbdat, "DOB
       termn LIKE pa0019-termn, "DOJ
       zzrtdt LIKE pa0002-zzrtdt,"DOR
       sepdt LIKE pa0000-begda,
       no_years TYPE i,          "SERVICE YEARS
       stat2 LIKE pa0000-stat2, "STATUS
       s_text(15),               "STATUS TEXT
       basic LIKE pa0008-bet01, "BASIC
       da LIKE pa0008-bet01,     "DA
       total LIKE pa0008-bet01, "TOTAL
       crt LIKE pc207-betrg,     "GRTUITY
       massn LIKE pa0000-massn,
       begda LIKE pa0000-begda,
       ason(6) ,
      dates LIKE pa0002-zzrtdt,
       END OF it_final.
**end of mod by tejas on 31.05.06
DATA : f_pabrj LIKE t549s-pabrj,
       f_pabrp LIKE t549s-pabrp.
DECLARATIONS FOR ALV DISPLAY
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv ,
      gs_print    TYPE slis_print_alv,
      gt_filter   TYPE slis_t_filter_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_alv_graphics TYPE dtc_t_tc,
      gt_excluding TYPE slis_t_extab ,
      gt_events   TYPE slis_t_event,
      gt_print TYPE slis_print_alv.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA: g_boxnam TYPE slis_fieldname VALUE 'BOX',
      p_f2code LIKE sy-ucomm       VALUE '&ETA',
      p_lignam TYPE slis_fieldname VALUE 'LIGHTS',
      g_save(1) TYPE c VALUE 'X',
      g_default(1) TYPE c VALUE 'X',
      g_exit(1) TYPE c,
      gx_variant LIKE disvariant,
      g_variant LIKE disvariant,
      g_repid LIKE sy-repid.
DATA : result TYPE pay99_result.
DATA : crt_header TYPE LINE OF hrpay99_crt.
INITIALIZATION.
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
SELECT-OPTIONS : sstat2 FOR pa0000-stat2.
SELECTION-SCREEN: END OF BLOCK b2.
*SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
*SELECTION-SCREEN : SKIP.
*PARAMETERS : P_STAT2 LIKE PA0000-STAT2.
*SELECTION-SCREEN : SKIP.
*SELECTION-SCREEN : END OF BLOCK B1.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF screen-name = 'PNPABKRS-LOW'.
      screen-required = 1.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
AT SELECTION-SCREEN." on pnppabrj.
IF pnptimr9 = 'X'.
    CONCATENATE pnpdispj pnpdispp INTO period.
    CONCATENATE pnpdispp pnpdispj INTO pay_period.
ELSE.
    CONCATENATE pnppabrj pnppabrp INTO period.
    CONCATENATE pnppabrp pnppabrj INTO pay_period.
ENDIF.
IF period < '200505'.
    MESSAGE e001 WITH
    'Gratuity report is for period after month Auguest 2005' .
    STOP.
ENDIF.
SELECT SINGLE * FROM t569v
WHERE abkrs = pnpxabkr.
CONCATENATE t569v-pabrj t569v-pabrp INTO c_period.
IF period > c_period.
    MESSAGE e001 WITH 'Payroll for this period is not yet processed' .
    STOP.
ENDIF.
CONCATENATE pnppabrj pnppabrp INTO period.
CONCATENATE pnppabrp pnppabrj INTO pay_period.
IF period =< '200505'.
   MESSAGE e001 WITH 'Program is not valid for this period' pnppabrj
*pnppabrp.
ENDIF.
START-OF-SELECTION.
GET pernr.
PERFORM fill_data.
END-OF-SELECTION.
PERFORM final_data.
PERFORM display_data.
*&      Form FILL_DATA
      text
--> p1        text
<-- p2        text
FORM fill_data.
SORT p0000 BY pernr.
SORT p0001 BY pernr.
SORT p0002 BY pernr.
SORT p0008 BY pernr.
start mod made by kinjal for payroll dates
IF pnptimr9 = 'X'.
    CALL FUNCTION 'HR_GB_PERIOD_DATES'
         EXPORTING
             abkrs            = pnpxabkr
        PERMO            =
              pabrj            = pnpdispj
              pabrp            = pnpdispp
        IMPORTING
              begda            = b_date
              endda            = e_date .
   EXCEPTIONS
        PERIOD_NOT_FOUND = 1
        OTHERS           = 2
ELSE.
    CALL FUNCTION 'HR_GB_PERIOD_DATES'
        EXPORTING
            abkrs            = pnpxabkr
        PERMO            =
             pabrj            = pnppabrj
             pabrp            = pnppabrp
       IMPORTING
             begda            = b_date
             endda            = e_date
   EXCEPTIONS
        PERIOD_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.
ENDIF.
CONCATENATE pnppabrj pnppabrp '01' INTO b_date.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
      EXPORTING
           iv_date             = b_date
     IMPORTING
        EV_MONTH_BEGIN_DATE =
          ev_month_end_date   = e_date.
end of modification
*DATA FETCHING FOR SUPERVISOR EMPLOYEES
LOOP AT p0001 WHERE begda <= e_date AND
                      endda >= e_date AND
                          persg = 'R' OR
                          persg = 'P'
                        AND
                          ( persk >= '11' AND
                            persk <= '17'
                          OR
                          ( persk >= 'IA' AND
                            persk <= 'IJ'
    MOVE-CORRESPONDING p0001 TO it_final_sup.
    READ TABLE p0002 WITH KEY pernr = p0001-pernr BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE-CORRESPONDING p0002 TO it_final_sup.
    ENDIF.
LOOP AT p0000 WHERE pernr = p0001-pernr AND begda <= e_date AND endda
                >= e_date AND stat2 IN sstat2.
      SELECT SINGLE orgtx INTO it_final_sup-orgtx FROM t527x
      WHERE sprsl = 'EN'
      AND   orgeh = p0001-orgeh.
      SELECT SINGLE text1 INTO it_final_sup-s_text FROM t529u
      WHERE sprsl = 'EN'
      AND statn = '2'
      AND   statv = p0000-stat2.
      MOVE-CORRESPONDING p0000 TO it_final_sup.
      IF p0000-massn = 'A6'.
        MOVE p0000-begda TO it_final_sup-zzrtdt.
      ELSE.
        it_final_sup-zzrtdt = '          '.
      ENDIF.
    ENDLOOP.
    IF sy-subrc <> 0.
      CONTINUE.
    ENDIF.
    SELECT SINGLE termn INTO it_final_sup-termn FROM pa0019
    WHERE pernr = p0001-pernr
    AND tmart = '06'.
    IF sy-subrc = 0.
      CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
           EXPORTING
                date1                   = sy-datum
                date2                   = it_final_sup-termn
               output_format           = '05'
          IMPORTING
               years                   = ason_yr
               months                  = ason_mon
        DAYS                    =
          EXCEPTIONS
               invalid_dates_specified = 1
               OTHERS                  = 2
      IF ason_mon > 6.
        ason_yr = ason_yr + 1.
      ENDIF.
      MOVE ason_yr TO it_final_sup-no_years.
    ENDIF.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    LOOP AT p0008 WHERE begda <= e_date AND endda >= e_date AND pernr =
                        p0001-pernr.
     DO 20 TIMES VARYING package-lga FROM p0008-lga01 NEXT p0008-lga02
                  VARYING package-bet FROM p0008-bet01 NEXT p0008-bet02.
        CASE package-lga.
          WHEN '0010'.
            it_final_sup-basic = package-bet + it_final_sup-basic.
          WHEN '0I10'.
            it_final_sup-da = package-bet + it_final_sup-da.
        ENDCASE.
      ENDDO.
      it_final_sup-total = it_final_sup-basic + it_final_sup-da.
    ENDLOOP.
   BREAK-POINT.
start mod made by kinjal
    it_final_sup-zzrtdt = it_final_sup-zzrtdt - 1.
    CALL FUNCTION 'HR_PAYROLL_PERIODS_GET'
         EXPORTING
              get_begda       = it_final_sup-zzrtdt
        GET_ENDDA       =
             get_permo        = '67'
         IMPORTING
             get_pabrj       = f_pabrj
             get_pabrp       = f_pabrp
   TABLES
        GET_PERIODS     =
        EXCEPTIONS
             no_period_found = 1
             no_valid_permo = 2
             OTHERS          = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF it_final_sup-stat2 <> '3'.
     CONCATENATE it_final-dates+4(2) INTO period.
      CONCATENATE f_pabrj f_pabrp INTO period.
      it_final_sup-ason = period.
    ENDIF.
end of mod
    rx-key-pernr = p0001-pernr.
    CALL FUNCTION 'CU_READ_RGDIR'
         EXPORTING
              persnr          = p0001-pernr
         IMPORTING
              molga           = g_molga
         TABLES
              in_rgdir        = rgdir
         EXCEPTIONS
              no_record_found = 1
              OTHERS          = 2.
    LOOP AT rgdir WHERE fpper = period AND inper = period.
    ENDLOOP.
With this Seq. number as a key for cluster Key
we can read the RT table from the cluster/..
IF 2
    IF sy-subrc EQ 0.
      rx-key-seqno = rgdir-seqnr.
      IMPORT crt FROM DATABASE pcl2(in) ID rx-key.
      IF NOT crt[] IS INITIAL.
        PERFORM resultstab.
      ENDIF.
      APPEND it_final_sup.
      CLEAR it_final_sup.
    ENDIF.
LOOP AT rgdir WHERE
         inper = period AND
         srtza = 'A'.
   rx-key-seqno = rgdir-seqnr.
   number = rgdir-seqnr.
   CLEAR rt.
   REFRESH rt.
Importing Result table cluster
   IMPORT rt FROM DATABASE pcl2(in) ID rx-key.
   IF NOT rt[] IS INITIAL.
     PERFORM resultstab.
   ENDIF.
ENDLOOP.
   APPEND it_final.
   CLEAR IT_FINAL.
ENDLOOP.
RP-PROVIDE-FROM-LAST P0008 SPACE B_DATE E_DATE.
BREAK-POINT.
   DO 10 TIMES varying PACKAGE-LGA from p0008-lga01 next p0008-lga02
               varying package-bet from p0008-bet01 next p0008-bet02.
     compute itab-gross = itab-gross + package-bet.
     IF sy-index = 10.
       itab-pernr = p0008-pernr.
       append itab.
     endif.
   enddo.
*DATA FETCHING FOR NON SUPERVISOR EMPLOYEES
LOOP AT p0001 WHERE begda <= e_date AND
                      endda >= e_date AND
                          persg = 'R' OR
                          persg = 'P'
                        AND
                          persk >= 'IL' AND
                          persk <= 'IV'
    MOVE-CORRESPONDING p0001 TO it_final_nonsup.
    READ TABLE p0002 WITH KEY pernr = p0001-pernr BINARY SEARCH.
    IF sy-subrc = 0.
      MOVE-CORRESPONDING p0002 TO it_final_nonsup.
    ENDIF.
LOOP AT p0000 WHERE pernr = p0001-pernr AND begda <= e_date AND endda
                >= e_date AND stat2 IN sstat2.
      SELECT SINGLE orgtx INTO it_final_nonsup-orgtx FROM t527x
      WHERE sprsl = 'EN'
      AND   orgeh = p0001-orgeh.
      SELECT SINGLE text1 INTO it_final_nonsup-s_text FROM t529u
      WHERE sprsl = 'EN'
      AND statn = '2'
      AND   statv = p0000-stat2.
      MOVE-CORRESPONDING p0000 TO it_final_nonsup.
      IF p0000-massn = 'A6'.
        MOVE p0000-begda TO it_final_nonsup-sepdt.
        MOVE p0000-begda TO refdt.
      ELSE.
       MOVE it_final_nonsup-zzrtdt TO refdt.
        MOVE e_date TO refdt.
      ENDIF.
    ENDLOOP.
    IF sy-subrc <> 0.
      CONTINUE.
    ENDIF.
    SELECT SINGLE termn INTO it_final_nonsup-termn FROM pa0019
    WHERE pernr = p0001-pernr
    AND tmart = '06'.
    IF sy-subrc = 0.
      CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
           EXPORTING
                date1                   = refdt
                date2                   = it_final_nonsup-termn
               output_format           = '05'
          IMPORTING
               years                   = ason_yr
               months                  = ason_mon
        DAYS                    =
          EXCEPTIONS
               invalid_dates_specified = 1
               OTHERS                  = 2
      IF ason_mon > 6.
        ason_yr = ason_yr + 1.
      ENDIF.
      MOVE ason_yr TO it_final_nonsup-no_years.
    ENDIF.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    LOOP AT p0008 WHERE begda <= refdt AND endda >= refdt AND
   LOOP AT p0008 WHERE begda <= e_date AND endda >= e_date AND
                        pernr = p0001-pernr.
     DO 20 TIMES VARYING package-lga FROM p0008-lga01 NEXT p0008-lga02
                  VARYING package-bet FROM p0008-bet01 NEXT p0008-bet02.
        CASE package-lga.
          WHEN '0010'.
            it_final_nonsup-basic = package-bet.
        ENDCASE.
      ENDDO.
    ENDLOOP.
    IF it_final_nonsup-massn = 'A6'.
      SELECT SINGLE gwcht FROM t539j
      INTO darate
      WHERE molga = '40'
      AND bwlga = '0I10'
      AND begda <= it_final_nonsup-begda
      AND endda >= it_final_nonsup-begda.
    ELSE.
      SELECT SINGLE gwcht FROM t539j
      INTO darate
      WHERE molga = '40'
      AND bwlga = '0I10'
      AND begda <= e_date
      AND endda >= e_date.
    ENDIF.
    it_final_nonsup-da = ( it_final_nonsup-basic * darate ) / 100.
    it_final_nonsup-total = it_final_nonsup-basic + it_final_nonsup-da.
    gamt = 0.
    gamt = ( it_final_nonsup-total * 15 * it_final_nonsup-no_years )
            / 26.
    IF gamt >= 350000.
      gamt = 350000.
    ENDIF.
    MOVE gamt TO it_final_nonsup-crt.
    CLEAR gamt.
    CLEAR refdt.
    APPEND it_final_nonsup.
    CLEAR it_final_nonsup.
LOOP AT rgdir WHERE
         inper = period AND
         srtza = 'A'.
   rx-key-seqno = rgdir-seqnr.
   number = rgdir-seqnr.
   CLEAR rt.
   REFRESH rt.
Importing Result table cluster
   IMPORT rt FROM DATABASE pcl2(in) ID rx-key.
   IF NOT rt[] IS INITIAL.
     PERFORM resultstab.
   ENDIF.
ENDLOOP.
   APPEND it_final.
   CLEAR IT_FINAL.
ENDLOOP.
ENDFORM.                    " FILL_DATA
" GET_GRATUITY
*&      Form RESULTSTAB
      text
--> p1        text
<-- p2        text
FORM resultstab.
LOOP AT crt WHERE lgart = '9GRA' AND cumty = 'U'.
    it_final_sup-crt = abs( crt-betrg ).
ENDLOOP.
ENDFORM.                    " RESULTSTAB
*&      Form DISPLAY_DATA
      text
--> p1        text
<-- p2        text
FORM display_data.
IF it_final[] IS INITIAL.
    MESSAGE i001 WITH 'No data found'.
    STOP.
ENDIF.
g_repid = sy-repid.
PERFORM e01_fieldcat_init USING gt_fieldcat[].
PERFORM eventtab_build CHANGING gt_events.
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM display_report.
ENDFORM.                    " DISPLAY_DATA
*&      Form E01_FIELDCAT_INIT
      text
     -->P_GT_FIELDCAT[] text
FORM e01_fieldcat_init USING   e01_lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
gs_layout-group_change_edit = 'X'.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'PERNR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Pers No'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'ENAME'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Name'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'PERSK'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'ESG Cd'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'ZZPLA'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Plant/Business'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'ORGTX'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Org.Unit'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'GBDAT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Dt.Of Birth'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'TERMN'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Dt.Of Joining'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'ZZRTDT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Superannuation Dt'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'SEPDT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Dt.Of Seperation'.
ls_fieldcat-datatype = 'DATS'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'NO_YEARS'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Service Years'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'S_TEXT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Status'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BASIC'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Basic'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'DA'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'DA'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'TOTAL'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Total'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'CRT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-seltext_l    = 'Gratuity'.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-no_zero = 'X'.
APPEND ls_fieldcat TO e01_lt_fieldcat.
ENDFORM.                    " E01_FIELDCAT_INIT
*&      Form EVENTTAB_BUILD
      text
     <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            i_list_type = 0
       IMPORTING
            et_events   = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO lt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form E04_COMMENT_BUILD
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM e04_comment_build USING   e04_lt_top_of_page TYPE slis_t_listheader
DATA: ls_line TYPE slis_listheader.
DATA : v_text(100) TYPE c,
         v_text1(100) TYPE c,
         date1(10),
         date2(10).
        v_pernrlines TYPE i,
        v_pernrchar(5).
DESCRIBE TABLE it_pernr LINES v_pernrlines.
MOVE v_pernrlines TO v_pernrchar.
CONCATENATE b_date6(2) '.' b_date4(2) '.' b_date+0(4) INTO date1.
CONCATENATE e_date6(2) '.' e_date4(2) '.' e_date+0(4) INTO date2.
CONCATENATE 'Gratuity Information for ' date1 'to' date2
INTO v_text SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text.
APPEND ls_line TO e04_lt_top_of_page.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text1.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM.                    " E04_COMMENT_BUILD
*&      Form DISPLAY_REPORT
      text
--> p1        text
<-- p2        text
FORM display_report.
gs_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
           i_background_id         = 'ALV_BACKGROUND'
            i_callback_program      = g_repid
           i_callback_user_command = 'USER_COMMAND'
           i_structure_name        = 'IT_FINAL'
            is_layout               = gs_layout
            it_fieldcat             = gt_fieldcat
           it_special_groups       = gt_sp_group[]
           it_sort                 = gt_sort[]
           it_filter               = gt_filter[]
           i_save                  = g_save
           is_variant              = g_variant
            it_events               = gt_events
           is_print                = gs_print
           it_alv_graphics         = gt_alv_graphics[]
           it_excluding            = gt_excluding
       TABLES
            t_outtab                = it_final.
ENDFORM.                    " DISPLAY_REPORT
      FORM top_of_page                                              *
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
           i_logo             = 'ENJOYSAP_LOGO'
            it_list_commentary = gt_list_top_of_page.
ENDFORM   .                    "TOP_OF_PAGE
FORM user_command USING g_ucomm TYPE sy-ucomm
                        g_field TYPE slis_selfield.
CASE g_ucomm.
    WHEN '&IC1'.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form FINAL_DATA
      text
--> p1        text
<-- p2        text
FORM final_data.
LOOP AT it_final_sup.
    MOVE-CORRESPONDING it_final_sup TO it_final.
    APPEND it_final.
    CLEAR it_final.
ENDLOOP.
LOOP AT it_final_nonsup.
    MOVE-CORRESPONDING it_final_nonsup TO it_final.
    APPEND it_final.
    CLEAR it_final.
ENDLOOP.
SORT it_final BY pernr.
ENDFORM.                    " FINAL_DATA
<b>Reward if useful,</b>
Regards,
Tejas

How to view employees of "only a specific employee-group" from an org unit

Dear All,
I am working with authorization for MSS , now there is following requirement ,
There are 2 cheif positions in one orgunit , say as cheif-1 and cheif-2 , cheif-1 can view all employees exist in his organization unit ,including cheif-2 . But cheif-2 can see all those employees who belong to employee group non-management and reports to cheif -2 only.
We have tried to restrict the chief 2 to view employee group of non-mgmt in object p_orgin but still he is able to view all employees of org unit in mss. Kindly let us know it is possible to strict chief-2 to view non-mgmt employees .. & how ?
Kindly let me know the solution , as it is an urgent .
Regards
Sadia Kamal
Edited by: Sadia Kamal on Oct 14, 2011 3:32 PM

Dear All,
i used the structural authorization everything was working fine but cheif1 can view all his employees as well as cheif 2 ' employees but he can not view chief2 . any suggestion please let me know .
Regards
Sadia Kamal
Edited by: Sadia Kamal on Oct 16, 2011 11:10 AM

ECM Plan with no budget, planning, or approval for hourly union employees

We are implementing Enterprise Compensation Management at my company. We are on 6.0 Ehp5. One of our requirements is for a General Increase Plan (Salary Adjustment) for union employees. There is no approval process for this plan. Once top leadership has approved the increase (outside of SAP) every eligible employeeu2019s base pay is increased by the same percentage. Also, this group of employees has fixed pay per job. We use table T510 to store their pay scales and levels. So we normally increase the values in T510 by the approved percentage and then create new IT0008 via mass upload.
Since we are implementing ECM and want this plan to be administered through ECM, my question is about how that should work. I was thinking that we would use PECM_CREATE_COMP_PRO to create the Compensation Process record and bring to the minimum. I am not sure if this transaction looks at T510 or just T710 or the Planned Compensation (HRP1005). I assume we would then use PECM_CHANGE_STATUS to change the status to u201CApprovedu201D (not sure if the IT0759 has to be in Appoved status before being activated). Lastly we would use PECM_CHANGE_STATUS to Activate the Compensation Process infotypes. Does this sound like the way to handle a plan where every eligible employee gets the same % increase or do you know of a best practice you could share?

Hi Vishal,
Nice to see your reply, i am having SAP_ALL permissions in the backend system, my user id was attached to employee, that employee is top level manager, i am able to see employees successfully in MSS 600 Compensation Approval WebDynpro JAVA application for Approval and Rejection, but i am not able to see employeed in MSS 604 (EHP4) Review Planning(Compensation Approval) WebDynpro ABAP application.
When i am trying to execute that application even i am not able to see any errors, the screen looks fine, only in the table it displays " table does not contain data"
If you have any idea please help me on this one.
Thanks in Advance.
Regards,
Babu.

HR - Benefit enrollment for employees

I need a FM, BAPI, etc.. to enroll an employee into benefit programs (health, life, spending, etc...). How can this be accomplished?
Regards,
Davis

Check FM:
HR_BEN_CALC_ELIGIBILITY_DATE
HR_BEN_CHECK_MICRO_ELIGIBILITY
HR_BEN_CALC_PARTICIPATION_DATE
Also check:
Standard Reports in Benefits
Eligible Employees                                       (Report RPLBEN01)
Participation                                                (Report RPLBEN02)
Health Plan Costs                                         (Report RPLBEN03)
Insurance Plan Costs                                    (Report RPLBEN04)
Savings Plan Contributions                           (Report RPLBEN05)
Vesting Percentages                                      (Report RPLBEN06)
Changes in Benefits Elections                         (Report RPLBEN07)
Flexible Spending Account Contributions         (Report RPLBEN08)
Changes in Eligibility                                     (Report RPLBEN09)
Employee Demographics                                (Report RPLBEN11)
Changes in Default Values for General Benefits Info (Report RPLBEN13)
Costs/Contributions for Miscellaneous Plans     (Report RPLBEN15)
Stock Purchase Plan Contributions                  (Report RPLBEN16)
Benefit Election Analysis                                (Report RPLBEN17)
Contribution Limit Check                                (Report RPLBEN18)
Enrollment Statistics                                      (Report RPLBEN19)
Create Payment List Report                            (RPUBENPAYRQ)
Actual Hours report                                        (RPUBEN47)
[....Keep the Source also for future refrences|http://www.sapmaterial.com/list_of_standardreports.html]

Uncheck non eligible employees by Flag

Similar Messages

Maybe you are looking for