Report Category in PNP LDB

Hi,
I have a HR Report using LDB PNP.
I need the fields, Today and Key Date on the Date Selection Block and the Default Fields on the Data Selection Block.
        - Country, - Company code,
     - Personnel Area, - Personnel Sub-area,
     - Employee Group, - Employee Sub Group,
     - Contract of IT 0001
     - Payroll area,
     - Controlling area - Cost center,
     - Administrator group,
     - Payroll administrator, - Personnel administrator,
     - Time recording administrator
     - Personnel number,
     - Organizational Unit, - Position, - Function
Is there a standard Report Category to generate this Selection screen or should I go with creating a new one.
Please suggest.
Thanks,
Suryakiran D.

Hi suryakiran,
1. PNPCE
2. use the above ldb (instead of pnp)
3. In the selection, screen,
on the toolbar,
u will get on button
"selection fields"
4. Press this button,
and u then
select (transfer to right)
the fields u want.
5. It has ALL the fields, u mentioned.
regards,
amit m.

Similar Messages

Reg:Modification of HR Report Category in PNP LDB.

Hi All,
My requirement is to modify the selection screen of PNP LDB, in the report category we used to give the required selection screen.suppose i want to use the Report category as HRIN0000 and want to hide payroll area.
please help me about this.
Thanks in Advance
Regards
Srinivas

Hi,
Go to Tcode SE36 -->LDB PNP >Extras>Select view
Dispaly the function group.If it does not exit create a new function group and assign the fields need to be displayed
Field that have no fuction can be suppresed in the output.
I hope this may helpfull.
Thanks,
AMS

Creating a New Report Category for PNP

Hi,
Could anyone please help me in knowing the different steps involved while creating a custom and new report category for PNP LDB?
Thanks,
Sandeep.

Hi create a program or use an existing program, which has logical database pnp.
go to se38-> prog name->change-> goto->attributes-> HR report category->create report category->new entries.
check and uncheck what all fields you require for your report
now save the settings.
This will serve your purpose. reward points will be appriciated.
Regards,
Quavi

How to create report category for PNPCE ldb in ECC 6.0

Hi Experts,
How to create report category for the LDB pnpce in ECC6.0
Thanks in Advance,
Regards,
IFF

Self-Answered.

Transport of 'Report category Assignment' for LDB - PNP

Hi,
I am using LDB - PNP for a HR report. The screen works fine in the development server.
Once Transported to Quality and Production servers the screen changs to something else completely.
<b>I see that HRIN0013 under 'Report category Assignment' ( found in Attributes of program ) is not transported to
to quality server. How can transport HRIN0013 to
to quality server? </b>
I have used 'Report category Assignment' X__X2201 and it works fine.
I need your assistance on this. Help will be highly appreciated.

Hi sanchit,
1. This report category HRIN0013
   must be a sap standard report category,
   which must be a part of the LDB program.
2. Just check out in your QA and production servers,
whether this HRIN0013 is available for
selection or not,
   in the same screen, u mentioned.
