T-code for repor "Employee Action Report"

Dear Guru,
There is a report for getting "employee Actions List". The program name is RPLACTJ0 (standard report) but i dont find the Tcode for this report.
I cheked the T.Code through SYSTEM---STATUS. (its saying SA38.) which is ABAP program execution.
How to find the T.code for this report. if not, can i assign the T.code for the standard program?
Thanks.
Manju

Hi Purnima,
Thanks for ur updation.
I have tried in all possible ways, but system giving error msg "No value found"
Tcode : se16n ---TSTC = No value found.
Tcode : se16 ---TSTC = No value found.
se11 : its table dictionary. I think here we cant execute any program.
Regards
Manjula.

Similar Messages

Need code for sales order create report using bapi's

need code for sales order create report using bapi's

Hi,
Go through below link
http://www.saptechies.com/bapi_salesorder_createfromdat2/
Reward points if it helps,
Satish

T Code for Packing & Forwarding Charges REPORT

In CONDITION TYPES i have certain conditions like
PR00 - PRICE
JEXP - BASIC EXCISE DUTY @ 14%
JECP - EDUCATIONAL CESS @ 2% ON BED
JSH&H - HIGHER EDUCATION CESS @ 1& ON BED
ZPK1 - PACKING & FORWARDING @ 2%
I can generate the report for periodic excise duty vide T code J2IUN wherein the BED, ECS & HECS are displayed seperately, however there is no display of PACKING & FORWARDING CHAREGES.
I wish to generate a monthly report of my PACKING & FORWARDING CHAREGES,
WHAT IS THE T CODE FOR DOING SO.
PLS HELP

Dear Khushal
Go to SE16 / KONV and execute. You will get all condition types there. If you want to correlate this with your billing document, make a note of numeric value flowing under the tab "Doc.condition" and again go to SE16 and now give VBRK where there is a field "Doc.condition". Give those references in this field and execute. You will get the required report.
thanks
G. Lakshmipathi

WHAT IS T-CODE FOR ADVANCE TAX RETURN REPORT

hi MASTERS
WHAT IS T-CODE FOR
ADVANCE TAX RETURN REPORT

Dear,
Create one special G/L for advance payment to site engineer. For e.g. you have create special G/L T - Advance to site engineer.
Whenever you make advance payment of Rs. 1000 to site engineer the entry will be - Use transaction F-02
PK              Account                 Sp G/L          Amount
29               Vendor a/c                 T                 1000
50               Cash a/c                                       1000
When engineer returns Rs. 200. then - Use transaction F-02
PK              Account                 Sp G/L          Amount
39               Vendor a/c                 T                 200
40               Bank a/c                                       200
It is better if you create your own document type for e.g. ZR - Return of adv payment from engineer so that this transaction will identified very easily.
Regards,
Chintan Joshi.

Sample code for slow moving material report?

Hi all,
I have a requirement to display slow moving mateial report on a particular goods issue date and material wise.
The basic requirements are
1. Movement type '261' and material, plant are select-options.
2.last goods movement date based on parameter.
3. Display the quantity available
but here i am getting a problem that i couldn't find the last goods movement for that particular material with specific storage location as one material document containing more than one item. So please help? Also what logic i have to use to display quantity available?
Please specify the sample code or logic for above requirement?
Any custom slow moving report codes also very helpful?
Thanks,
Vamshi

>
VAMSHI KRISHNA wrote:
> Solved.
....Shaved.

Code for accessing ME23N in report

hi guys,
i have created a PO details report using ALV for the user. but then they want to able to double click on the PO number field to access to the PO screen( ME23N).
how am i going to code it to access to the screen? can any one please guide me and help me on the code? thanks so much

hi there you have the exact solution in this link
http://www.sap-basis-abap.com/abap/to-call-transaction-in-alv.htm

Write code for this its urgent

hi its a alv bills of material report plz write code for this
Develop a report to high light the bom and/or master receipes fall into the constrained planning horizon those are not ready for porduction
this report will identity the items with a bom with a status other that 03(ready for production) and/or master receips witha a status other than 04(released). the items will be reveiwed in predefined horizon.
within a few weeks of entering the 18 th week constrained planning horizon.
for this report take bom tables stko,stpo,mast.
in sel-scren take mrp controller, plant, divison.
send immedialtly

Brother this is not the correct way to ask.
In your words you are commanding...
But we have to request the EXPERTS.
WE are in learning stage dont order or command.
Just request them in another way...... then only u get the required reply....
With regards,
Prasad.

SMTP Authorization code for PHP Mail Form

