Employee details

Hi All,
      Please tell me,What are the mandatory fields to filled in oEmployeeInfo Template?
Kind Regards,
    silpa

Dear Silpa,
First Name and Last Name are mandatory field.
Regards,
Mahesh.

Similar Messages

  • Facing problem in Fetching Employee details

    Hello All,
    i need to write a abap coding to fetch the employee details from the corresponding table,i worte a code but its is not fetching the details of the employess in to the output,am sending my code along with this thread its great if any body help me out in ths regard,thanks in advance...
    NAME        : Chandeep Singh
    DESCRIPTION : TO GENERATE SIMPLE REPORT USING HR ABAP
                   LOGICAl DATABASE- PNP .
    REPORT zchandeep_hr_prog_1
    LINE-SIZE 200 .
    *Database Table
    TABLES: pernr,           " Pernr structure for Logical database
    pa0001,           " Actions
    pa0002.           " Personnel Info
    *Infotypes
    INFOTYPES: 0001,         " Actions
               0002.         " personnel info
    *Variable Declaration
    DATA: form_nam LIKE p0001-ename,
          v_age(5) TYPE c,       "variable for calculating age in days
          v_ctr1 TYPE i VALUE 0, "counter
          v_ctr2 TYPE i VALUE 0, "counter
          var(5) TYPE c ,        " variable to store btrtl
          var1(5) TYPE c  .      " variable to store werks
    *Internal Table Decalartion
    DATA: BEGIN OF i_tab1 OCCURS 0,
           pernr LIKE pa0001-pernr,  "employee number
           ename LIKE pa0001-ename,  "employee name
           begda LIKE pa0002-begda,  "employee join date
           werks LIKE pa0001-werks,  "personnel area
           btrtl LIKE pa0001-btrtl,  "personnel sub area
           persg LIKE pa0001-persg,  "employee group
           persk LIKE pa0001-persk,  "employee sub-group
           plans LIKE pa0001-plans,  "position
           gbdat LIKE p0002-gbdat,   "date of birth
         END OF i_tab1.
    *START-OF-SELECTION
    START-OF-SELECTION .
    GET pernr .
      rp-provide-from-last p0001 space pn-begda pn-endda .   " Macro for IFT-0001
      rp-provide-from-last p0002 space pn-begda pn-endda .   " Macro for IFT-0002
    **--> Populate internal table
      MOVE p0001-pernr TO i_tab1-pernr .
      MOVE p0001-ename TO i_tab1-ename .
      MOVE p0002-begda TO i_tab1-begda .
      MOVE p0001-werks TO i_tab1-werks .
      MOVE p0001-btrtl TO i_tab1-btrtl .
      MOVE p0001-persg TO i_tab1-persg .
      MOVE p0001-persk TO i_tab1-persk .
      MOVE p0001-plans TO i_tab1-plans .
      MOVE p0002-gbdat TO i_tab1-gbdat .
    **--> Append data to internal table
      APPEND i_tab1 .
      CLEAR i_tab1 .                                       " Clear header I_TAB1******************************
    *END-OF-SELECTION
    END-OF-SELECTION.
    *****sorting the internal table on personnel area & personnel sub-area
      SORT i_tab1 BY werks btrtl.
    *TOP_OF_PAGE
      PERFORM top_of_page.
    *Output Display
    LOOP AT I_TAB1.
    *for calculating the age in days
      v_age = sy-datum - i_tab1-gbdat.
    *control break on Personal Sub Area
      LOOP.
        AT NEW pnpbtrtl .
          IF sy-tabix NE 1.
            FORMAT COLOR COL_NORMAL ON.
            WRITE:/5 'Total Number of Employees for personnel Sub-Area:',
            var  , 'is ',
            v_ctr1.
            CLEAR v_ctr1.
            FORMAT COLOR OFF.
          ENDIF.
        ENDAT .
      ENDLOOP.
    **Control Break on personnel Area
      LOOP.
        AT NEW pnpwerks.
          IF sy-tabix NE 1.
            FORMAT COLOR COL_TOTAL ON.
            WRITE:/5 'Total Number of Employees for Personal Area: ',
             var1 ,'is    ', v_ctr2. "color col_total.        CLEAR V_CTR2.
            SKIP 1.
            FORMAT COLOR OFF.
          ENDIF.
        ENDAT .
        WRITE:/5
        i_tab1-pernr,   "personnel number
      16 i_tab1-ename,   "emp name
      47 i_tab1-begda,   "join date
      60  v_age,         "age in days
      74  i_tab1-werks,  "P area
      84  i_tab1-btrtl,  "P sub Area
      94  i_tab1-persg,  "emp group
      104  i_tab1-persk, "emp sub group
      114  i_tab1-plans. "position
        v_ctr1 = v_ctr1 + 1.
        v_ctr2 = v_ctr2 + 1.
        var = i_tab1-btrtl .
        var1 = i_tab1-werks .
      ENDLOOP.
    *&      Form  top_of_page
          Header Output
    FORM top_of_page.
      FORMAT COLOR COL_HEADING ON.
      WRITE:/5 'Employee',
            16 'Employee',
            47 'Join Date',
            62 'Age',
            74 'Personal',
            84 'Personal',
            94 'Employee',
            104 'Employee',
            114 'Position ',
          /5 'Number',
          16 'Name',
          60 '(In Days)',
          74 'Area',
          84 'Sub-Area',
          94 'Group',
          104 'Sub-Group'.
      FORMAT COLOR OFF.
      SKIP 1.
    ENDFORM.                    " top_of_page

    After tables pernr.
    write this code :
       GET PERNR.
    and check the program
    Regards,
    Srinivas

  • Sales Employee Details Based on Invoice

    Hi,
    Based on Invoices i need to bring the sales employee details.
    sales employee is present in Sales Order as Partner Function.
    can any one help me on this.

    Hi
    Presuming that u are looking at a report, I am suggesting this solution.
    The billing document will have the sales order number, and based on that go to the partner functions and pull in the sales employee.
    Hope this helps.
    Kind Regards
    Chakradhar

  • Employee details in SAP ABAP Hr

    hi folks,
    do any one hav done Report -Employee details in SAP ABAP Hr.

    check this code
    *                        INFOTYPES                             *
    INFOTYPES : 0000,     " Actions
                0001,     " Organizaiton Assignment
                0002,     " Personnel Data
                0008,     " Basic Pay
                0022,     " Education
                0025,     " Appraisals
                0077,     " Additional Personal Data
                2001,     " Absences
                9002,     " Additional Personal Data
                9545,     " Discipline data
                0000 NAME INT_PROM,
                0000 NAME INT_CHGPY,
                0302.
    *                        INCLUDES                             *
    *                        TABLES                                *
    TABLES    : PERNR.
    *                        CONSTANTS                             *
    CONSTANTS : C_ONE      TYPE CHAR1  VALUE '1',
                C_EARLY    TYPE CHAR1  VALUE 'E',
                C_NEW      TYPE CHAR1  VALUE 'N',
                C_EARLYDT  TYPE SY-DATUM VALUE '20000501',
                C_JAN      TYPE CHAR2  VALUE '01',
                C_FEB      TYPE CHAR2  VALUE '02',
                C_MAR      TYPE CHAR2  VALUE '03',
                C_AWL      TYPE CHAR3  VALUE 'AWL',
                C_LWP      TYPE CHAR3  VALUE 'LWP'.
    *                        TYPES                                 *
    TYPE-POOLS: SLIS.                      " ALV Type Pool
    TYPES  :
             BEGIN OF T_DISCACT,
               PERNR  TYPE CHAR8,
               COMM1  TYPE CHAR1,
               DESCRI TYPE CHAR40,
               COMM2  TYPE CHAR1,
               MDATE  TYPE CHAR10,
             END OF T_DISCACT,
             BEGIN OF T_INCRE,
               PERNR  TYPE CHAR8,
               INCR1 TYPE CHAR10,
               INCR2 TYPE CHAR10,
               INCR3 TYPE CHAR10,
             END OF T_INCRE,
             BEGIN OF T_OUTPUT,
               PERNR TYPE CHAR8,
               NAME  TYPE CHAR40,
               DESIG TYPE CHAR40,
               PESUB TYPE CHAR15,
               ORGUN TYPE CHAR40,
               COSTC TYPE CHAR20,
               ETHIC TYPE CHAR2,
               CPCODE TYPE ZCCODE,
               GRADE TYPE CHAR8,
               ***   TYPE CHAR6,
               DOB   TYPE CHAR10,
               DOJ   TYPE CHAR10,
               QUAL1 TYPE CHAR30,
               QUAL2 TYPE CHAR30,
               QUAL3 TYPE CHAR30,
               QUAL4 TYPE CHAR30,
               QUAL5 TYPE CHAR30,
               LPROM TYPE CHAR10,
               PROMD TYPE CHAR10,
               PROMT TYPE CHAR1,
               NOYRS TYPE CHAR2,
               AWL   TYPE CHAR9,
               LWP   TYPE CHAR9,
               APPR1 TYPE CHAR9,
               APPR2 TYPE CHAR9,
               APPR3 TYPE CHAR9,
               APPR4 TYPE CHAR9,
               APPR5 TYPE CHAR9,
               DISCI TYPE CHAR57,
             END   OF T_OUTPUT.
    DATA : W_OUTPUT TYPE T_OUTPUT.
    TYPES  :  BEGIN OF T_FILE.
            INCLUDE STRUCTURE W_OUTPUT.
    TYPES  :   INCR1 TYPE CHAR10,
               INCR2 TYPE CHAR10,
               INCR3 TYPE CHAR10,
              END OF T_FILE.
    DATA  : W_FILE TYPE T_FILE.
    TYPES : BEGIN  OF T_EXCEL.
            INCLUDE STRUCTURE W_FILE.
    TYPES :  END OF T_EXCEL.
    *                        INTERNAL TABLES                       *
    DATA   : INT_NONEXE  TYPE STANDARD TABLE OF ZHRT007   WITH HEADER LINE,
             INT_OUTPUT  TYPE STANDARD TABLE OF T_OUTPUT  WITH HEADER LINE,
             INT_DISCACT TYPE STANDARD TABLE OF T_DISCACT WITH HEADER LINE,
             INT_QUALFI  TYPE STANDARD TABLE OF T518B     WITH HEADER LINE,
             INT_INCRE   TYPE STANDARD TABLE OF T_INCRE   WITH HEADER LINE,
             INT_DISCIP  TYPE STANDARD TABLE OF ZHRT004   WITH HEADER LINE,
             INT_PESUB   TYPE STANDARD TABLE OF T001P     WITH HEADER LINE,
             INT_COSTC   TYPE STANDARD TABLE OF CSKT      WITH HEADER LINE,
             INT_EXCEL   TYPE STANDARD TABLE OF T_EXCEL   WITH HEADER LINE,
             EVENT       TYPE SLIS_T_EVENT WITH HEADER LINE,
             LISTHEAD    TYPE SLIS_T_LISTHEADER WITH HEADER LINE.
    *                        VARIABLES                             *
    DATA : W_HIREDATE TYPE BEGDA,
           W_WAGEGRP  TYPE TRFGR,
           W_CPCODE   TYPE ZCCODE,
           W_CAREERCD TYPE CHAR6,
           W_PROMTYPE TYPE ZTSTYPE,
           W_NOOFYRS  TYPE ZNOYRS,
           W_LASTPROM TYPE CHAR10,
           W_PROMDATE TYPE BEGDA,
           W_YEAR     TYPE CHAR4,
           W_APYEAR   TYPE CHAR4,
           W_APPRST   TYPE SY-DATUM,
           W_DISDATE  TYPE ENDDA,
           W_APPREND  TYPE ENDDA,
           W_ABSST    TYPE ENDDA,
           W_ABSEND   TYPE ENDDA,
           W_ABSYR    TYPE CHAR4,
           W_MONTH(2) TYPE N,
           W_AWL      TYPE CHAR9,
           W_LWP      TYPE CHAR9,
           W_DISCI    TYPE T_OUTPUT-DISCI,
           W_ONE(2)   TYPE N VALUE '01',
           W_CURDATE TYPE CHAR10,
           W_HEADING TYPE LVC_TITLE.
    *                        SELECTION SCREEN                      *
    SELECTION-SCREEN BEGIN OF BLOCK FRM1 WITH FRAME TITLE TEXT-001.
    SELECT-OPTIONS:
      S_WAGRP    FOR  P0008-TRFGR OBLIGATORY,
      S_FROM     FOR  P0000-BEGDA OBLIGATORY NO-EXTENSION.
    SELECTION-SCREEN END OF BLOCK FRM1.
    * Selection screen serach help for wage groups.
    INCLUDE : ZHRI0003.
    *                        AT SELECTION SCREEN                   *
    *                        START OF SELECTION                    *
    START-OF-SELECTION.
      PERFORM PU_EXEUTIVES_PROM.
      IF S_FROM-HIGH IS INITIAL.
        S_FROM-HIGH = SY-DATUM.
      ENDIF.
    *Fetching employee data for all infotypes.
    GET PERNR.
      PERFORM  PU_DATA_RETRIEVAL.
    *                        START OF SELECTION                    *
    END-OF-SELECTION.
      PERFORM PU_FINAL_TABLE.
      PERFORM PU_GRID_DISPLAY.
      PERFORM PU_FREE_TABLES.
    *                        SUBROUTINES                           *
    *&      Form  PU_DATA_RETRIEVAL
    FORM PU_DATA_RETRIEVAL .
    * To find out date of join for employee
      PERFORM PU_DATA_OF_JOIN.
    * Employee Personnel data
      RP_PROVIDE_FROM_LAST P0002 SPACE PN-BEGDA PN-ENDDA.
      IF PNP-SW-FOUND NE C_ONE.
        REJECT.
      ENDIF.
    * Employee Name into output table
      INT_OUTPUT-NAME = P0002-VORNA.
    *  INT_OUTPUT-DOB  = P0002-GBDAT.
      PERFORM PU_DATE_CONVERSION USING    P0002-GBDAT
                                 CHANGING INT_OUTPUT-DOB.
      IF P0002-GESCH EQ 1.
        INT_OUTPUT-***  = 'Male'.
      ELSE.
        INT_OUTPUT-***  = 'Female'.
      ENDIF.
    * Fetching employees from employee sub goup of Non Executive
      RP_PROVIDE_FROM_LAST P0001 SPACE PN-BEGDA PN-ENDDA.
      IF PNP-SW-FOUND NE C_ONE.
        REJECT.
      ENDIF.
      IF P0001-PERSK  EQ '30' OR P0001-PERSK  EQ '20'.
    * Position for employee into output table
        PERFORM  PU_POSTION_TEXT.
      ELSE.
        REJECT.
      ENDIF.
    * Position for employee into output table
      PERFORM  PU_POSTION_TEXT.
    * Persoonel Sub Area text .
      READ TABLE INT_PESUB WITH KEY WERKS = P0001-WERKS
                                    BTRTL = P0001-BTRTL.
      IF SY-SUBRC EQ 0.
        INT_OUTPUT-PESUB = INT_PESUB-BTEXT.
      ENDIF.
      READ TABLE INT_COSTC WITH KEY KOSTL = P0001-KOSTL.
      IF SY-SUBRC EQ 0.
        INT_OUTPUT-COSTC = INT_COSTC-KTEXT.
      ENDIF.
    * Fetching employees from Additional Personal Data
      RP_PROVIDE_FROM_LAST P0077 SPACE PN-BEGDA PN-ENDDA.
      IF PNP-SW-FOUND EQ C_ONE.
    * Ethnic origin of employee  into output table
        INT_OUTPUT-ETHIC = P0077-RACKY.
      ENDIF.
    * Selecting data from  basic pay last record with wage group
      RP_PROVIDE_FROM_LAST P0008 SPACE PN-BEGDA PN-ENDDA.
      IF PNP-SW-FOUND NE C_ONE.
        REJECT.
      ELSE.
        W_WAGEGRP = P0008-TRFGR.
    * Employee Pay Scale Group  into output table
        INT_OUTPUT-GRADE = P0008-TRFGR.
      ENDIF.
    * Selecting data from  Education with wage group
      SORT P0022 BY BEGDA.
      PROVIDE * FROM P0022 BETWEEN PN-BEGDA AND PN-ENDDA.
        IF SY-TABIX EQ 1.
          READ TABLE INT_QUALFI WITH KEY AUSBI = P0022-AUSBI.
          IF SY-SUBRC EQ 0.
            INT_OUTPUT-QUAL1 = INT_QUALFI-ATEXT.
          ENDIF.
        ELSEIF SY-TABIX EQ 2.
          READ TABLE INT_QUALFI WITH KEY AUSBI = P0022-AUSBI.
          IF SY-SUBRC EQ 0.
            INT_OUTPUT-QUAL2 = INT_QUALFI-ATEXT.
          ENDIF.
        ELSEIF SY-TABIX EQ 3.
          READ TABLE INT_QUALFI WITH KEY AUSBI = P0022-AUSBI.
          IF SY-SUBRC EQ 0.
            INT_OUTPUT-QUAL3 = INT_QUALFI-ATEXT.
          ENDIF.
        ELSEIF SY-TABIX EQ 4.
          READ TABLE INT_QUALFI WITH KEY AUSBI = P0022-AUSBI.
          IF SY-SUBRC EQ 0.
            INT_OUTPUT-QUAL4 = INT_QUALFI-ATEXT.
          ENDIF.
        ELSEIF SY-TABIX EQ 5.
          READ TABLE INT_QUALFI WITH KEY AUSBI = P0022-AUSBI.
          IF SY-SUBRC EQ 0.
            INT_OUTPUT-QUAL5 = INT_QUALFI-ATEXT.
          ENDIF.
        ENDIF.
      ENDPROVIDE.
    * Carrer path code for employee from Additional Personal Data.
      RP_PROVIDE_FROM_LAST P9002 SPACE PN-BEGDA PN-ENDDA.
      IF PNP-SW-FOUND EQ C_ONE.
        W_CPCODE  = P9002-CPCODE.
        INT_OUTPUT-CPCODE = P9002-CPCODE.
        IF W_CPCODE EQ '001'.
          IF W_HIREDATE < C_EARLYDT.
            CONCATENATE W_CPCODE
                        C_EARLY
                  INTO  W_CAREERCD.
          ELSE.
            CONCATENATE W_CPCODE
                        C_NEW
                  INTO  W_CAREERCD.
          ENDIF.
        ELSE.
          W_CAREERCD = W_CPCODE.
        ENDIF.
      ENDIF.
    * Detrmine Promotion by Test/Service
      READ TABLE INT_NONEXE WITH KEY CPCODE    = W_CAREERCD
                                     WAGEGROUP = W_WAGEGRP.
      IF SY-SUBRC EQ 0.
        W_PROMTYPE = INT_NONEXE-TSTYPE.
        W_NOOFYRS  = INT_NONEXE-NOYRS.
        INT_OUTPUT-PROMT = W_PROMTYPE.
        INT_OUTPUT-NOYRS = W_NOOFYRS.
      ENDIF.
    * Retriving last promotion date from actions
      DELETE INT_PROM WHERE MASSN NE 'B3'.
      SORT INT_PROM BY BEGDA DESCENDING.
    *  RP_PROVIDE_FROM_LAST INT_PROM SPACE PN-BEGDA PN-ENDDA.
      READ TABLE INT_PROM INDEX 1.
      IF SY-SUBRC EQ 0 AND INT_PROM-MASSN EQ 'B3'.
        PERFORM PU_DATE_CONVERSION USING  INT_PROM-BEGDA
                                 CHANGING W_LASTPROM.
      ELSE.
        PERFORM PU_DATE_CONVERSION USING  W_HIREDATE
                                   CHANGING W_LASTPROM.
      ENDIF.
    *  As there is no ending date for records which happen on same date
    *  for cross check to get last promotion Infotype 0302' is retived
      IF P0302[] IS NOT INITIAL.
        DELETE P0302 WHERE MASSN NE 'B3'.
        SORT  P0302 BY BEGDA DESCENDING.
        READ TABLE P0302 INDEX 1.
        IF SY-SUBRC EQ 0 AND
           INT_PROM-BEGDA IS NOT INITIAL.
          IF INT_PROM-BEGDA < P0302-BEGDA.
            PERFORM PU_DATE_CONVERSION USING  P0302-BEGDA
                                     CHANGING W_LASTPROM.
          ENDIF.
        ENDIF.
      ENDIF.
      IF W_LASTPROM+0(2) GT '01'.
        W_LASTPROM+0(2) = '01'.
        W_ONE = W_LASTPROM+3(2) + 1.
        W_LASTPROM+3(2) =  W_ONE.
      ENDIF.
    * Last promaotion date for Employee into output table
      INT_OUTPUT-LPROM =  W_LASTPROM.
    * To Find out promotion due date for employee.
    * Fetching service availabilty data
      W_YEAR     =  W_LASTPROM+6(4).
      W_YEAR     =  W_YEAR + W_NOOFYRS.
      CONCATENATE  W_YEAR
                     W_LASTPROM+3(2)
                   W_LASTPROM+0(2)
              INTO W_PROMDATE.
    * Check promotion duedate is with in input range.
      IF S_FROM-LOW IS NOT INITIAL.
        CHECK W_PROMDATE GE S_FROM-LOW.
      ENDIF.
      IF S_FROM-HIGH IS NOT INITIAL.
        CHECK W_PROMDATE LE S_FROM-HIGH.
      ENDIF.
    * Promaotion due date for Employee into output table
      PERFORM PU_DATE_CONVERSION USING    W_PROMDATE
                                 CHANGING INT_OUTPUT-PROMD.
    * Apprisal rating data.
    * If promotion month is JAN,FEB,MAR deduct 6 years
      IF W_PROMDATE+4(2) EQ C_JAN OR
         W_PROMDATE+4(2) EQ C_FEB OR
         W_PROMDATE+4(2) EQ C_MAR.
        CLEAR W_YEAR.
        W_YEAR   = W_PROMDATE+0(4).
        W_APYEAR = W_YEAR - 1.
        W_YEAR   = W_YEAR - 6.
      ELSE.
    * If promotion month is not JAN,FEB,MAR deduct 5 years
        W_YEAR   = W_PROMDATE+0(4).
        W_APYEAR = W_YEAR.
        W_YEAR   = W_YEAR - 5.
      ENDIF.
      CONCATENATE  W_YEAR
                   '0401'
              INTO W_APPRST.
      CONCATENATE  W_APYEAR
                   '0331'
              INTO W_APPREND.
      DELETE P0025 WHERE BEGDA LT W_APPRST
                      OR BEGDA GT W_APPREND.
      PROVIDE * FROM P0025 BETWEEN PN-BEGDA AND PN-ENDDA.
        IF SY-TABIX EQ 1.
          INT_OUTPUT-APPR1 = P0025-KSU01.
        ELSEIF SY-TABIX EQ 2.
          INT_OUTPUT-APPR2 = P0025-KSU01.
        ELSEIF SY-TABIX EQ 3.
          INT_OUTPUT-APPR3 = P0025-KSU01.
        ELSEIF SY-TABIX EQ 4.
          INT_OUTPUT-APPR4 = P0025-KSU01.
        ELSEIF SY-TABIX EQ 5.
          INT_OUTPUT-APPR5 = P0025-KSU01.
        ENDIF.
      ENDPROVIDE.
    * Absence data.
      IF W_PROMDATE+4(2) EQ C_JAN.
        CLEAR W_YEAR.
        W_YEAR   = W_PROMDATE+0(4).
        W_ABSYR  = W_YEAR - 1.
        W_MONTH  = '11'.
        W_YEAR   = W_YEAR - 2.
      ELSE.
    * If promotion month is not JAN,FEB,MAR deduct 5 years
        W_YEAR   = W_PROMDATE+0(4).
        W_ABSYR  = W_YEAR.
        W_MONTH  = W_PROMDATE+4(2).
        W_MONTH  = W_MONTH - 01.
        W_YEAR   = W_YEAR - 1.
      ENDIF.
      CONCATENATE W_YEAR
                  W_MONTH
                  '23'
             INTO W_ABSST.
      CONCATENATE  W_ABSYR
                   W_MONTH
                   '22'
              INTO W_ABSEND.
      SORT   P2001 BY BEGDA.
      DELETE P2001 WHERE ( AWART NE C_AWL AND
                           AWART NE C_LWP )  OR
                         ( BEGDA LT W_ABSST
                     OR    BEGDA GT W_ABSEND ).
      PROVIDE * FROM P2001 BETWEEN PN-BEGDA AND PN-ENDDA.
        IF P2001-AWART  EQ  C_AWL.
          W_AWL = W_AWL + P2001-ABWTG.
        ELSEIF P2001-AWART  EQ  C_LWP.
          W_LWP = W_LWP + P2001-ABWTG.
        ENDIF.
      ENDPROVIDE.
      INT_OUTPUT-AWL = W_AWL.
      INT_OUTPUT-LWP = W_LWP.
    * Increments dates' data.
      DELETE INT_CHGPY WHERE MASSN NE 'B7'.
      SORT   INT_CHGPY BY BEGDA DESCENDING.
      IF INT_CHGPY[] IS NOT INITIAL.
        INT_INCRE-PERNR = INT_CHGPY-PERNR.
        PROVIDE * FROM INT_CHGPY  BETWEEN PN-BEGDA
                                      AND PN-ENDDA.
          IF SY-TABIX EQ 1.
            PERFORM PU_DATE_CONVERSION USING    INT_CHGPY-BEGDA
                                       CHANGING INT_INCRE-INCR1.
          ELSEIF SY-TABIX EQ 2.
            PERFORM PU_DATE_CONVERSION USING    INT_CHGPY-BEGDA
                                       CHANGING INT_INCRE-INCR2.
          ELSEIF SY-TABIX EQ 3.
            PERFORM PU_DATE_CONVERSION USING    INT_CHGPY-BEGDA
                                       CHANGING INT_INCRE-INCR3.
          ENDIF.
        ENDPROVIDE.
        APPEND INT_INCRE.
        CLEAR  INT_INCRE.
      ENDIF.
    * Disciplinary Actions.
      CLEAR W_YEAR.
      W_YEAR = W_PROMDATE+0(4).
      W_YEAR = W_YEAR - 3.
      CONCATENATE  W_YEAR
                   W_PROMDATE+4(4)
              INTO W_DISDATE.
      SORT P9545 BY MDATE.
      DELETE P9545 WHERE MDATE LT W_DISDATE
                      OR MDATE GT W_PROMDATE.
      PROVIDE * FROM P9545 BETWEEN PN-BEGDA
                              AND  PN-ENDDA.
        READ TABLE INT_DISCIP WITH KEY MCODE = P9545-MCODE.
        IF SY-SUBRC EQ 0.
          INT_DISCACT-PERNR  = P9545-PERNR.
          INT_DISCACT-DESCRI = INT_DISCIP-DESCRI.
          PERFORM PU_DATE_CONVERSION USING    P9545-MDATE
                                     CHANGING INT_DISCACT-MDATE.
          INT_DISCACT-COMM1 = ','.
          INT_DISCACT-COMM2 = ','.
          APPEND INT_DISCACT.
          CLEAR  INT_DISCACT.
        ENDIF.
      ENDPROVIDE.
      APPEND INT_OUTPUT.
      CLEAR INT_OUTPUT.
      CLEAR : W_HIREDATE,W_WAGEGRP,W_CPCODE,W_CAREERCD,W_PROMTYPE,
              W_NOOFYRS,W_LASTPROM,W_PROMDATE,W_YEAR,W_APYEAR,
              W_APPRST,W_DISDATE,W_APPREND,W_ABSST,W_ABSEND,
              W_ABSYR,W_MONTH,W_AWL,W_LWP,W_DISCI.
    ENDFORM.                    " PU_DATA_RETRIEVAL
    *&      Form  PU_DATA_OF_JOIN
    FORM PU_DATA_OF_JOIN .
      CLEAR INT_OUTPUT.
      READ TABLE P0000 WITH KEY  MASSN = 'B1'.
      IF SY-SUBRC NE 0 OR  P0000-STAT2 NE '3'.
        REJECT.
      ELSE.
    * Personnel number into output table
        INT_OUTPUT-PERNR = P0000-PERNR.
        PERFORM PU_DATE_CONVERSION USING P0000-BEGDA
                                CHANGING INT_OUTPUT-DOJ.
        W_HIREDATE = P0000-BEGDA.
      ENDIF.
    ENDFORM.                    " PU_DATA_OF_JOIN
    *&      Form  PU_POSTION_TEXT
    FORM PU_POSTION_TEXT .
      DATA  : S_OBJECT TYPE OBJEC_T,
              PERNR_TAB  TYPE HRQUERY_PERNR_T ,
              SOBID_TAB  TYPE HRQUERY_SOBID_T ,
              WA_SOBID TYPE HRQUERY_SOBID,
              WA_PERNR TYPE HRQUERY_PERNR,
              WA_OBJECT TYPE OBJEC.
      WA_PERNR-PERNR = P0001-PERNR.
      APPEND WA_PERNR TO PERNR_TAB.
      WA_SOBID-PLVAR = '01'.
      WA_SOBID-OTYPE = P0001-OTYPE.
      WA_SOBID-SOBID = P0001-PLANS.
      APPEND WA_SOBID TO SOBID_TAB.
      WA_SOBID-PLVAR = '01'.
      WA_SOBID-OTYPE = 'O'.
      WA_SOBID-SOBID = P0001-ORGEH.
      APPEND WA_SOBID TO SOBID_TAB.
      CALL FUNCTION 'HR_GET_TEXT_FOR_OBJECTS'
        EXPORTING
          BEGDA       = PN-BEGDA
          ENDDA       = PN-ENDDA
        IMPORTING
          OBJEC_TAB   = S_OBJECT
        CHANGING
          PERNR_TAB   = PERNR_TAB
          SOBID_TAB   = SOBID_TAB
        EXCEPTIONS
          WRONG_DATES = 1
          OTHERS      = 2.
      IF SY-SUBRC EQ 0.
        LOOP AT S_OBJECT INTO WA_OBJECT.
          IF WA_OBJECT-OTYPE EQ 'O'.
            INT_OUTPUT-ORGUN = WA_OBJECT-STEXT.
          ELSEIF  WA_OBJECT-OTYPE EQ 'S'.
            INT_OUTPUT-DESIG = WA_OBJECT-STEXT.
          ENDIF.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " PU_POSTION_TEXT
    *&      Form  PU_EXEUTIVES_PROM
    FORM PU_EXEUTIVES_PROM .
      SELECT * FROM ZHRT007 INTO TABLE INT_NONEXE.
      SELECT * FROM ZHRT004 INTO TABLE INT_DISCIP.
      SELECT * FROM T001P   INTO TABLE INT_PESUB.
      SELECT * FROM CSKT    INTO TABLE INT_COSTC
                                 WHERE SPRAS EQ SY-LANGU.
      SELECT * FROM T518B   INTO TABLE INT_QUALFI
                                 WHERE LANGU EQ SY-LANGU.
    ENDFORM.                    " PU_EXEUTIVES_PROM
    *&      Form  PU_DATE_CONVERSION
    FORM PU_DATE_CONVERSION  USING    INPUT_DATE    TYPE SY-DATUM
                             CHANGING OUTPUT_DATE   TYPE CHAR10.
      CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL'
        EXPORTING
          DATE_INTERNAL            = INPUT_DATE
        IMPORTING
          DATE_EXTERNAL            = OUTPUT_DATE
        EXCEPTIONS
          DATE_INTERNAL_IS_INVALID = 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.
    ENDFORM.                    " PU_DATE_CONVERSION
    *&      Form  PU_FINAL_TABLE
    * Preparing final internal table for output to excel
    FORM PU_FINAL_TABLE .
      DATA : W_STR1(4)  TYPE N,
             W_STR2(4)  TYPE N,
             W_STR3(4)  TYPE N,
             W_EXSTR(4) TYPE N,
             W_ORSTR(4) TYPE N,
             W_INSTR(4) TYPE N,
             W_ONSTR(4) TYPE N,
             W_DISFLAG  TYPE CHAR1,
             W_INCFLAG  TYPE CHAR1.
      LOOP AT INT_OUTPUT.
        MOVE-CORRESPONDING INT_OUTPUT TO INT_EXCEL.
        LOOP AT INT_DISCACT WHERE PERNR = INT_OUTPUT-PERNR.
          IF SY-TABIX EQ 1.
            CONCATENATE INT_DISCACT-DESCRI
                         SPACE
                        INT_DISCACT-MDATE
                   INTO W_DISCI.
            INT_EXCEL-DISCI = W_DISCI.
          ELSE.
            W_DISFLAG = 1.
          ENDIF.
        ENDLOOP.
        LOOP AT INT_INCRE WHERE PERNR = INT_OUTPUT-PERNR.
          INT_EXCEL-INCR1 =  INT_INCRE-INCR1.
          INT_EXCEL-INCR2 =  INT_INCRE-INCR2.
          INT_EXCEL-INCR3 =  INT_INCRE-INCR3.
        ENDLOOP.
        APPEND INT_EXCEL.
        CLEAR  INT_EXCEL.
        CLEAR : W_STR1,W_STR2,W_STR3.
        IF W_DISFLAG EQ 1.
          W_ORSTR = W_EXSTR.
          LOOP AT INT_DISCACT WHERE PERNR = INT_OUTPUT-PERNR.
            IF SY-TABIX NE 1.
              CONCATENATE INT_DISCACT-DESCRI
                           SPACE
                          INT_DISCACT-MDATE
                     INTO W_DISCI.
              INT_EXCEL-DISCI = W_DISCI.
              APPEND INT_EXCEL.
              CLEAR  INT_EXCEL.
              CLEAR : W_STR2,W_EXSTR.
            ENDIF.
          ENDLOOP.
        ENDIF.
      ENDLOOP.
    ENDFORM.                    " PU_FINAL_TABLE
    *&      Form  PU_GRID_DISPLAY
    *       text
    *  -->  p1        text
    *  <--  p2        text
    FORM PU_GRID_DISPLAY .
      DATA W_GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
      PERFORM F_FIELDCAT_INIT USING 'IT_HEADER' W_GT_FIELDCAT[].
      IF INT_EXCEL[] IS NOT INITIAL.
        CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
          EXPORTING
            I_CALLBACK_PROGRAM = SY-CPROG
            IT_FIELDCAT        = W_GT_FIELDCAT[]
            IT_EVENTS          = EVENT[]
          TABLES
            T_OUTTAB           = INT_EXCEL
          EXCEPTIONS
            PROGRAM_ERROR      = 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.
      ELSE.
        MESSAGE S011(ZHR).
        LEAVE LIST-PROCESSING.
      ENDIF.
    ENDFORM.                    " PU_GRID_DISPLAY
    *&      Form  F_FIELDCAT_INIT
    FORM F_FIELDCAT_INIT USING IT_TABLE
                               LT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
      DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'PERNR'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 14.
      LS_FIELDCAT-SELTEXT_L = 'Personnel Number'.
      LS_FIELDCAT-FIX_COLUMN = 'X'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'NAME'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 30.
      LS_FIELDCAT-SELTEXT_L    = 'Name'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'DESIG'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 25.
      LS_FIELDCAT-SELTEXT_L    = 'Desigination'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'PESUB'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 16.
      LS_FIELDCAT-SELTEXT_L    = 'Personnel Sub Area'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'ORGUN'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 25.
      LS_FIELDCAT-SELTEXT_L    = 'Organization Unit'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'COSTC'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 14.
      LS_FIELDCAT-SELTEXT_L    = 'Cost Center'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'ETHIC'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 6.
      LS_FIELDCAT-SELTEXT_L    = 'Ethic'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'CPCODE'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 7.
      LS_FIELDCAT-SELTEXT_L    = 'CPCode'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'GRADE'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    =  12.
      LS_FIELDCAT-SELTEXT_L    = 'Current Grade'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = '***'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 6.
      LS_FIELDCAT-SELTEXT_L    = 'Gender'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'DOB'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 11.
      LS_FIELDCAT-SELTEXT_L    = 'Date of Birth'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'DOJ'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 11.
      LS_FIELDCAT-SELTEXT_L    = 'Date of Join'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'QUAL1'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 13.
      LS_FIELDCAT-SELTEXT_L    = 'Qualification 1'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'QUAL2'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 13.
      LS_FIELDCAT-SELTEXT_L    = 'Qualification 2'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'QUAL3'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 13.
      LS_FIELDCAT-SELTEXT_L    = 'Qualification 3'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'QUAL4'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 13.
      LS_FIELDCAT-SELTEXT_L    = 'Qualification 4'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'QUAL5'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 13.
      LS_FIELDCAT-SELTEXT_L    = 'Qualification 5'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'LPROM'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 16.
      LS_FIELDCAT-SELTEXT_L    = 'Last Promotion Date'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'PROMD'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 16.
      LS_FIELDCAT-SELTEXT_L    = 'Promotion Due Date'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'PROMT'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 14.
      LS_FIELDCAT-SELTEXT_L    = 'Promotion Type'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'NOYRS'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = 'Number of Years'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'AWL'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 22.
      LS_FIELDCAT-SELTEXT_L    = 'Absence Without Leave'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'LWP'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 22.
      LS_FIELDCAT-SELTEXT_L    = 'Leave Without Pay'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'APPR1'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = 'Apprisal 1st'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'APPR2'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = 'Apprisal 2nd'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'APPR3'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = 'Apprisal 3rd'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'APPR4'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = 'Apprisal 4th'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'APPR5'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = 'Apprisal 5th'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'DISCI'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 60.
      LS_FIELDCAT-SELTEXT_L    = 'Disciplinary Actions - Date'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'INCR1'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = '1st Increment'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'INCR2'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = '2nd Increment'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
      CLEAR LS_FIELDCAT.
      LS_FIELDCAT-FIELDNAME    = 'INCR3'.
      LS_FIELDCAT-TABNAME      = INT_EXCEL.
      LS_FIELDCAT-OUTPUTLEN    = 15.
      LS_FIELDCAT-SELTEXT_L    = '3rd Increment'.
      APPEND LS_FIELDCAT TO LT_FIELDCAT.
    ENDFORM.                    " F_FIELDCAT_INIT
    *&      Form  PU_FREE_TABLES
    FORM PU_FREE_TABLES .
      FREE :  INT_NONEXE  ,
              INT_OUTPUT  ,
              INT_DISCACT ,
              INT_QUALFI  ,
              INT_INCRE   ,
              INT_DISCIP  ,
              INT_PESUB   ,
              INT_COSTC   ,
              INT_EXCEL   ,
              EVENT       ,
              LISTHEAD    .
    ENDFORM.                    " PU_FREE_TABLES
    reward points if helpful
    Edited by: mohammed  abdul hai on Jul 25, 2008 7:21 PM

  • Display employees details in the stacked canvas from the content canvas

    Hi all,
           I want to display employees details in the stacked canvas from the content canvas,where i passed the empno & click on the find button , i have 2 blocks(emp,control), in control block only find button there, I have only one table i.e;emp
    BEGIN
        GO_BLOCK('EMP');
        Set_block_property('EMP', default_where, 'Empno = :EMP.EMPNO');
         Show_view('EMP_DET_CAN');
        execute_query;
    END;
    Thank You

    Hi Andreas Wieden,
    Andreas Weiden wrote:
    When you query on the EMP-block, yiou cannot include a WHERE-condition to that block as the block is cleared when the EXECUTE_QUERY starts. If you want to have a different find-block where you enter your search-condition, you have to include that item in your separate find-block. Otherwise use the standard-search-mechanism with ENTER_QUERY and EXECUTE_QUERY.
    You are right, so where clause is not possible in the same block, right?.I have to take empno column where it is a search column into the control block right?
    Please suggest me i want to retrieve records into the stacked canvas when i pass the empno & click on the find button in the content canvas? Is this not possible? If possible please let me know? I mean i want to take the search column in the EMP Block & find button in the control block..
    Thank You

  • Pronlem in LOP while retrieving the employee details

    Hi,
    I am new to HR for ABAP developing,
    I have a Pronlem in a report for LOP (loss of pay) while retrieving the employee details.
    (i.e) while retrieving employee details by individual it shows the correct details.
    But, in the group of 10 employess out of 9 doesn't have the LOP and the 1 is having LOP. While retrieving this it shows all the
    10 members have LOP.  It shows some amount for that 1 person also.
    Kindly i need ur help for the above issues.
    Waiting for ur valuable replies.

    Hi swarna,
             Herewith i attached my code, would u please suggest me wer shud i make changes.
    Rgds,
    Karthik
    START-OF-SELECTION.
      IF P_1 = 'X'.
        W_EXT = '.csv'.
      ELSE.
        W_EXT = 'err.csv'.
        PR_PATH = '/obrm/in/asset/'.
      ENDIF.
      CLEAR:W_PR_FNAME,
            W_STR,
            W_PATH1,
            W_LEN,
            W_F6_TMP.
      CLEAR:WA_MESSTAB,WA_UP_SUCC,WA_FINAL,WA_FILE.
      REFRESH:IT_FINAL, IT_MESSTAB,IT_UP_ERROR,IT_UP_SUCC,ITFILE,ITFILE1 .
      W_GO = 'X'.
      CALL FUNCTION 'SUBST_GET_FILE_LIST'
        EXPORTING
          DIRNAME      = PR_PATH
          FILENM       = '*'
        TABLES
          FILE_LIST    = ITFILE
        EXCEPTIONS
          ACCESS_ERROR = 1
          OTHERS       = 2.
      IF SY-SUBRC <> 0.
        MESSAGE TEXT-102 TYPE C_I.
        EXIT.
      ENDIF.
      LOOP AT ITFILE INTO WA_FILE.
        IF WA_FILE-NAME CS W_EXT.
          APPEND  WA_FILE TO ITFILE1.
          CLEAR WA_FILE.
        ENDIF.
      ENDLOOP.
      LOOP AT ITFILE1 INTO WA_FILE.
        IF SY-TABIX > 1.
          CLEAR IT_FINAL[].
        ENDIF.
        CONCATENATE PR_PATH WA_FILE-NAME INTO W_PR_FNAME.
        OPEN DATASET W_PR_FNAME FOR INPUT IN TEXT MODE ENCODING DEFAULT.
        CLEAR : IT_SOURCE[].
        DO.
          READ DATASET W_PR_FNAME INTO W_STR.
          IF SY-SUBRC NE 0.
            EXIT.
          ENDIF.
          SPLIT W_STR AT ';' INTO
                WA_FINAL-F1
                WA_FINAL-F2
            WA_FINAL-F3.
          CLEAR WA_SOURCE.
          WA_SOURCE-F1 = WA_FINAL-F1.
          WA_SOURCE-F2 = WA_FINAL-F2.
          WA_SOURCE-F3 = WA_FINAL-F3.
          SO_SER-LOW = WA_FINAL-F1.
          SO_SER-SIGN = 'I'.
          SO_SER-OPTION = 'EQ'.
          APPEND SO_SER.
          APPEND WA_SOURCE TO IT_SOURCE.
          APPEND WA_FINAL TO IT_FINAL.
        ENDDO.
        CLOSE DATASET W_PR_FNAME.
        IF IT_FINAL[] IS INITIAL.
          MESSAGE TEXT-E01 TYPE C_I.
          EXIT.
        ENDIF.
        PERFORM MATERIAL_DOCS_GET.
        IF SY-SUBRC NE 0.
          MESSAGE TEXT-M01 TYPE 'S'.
          RETURN.
        ENDIF.
        DELETE IT_MDOCS WHERE BWART = '102'.
        LOOP AT IT_MDOCS INTO WA_MDOCS.
          WA_AMT_SUM-EBELN = WA_MDOCS-EBELN.
          WA_AMT_SUM-SHKZG = WA_MDOCS-SHKZG.
          WA_AMT_SUM-DMBTR = WA_MDOCS-DMBTR.
          COLLECT WA_AMT_SUM INTO IT_AMT_SUM.
        ENDLOOP.
        PERFORM SERIAL_NUMBERS_GET.
        IF IT_SRNO[] IS INITIAL.
          RETURN.
        ENDIF.
      ENDLOOP.
      CALL SCREEN 100.
    END-OF-SELECTION.
      IF PR_TEST NE 'X'.
        PERFORM DISPLAY_LOG.
      ENDIF.
    FORM MATERIAL_DOCS_GET .
      SELECT MATNR
             FROM MARA INTO TABLE IT_MATNR
             WHERE MATKL in ('DTH_STB','DTH_STBSC') AND
                   MTART EQ 'UNBW'    AND
                   LVORM EQ ' '.
      IF IT_MATNR IS NOT INITIAL.
        LOOP AT IT_MATNR INTO WA_MATNR.
          SO_MATNR-SIGN   = 'I'.
          SO_MATNR-OPTION = 'EQ'.
          SO_MATNR-LOW    =  WA_MATNR-MATNR.
          APPEND SO_MATNR.
        ENDLOOP.
      ELSE.
        MESSAGE TEXT-M06 TYPE 'S'.
        RETURN.
      ENDIF.
      SELECT A~OBKNR A~SERNR A~MATNR B~OBKNR B~MBLNR B~MJAHR B~BWART
             FROM OBJK AS A INNER JOIN SER03 AS B ON A~OBKNR = B~OBKNR
             INTO CORRESPONDING FIELDS OF TABLE IT_SER03
             WHERE A~SERNR IN SO_SER AND
                   A~MATNR IN SO_MATNR AND
                   B~BWART IN ('101','102','122') and
                   B~LIEFERANT <> ' '.
      IF IT_SER03 IS NOT INITIAL.
        SELECT MBLNR MJAHR ZEILE EBELN EBELP LFBNR LFBJA LFPOS SJAHR SMBLN SMBLP BWART SHKZG WAERS MENGE MEINS KUNNR
               FROM MSEG INTO CORRESPONDING FIELDS OF TABLE IT_MSEG
               FOR ALL ENTRIES IN IT_SER03
               WHERE MBLNR = IT_SER03-MBLNR       AND
                     MJAHR = IT_SER03-MJAHR       AND
                     BWART IN ('101','102','122') AND
                     MATNR IN SO_MATNR            AND
                     DMBTR > 0 .
      ENDIF.
      IF IT_MSEG IS NOT INITIAL.
        SELECT * FROM ZPOVAL_ASSET INTO CORRESPONDING FIELDS OF TABLE IT_PO
                 FOR ALL ENTRIES IN IT_MSEG
                 WHERE EBELN = IT_MSEG-EBELN.
        SELECT KUNNR REGIO
               FROM KNA1 INTO CORRESPONDING FIELDS OF TABLE IT_KNA1
               FOR ALL ENTRIES IN IT_MSEG
               WHERE KUNNR = IT_MSEG-KUNNR.
      ENDIF.
      DELETE IT_MSEG WHERE EBELN = '6100000124'.
      LOOP AT IT_SER03 INTO WA_SER03.
        WA_MDOCS-SERNR = WA_SER03-SERNR.
        WA_MDOCS-MATNR = WA_SER03-MATNR.
        READ TABLE IT_MSEG INTO WA_MSEG1 WITH KEY MBLNR = WA_SER03-MBLNR.
        IF SY-SUBRC = 0.
          MOVE-CORRESPONDING WA_MSEG1 TO WA_MDOCS.
          READ TABLE IT_PO INTO WA_PO WITH KEY EBELN = WA_MSEG1-EBELN.
          IF SY-SUBRC = 0.
            WA_MDOCS-DMBTR = WA_PO-DMBTR.
          ENDIF.
          READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_MSEG1-KUNNR.
          IF SY-SUBRC = 0.
            WA_MDOCS-KUNNR = WA_KNA1-KUNNR.
            WA_MDOCS-REGIO = WA_KNA1-REGIO.
          ENDIF.
          APPEND WA_MDOCS TO IT_MDOCS.
        ENDIF.
      ENDLOOP.
      SORT IT_MDOCS BY SERNR MJAHR MBLNR DESCENDING.
      DELETE ADJACENT DUPLICATES FROM IT_MDOCS COMPARING SERNR.
      IF SY-SUBRC EQ 0.
        LOOP AT IT_ZFT_POSTED_MDOCS1 INTO WA_ZFT_POSTED_MDOCS1.
          CONCATENATE TEXT-M09 WA_ZFT_POSTED_MDOCS1-MBLNR TEXT-M10 INTO WA_LOG-MSG SEPARATED BY SPACE.
          WRITE: /5 WA_LOG-MSG.
          DELETE IT_MDOCS WHERE MBLNR EQ WA_ZFT_POSTED_MDOCS1-MBLNR.
        ENDLOOP.
      ENDIF.
      CLEAR WA_LOG.
      REFRESH IT_LOG[].
      IF IT_MDOCS[] IS INITIAL.
        SY-SUBRC = 4.
        RETURN.
      ENDIF.
    *copy material docs for dumping in ZFT_POSTED_ASSET
      IT_ZFT_POSTED_ASSET[] = IT_MDOCS[].
    ENDFORM.                    " material_docs_get
    FORM DISPLAY_LOG .
      IF IT_LOG[] IS INITIAL.
        RETURN.
      ENDIF.
      LOOP AT IT_LOG INTO WA_LOG.
        WRITE: /5 WA_LOG-MSG.
      ENDLOOP.
    ENDFORM.                    " display_log
    FORM SERIAL_NUMBERS_GET.
      DATA: WA_SRNO1 TYPE TY_SRNO.
      SELECT MBLNR MJAHR BUDAT
             FROM MKPF INTO CORRESPONDING FIELDS OF TABLE IT_MKPF
             FOR ALL ENTRIES IN IT_MDOCS
             WHERE MBLNR = IT_MDOCS-MBLNR AND
                   MJAHR = IT_MDOCS-MJAHR.
      LOOP AT IT_MDOCS INTO WA_MDOCS.
        MOVE-CORRESPONDING WA_MDOCS TO WA_SRNO.
        READ TABLE IT_MKPF INTO WA_MKPF WITH KEY MBLNR = WA_MDOCS-MBLNR MJAHR = WA_MDOCS-MJAHR.
        IF SY-SUBRC = 0.
          WA_SRNO-BUDAT = WA_MKPF-BUDAT.
        ENDIF.
        APPEND WA_SRNO TO IT_SRNO.
      ENDLOOP.
      LOOP AT IT_SRNO INTO WA_SRNO WHERE BWART EQ '101'.
        READ TABLE IT_SRNO INTO WA_SRNO1 WITH KEY SERNR = WA_SRNO-SERNR
                                                  BWART = '122'.
        IF SY-SUBRC EQ 0 AND WA_SRNO-MBLNR LT WA_SRNO1-MBLNR.
          DELETE IT_SRNO.
        ENDIF.
      ENDLOOP.
      DELETE IT_SRNO WHERE BWART = '122'.
      DESCRIBE TABLE IT_SRNO LINES W_COUNT.
      SORT IT_MDOCS BY SERNR.
      SORT IT_SRNO BY SERNR.
      SORT IT_FINAL BY F1.
      LOOP AT IT_SRNO.
        READ TABLE IT_MDOCS WITH KEY SERNR = IT_SRNO-SERNR.
        IF SY-SUBRC = 0 .
          IT_SRNO-VALUE = IT_MDOCS-DMBTR.
          IT_SRNO-EBELN = IT_MDOCS-EBELN.
          READ TABLE IT_FINAL WITH KEY F1 = IT_SRNO-SERNR.
          IT_SRNO-CAPDT = IT_FINAL-F2.
          CONCATENATE     IT_FINAL-F26(4) IT_FINAL-F20(2) IT_FINAL-F2+3(2)   INTO IT_SRNO-CAPDT.
          CLEAR KNA1.
          SELECT SINGLE * FROM KNA1 WHERE KUNNR = IT_FINAL-F3.
          IF SY-SUBRC = 0 .
            IT_SRNO-KUNNR = IT_FINAL-F2.
            IT_SRNO-REGIO = KNA1-REGIO.
          ENDIF.
          SELECT SINGLE * FROM ZFT_100_ASSET WHERE SERNR = IT_SRNO-SERNR.
          IF SY-SUBRC = 0.
            IT_SRNO-VALUE = 0 .
          ENDIF.
          MODIFY IT_SRNO.
          MOVE-CORRESPONDING IT_SRNO TO IT_ASSET  .
          IT_ASSET-ASSET_ACT_DT = IT_SRNO-CAPDT.
          CONCATENATE 'A' W_FREENUM2  INTO IT_ASSET-ASSET_ID.
          COLLECT IT_ASSET.
          MOVE-CORRESPONDING IT_ASSET TO IT_ASSET_POST.
          COLLECT IT_ASSET_POST.
        ENDIF.
      ENDLOOP .
      SORT IT_ASSET_POST BY ASSET_ID ASSET_ACT_DT REGIO.
      IF PR_TEST NE 'X'.
        LOOP AT IT_ASSET_POST.
          CLEAR W_FREENUM2.
          SELECT SINGLE * FROM ZFT_STATE_COST WHERE REGIO = IT_ASSET_POST-REGIO AND TYPE  = 'E' .
          IF SY-SUBRC <> 0 .
            MESSAGE X899(FI) WITH 'No cost center for the region'.
          ENDIF.
          CALL FUNCTION 'NUMBER_GET_NEXT'
            EXPORTING
              NR_RANGE_NR             = '01'
              OBJECT                  = C_NRANGE1
            IMPORTING
              NUMBER                  = W_FREENUM2
            EXCEPTIONS
              INTERVAL_NOT_FOUND      = 1
              NUMBER_RANGE_NOT_INTERN = 2
              OBJECT_NOT_FOUND        = 3
              QUANTITY_IS_0           = 4
              QUANTITY_IS_NOT_1       = 5
              INTERVAL_OVERFLOW       = 6
              BUFFER_OVERFLOW         = 7
              OTHERS                  = 8.
          IF SY-SUBRC = 0.
          ENDIF.
          CONCATENATE 'A' W_FREENUM2  INTO IT_ASSET_POST-ASSET_ID.
          IT_ASSET_POST-KOSTL = ZFT_STATE_COST-KOSTL.
          MODIFY IT_ASSET_POST.
        CLEAR ZFT_100_ASSET.
        ENDLOOP.
      ENDIF.
      SORT IT_ASSET_POST BY ASSET_ACT_DT REGIO.
      SORT IT_ASSET BY ASSET_ACT_DT REGIO.
      LOOP AT IT_ASSET.
        READ TABLE IT_ASSET_POST WITH KEY ASSET_ACT_DT =  IT_ASSET-ASSET_ACT_DT REGIO = IT_ASSET-REGIO MATNR = IT_ASSET-MATNR.
        IF SY-SUBRC = 0 .
          IT_ASSET-ASSET_ID =  IT_ASSET_POST-ASSET_ID .
          IF IT_ASSET-VALUE = 0.
            IT_ASSET-TEXT = 'Asset Already Created'.
          ELSE.
          ENDIF.
          MODIFY IT_ASSET.
        ENDIF.
      ENDLOOP.
    ENDFORM.                    " serial_numbers_get
    FORM ASSET_CREATE .
      DATA :LW_CNT TYPE I.
      LOOP AT IT_ASSET_POST WHERE VALUE > 0.
        CLEAR: IT_ASSET1[],LW_CNT.
        IT_ASSET1[] = IT_ASSET[].
        DELETE IT_ASSET1 WHERE ASSET_ID <> IT_ASSET_POST-ASSET_ID.
        DESCRIBE TABLE IT_ASSET1 LINES LW_CNT.
        MOVE IT_ASSET_POST-ASSET_ID TO WA_ANLA-ANLN1.
        CALL FUNCTION 'ASSET_EXISTENCE_CHECK'
          EXPORTING
            I_ANLN1          = WA_ANLA-ANLN1
            I_BUKRS          = '5100'
          EXCEPTIONS
            ANLAGE_DEAKTIV   = 1
            ANLAGE_GELOESCHT = 2
            ANLAGE_GESPERRT  = 3
            ANLAGE_NOT_FOUND = 4
            ANLAGE_IST_INVM  = 5
            OTHERS           = 6.
        IF SY-SUBRC EQ 0.
          CONCATENATE TEXT-M02 IT_ASSET_POST-ASSET_ID TEXT-M05 INTO W_MSG SEPARATED BY SPACE.
          WA_LOG-MSG = W_MSG.
          APPEND WA_LOG TO IT_LOG.
          CLEAR: WA_LOG, W_MSG.
          CONTINUE.
        ENDIF.
        IF SY-SUBRC <> 0.
        ENDIF.
        WA_ANLA-BUKRS = '5100'.  "company code
        IF IT_ASSET_POST-MATNR = '000000000030000452'.
          WA_ANLA-ANLKL = '00009021'.  "asset class for STB
        ELSEIF IT_ASSET_POST-MATNR = '000000000030000700'.
          WA_ANLA-ANLKL = '00009033'.  "asset class for HD STB Box
        ENDIF.
        WA_ANLA-ANLN1 = IT_ASSET_POST-ASSET_ID. "wa_srno-sernr.
        CONCATENATE 'STB - ' IT_ASSET_POST-ASSET_ID INTO WA_ANLA-TXT50 SEPARATED BY SPACE.
        WA_ANLA-AKTIV = IT_ASSET_POST-ASSET_ACT_DT.
        WA_ANLZ-KOSTL =  IT_ASSET_POST-KOSTL .                  "'1711121'.
        WA_ANLA-MENGE = LW_CNT.
        WA_ANLA-MEINS = 'EA'.
        CALL FUNCTION 'CREATE_ASSET'
          EXPORTING
            I_ANLA                     = WA_ANLA
      I_ANLV                           =
            I_ANLZ                     = WA_ANLZ
           I_DARK                      = 'X'
           I_NASSETS_FIX               = ' '
           I_CALLED_BY_PURCHASE_ORDER  = ' '
          TABLES
            T_ASSETS                   = IT_ASSETS
         EXCEPTIONS
           MISSING_COMPANY_CODE        = 1
           MISSING_ASSET_CLASS         = 2
           MISSING_ASSET_MAINNUMBER    = 3
           INTERNAL_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.
        IF SY-SUBRC EQ 0.
          COMMIT WORK.
          SELECT SINGLE * FROM ANLB WHERE BUKRS = '5100' AND ANLN1 = WA_ANLA-ANLN1 AND AFASL = 'Z001'.
          IF SY-SUBRC = 0 .
            ANLB-AFABG = '20071201'.
            MODIFY ANLB.
            COMMIT WORK.
          ENDIF.
          SELECT SINGLE * FROM ANLB WHERE BUKRS = '5100' AND ANLN1 = WA_ANLA-ANLN1 AND AFASL = 'IN14'.
          IF SY-SUBRC = 0 .
            ANLB-AFABG = '20071201'.
            MODIFY ANLB.
            COMMIT WORK.
          ENDIF.

  • Search employee details from Business partner number input

    Dear friends
    I am searching employee details by having input as a business partner number from infotype 0000. as pernr has only 8 character in size and bp in 10 char in size. would you please tell me how we can access employee detais from business partner number.
    p.s : I am doing this in CRM system
    Business partner  ?->infotype(0000)-->?
    Any help will be appreicated.
    Regards
    Naeem

    Dear Naeem,
    as a CRM environment is not able to run at the same sytsem / client with HR, the employee data (e.g. infotype actions (IT 0000)) only is available in a scenario with ALE-distribution from a HR-system.
    In this case the employee data from HR-system will be distributed via idocs (message type HRMD_ABA) to the CRM-system and saved to databases HRP558x [x=0 - 5; 0= IT0000; 1 = IT0001; 2 = IT0002; 3 = IT0006, subtype 1; 4 = IT0009; 5 = IT0105, subtype 0005, 0010, 0020] for the central person (object type CP).
    The activated business partner integration (table T77S0, group HRALX, switch HRAC) will create / update related business partners (relation is saved within table HRP1001, subtype B207) according to the mapping of data during idoc inbound processing (active CRM implementation of a BAdI HRALE00INBOUND_IDOC processed within the function module (FM) IDOC_INPUT_HRMD (stored in table TBD52 for evcode = HRMD).
    Reading specific infotype data of a central person (databases HRP558x) will be done using the FM RH_READ_INFTY.
    Regards,
    Michael

  • I want to display the Employee details in table format without using iGrid

    Hi all,
    Can anybody help me that I want to display the Employee details return by transaction in table  format without using iGrid.

    Hi, view the link below.
    http://help.sap.com/saphelp_xmii115/helpdata/en/Advanced_Topics/Customizing_Output/Customizing_Output.htm
    Hope this help.
    Danilo Santos

  • Resigned employee details reflecting in Customer Advisor Search

    Dear Experts,
    In DBM while creating a sales order we need to assign the customer advisor for each sales. Based on the employee master data which we have maintained in SAP ECC. Automatically the employee details are reflecting Customer Advisor search column, but it is also showing the resigned employee details in F4 search.
    Even though have changed the status of employee as resigned and still its showing the details in DBM.
    Kindly advise how to eliminate or restrict the values in search. Kindly share any user manual or procedure document to update the same in DBM.
    Thanks & Regards,
    Pradeep Krishnamurthy

    Dear Experts,
    In DBM while creating a sales order we need to assign the customer advisor for each sales. Based on the employee master data which we have maintained in SAP ECC. Automatically the employee details are reflecting Customer Advisor search column, but it is also showing the resigned employee details in F4 search.
    Even though have changed the status of employee as resigned and still its showing the details in DBM.
    Kindly advise how to eliminate or restrict the values in search. Kindly share any user manual or procedure document to update the same in DBM.
    Thanks & Regards,
    Pradeep Krishnamurthy

  • PA30 Display Employee details on the Header Screen

    Dear Team:
    Sometimes I see that using transaction PA20 or PA30, when I give the Personnel Number, in the header screen, I do not see any employee information for some employees and could able to see other employees.
    Anything that restricts us to see the employee details in the header screen.
    If it is an authorization issue, what is the check that is restricting the same. Which authorization details should the I have to look for the employee details in the header screen.
    Thanks and Regards
    Team Member.

    Below are already avialable in the table.
    00     A     60
    00     B     80
    01     A     01
    01     B     21
    02     A     02
    02     B     22
    03     A     03
    03     B     23
    04     A     04
    04     B     24
    05     A     18
    10     A     00
    10     B     20
    45     A     45
    Regards
    Team Member

  • TableName  and Business Object to get  Sales Employee Details.

    Hi everybody,
    I am extracting all the modules data using SAP SDK..
    In Contacts Object,SalesPersonCode also comes.I want to know in <b>which table Sales Employee datas are stored</b>.. In Employees object of HR module,Sales Employee details can't be extracted..
    Please help me to take Sales Employee details using BusinessObject or Querying..

    Hi,
    Which SBO version are you running? in 2005 there is a SalesPerson Object.
    The PaymentMethod is in the OPYM table, and even in 2005 there isn´t any object in the DI API for it.
    Regards,
    Ibai Peñ

  • How to read IM_ATTABS_TAB  structure to get Employee details..

    Hello friends,
      i am facing difficulty reading IM_ATTABS_TAB for getting employee details..
    i need this to code in a BADI for validating Leave request..
    i have to extract employee(who after logging in in ESS ,applies for leaves) information such as PERNR leave balance quotas,etc before i can display the suitable message...
    Now the structure IM_ATTABS_TAB has PTARQ_ATTABSDATA_TAB as associated type...which has line type as PTARQ_ATTABSDATA_STRUC..
    so now,what select statement or query gives me the desired information..
    whioch is PERNR,and other leave quotas...

    Hi bala,
    Please tell me ur problem got resolved or not.
    As i am also facing the same and it is exactly the same.
    Please help me if you are done with the same!!!
    Regards,
    Sujit

  • Employee Detail with their image

    Hi,
    I have a Employee Table and Each employee has a image.I am using Region type as Pl/sql anonymous block. i want to display Employee Detail with their Image. How i can do this?

    Hi Pars,
    I refer to sample application and find code there for image display in report. The code is
    decode(nvl(dbms_lob.getlength(p.product_image),0),0,null,
        '<img style="border: 4px solid #CCC; -moz-border-radius: 4px; -webkit-border-radius: 4px;" '||
        'src="'||
        apex_util.get_blob_file_src('P6_PRODUCT_IMAGE',p.product_id)||
        '" height="75" width="75" alt="Product Image" title="Product Image" />')
        detail_img,
    what should i replace with P6_PRODUCT_IMAGE because i don't have this item. In my code first row td has static image code. how i can replace this.
    my code is
    DECLARE
    rec USER_MAS%rowtype;
    begin
    htp.p('
    <html>
    <body>
    FOR REC IN (select EMP_ID, FIRST_NAME, LAST_NAME, ADDRESS_1, CITY_NAME, PINCODE, MOBILE_NO, EXT_CODE, EMAIL_ID, SKYPE_ID ,EMP_IMAGE, FILENAME,MIMETYPE from INT_EMP_MAS WHERE EMP_ID=:P102_EMPLOYEE_ID or upper(FIRST_NAME)=upper(:P102_EMPLOYEE_ID) OR upper(LAST_NAME)=upper(:P102_EMPLOYEE_ID))
    LOOP
    htp.p(' <table WIDTH="100%">
    <tr></br></tr>
    <tr>
    <td ALIGN="CENTER" ROWSPAN="15" ></br><img src="#WORKSPACE_IMAGES#download (2).jpg" width="60" height="50"/></td>
    <td>Emp ID :</td>
    <td>'||INITCAP(REC.emp_id)||'</td>
    </tr>
    <tr>
    <td>Name:</td>
    <td>'||INITCAP(REC.FIRST_NAME)||' '||INITCAP(REC.LAST_NAME)||'</td>
    </tr>
    <tr>
    <td>Mobile No:</td>
    <td>'||REC.MOBILE_NO||'</td>
    </tr>
    <tr>
    <td>Ext.Code:</td>
    <td>'||REC.EXT_CODE||'</td>
    </tr>
    <tr>
    <td>Email ID:</td>
    <td>'||REC.EMAIL_ID||'</td>
    </tr>
    <tr>
    <td>Skype ID:</td>
    <td>'||REC.SKYPE_ID||'</td>
    </tr>
    htp.p('
    </TABLE>');
    END LOOP;
    htp.p('</body>
    </html>');
    end;
    Thanks & regards
    Vedant

  • Error while extracting Employee details in Webdynpro application

    Hi,
    I am using below codes to extract details from Employess in Method tab
    wd_this->fire_to_alv_table_plg(  ).
      DATA lo_nd_employee TYPE REF TO if_wd_context_node.
      DATA lo_el_employee TYPE REF TO if_wd_context_element.
      DATA lt_employee TYPE wd_this->elements_employee.
      DATA ls_employee TYPE wd_this->element_employee.
    navigate from <CONTEXT> to <EMPLOYEE> via lead selection
      lo_nd_employee = wd_context->get_child_node( name = wd_this->wdctx_employee ).
      DATA lo_el_context TYPE REF TO if_wd_context_element.
      DATA ls_context TYPE wd_this->element_context.
      DATA lv_emp_no LIKE ls_context-emp_no.
      DATA lv_num TYPE I.
    get element via lead selection
      lo_el_context = wd_context->get_element(  ).
    get single attribute
      lo_el_context->get_attribute(
        EXPORTING
          name =  `EMP_NO`
        IMPORTING
          value = lv_emp_no ).
      SELECT ZZORGEH ZZ_PER_ASSG BEGDA ENDDA INTO CORRESPONDING FIELDS OF TABLE
          lt_employee  FROM PA9027 WHERE PERNR EQ lv_emp_no AND ENDDA EQ '99991231'.        
      DESCRIBE TABLE lt_employee LINES lv_num.       
      lo_nd_employee->BIND_TABLE( lt_employee ).
      data lo_cmp_usage type ref to if_wd_component_usage.
      lo_cmp_usage =   wd_this->wd_cpuse_alv( ).
      if lo_cmp_usage->has_active_component( ) is initial.
        lo_cmp_usage->create_component( ).
      endif.
      DATA lo_INTERFACECONTROLLER TYPE REF TO IWCI_SALV_WD_TABLE .
      lo_INTERFACECONTROLLER =   wd_this->wd_cpifc_alv( ).
      DATA lo_value TYPE ref to cl_salv_wd_config_table.
      lo_value = lo_interfacecontroller->get_model( ).
    Set Visible Row Count as 5
      lo_value->if_salv_wd_table_settings~set_visible_row_count( lv_num ).
    The Config Table Setting to Display Table & Business Graphics
      DATA: l_ref_config_table TYPE REF TO if_salv_wd_table_settings,
            l_display_as TYPE salv_wd_constant VALUE '02'.
      l_ref_config_table ?= lo_value.
      l_ref_config_table->set_display_as( value = l_display_as ). 
    endmethod.
    It is giving me error saying Field "WDCTX_EMPLOYEE" is unknown. It is neither in one of the          
    specified tables nor defined by a "DATA" statement . . . . . . . . . .          
    Can u tell me where i am going wrong..
    Thanks
    Shan

    Well wd_this->wdctx_employee is the generated constant to hold the name of your context node.  I would say that one of three things caused this error.
    1.  You type the code (or cut and pasted it) and this context node name is spelled different or doesn't exist in the local context (maybe not copied from a component controller yet?).
    2.  You haven't activated the component/view yet so the attribute hasn't been generated in the dynamic class.  Comment out the code, activate, then remove the comments.
    3.  You had the context named employee and entered the code (or used the wizard to generate it).  Everything was fine.  Then you renamed the context - this would lead to breaking the code because the name changed and the constant no longer exists in the generated class.
    Any way around this - check you context node name and make sure it matches what is referenced in the code.

  • HR ABAP Report: Display employee details changes within a time period!!

    Dear Friends,
    I need urgent help with the below HR-ABAP report.
    Thanks in Advance!
    Joy
    I have to create a report which would display in ALV
    A table containing details of all changes to fields specified iby the user within the selected period
    Details :: ~
    When executing the report, the user will be given the opportunity to select which fields will be displayed in the output of the employee changes table. They will also be given the choice to display the previous value for each field and the date the change becomes effective.
    Please Help !!!

    First of all ensure that the fields that you need to audit have been configured.
    refer to the  documentation of report RPUAUD00.
    You will need to create a report that extracts data fromPCL4.
    If your audit data has been configure as Lond documents then look at using FM HR_INFOTYPE_LOG_GET_LIST  &
    HR_INFOTYPE_LOG_GET_DETAIL
    If not you will to extract the header info & then the BELEGE info - beware of the differnt operas inuse.
    J

  • Getting Sales Employee details in Sales Order

    Hi all
    My customer is not implementing HR module, but they want to get the details of sales employee responsible for each sale in the sales order. Please let me know how do we do it
    Regards

    For your requirement, you needn't to implement HR-Module.
    To Create Sales Personnel in SAP
    T. Code: VPE1
    You have to Maintain Parner Determination in SPRO:
    SPRO --> IMG --> SD --> BAsic Functions --> PArtner Determination -->SEt up Partner Determination
    As you want it in Sales Order (say, At Header), Click:
    -->Set Up Partner Determination for Sales Document Header
    Select TA - Standard Order.
    Now, From Left-hand side tree, click on:
    Partner determination procedure assignment.
    Here assign TA to your Sales Doc type (Say, OR - Sales Order).
    Again from Left-hand tree, select
    Account groups - Function Assignment
    Here, Linl all Customer Acct Grps to PE/ VE
    Now in Sales Order (T. Code: VA01/ 02), to include Sales Employee:
    Goto --> Header --> Partner
    here, in Column Partner. Function: Select VE/ PE as defined for Sales Employee.
    Best Regards,
    VP

Maybe you are looking for