Skip to Content
avatar image
Former Member

Need example report program using PNPCE LDB in SAP HR

Need example report program using PNPCE LDB in SAP HR.

and how to create a report category in sap hr for using it as cutomised selection screen.

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

3 Answers

  • avatar image
    Former Member
    Mar 18, 2008 at 02:56 PM

    Hi try this simple program ...

    tables : pernr.

    nodes: person.

    infotypes: 0000.

    data: noofperas type i.

    data: singleperas(1) type c. " X - True SPACE- False

    start-of-selection.

    get person.

    clear: singleperas.

    • Determine if there is only one contract

  • if true.

  • clear: noofperas.

    describe table person-all_pernrs lines noofperas.

    if noofperas > 1.

    move space to singleperas.

    else.

    singleperas = 'X'.

    endif.

    ***********

    report zldb_pnpce.

    nodes: peras.

    tables: pernr, t512w.

    infotypes: 0000, 0001.

    initialization.

    pnptimed = 'K'.

    pnpbegda = sy-datum.

    start-of-selection.

    get peras.

    rp_provide_from_frst p0000 space pn-begda pn-endda.

    if pnp-sw-found = 1.

    write:/ 'ok'.

    else.

    write:/ 'No'.

    endif.

Add comment
10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Mar 18, 2008 at 10:34 AM

    Hi,

    Go through the following links, i hope it will help you.....

    /people/alvaro.tejadagalindo/blog/2006/02/19/how-to-deal-with-hr-payroll-reports

    http://sap.ittoolbox.com/groups/technical-functional/sap-r3-dev/893908#

    A sample prog with LDB PNP

    &----

    -


    *& Report ZH_REPT_PAYMENT *

    *& *

    &----

    -


    *& *

    *& *

    &----

    -


    report zh_rept_payment line-size 80 no standard page

    heading.

    tables: pernr, " Standard Selections for HR Master Data Reporting

    pcl1, " HR Cluster 1

    pcl2, " HR Cluster 2

    pa0009,

    PA9001,

    PA9006,

    pa0002,

    pc260 , " Cluster Directory for Payroll Results

    bnka .

    Infotypes

    infotypes: 0001. " Organizational Assignment

    Declaration of Internal Tables

    data : bnka1 like bnka occurs 0 with header line .

    *-

    data: begin of t_int_rep occurs 100,

    bankl like pc209-bankl, " Bank Number

    zlsch like pc209-zlsch, " Payment method

    pernr like pernr-pernr, " Employee Number

    ename like pernr-ename, " Employee Name

    bankn like pc209-bankn, " Bank Account Number

    betrg like pc209-betrg, " Amount to be transfered

    zweck like pa0009-zweck, " Purpose

    end of t_int_rep.

    ***********************

    data: begin of int_rep occurs 100,

    bankl like pc209-bankl, " Bank Number

    zlsch like pc209-zlsch, " Payment method

    pernr like pernr-pernr, " Employee Number

    ename like pernr-ename, " Employee Name

    bankn like pc209-bankn, " Bank Account Number

    betrg like pc209-betrg, " Amount to be transfered

    zweck like pa0009-zweck, " Purpose

    begda like pa0009-begda, "Begin date

    end of int_rep.

    Declaration of Data Variables

    data: ws_betrg like pc209-betrg, " BT Amount

    w_val like spell occurs 0 with header line,

    int_rep1(6), " TYPE I, " Employee Number

    cnt type i value 0, " Counter

    calcmolga like t500l-molga value '40', " Country Grouping

    v_id(15),

    calc_currency like t001-waers value 'INR'. " Currency

    data : ctr type i,

    dt_merge like pa0009-begda.

    data: ws_totemp(6) type c,

    ws_totamt(20) type c,

    r_mth(9) type c,

    ws_fpbeg(6) type c,

    ws_fpend(6) type c,

    ws_mthyr(6) type c,

    ws_mthyr_r(14) type c,

    r_mth_t(3) type c,

    ws_amt(8) type c,

    ws_bankl(14) type c,

    ws_date(6) type c,

    amount_word(500),

    total_page type i,

    pages type i,

    remain type i.

    data begin of i_spell.

    include structure spell .

    data end of i_spell .

    data : c_molga type t500l-molga value '40',

    c_banks type bnka-banks value 'IN'.

    ************************************************************************

    Standard Includes

    include rpc2cd09. "Cluster CD data definition

    include pc2rxin0.

    include rpc2rx09.

    include rpppxd00. " Data Definition buffer PCL1/PCL2

    include rpppxd10. " Common Part buffer PCL1/PCL2

    include rpppxm00. " Buffer Handling RoutinePCL1/PCL2

    include zrpc2rox2. " Data Definition POCLSTERS (not J,K,U)

    ************************************************************************

    Selection Screen

    ************************************************************************

    selection-screen begin of block b1 with frame title text-001.

    parameter: pa_mth(2) type c default sy-datum+4(2) obligatory,

    pa_year(4) type c default sy-datum(4) obligatory,

    p_bankl like pc209-bankl, " Bank Number

    p_zlsch like pc209-zlsch. " Payment method

    selection-screen end of block b1.

    ************************************************************************

    save_calc_currency = calc_currency.

    count_top = 0.

    get_pernr_flag = 0.

    **********************************************************************

    Top-Of-Page

    **********************************************************************

    top-of-page.

    perform convert_month using pa_mth(2) r_mth.

    ws_mthyr_r = r_mth.

    concatenate ws_mthyr_r pa_year into ws_mthyr_r separated by space.

    SKIP 5.

    skip 1.

    skip 4.

    if int_rep-bankl eq ' '.

    if int_rep-zlsch eq 'C' or int_rep-zlsch eq 'E' or

    int_rep-zlsch eq ' '.

    write: /1(85) 'CHEQUE PAYMENT STATEMENT'(047) centered.

    elseif int_rep-zlsch eq 'L'.

    write: /1(85) 'DEMAND DRAFT STATEMENT'(047) centered.

    endif.

    else.

    write: /1(85) 'BANK TRANSFER STATEMENT'(002) centered.

    endif.

    skip.

    write: /34 ws_mthyr_r,

    62 'Page :'(008),69(2) sy-pagno intensified off,

    ' Of ',78(2) pages intensified off.

    clear pages.

    read table bnka1 with key bankl = int_rep-bankl .

    if sy-subrc = 0.

    if int_rep-zlsch eq 'T'.

    write:/03(10) 'Bank Name : ', bnka1-banka.

    write:/03(10) 'Branch : ', bnka1-brnch.

    write:/03(10) 'Address : ', bnka1-stras.

    endif.

    endif.

    skip.

    write:/1(80) sy-uline.

    write: /1 sy-vline, 2(5) 'Sl.No'(002),

    7 sy-vline, 8(8) 'Emp.No.'(003),

    16 sy-vline,17(35) 'Employee Name'(004).

    *--added for Demand Draft

    if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).

    write : 47 sy-vline, 48(15) 'Payable at'(005).

    else.

    *---

    write : 47 sy-vline,48(15) 'Account No.'(005).

    endif.

    write: 63 sy-vline,64(16) 'Amount'(006),

    80 sy-vline.

    write:/1(80) sy-uline.

    end-of-page.

    write:/1(80) sy-uline.

    write:/2 'Printed on ', sy-datum.

    *

    **********************************************************************

    Start-of-selection.

    **********************************************************************

    start-of-selection.

    *perform h_headr.

    ctr = 0.

    set margin 5.

    call function 'RP_GET_CURRENCY'

    exporting

    molga = calcmolga

    importing

    waers = calc_currency

    exceptions

    others.

    if sy-subrc ne 0.

    calc_currency = 'DEM'.

    calc_currency = save_calc_currency.

    endif.

    get pernr.

    cd-key-pernr = pernr-pernr.

    perform import_cluster.

    get_pernr_flag = 1.

    check : ocd-version-molga eq calcmolga.

    The table 'tabpernr' is filled with the personnel numbers

    and is used after selection is finished.

    move-corresponding pernr to tabpernr.

    append tabpernr.

    The table 'tab_rgdir' is filled

    loop at rgdir.

    rx-key-pernr = pernr-pernr.

    unpack rgdir-seqnr to rx-key-seqno.

    perform int_tab. "fill tab_rgdir

    perform import_bt.

    perform validate.

    endloop.

    **********************************************************************

    End of Selection

    **********************************************************************

    end-of-selection.

    *perform h_headr.

    perform convert_date_a using pa_mth r_mth_t.

    sort int_rep by bankl zlsch pernr betrg descending.

    delete adjacent duplicates from int_rep

    comparing bankl zlsch pernr .

    sort int_rep by bankl zlsch bankn . "PERNR.

    loop at int_rep.

    at new bankl.

    select single * into bnka1 from bnka

    where banks = c_banks and

    bankl = int_rep-bankl .

    append bnka1.

    clear bnka1.

    endat.

    endloop.

    for Demand Draft - purpose added

    loop at int_rep.

    concatenate pa_year(4) pa_mth(2) '01' into dt_merge.

    select single * "zweck into int_rep-zweck

    from pa0009 where

    pernr = int_rep-pernr and

    bankl = int_rep-bankl and

    zlsch = int_rep-zlsch

    and begda <= dt_merge and

    endda >= dt_merge .

    if sy-subrc = 0.

    int_rep-zweck = pa0009-zweck.

    modify int_rep.

    endif.

    endloop.

    *-for DD and Chq sorted by PAyable at and EMPNO wise

    if p_zlsch = 'T' .

    sort int_rep by bankl zlsch bankn . "PERNR.

    else. "added for "payable at" for DD/Chq

    else.

    sort int_rep by zweck pernr . "PERNR.

    endif.

    *delete adjacent duplicates from int_rep.

    t_int_rep] = int_rep[.

    loop at int_rep.

    *-for page of page no.

    total_page = 0.

    loop at t_int_rep where bankl = int_rep-bankl

    and zlsch = int_rep-zlsch.

    total_page = total_page + 1.

    endloop.

    pages = total_page div 25.

    remain = total_page mod 25.

    comment bcoz its adding one extra page no.

    done as on 29/11/2004

    if remain > 0.

    pages = pages + 1.

    endif.

    **-end

    *-

    at new bankl.

    ctr = 0 .

    new-page.

    endat.

    at new zlsch.

    ctr = 0 .

    new-page.

    endat.

    clear v_id.

    select single natio

    into pa0002-natio

    from pa0002

    where pernr eq int_rep-pernr.

    *-testing......for soma

    if ctr > 24.

    ctr = 0 .

    write:/1(80) sy-uline.

    new-page .

    endif.

    ctr = ctr + 1 .

    cnt = cnt + 1.

    pack int_rep-pernr to int_rep1.

    write:/1 sy-vline, 2(3) cnt intensified off,

    7 sy-vline, 9(6) int_rep1 intensified off,

    16 sy-vline,17(35) int_rep-ename intensified off .

    if ( int_rep-zlsch = 'l' or int_rep-zlsch = 'L' ).

    write : 47 sy-vline,48(15) int_rep-zweck intensified off.

    else.

    write:

    47 sy-vline,48(15) int_rep-bankn intensified off .

    endif.

    write: 63 sy-vline,64(16) int_rep-betrg

    intensified off currency 'INR',

    80 sy-vline.

    ws_betrg = ws_betrg + int_rep-betrg.

    *-testing......for soma

    skip.

    write :

    /1 sy-vline, 7 sy-vline ,16 sy-vline ,47 sy-vline,63 sy-vline,80

    sy-vline .

    *-end testing......for soma

    at end of zlsch.

    if int_rep-bankl = ' '.

    call function 'HR_IN_CHG_INR_WRDS'

    exporting

    amt_in_num = ws_betrg

    importing

    amt_in_words = amount_word

    EXCEPTIONS

    DATA_TYPE_MISMATCH = 1

    OTHERS = 2

    .

    *************

    w_val-word = amount_word.

    concatenate 'INR.' w_val-word into w_val-word

    separated by space.

    write:/1(80) sy-uline.

    write: /1 sy-vline, 7 'Total transfer:'(009),

    64(16) ws_betrg intensified off currency 'INR',

    80 sy-vline.

    write:/1(80) sy-uline.

    write: /1 sy-vline, 3 w_val-word+0(76) intensified off,

    80 sy-vline.

    write :/1 sy-vline, 10 w_val-word+76(70) intensified off,

    80 sy-vline.

    write:/1(80) sy-uline.

    clear: ws_betrg,cnt.

    skip 2.

    write: /2 'Prepared by :'(010), '_______________'(013),

    45 'Checked by :'(011),'_______________'(013).

    skip 2.

    write: /2 'Printed On ', sy-datum,

    45 'Approved by :'(012),'_______________'(013).

    clear sy-pagno.

    endif.

    endat.

    at end of bankl.

    if int_rep-bankl ' '.

    call function 'HR_IN_CHG_INR_WRDS'

    exporting

    amt_in_num = ws_betrg

    importing

    amt_in_words = amount_word

    EXCEPTIONS

    DATA_TYPE_MISMATCH = 1

    OTHERS = 2

    .

    w_val-word = amount_word.

    concatenate 'INR.' w_val-word into w_val-word

    separated by space.

    write:/1(80) sy-uline.

    write: /1 sy-vline, 7 'Total transfer:'(009),

    64(16) ws_betrg intensified off currency 'INR',

    80 sy-vline.

    write:/1(80) sy-uline.

    write: /1 sy-vline, 3 w_val-word+0(76) intensified off,

    80 sy-vline.

    write :/1 sy-vline, 10 w_val-word+76(70) intensified off,

    80 sy-vline.

    write:/1(80) sy-uline.

    clear: ws_betrg,cnt.

    skip 2.

    write: /2 'Prepared by :'(010), '_______________'(013),

    45 'Checked by :'(011),'_______________'(013).

    skip 2.

    write: /2 'Printed on ', sy-datum,

    45 'Approved by :'(012),'_______________'(013).

    clear sy-pagno.

    NEW-PAGE.

    endif.

    endat.

    endloop.

    **********************************************************************

    End of Page

    **********************************************************************

    end-of-page.

    write: /2 'Prepared by :'(010), '_______________',

    45 'Checked by :'(011),'_______________'.

    &----

    -


    *& Form IMPORT_CLUSTER

    &----

    -


    Importing Data from Cluster *

    form import_cluster.

    sy-subrc = 0.

    rp-imp-c2-cd.

    if sy-subrc eq 0.

    if cd-version-number ne ocd-version-number.

    endif.

    endif. " SY-SUBRC EQ 0

    endform. " IMPORT_CLUSTER

    &----

    -


    *& Form INT_TAB

    &----

    -


    Filling internal table tab_rgdir form int_tab.

    *Fill internal table tab_rgdir.

    move-corresponding rgdir to tab_rgdir.

    tab_rgdir-pernr = pernr-pernr.

    append tab_rgdir.

    endform. " INT_TAB

    &----

    -


    *& Form IMPORT_bt

    &----

    -


    Import Values from Bank Transactions Table (BT) form import_bt.

    rp-init-buffer.

    RP-IMP-C2-RX.

    rp-imp-c2-in.

    if rp-imp-in-subrc eq 0.

    if in-version-number ne oin-version-number.

    write: / 'Schlüssel des Clusters RX:'(015),

    rx-key-pernr, rx-key-seqno.

    write: / 'The imported version of the cluster'(016), 'RX',

    'is not current'(017).

    write: / 'Imported version :'(018),

    oin-version-number.

    write: / 'Current version of cluster :'(019),

    in-version-number.

    stop.

    else.

    sy-subrc = 0.

    endif.

    else.

    sy-subrc = 8.

    write: /

    'Inconsistencies between cluster directory and directory for'(020).

    write: /

    'No payroll results found for data in cluster directory'(021).

    write : /

    'Please contact hotline to solve the current problem'(022).

    endif.

    ws_fpbeg(2) = versc-fpbeg+4(2).

    ws_fpbeg+2(4) = versc-fpbeg(4).

    ws_fpend(2) = versc-fpend+4(2).

    ws_fpend+2(4) = versc-fpend(4).

    ws_mthyr(2) = pa_mth.

    ws_mthyr+2(4) = pa_year.

    check ws_mthyr = ws_fpbeg.

    check ws_mthyr = ws_fpend.

    loop at bt. "from pc209

    int_rep-pernr = pernr-pernr.

    int_rep-ename = pernr-ename.

    int_rep-bankl = bt-bankl.

    int_rep-bankn = bt-bankn.

    int_rep-betrg = bt-betrg.

    int_rep-zlsch = bt-zlsch.

    append int_rep.

    endloop.

    IF P_BANKL ' ' AND P_ZLSCH ' '.

    DELETE INT_REP WHERE BANKL P_BANKL.

    ELSEIF P_BANKL = ' ' AND P_ZLSCH ' '.

    DELETE INT_REP WHERE ZLSCH P_ZLSCH.

    ELSEIF P_BANKL ' ' AND P_ZLSCH = ' '.

    DELETE INT_REP WHERE BANKL P_BANKL.

    ENDIF.

    endform. " IMPORT_BT

    &----

    -


    *& Form CONVERT_MONTH

    &----

    -


    Fetching Month Text form convert_month using mth t_mth.

    case mth.

    when '01'.

    t_mth = 'January'(023).

    when '02'.

    t_mth = 'February'(024).

    when '03'.

    t_mth = 'March'(025).

    when '04'.

    t_mth = 'April'(026).

    when '05'.

    t_mth = 'May'(027).

    when '06'.

    t_mth = 'June'(028).

    when '07'.

    t_mth = 'July'(029).

    when '08'.

    t_mth = 'August'(030).

    when '09'.

    t_mth = 'September'(031).

    when '10'.

    t_mth = 'October'(032).

    when '11'.

    t_mth = 'November'(033).

    when '12'.

    t_mth = 'December'(034).

    endcase.

    endform. " CONVERT_MONTH

    &----

    -


    *& Form CONVERT_DATE_A

    &----

    -


    Fetching Month Text * form convert_date_a using mth_t t_mth_t.

    case mth_t.

    when '01'.

    t_mth_t = 'Jan.'(035).

    when '02'.

    t_mth_t = 'Feb.'(036).

    when '03'.

    t_mth_t = 'Mar.'(037).

    when '04'.

    t_mth_t = 'Apr.'(038).

    when '05'.

    t_mth_t = 'May.'(039).

    when '06'.

    t_mth_t = 'Jun.'(040).

    when '07'.

    t_mth_t = 'Jul.'(041).

    when '08'.

    t_mth_t = 'Aug.'(042).

    when '09'.

    t_mth_t = 'Sep.'(043).

    when '10'.

    t_mth_t = 'Oct.'(044).

    when '11'.

    t_mth_t = 'Nov.'(045).

    when '12'.

    t_mth_t = 'Dec.'(046).

    endcase.

    endform. " CONVERT_DATE_A

    &----

    -


    *& Form VALIDATE

    &----

    -


    text

    --> p1 text

    <-- p2 text form validate .

    if p_bankl <> ' ' and p_zlsch ' '.

    delete int_rep where bankl p_bankl.

    elseif p_bankl = ' ' and p_zlsch ' '.

    delete int_rep where zlsch p_zlsch.

    elseif p_bankl ' ' and p_zlsch = ' '.

    delete int_rep where bankl p_bankl.

    endif.

    endform. " VALIDATE

    check this weblog.....

    /people/dj.adams/blog/2003/11/13/food-for-thought-ldbs-and-abap-objects

    Also , check the following link too.

    http://www.datamanagementgroup.com/Resources/Articles/Article_1005_2.asp

    Regards,

    Harish

    Add comment
    10|10000 characters needed characters exceeded

  • avatar image
    Former Member
    Mar 18, 2008 at 02:48 PM

    hii,

    here is a standard programe RPCEDTU0_CE.

    just go through it.,hope this helpful 2 u

    Add comment
    10|10000 characters needed characters exceeded