Can anyone help me in figuring out the correct way to incorporate the SMTP authentication into a form? I am having a lot of trouble in getting my forms to send with this format. My code for my php action page is below. I have my correct information where i included *******. Please let me know what i have wrong.
CODE STARTS HERE
<?php
//new function
$to = "*******";
$nameto = "LTL Freight Shop";
$from = "*******";
$namefrom = "LTL Freight Shop";
$subject = "Account Request";
authSendEmail($from, $namefrom, $to, $nameto, $subject, $message);
?>
<?php
$recipient = "*******";
//$subject = "Account Request";
$companyname = check_input($_POST['CompanyName'], "Enter your company name");
$firstname = check_input($_POST['FirstName'], "Enter your first name");
$lastname = check_input($_POST['LastName'], "Enter your last name");
$phone = check_input($_POST['PhoneNumber'], "Enter your phone number");
$fax = check_input($_POST['FaxNumber']);
$email = check_input($_POST['Email'], "Enter your email");
$address = check_input($_POST['StreetAddress'], "Enter your address");
$city = check_input($_POST['City'], "Enter your city");
$state = check_input($_POST['State'], "Enter your state");
$zipcode = check_input($_POST['ZipCode'], "Enter your zip code");
$country = check_input($_POST['Country'], "Enter your country");
$yearsinbusiness = check_input($_POST['YearsinBusiness'], "Enter your years in business");
$typeofindustry = check_input($_POST['TypeofIndustry'], "Enter your type of industry");
$multiplelocations = check_input($_POST['MultipleLocations']);
$numberoflocations = check_input($_POST['LocationsCount']);
$ltl = check_input($_POST['ServicesLTL']);
$ftl = check_input($_POST['ServicesFTL']);
$domesticparcel = check_input($_POST['ServicesDomesticParcel']);
$intlparcel = check_input($_POST['ServicesInternationalParcel']);
$airfreight = check_input($_POST['ServicesAirFreight']);
$oceanfreight = check_input($_POST['ServicesOceanFreight']);
$other = check_input($_POST['ServicesOther']);
$none = check_input($_POST['ServicesNone']);
$volume = check_input($_POST['TypicalVolume'], "Enter your typical volume");
$carrier = check_input($_POST['CurrentCarrier'], "Enter your current carrier");
$class = check_input($_POST['AverageClass'], "Enter your average class");
$weight = check_input($_POST['AverageWeight'], "Enter your average weight");
$process = check_input($_POST['Process']);
$hearabout = check_input($_POST['HearAbout']);
$comments = check_input($_POST['Comments']);
if (!preg_match("/([\w\-]+\@[\w\-]+\.[\w\-]+)/", $email))
 show_error("E-mail address not valid");
$message = "You have received an account request from:
Company Name: $companyname
First Name: $firstname
Last Name: $lastname
Phone Number: $phone
Fax Number: $fax
E-mail: $email
Street Address: $address
City: $city
State: $state
Zip Code: $zipcode
Country: $country
Years in Business: $yearsinbusiness
Type of Industry: $typeofindustry
Multiple Locations: $multiplelocations
Number of Locations: $numberoflocations
Services they use: $ltl, $ftl, $domesticparcel, $intlparcel, $airfreight, $oceanfreight, $other, $none
Typical Volume: $volume
Current Carrier: $carrier
Average Class: $class
Average Weight: $weight
How they currently process: $process
How they heard about us: $hearabout
Comments: $comments
End of message
//ini_set("SMTP","smtp.emailsrvr.com");
//ini_set("SMTP_PORT", 25);
//ini_set("sendmail_from","*******");
//mail($recipient, $subject, $message);
function check_input($data, $problem='')
 $data = trim($data);
 $data = stripslashes($data);
 $data = htmlspecialchars($data);
 if ($problem && strlen($data) == 0)
 show_error($problem);
 return $data;