ie. se38 -- 'Report category Assignment' Button
( found in Attributes of program
regards,
amit m.

Assign Report Category to a SAP Query for PNP LDB

Hello Folks,
How to Assign a Report Category to a SAP Query which is using LDB PNP.
Regards,
Nishanth Kumar

Hi,
SE38 -> Report name -> attributes -> HR Report category
Regards,
Dilek

Problem while creating HR report with PNP LDB

Hi Experts,
I am working on HR Report using LDB PNP.
In HR REPORT CATEGORY,i have mentioned "___00003" in Master Data radio button.
Now i can create my own selection screen.In my Selection-Screen i am using pushbutton.
Code is:
SELECTION-SCREEN:
PUSHBUTTON 5(15) but1 USER-COMMAND cli1,
PUSHBUTTON 30(15) but2 USER-COMMAND cli2.
INITIALIZATION.
but1 = 'PDF FORMAT'.
but2 = 'FILE FORMAT'.
AT SELECTION-SCREEN.
CASE sscrfields.
    WHEN 'CLI1'.
      PERFORM PDF.
    WHEN 'CLI2'.
      PERFORM FILE.
ENDCASE.
While executing i have clicked on 2nd pusbutton.
It is going to CASE and also i am getting value of sscrfields = CLI2 .
also sy-subrc = 0.
but after that it is not going to WHEN condition.
Can anybody plz help me out in this.
Regards,
Ankur

SSCRFIELDS is a structure so you have to ask:
CASE SSCRFIELDS-UCOMM.
WHEN xx.
ENDCASE:

LDB/Report Category/Selection view

Hello,
I have a requirement to add a field onto the standard selection of the program PC00_M99_CWTR.
The field I need to add is PA0031-RFP01 (Reference personnel number). Can this be added??
I have been told that I can add this field to the dynamic selection screen by changing the fields
behind the logical database PNP. However, when I go into SE36 and enter the SELECTION VIEWS
option choose PNP and SAP STANDARD to display the system replies with 'The selection view does
not exist' ?????
How can I add fields when I can't see the SAP standard one to copy from.
Or should I be changing the reporting category.
Any help much appreciated.
Thanks
Andy

Thanks Rob.
Just wanted to know if it was possible or not. Sometimes with SAP it says you can do
something to the SAP standard and then you have to go and create a custom copy
having spent many hours in the first place!!
Andy

Add select-option fields in report category (PNP)

Hi,
I am trying to create a new report category based on the logical database PNP.
I noted that the fields available for select-option for report category come from infotype 0 or 1. Is there anyway to include fields from other infotypes ?
Thank you.
Regards
Kir Chern

Hi Kir Chern
Due to the structure of the logical database you can just insert selection fields that are bestowed.
However, as Charles mentioned, you can add selection fields special to your program by coding a selection screen at your program whose fields are inserted just after the ones added by the report category.
*--Serdar <a href="https://www.sdn.sap.com:443http://www.sdn.sap.comhttp://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.sdn.businesscard.sdnbusinesscard?u=qbk%2bsag%2bjiw%3d">[ BC ]</a>

Selection-screen using HR report category

Hi friends,
I have a developed HR report using PNP ldb in which i have used the HR report category to specify my selection-screen.But still my requirment is not getting fullfiled.I require 1)Company Code
2)Payroll Period selection block also.
But even if i dont enter value in this payroll area it should excecute.As of now it throws an error message saying "No valid payroll area specified"
I want to generate report for any month given in other period of the payroll Area wrt company code.

As per your question, remember that, the period will be different for each and every Payroll area.May be same period will behave differenly like weekly, monthly, semi-monthly.. with different payroll area.
So the parameter payroll area will always be mandatory..

Help me about the Report Category !!

In a ABAP report program's "Attributes", we can set the Logical database (eg. in HR, it's PNP) , and then, we can select the "HR report category", for the report screen category setting. After we set the Master Data(infotypes), we will get the report with several pushbuttons in the first line, like Further Selections "Sort order" ...
So, my question is if I want to add some items into the "Sort Order" selection screen, how to do that ?
Thanks a lot
Tom

Hi Tom,
You can create the report category from SE38-> Attributes and then give the LDB name as PNP.
Now click on the HR report category button and proceed creating the new report category by clicking the create button.
The report category name should start with 0* or 7*.
Hope this helps you,
Regards,
Subbu.

PNP LDB Problem

Hi Gurus,
I have a problem. I have created an HR report with PNP logical database. I created my own report category for the purpose. In the <b>Selection</b> option I have given
two select options. One is personnel number and the other is company code.
If I execute the program without entering anything in the selection screen the report
is selecting some values. In that the personnel number 2 is not present. My guess
is that the position of employee number 2 is wrong and becoz of this LDB is not selecting 2.
But if I fill company code with the value from personnel number 2, the employee 2
is getting selected. Why is this happening? Any pointers will be rewarded.
Regards,
Aravind

Hi April,
The program is very simple and is as follows.
report zar_pnp.
nodes pernr.
infotypes: 0000, 0001,1000.
start-of-selection.
get pernr.
read table p0000 index 1.
if sy-subrc eq 0.
write / p0000-pernr.
endif.
read table p0001 index 1.
if sy-subrc eq 0.
write p0001-bukrs.
endif.
end-of-selection.
The personnel numbers which are not selected if you leave all fields on the selection screen blank have some defects like. 1)They have wrong position(position which does not exist in T528B). 2) They donot have organizational management infotype. 3) They donot have 0003 infotype.
I would like to know if a personnel number data has any such defect whether those
personnel number would not be selected?
But if an employee say 2 has no 0003 infotype, but has 0001 infotype. If we try to
select the records of 2 only giving personnel number nothing will be selected.
But if we provide company code employee 2 is selected.
Any explanation to the above behaviour?
Regards,
Aravind

