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

Employee details

Similar Messages

Maybe you are looking for