function authSendEmail($from, $namefrom, $to, $nameto, $subject, $message)
$smtpServer = "smtp.emailsrvr.com";
$port = "25";
$timeout = "30";
$username = "********";
$password = "********";
$localhost = "smtp.emailsrvr.com";
$newLine = "\r\n";
$smtpConnect = fsockopen($smtpServer, $port, $errno, $errstr, $timeout);
$smtpResponse = fgets($smtpConnect, 515);
if(empty($smtpConnect))
$output = "Failed to connect: $smtpResponse";
return $output;
else
$logArray['connection'] = "Connected: $smtpResponse";
fputs($smtpConnect,"AUTH LOGIN" . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['authrequest'] = "$smtpResponse";
fputs($smtpConnect, base64_encode($username) . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['authusername'] = "$smtpResponse";
fputs($smtpConnect, base64_encode($password) . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['authpassword'] = "$smtpResponse";
fputs($smtpConnect, "HELO $localhost" . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['heloresponse'] = "$smtpResponse";
fputs($smtpConnect, "MAIL FROM: $from" . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['mailfromresponse'] = "$smtpResponse";
fputs($smtpConnect, "RCPT TO: $to" . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['mailtoresponse'] = "$smtpResponse";
fputs($smtpConnect, "DATA" . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['data1response'] = "$smtpResponse";
$headers = "MIME-Version: 1.0" . $newLine;
$headers .= "Content-type: text/html; charset=iso-8859-1" . $newLine;
$headers .= "To: $nameto <$to>" . $newLine;
$headers .= "From: $namefrom <$from>" . $newLine;
fputs($smtpConnect, "To: $to\nFrom: $from\nSubject: $subject\n$headers\n\n$message\n.\n");
$smtpResponse = fgets($smtpConnect, 515);
$logArray['data2response'] = "$smtpResponse";
fputs($smtpConnect,"QUIT" . $newLine);
$smtpResponse = fgets($smtpConnect, 515);
$logArray['quitresponse'] = "$smtpResponse";
function show_error($myError)
?>
 <html>
 <body>
 Please correct the following error: 
 <?php echo $myError; ?>
 </body>
 </html>
<?php
exit();
?>

I have tried the standard PHP mail function and it doesnt seem to work. Here is my most recent warning or error message.
Warning: mail() [function.mail]: SMTP server response: 554 5.7.1 <*****>: Sender address rejected: Access denied in D:\inetpub\vhosts\ltlfreightshop.com\httpdocs\requestaccount.php on line 78
I had the standard mailing set up but it wouldnt ever send and when i set up just the form, it requires the default email client. Am i wrong to assume that i need the SMTP authentication?
I am not sure about the sockets being enabled. We currently outsource our web hosting and email hosting. I cannot find the phpinfo(), where would this be?
Thanks,
Ben

T-Codes to See Branch wise Reports/Regional Wise Reports

HI,
Can anybody provide me the T-Codes to See Branch wise Reports/Regional Wise Reports and also kindly provide me the t-codes for the below
Financial reporting
a)Income Statement by Region Yearly and Monthly comparision
b)Income Statement monthly with previous year current Month.
c)Income Statement by Branch
d)Income Statement Branch level comparion with same month Previous year
Thanks
Sap Guru

Try using COPA. You can do that in a flash!
Cheers.

How to write a code for cumulative values..

Hi
Can any one proivde the Sudo code for Customer exit at Reports.
I need to write a code for when ever user input Calaender month then querry calucalate the cumulative values also.
How to write a code for cumulative values..
Example:
Customer -Sales.Quantity(CalMonth)--- Sales.quantity(Cumulative Month)
1000--223--
2200
Regards
mannev.

hi mannev,
to get an idea, search in SDN
for example
customer exit code
with hopes,
Raja Singh

Code for hr-abap report in alv display

Hi Gurus,
I am new to hr-abap and I want some sample code to display a hr report in an alv.
Thanks,
Raj.

This is one such...
REPORT yh_rep_hr_certified_instructor MESSAGE-ID yh_messages NO STANDARD
PAGE
HEADING .
Program : YH_REP_HR_CERTIFIED_INSTRUCTOR *
Description : Certified Instructor Eligibility Criteria *
 TABLES *
TABLES :hrp1000 ,hrp1001, pa0000.
 TYPE-POOLS *
*Type Pool for ALV display
TYPE-POOLS :slis. " Global types for generic cunning components
 INTERNAL TABLES *
*Internal Table to keep Selection Screen field values
DATA : BEGIN OF t_validation OCCURS 0.
 INCLUDE STRUCTURE dynpread.
DATA END OF t_validation.
*Internal Table for Business Event Groups
DATA : BEGIN OF t_bgrp OCCURS 0,
 objid TYPE hrobjid,
 blank(1),
 stext TYPE stext,
 END OF t_bgrp.
*Internal Table for Business Event Type IDs with text for selected Event
*GROUPS
DATA : BEGIN OF t_btyp OCCURS 0,
 objid TYPE hrobjid,
 blank(1),
 stext TYPE stext,
 END OF t_btyp.
*Internal Table for Business Event Type IDs for selected Event Groups
DATA : BEGIN OF t_eventtypelist OCCURS 0,
 objid TYPE hrobjid,
 END OF t_eventtypelist.
*Internal table to store the business Groups
DATA : BEGIN OF t_group OCCURS 0,
 objid LIKE hrp1001-objid,
 sobid LIKE hrp1001-sobid,
 sclas LIKE hrp1001-sclas,
 END OF t_group.
*Internal table to hold the business event group and/or bus. event types
DATA : BEGIN OF t_eventgroup OCCURS 0,
 objid LIKE hrp1001-objid,
 END OF t_eventgroup.
*Internal Table for FieldCatalog used for ALV Display
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.
*Work Area for Checking Business Event Group Validity
DATA: BEGIN OF wa_bgrp,
 objid TYPE hrobjid,
 stext TYPE stext,
 END OF wa_bgrp.
*Internal table to fetch object id for Qualification
DATA: BEGIN OF t_objid OCCURS 0,
 objid TYPE hrp1000-objid,
 sobid TYPE hrp1001-sobid,
 sobid_copy TYPE hrp1001-objid,
 END OF t_objid.
*Internal table to fetch Id of related object
*Fetches Pernr of Certified Instructors
DATA: BEGIN OF t_sobid OCCURS 0,
 objid TYPE hrp1000-objid,
 sobid TYPE hrp1001-sobid,
 adatanr TYPE hrpad31-adatanr,
 sobid_copy TYPE hrp1001-objid,
 END OF t_sobid.
*Internal table to fetch skill rating
*of the Instructor
DATA: BEGIN OF t_prof OCCURS 0,
 adatanr TYPE hrpad31-adatanr,
 chara TYPE hrpad31-chara,
 END OF t_prof.
*Internal table to fetch grade
*of the Insturctor
DATA: BEGIN OF t_grade OCCURS 0,
 pernr TYPE pa0008-pernr,
 yysalgr TYPE pa0008-yysalgr,
 END OF t_grade.
*Internal table which contains all information about the Person like
*Name Project Project Manager Name Account and Vertical Name
DATA: t_projdetails TYPE zbapi_projdetails OCCURS 0 WITH HEADER LINE.
*Final Internal table which contains all information
*about the Instructors
DATA: BEGIN OF t_final OCCURS 0,
 empid TYPE pa0000-pernr,
 empname(84) TYPE c,
 grade TYPE pa0008-yysalgr,
 atndttt(3) TYPE c,
 sklrate TYPE hrpad31-chara,
 pgmng TYPE pa0001-ename,
 accname TYPE hrp1000-stext,
 vertname TYPE hrp1000-stext,
 END OF t_final.
 VARIABLES *
*ALV layout
DATA: gs_layout TYPE slis_layout_alv, "alvtot test
 gt_events TYPE slis_t_event,
 gt_list_top_of_page TYPE slis_t_listheader,
 gs_variant LIKE disvariant, "For Layout
 g_save. "For Layout Save
DATA: w_pos TYPE i VALUE 1, " Position of Fields in ALV
 w_sort TYPE slis_t_sortinfo_alv, "ITab for Sorting Options
 w_flag TYPE i,
 w_repid TYPE sy-repid,
 w_lineno TYPE sy-tabix.
DATA: l_short TYPE hrp1000-short. "variable to check the heirarchy
 SELECTION-SCREEN DESIGN *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. "NO INTERVALS .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(20) text-009 MODIF ID xyz.
PARAMETERS : p_bgrp TYPE hrobjid OBLIGATORY,
 p_bgrp1 TYPE stext .
SELECTION-SCREEN END OF LINE.
SELECT-OPTIONS :s_btyp FOR hrp1000-objid OBLIGATORY NO INTERVALS.
SELECTION-SCREEN END OF BLOCK b1.
 INITIALIZATION *
INITIALIZATION.
*Assign Program Name into a variable
w_repid = sy-repid.
*Build layout for list display
gs_layout-detail_popup = 'X'.
*To get All Events in TOP-OF-PAGE
perform eventtab_build using gt_events[].
gs_variant-report = w_repid.
g_save = 'A'.
 AT SELECTION SELECTION *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bgrp.
PERFORM get_bgrp.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_btyp-low.
IF NOT p_bgrp IS INITIAL .
 PERFORM get_btyp USING 'l'.
ELSE .
 MESSAGE s999 WITH text-e09.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_btyp-high.
IF NOT p_bgrp IS INITIAL .
 PERFORM get_btyp USING 'h'.
ELSE .
 MESSAGE s999 WITH text-e09.
ENDIF.
AT SELECTION-SCREEN ON p_bgrp.
SELECT SINGLE objid stext
 FROM hrp1000
 INTO wa_bgrp
 WHERE objid = p_bgrp AND
 otype = 'L' AND
 plvar = '01' AND
 ( short = 'ROLE' OR
 short = 'TECH_PROGRAM' ).
IF sy-subrc EQ 0.
 p_bgrp1 = wa_bgrp-stext.
ELSE.
 MESSAGE e999 WITH text-e09.
ENDIF.
AT SELECTION-SCREEN ON s_btyp.
CLEAR : t_eventtypelist, t_group, t_eventgroup.
REFRESH : t_eventtypelist, t_group, t_eventgroup.
CLEAR : w_flag.
*Fetch all the subordinates under given Event Group - L/D
SELECT objid
 sobid
 sclas
 FROM hrp1001
 INTO TABLE t_group
 WHERE objid = p_bgrp
 AND plvar = '01'
 AND rsign = 'B'
 AND relat = '003'
 AND ( sclas = 'L' OR sclas = 'D' ).
WHILE w_flag <> 1.
 PERFORM get_objids.
ENDWHILE.
IF NOT t_eventtypelist[] IS INITIAL.
*Get only valid Event Types from input Event Types, for given Event
*Group - by deleting others..
 LOOP AT t_eventtypelist.
 IF t_eventtypelist-objid IN s_btyp.
 EXIT.
 ELSE.
 DELETE t_eventtypelist.
 ENDIF.
 AT LAST.
*since we r checking Event Types, All other fields will be locked
*but we need Event Group field to be unlocked to edit again,
*if theres no theres no valid Event Types in given input
 LOOP AT SCREEN.
 CHECK screen-name = 'P_bgrp'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDLOOP.
 MESSAGE e999 WITH text-e04.
 EXIT.
 ENDAT.
 ENDLOOP.
ELSE.
 LOOP AT SCREEN.
 CHECK screen-name = 'P_bgrp'.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDLOOP.
 MESSAGE e999 WITH text-e03.
ENDIF.
 FORM get_bgrp *
FORM get_bgrp .
SELECT objid stext
 FROM hrp1000
 INTO CORRESPONDING FIELDS OF TABLE t_bgrp
 WHERE plvar = '01' AND
 otype = 'L' AND
 short = 'ROLE' OR
 short = 'TECH_PROGRAM' .
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
 EXPORTING
 endpos_col = 75
 endpos_row = 20
 startpos_col = 30
 startpos_row = 05
 titletext = 'Select Business Event Group'
 IMPORTING
 choise = w_lineno
 TABLES
 valuetab = t_bgrp
 EXCEPTIONS
 break_off = 1
 OTHERS = 2.
IF sy-subrc EQ 0 .
 READ TABLE t_bgrp INDEX w_lineno.
 IF sy-subrc EQ 0.
 p_bgrp = t_bgrp-objid.
 p_bgrp1 = t_bgrp-stext.
 ENDIF .
 CLEAR t_bgrp .
 REFRESH t_bgrp .
ENDIF .
ENDFORM . "get_bgrp
****subroutine for business eventtype input criteria
FORM get_btyp USING f_range.
CLEAR : t_validation,
 t_btyp,
 t_eventtypelist,
 t_group,
 t_eventgroup,
 w_flag.
REFRESH : t_validation,
 t_btyp,
 t_eventtypelist,
 t_group,
 t_eventgroup.
t_validation-fieldname = 'P_BGRP'.
APPEND t_validation.
CLEAR t_validation.
*Getting Screen Values
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = w_repid
 dynumb = '1000'
 TABLES
 dynpfields = t_validation
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 stepl_not_found = 10
 OTHERS = 11.
IF sy-subrc NE 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
READ TABLE t_validation WITH KEY fieldname = 'P_BGRP'.
IF NOT t_validation-fieldname IS INITIAL.
*Getting Event Group ID that entered
 LOOP AT t_validation.
 IF t_validation-fieldname = 'P_BGRP'.
 p_bgrp = t_validation-fieldvalue.
 ENDIF.
 ENDLOOP.
 CLEAR t_validation.
 REFRESH t_validation.
*To fetch the business event groups and business event types that belong
to the input business event group.Since a business group can have a
*business groups as well as business event types we have pick all of
*them
*Getting all subordinates - Event Group/Type under given Event Group
 SELECT objid
 sobid
 sclas
 FROM hrp1001
 INTO TABLE t_group
 WHERE objid = p_bgrp
 AND plvar = '01'
 AND rsign = 'B'
 AND relat = '003'
 AND endda = '99991231'
 AND ( sclas = 'L' OR sclas = 'D' ).
*Getting all Event Types
 WHILE w_flag <> 1.
 PERFORM get_objids.
 ENDWHILE.
 IF NOT t_eventtypelist[] IS INITIAL.
 SORT t_eventtypelist BY objid.
*Getting Names of Event Types
 SELECT objid
 stext
 FROM hrp1000
 INTO CORRESPONDING FIELDS OF TABLE t_btyp
 FOR ALL ENTRIES IN t_eventtypelist
 WHERE objid = t_eventtypelist-objid
 AND otype = 'D' AND plvar = '01'
 AND endda = '99991231'.
 IF sy-subrc = 0.
*PopUp Display for Event Types
 CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
 EXPORTING
 endpos_col = 75
 endpos_row = 20
 startpos_col = 30
 startpos_row = 05
 titletext = 'Select Business Event Type ID'
 IMPORTING
 choise = w_lineno
 TABLES
 valuetab = t_btyp
 EXCEPTIONS
 break_off = 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.
 ELSE.
*Since the Table returned by function module will have data in Header,
*clear the Header
*Retreive Selected Event Type into Select Option
 READ TABLE t_btyp INDEX w_lineno.
 IF sy-subrc EQ 0.
 IF f_range = 'l'.
 s_btyp-low = t_btyp-objid.
 ELSE.
 s_btyp-high = t_btyp-objid.
 ENDIF.
 ENDIF.
 ENDIF.
 ELSE.
 MESSAGE s999 WITH text-e03.
 ENDIF.
 ELSE.
 MESSAGE s999 WITH text-e01.
 ENDIF.
ENDIF.
ENDFORM. " EVNTTY
 FORM get_objids *
FORM get_objids.
*To delete the business event types that are found and push it in
*another table
IF NOT t_group[] IS INITIAL.
 LOOP AT t_group.
*If event type
 IF t_group-sclas = 'D'.
 t_eventtypelist-objid = t_group-sobid.
 APPEND t_eventtypelist.
 CLEAR t_eventtypelist.
 DELETE t_group.
*If event group
 ELSEIF t_group-sclas = 'L'.
 t_eventgroup-objid = t_group-sobid.
 APPEND t_eventgroup.
 CLEAR t_eventgroup.
 DELETE t_group.
 CLEAR t_group.
 ENDIF.
 ENDLOOP.
ELSE.
 w_flag = 1.
ENDIF.
IF NOT t_eventgroup[] IS INITIAL.
*To get the second level of business groups and business event type
 SELECT objid sobid sclas
 FROM hrp1001
 INTO TABLE t_group
 FOR ALL ENTRIES IN t_eventgroup
 WHERE objid = t_eventgroup-objid
 AND plvar = '01'
 AND rsign = 'B'
 AND relat = '003'
 AND endda = '99991231'
 AND ( sclas = 'L' OR sclas = 'D' ).
 CLEAR t_eventgroup.
 REFRESH t_eventgroup.
ENDIF.
ENDFORM. " GET_OBJIDS
 Start of Selection *
START-OF-SELECTION.
*Pass the Event Type and fetch the Related Id
*for the Qualification imparted by the Event
SELECT objid sobid
 FROM hrp1001
 INTO TABLE t_objid
 WHERE objid IN s_btyp AND
 otype = 'D' AND
 plvar = '01' AND
 relat = '028' AND
 rsign = 'A' AND
 sclas = 'Q'.
IF sy-subrc EQ 0.
*Pass the Qualification Id and fetch Object Id of the
*person who fulfills this Qualification
 SELECT objid sobid adatanr
 FROM hrp1001
 INTO TABLE t_sobid FOR ALL ENTRIES IN t_objid
 WHERE sobid = t_objid-sobid AND
 otype = 'P' AND
 plvar = '01' AND
 relat = '032' AND
 rsign = 'A' AND
 sclas = 'Q' .
 IF sy-subrc = 0.
*Fetch only the Person along with the skillrating
*who has skill rating as '0001' or '0003'
 SELECT adatanr chara
 FROM hrpad31
 INTO TABLE t_prof
 FOR ALL ENTRIES IN t_sobid
 WHERE adatanr = t_sobid-adatanr AND
 ( chara = '0001' OR chara = '0003' ).
 IF sy-subrc NE 0.
 MESSAGE s999 WITH text-s01.
 EXIT .
 ELSE .
*Fetch only Employee Id's who meets the required skill rating
*which inturn has the EMPID who are all are Certified Instructors
 LOOP AT t_sobid.
 READ TABLE t_prof WITH KEY adatanr = t_sobid-adatanr.
 IF sy-subrc NE 0.
 DELETE t_sobid .
 ENDIF.
 ENDLOOP.
 SORT t_sobid BY objid.
 DELETE ADJACENT DUPLICATES FROM t_sobid.
 ENDIF.
 ENDIF.
ENDIF.
IF NOT t_sobid[] IS INITIAL.
data: begin of it_trgpernr occurs 0,
 objid type hrp1000-objid,
 sobid type hrp1001-sobid,
 end of it_trgpernr.
select objid sobid
 from hrp1001
 into table it_trgpernr for all entries in t_sobid
 where otype ='P' and
 objid = t_sobid-objid and
 sclas = 'D' and
 sobid = '50008220'.
*Fetch Grade of the Certified Instructors by passing their EmpId's
 SELECT pernr yysalgr
 FROM pa0008
 INTO TABLE t_grade
 FOR ALL ENTRIES IN t_sobid
 WHERE pernr = t_sobid-objid AND endda = '99991231'.
ENDIF.
For Heading in the Output Display Layout
PERFORM heading USING gt_list_top_of_page[].
 End of Selection *
END-OF-SELECTION.
Populating data into Final Table which contains all information aboutthe Certified Instructors
*Retrieve Employee Id for the Certified Instructors only if he is active
LOOP AT t_sobid.
 SELECT SINGLE *
 FROM pa0000
 WHERE pernr = t_sobid-objid AND
 begda <= sy-datum AND
 endda >= sy-datum AND
 stat2 ='3'.
 IF sy-subrc = 0.
 t_final-empid = t_sobid-objid.
 SELECT SINGLE *
 FROM hrp1001
 WHERE otype = 'P' AND
 objid = t_sobid-objid AND
 rsign = 'B' AND
 relat = '25' AND
 sclas = 'D' AND
 sobid = '50008220'.
*DATA:W_SOBID TYPE HRP1001-SOBID.
*W_SOBID = t_sobid-objid. .
 SELECT SINGLE *
 FROM hrp1001
 WHERE otype = 'D' AND
 objid = '50008220' AND
 rsign = 'B' AND
 relat = '25' AND
 sclas = 'P' AND
 sobid = W_SOBID.
 IF sy-subrc EQ 0.
 t_final-atndttt = 'YES'.
 ELSE.
 t_final-atndttt = 'NO'.
 ENDIF.
*Retrieve Employee SkillRating for the Certified Instructors
*by passing the adatanr value which inturn is fetched based on the empid
 READ TABLE t_prof WITH KEY adatanr = t_sobid-adatanr.
 IF sy-subrc EQ 0.
 t_final-sklrate = t_prof-chara.
 ENDIF.
*Retrieve Employee Grade for the given id
 READ TABLE t_grade WITH KEY pernr = t_sobid-objid.
 IF sy-subrc EQ 0.
 t_final-grade = t_grade-yysalgr.
 ENDIF.
 REFRESH t_projdetails.
 CLEAR t_projdetails.
*function which fetches the name project name account and
*vertical name of the person for the given empid
 CALL FUNCTION 'ZBAPI_PROJDETAILS'
 EXPORTING
 pernr = t_sobid-objid
 TABLES
 it_finaltab = t_projdetails.
 IF NOT t_projdetails[] IS INITIAL.
 SHIFT t_sobid-objid LEFT DELETING LEADING '0'.
 READ TABLE t_projdetails WITH KEY pernr = t_sobid-objid.
 IF sy-subrc EQ 0.
 t_final-empname = t_projdetails-ename.
 IF NOT t_projdetails-proj IS INITIAL.
 t_final-pgmng = t_projdetails-pmname.
 ELSE.
 t_final-pgmng = t_projdetails-gmname.
 ENDIF.
 t_final-accname = t_projdetails-accname.
 t_final-vertname = t_projdetails-vertname.
 ENDIF.
 ENDIF.
 APPEND t_final.
 ENDIF.
 CLEAR t_final.
ENDLOOP.
SORT t_final BY empid.
DELETE ADJACENT DUPLICATES FROM t_final.
*Enabling Sort by PERNR & Global ID in ALV display
PERFORM sub_sort_info.
*Form to Populate Field Catalog
PERFORM populate_fieldcatalog.
For the ALV ROW Optimize Width
gs_layout-colwidth_optimize = 'X' .
*perform alv_display tables final fieldcatalog.
IF NOT t_final[] IS INITIAL.
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = w_repid
 is_layout = gs_layout
 it_fieldcat = t_fieldcatalog[]
 it_sort = w_sort
 i_save = 'A'
 it_events = gt_events[]
 TABLES
 t_outtab = t_final
 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 s000(vz) WITH 'No Records found for Given Input Criteria'.
ENDIF.
 TOP OF PAGE *
*Outputs formatted simple header information at TOP-OF-PAGE.
TOP-OF-PAGE.
PERFORM top_of_page.
 Subroutines *
*& Form eventtab_build
 text`
 -->P_GT_EVENTS[] text
FORM eventtab_build USING rt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
DATA: g_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = rt_events.
READ TABLE rt_events WITH KEY name = slis_ev_top_of_page
 INTO ls_event.
IF sy-subrc = 0.
 MOVE g_top_of_page TO ls_event-form.
 APPEND ls_event TO rt_events.
ENDIF.
ENDFORM. " eventtab_build
*& Form HEADING
 text
FORM heading USING lt_top_of_page TYPE slis_t_listheader.
DATA: ls_line TYPE slis_listheader.
*Layout Display Text - "Caritor ( India ) Pvt.Ltd "
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = text-h01.
APPEND ls_line TO lt_top_of_page.
*Layout Display Text - "Certified Instructor Eligibility List "
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = text-h02.
APPEND ls_line TO lt_top_of_page.
ENDFORM. " HEADING
*& Form top_of_page
 text
--> p1 text
<-- p2 text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = gt_list_top_of_page.
ENDFORM. " top_of_page
*& Form sub_sort_info
 text
--> p1 text
<-- p2 text
FORM sub_sort_info.
DATA : l_sort TYPE slis_sortinfo_alv .
CLEAR l_sort.
Employee ID
l_sort-fieldname = 'EMPID'.
l_sort-up = 'X'.
APPEND l_sort TO w_sort.
ENDFORM. " sub_sort_info
*& Form populate_fieldcatalog
 text
--> p1 text
<-- p2 text
FORM populate_fieldcatalog.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'EMPID' ' ' text-011 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'EMPNAME' ' ' text-002 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'GRADE' ' ' text-003 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'ATNDTTT' ' ' text-004 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'PGMNG' ' ' text-006 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'ACCNAME' ' ' text-007 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'VERTNAME' ' ' text-008 20 w_pos.
PERFORM fill_fields_of_fieldcatalog
 TABLES t_fieldcatalog
 USING 'T_FINAL' 'SKLRATE' ' ' text-005 20 w_pos.
ENDFORM. " populate_fieldcatalog
*& Form FILL_FIELDS_OF_FIELDCATALOG
 text
 -->P_T_FIELDCATALOG text
 -->P_0870 text
 -->P_0871 text
 -->P_0872 text
 -->P_TEXT_001 text
 -->P_20 text
 -->P_W_POS text
FORM fill_fields_of_fieldcatalog TABLES fp_t_fieldcatalog STRUCTURE
 t_fieldcatalog
 USING fp_table
 fp_field
 fp_key
 fp_text
 fp_out_len
 fp_pos.
fp_t_fieldcatalog-tabname = fp_table.
fp_t_fieldcatalog-fieldname = fp_field.
fp_t_fieldcatalog-seltext_l = fp_text.
fp_t_fieldcatalog-key = fp_key.
fp_t_fieldcatalog-outputlen = fp_out_len.
fp_t_fieldcatalog-col_pos = fp_pos.
APPEND fp_t_fieldcatalog.
CLEAR: fp_t_fieldcatalog.
fp_pos = fp_pos + 1.
ENDFORM. " FILL_FIELDS_OF_FIELDCATALOG
10.249.11.136\SAP-StudyMaterial

Creation of Transaction code for Reports created in FGI1.

Hi all,
   We are in ECC 6.0 version. We have created one report for Profit Center Group Wise Receivables with transaction code FGI1. When we executed the report from FGI5 , it was showing the values correctly.
   We created the t.code for the report painter programe and tried to execute. The screen is different from that of T.Code: FGI4. When we executed , it was not showing any values. I created authorisation for the report and also for the transaction codes.
   Appreciate your suggestion at the earliest.
Thanks
Dasa

Hi
Check TSTCP table for the existing t-codes and for creating check this link
Re: Transaction Code Creation for a Table/View
Regards
Pavan

BW Employee Hierarchy report to be specific for the users.

Hi *,
My BW system contains the data from HR. There is a report which displays the list of all employees in a strict hierarchial manner with the topmost position being assigned to the highest designation.
Now the change to this report should be done in such a way that the user who logs in should be able to see only his/her group. That is all the employees who report to him should be displayed with this user at the top.
Is it possible ? I can create a new report also if required.
Please suggest so that I can assign points.
Regards,
Srinivas

Hi Srinivas,
First u need to make that Info Object as Auth Relevant.
InfoObject > BusinessExplorer tab > Auth Relevant
In RSSM u need to generate the Auth Object for that.
Authorization Object
Regards,
Ram.

T-code for report of stocks

Hi Guru's
Wat is the t-code to find out the report of stock in FI view like MC.9.
Thanks in advance
rgds

Hi Rajesh,
Thanks for reply ,but i want the t-code from FI point of view,i want to compare the stock with that of mc.9 stock
rgds

How to Create Transaction code for a Report

Hi Gurus,
I created some reports and I wants those reports
should be placed in the SAP Menu(initial screen) not
in the User menu in the form of Transaction codes.
I would really appreciate if any one can please send the process to create transaction codes for the User reports/Report groups in R/3 and how to add those created Transaction codes to the SAP MENU.
Thanks in Advance
Danial

Try to insert it into the main menu if you must change S000 (there is a function module for everything)? Perhaps SAP protects their menu trees from foreign subnodes in SE43?
Also note that for report transactions you do not need to give the user transaction code start_report. If you do, then they could enter it directly and potentially start many other reports too. The system will call start_report for submitting the report internally without authorizations for it required (unless start_report is maintained in SE97).
Regarding DE, this also confuses me sometimes and I noticed that it generally indicates that I am doing something which has an implication for a SAP standard object. Try either hitting the enter button to see what the next screen is, or, choose original language in the previous screen, or, logon in sy-langu = DE and (remember the path if you dont speak German) change it, or, follow JCs advice to create your own menu.

T-code for repor "Employee Action Report"

Similar Messages

Maybe you are looking for