RE:pnp LDB selection screen problem

hi,
hi friends iam facing one problem regarding hr ABAP selection screen ,in my program iam using PNP LDB for bonus details report
i have using selection screen declaration present for single selection.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-006.
SELECT-OPTIONS: S_ABKRS FOR P0001-ABKRS NO INTERVALS NO-EXTENSION,
S_WERKS FOR P0001-WERKS NO INTERVALS NO-EXTENSION,
S_BTRTL FOR P0001-BTRTL NO INTERVALS NO-EXTENSION,
S_PERSG FOR P0001-PERSG NO INTERVALS NO-EXTENSION,
S_PERSK FOR P0001-PERSK NO INTERVALS NO-EXTENSION.
SELECTION-SCREEN END OF BLOCK B3.
based on this selection iam fetching the information from infotypes using macros.
now my requirement is iam fetch the information for multiple selections means like payroll areas z1,z2 and z3 payroll informations
should be fetching once. pls any body knows solution please give me reply.
thanks & regards,
mgrao.

hi jain thanks for your reply, iam already created report category and assigned my report. here iam giving my report selection
declerations fully   below.
      S E L E C T I O N       S C R E E N                           *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. " DECLEARED REPORT CODE LEVEL
SELECT-OPTIONS: S_DATE   FOR SY-DATUM NO-EXTENSION.    "Bonus for Financial Year
PARAMETERS:     P_BDATE TYPE SY-DATUM OBLIGATORY,     "Bous payed as on
                P_WKDAYS TYPE CHAR6.                                            "No.of Working Days
SELECTION-SCREEN END OF BLOCK B1.
*SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-006.    " COMMENTED report level TAKING FROM LDB PNP
*SELECT-OPTIONS: S_ABKRS FOR P0001-ABKRS NO INTERVALS NO-EXTENSION,     " Payroll area
               S_WERKS FOR P0001-WERKS NO INTERVALS NO-EXTENSION,                       Personnel area
               S_BTRTL FOR P0001-BTRTL NO INTERVALS NO-EXTENSION,                          Personnel sub area
               S_PERSG FOR P0001-PERSG NO INTERVALS NO-EXTENSION,
               S_PERSK FOR P0001-PERSK NO INTERVALS NO-EXTENSION.
*SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002. "REPORT CODE LEVEL SELECTION
PARAMETERS: P_FORMCP TYPE PIN_RATE, " char6,    "Form C %
            P_FORMEP TYPE PIN_RATE, " char6,                 "Exgratia %
            P_FORMBP TYPE PIN_RATE. " char6 .               "Bonus %
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-004.
PARAMETERS: L_REPORT TYPE ZHRD_FORMC AS LISTBOX VISIBLE LENGTH 40 OBLIGATORY . Report for list box   1 form c
SELECTION-SCREEN END OF BLOCK B4.                                                                                2 exgratia
the above selection is iam used first, now iam commented BLOCK B3 SELECTION PARAMETERS and taking the parameters from REPORT CATEGORY ASSINGN MENT.
MY PROBLEM is if i select one payroll area example z1 it showing all pay roll employees bonus details it is not filter the remaining payroll areas my requirement is what are the payrolls iam selecting those pay roll area details only displaying.
data fetching from INFOTYPES 0001,0002,0021 AND 9150 FOR BONUS DETAILS and out put is classical report format.
please kindly give the reply if you knows the solution.
thanks & regards ,
mgr.

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.

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

HR Report Category

Hi ,
I have created HR report category wherein i have suppressed the entire selection screen. i have personnel number as select options . With GET PERNR , i want to fetched the data related only to personnel number entered in select options.
Thanks.

Hi,
I hope that you are using the PNP or PNPCE LDB.
If you have suppressed even the pernr fields from the screen, then using GET PERNR will be of no use as the event will select all the pernrs available in the system.I think that you should try to keep the pernr fields on the selection screen rather than supressing them.
If you declare your own pernr fields on the selection screen, then it is better to write a normal code with validation logic rather than using GET PERNR event. GET PERNR event is useful only when you are using some or all fields in the standard selection screen or else the event will fetch all the pernrs available in the system.
Hope it helps.
Thanks,
Sandeep.

Report Category in PNP LDB

Similar Messages

Maybe you are looking for