Regd Abap Objects

Hi,
Using abap objects i have designed a screen with tree structure.
In my tree,nodes correspond to menu items of a standard transaction.
In the std transaction, if i click menu items i will get diff. selection-screens for each menu item.
In the same way,If i click a node in my tree, screen corresponding to that menu item in the std. transaction shold be displayed.
i just want to know how to get/call the scelection-screens here.
Hope i am clear.
Please let me knwo how to do.
Regards,
Sowjanya.

hi dominic,
i know which method to use.
In the method node_double_click
if node_key = 'Child1'.
call transaction 'VA03'.
endif.
if i give it goes to 1st screen of VA03 transaction.
but i want to go directly to create sales screen like if i click 1 st menu item i will get a screen i want to get that.
I hope you got it.
Regards,
sowjanya

Similar Messages

Craete a simple abap object to select data from a table and display

Hi,
I know the concept of abap objects but i never worked on it,
can any one give me simple example of how to create an abap object to display data from mara table.also please send me documents or info regd ABAP OBJECTS.
I want to write a simple report in terms of abap object
Regards,
Sowjanya

hi,
Here is hte sample program in se38.
REPORT ZFGLI00003
*-- Include for data declarations and performs
include ZFGLI00003_f01.
*--Include for Classes and their Implementation
include ZFGLI00003_cl.
* selection-screen *
*-- Selection Values : Block1
selection-screen begin of block b1 with frame title text-001.
*-- Ledger
parameters: p_rldnr like zzprodnt-rldnr default 'NP'.
*-- Fiscal year
parameters: p_ryear like zzprodnt-ryear.
*-- Period(month)
parameters: p_rpmax like zzprodnt-rpmax.
selection-screen end of block b1.
*-- Selection Values : Block2
selection-screen begin of block b2 with frame title text-002.
*-- Company ID's
select-options : s_glcomp for ZZPRODNT-ROBUKRS .
*-- Profit Center
select-options : s_prctr for ZZPRODNT-RPRCTR .
*-- Product Assignment
select-options : s_prasn for ZZPRODNT-RZZWWZ01 .
*-- Corporate Brand
select-options : s_crpbd for ZZPRODNT-RZZWWZ05 .
selection-screen end of block b2.
*-- Selection Values : Block3 Download Options
selection-screen begin of block b3 with frame title text-003.
parameters : p_local radiobutton group 1,
 p_unix radiobutton group 1,
 p_path like rlgrap-filename obligatory
 default 'C:P20Z_Formatted.txt'(009).
selection-screen end of block b3.
* At Selection-Selection on value-request for file path *
at selection-screen on value-request for p_path.
if p_unix <> 'X'.
*-- Getting F4 help for output file
 perform get_filename changing p_path.
else.
 message i999(zi) with
 'Sorry !! Function not available for UNIX file.'(i01).
endif.
*-- At selection screen validations
at selection-screen on p_path.
if p_unix <> 'X'.
*-- Validate local file
 if p_path+1(2) <> ':'.
 message e999(zi) with 'Invalid file path'(006).
 endif.
else.
*-- Validate unix file
 if p_path+0(1) <> '/'.
 message e999(zi) with 'Invalid file path'(006).
 endif.
endif.
* Initialization *
initialization.
*-- Initialize the period
perform init_period changing p_rpmax p_ryear.
* start-of-selection *
start-of-selection.
data : o_tm1_intf type ref to lcl_tm1_intf.
create object o_tm1_intf.
*-- Extract the data from ZZPRODNT
call method o_tm1_intf->get_data exporting e_rldnr = p_rldnr
 e_ryear = p_ryear
 e_rpmax = p_rpmax
 e_glcomp = s_glcomp[]
 e_prctr = s_prctr[]
 e_prasn = s_prasn[]
 e_crpbd = s_crpbd[]
 importing i_subrc = v_subrc.
* INCLUDE ZFGLI00003_CL *
* CLASS lcl_tm1_intf IMPLEMENTATION
class lcl_tm1_intf definition.
public section.
*-- Data Declaration
 data : lv_date type sy-datum, "Date
 lv_time type sy-uzeit, "Time
 lv_count type i, "Count for total records
 lv_acsline type zfgl014-acsline,"ACS line code
 lv_amt_curr type zzprodnt-kslvt, "current month amount
 lv_amt_ytd type zzprodnt-kslvt, "YTD Amount
 lv_check, "check if any record is
 "downloaded
 lv_msg(100), "message
 lv_count_s(5) , "Count for total(char)
 lv_amt_curr_s(23), "Current month amount(char)
 lv_amt_ytd_s(23), "YTD Amount(char)
 lv_ksl_pd(17), "KSLxx
 lv_period(2) type n. "month(period)
*-- Types Declaration
 types : ty_rldnr type zzprodnt-rldnr, "Type for Ledger
 ty_ryear type zzprodnt-ryear, "Type for Fiscal Year
 ty_rpmax type zzprodnt-rpmax, "Type for Period
 ty_glcomp type range of char4, "Type for company selection
 ty_prctr type range of char10, "Type for profit center sel
 ty_prasn type range of char6, "Type for prod assignmt sel
 ty_crpbd type range of char4, "Type for Corp Brand sel
 begin of ty_file, "Type for File
 line(150),
 end of ty_file,
 begin of ty_ZZPRODNT, "Type-ledger summary table
 company type OBUKR, "Company
 gl_acct type RACCT, "GL Account
 cst_ctr type KOSTL, "Cost Center
 prt_ctr type PRCTR, "Profit Center
 rfarea type FKBER, "Functional Area
 wbs_ele type PS_POSID, "WBS Element
 prd_*** type RKEG_WWZ01, "Product Assignment
 corp_bd type RKEG_WWZ05, "Corporate Brand
 ksl01 type KSLXX9, "Total of transactions - 01
 ksl02 type KSLXX9, "Total of transactions - 02
 ksl03 type KSLXX9, "Total of transactions - 03
 ksl04 type KSLXX9, "Total of transactions - 04
 ksl05 type KSLXX9, "Total of transactions - 05
 ksl06 type KSLXX9, "Total of transactions - 06
 ksl07 type KSLXX9, "Total of transactions - 07
 ksl08 type KSLXX9, "Total of transactions - 08
 ksl09 type KSLXX9, "Total of transactions - 09
 ksl10 type KSLXX9, "Total of transactions - 10
 ksl11 type KSLXX9, "Total of transactions - 11
 ksl12 type KSLXX9, "Total of transactions - 12
 ksl13 type KSLXX9, "Total of transactions - 13
 ksl14 type KSLXX9, "Total of transactions - 14
 ksl15 type KSLXX9, "Total of transactions - 15
 ksl16 type KSLXX9, "Total of transactions - 16
 end of ty_ZZPRODNT.
*-- Structure Declaration
* Structure for final file
 data : x_file type ty_file,
* Structure for Product Ledger Summary table
 x_ZZPRODNT type ty_ZZPRODNT,
* Structure for Functional Area to ACS line mapping
 x_zfgl014 type zfgl014.
*-- Internal Table Declaration
* Table for records of Product Ledger Summary table
 data : it_ZZPRODNT type table of ty_ZZPRODNT,
* Table for final file
 it_file type table of ty_file,
* Table for Functional Area to ACS line mapping
 it_zfgl014 type table of zfgl014.
*-- Method Declaration.
 methods : get_data importing e_rldnr type ty_rldnr
 e_ryear type ty_ryear
 e_rpmax type ty_rpmax
 e_glcomp type ty_glcomp
 e_prctr type ty_prctr
 e_prasn type ty_prasn
 e_crpbd type ty_crpbd
 exporting i_subrc type sy-subrc.
endclass. "lcl_tm1_intf DEFINITION
* CLASS lcl_tm1_intf IMPLEMENTATION
class lcl_tm1_intf implementation.
*-- Method get_data selects the North American Product Ledger Summary
* table data and then maps the Functional Area to ACS line to get
* the ACS line code
method get_data.
*-- Local Variable
 DATA: L_ZZPRODNT TYPE TY_ZZPRODNT.
*-- Get the data from North American Product Ledger Summary table
 select robukrs
 racct
 rcntr
 rprctr
 rfarea
 rzzwbs_el
 rzzwwz01
 rzzwwz05
 ksl01
 ksl02
 ksl03
 ksl04
 ksl05
 ksl06
 ksl07
 ksl08
 ksl09
 ksl10
 ksl11
 ksl12
 ksl13
 ksl14
 ksl15
 ksl16
 from zzprodnt
 into table it_ZZPRODNT
 where rldnr = e_rldnr
 and ryear = e_ryear
 and rpmax = e_rpmax
 and ROBUKRS in e_glcomp
 and RPRCTR in e_prctr
 and RZZWWZ01 in e_prasn
 and RZZWWZ05 in e_crpbd.
 if sy-subrc = 0.
 loop at it_ZZPRODNT into l_zzprodnt.
 condense l_ZZPRODNT-rfarea no-gaps.
 if l_ZZPRODNT-rfarea is initial.
 delete it_ZZPRODNT.
 endif.
 endloop.
*-- Get the Functional Area to ACS line code mapping data
 select *
 from zfgl014
 into table it_zfgl014
 for all entries in it_ZZPRODNT
 where fkber = it_ZZPRODNT-rfarea .
 if sy-subrc = 0.
 endif.
 endif.
 i_subrc = sy-subrc.
endmethod. "get_data
endclass. "lcl_tm1_intf IMPLEMENTATION
* INCLUDE ZFGLI00003_F01 *
* Table
tables : zzprodnt.
* Data Declaration
data : v_subrc type sy-subrc.
*& Form get_filename
* Description : This subroutine is used for F4 Prompting
form get_filename changing p_path like rlgrap-filename.
*-- Local variables
data : lv_file like ibipparms-path, "Local file for upload/download
 lv_repid like syst-cprog, "ABAP program, caller in external
 "procedures
 lv_dynnr type syst-dynnr. "Current screen No
lv_repid = syst-cprog.
lv_dynnr = syst-dynnr.
*-- Function module used for F4 help
call function 'F4_FILENAME'
 exporting
 program_name = lv_repid
 dynpro_number = lv_dynnr
 importing
 file_name = lv_file.
move lv_file to p_path.
endform. " get_filename
*& Form init_period
FORM init_period changing p_rpmax p_ryear.
if sy-datum+4(2) = 01.
 p_rpmax = 12.
 p_ryear = sy-datum+0(4) - 1.
else.
 p_rpmax = sy-datum+4(2) - 1.
 p_ryear = sy-datum+0(4).
endif.
ENDFORM. " init_period
Hope this helps.
Regards,
Richa

Logical Database in Abap Objects

Hi to All
I want do it a program report using a Logical Database.
Is this possible ??? But when I make a GET <node>, occurs the following error:
 "" Statement "ENDMETHOD" missing. ""
I'm doing the following:
CLASS MONFIN IMPLEMENTATION.
 METHOD TRAER_DATOS.
 GET VBRK.
 ENDMETHOD.
ENDCLASS.
Please, somebody tell me how I use the logical database in Abap Objects.
Thank you very much
Regards
Dario R.

Hi there
Logical databases whilst of "some use" are not really part of OO.
If you want to use a logical database in an abap OO program I would create a special class which just does the get data from your DB and pass this either at record or table level.
Techniques such as GET XXXX LATE aren't really part of any OO type of application since at Object Instantiation time you should be able to access ALL the attributes of that object.
As far as OO is concerned Logical databases are a throwback to "Dinosaur Technology".
Since however modules such as SD and FI are still heavily reliant on relational structures (i.e linked tables etc) then there is still some limited life in this stuff but for OO try and solve it by another method.
If you really must use this stuff in OO then do it via a FMOD call and save the data in a table which your method will pass back to your application program.
You can't issue a GET command directly in a method.
Cheers
Jimbo

Adding leading zeros in abap objects.

Can anyone explain me
1. How to add leading zeros to a field in abap objects.
For eg:
data: dmb(6) type c value '123456',
actually the output value of c should have leading zeros added to it for length 16.
i.e '0000000000123456' . If the length of dmb is less than 16 then leading zeros should be added to that value to make it 16 as length.
Please tell me how to do it in ABAP Objects.

Hi Camila
Try to use the statement
DATA: ALPHABET(15) VALUE ' ABCDEFGHIJ',
 M1(4) VALUE 'ABCD',
 M2(6) VALUE 'BJJCA '.
SHIFT ALPHABET LEFT DELETING LEADING M1.
The field
ALPHABET
remains unchanged.
SHIFT ALPHABET LEFT DELETING LEADING SPACE.
The field ALPHABET now has the following contents:
'ABCDEFGHIJ '.
SHIFT ALPHABET RIGHT DELETING TRAILING M2.
ALPHABET now has the following contents:
' ABCDEFGHI'.
IN CHARACTER MODE
Effect
This is the default setting (see above), and the addition is therefore optional.
Note
Performance:
For performance reasons, you should avoid using SHIFT in WHILE loops.
The runtime required to shift a field with length 10 by one character to the right or left requires about 5 msn (standardized microseconds). A cyclical shift requires around 7 msn. The runtime for the ...
LEFT DELETING LEADING
... variant is around 3.5 msn, for ...
RIGHT DELETING TRAILING
... around 4.5 msn.
Reward all helpfull answers
Regards
Pavan

Significance of Interfaces in ABAP Objects

Hi Guys, here I have a query -
Why do we use Interfaces in ABAP Objects?, and what is the significance of Interfaces in ABAP Objects?
Please clarify the above with a suitable example.

Moderator message - Welcome to SCN.
But
Moderator message - But this isn't a training forum. Please ask a specific question - post locked

Exception 'error_message' in ABAP Objects

I've got a heterogeneous scenario with new program parts in ABAP objects and older parts in classical ABAP.
In the older parts some R/3 standard functions are called which dump dialog messages which are not allowed at that state of the program flow ('on commit').
The simple solution in classical ABAP was to use standard exception 'error_message' in the top level 'call function' statement thus catch all dialog messages in lower levels.
I am looking for an analog solution in object oriented ABAP. But exception 'error_message' is not allowed with 'call method'. It cannot be defined statically in the methods declaration. And the system exception caused by the dialog error message is not included in the set of catchable system errors.
I would be grateful for any hints concerning this problem.

Hi
Excuse me! But I didn't want to sent you my answer.
Anyway:
CLASS lcl_my_class DEFINITION.
PUBLIC SECTION.
    METHODS my_method
              EXPORTING
                EXCEPTION TYPE CHAR1
              EXCEPTIONS error_messages.
ENDCLASS.                    "LCL_MY_CLASS DEFINITION
CLASS lcl_my_class IMPLEMENTATION.
METHOD my_method.
    IF EXCEPTION = 'X'.
      MESSAGE e208(00) WITH 'Message error'
                  RAISING error_messages.
    ELSE.
      MESSAGE I208(00) WITH 'OK!'.
    ENDIF.
ENDMETHOD.                    "MY_METHOD
ENDCLASS.                    "LCL_MY_CLASS IMPLEMENTATION
So you did want to do a call like this:
CALL METHOD lcl_my_class=>my_method
   EXCEPTIONS
     error_messages = 1
     error_message = 2
     OTHERS         = 3.
No! you can't do it, but you try to insert your call in fm where you use ERROR_MESSAGE addition. I think you can do it if your methods are std.
Max
Message was edited by: max bianchi

Re : select-options in abap-objects program

Dear friends,
                  I want to give select-options in abap-objects program. How to give that.
                             Thanking You
with regards,
Mani

In the transaction SE24, enter your class name, click modify.
in the tab named "Types" you have to declare two types. By example, if you want to receive one select-options that in your program that uses this class is declared like:
" P_SAKNR FOR SKAT-SAKNR".
you've got to declare two types in the class:
a- TYPES: begin of E_S_SAKNR,
                      sign(1),
                      option(2),
                      low(10),
                      high(10),
                  end of E_S_SAKNR.
b - TYPES E_T_SAKNR type standard table of E_S_SAKNR.
so, in the class method that you want to receive P_SAKNR as importing parameter. You got to do this:
method TEST importing ET_SAKNR type E_T_SAKNR.
now, in the implementation of this method you should be able to use ET_SAKNR as the same way as you usually use a parameter or a select-option. You could use it in a select with the operator IN by example..

Re : select-options in abap objects

Dear friends,
I want to give select-options in abap-objects program. How to give that.
Thanking You
with regards,
Mani

HI Mani,
It's common mix ABAP Procedural with ABAP Objects in the same program.
You should use the same way used in ABAP procedural program as Marco Cerdelli sad.
But inside ABAP OBJECTS classes you can't use is these statement type.
Don't forget to close this thread and all yours previous when your question be answered ! In case of doubt read the [rules of engagement|https://forums.sdn.sap.com/].
Best Regards.
Marcelo Ramos

Java package concept in ABAP Objects

Hi, just a question on grouping of classes in ABAP Objects.
In Java, you can group classes by "package" to avoid
namespace collision, my question, in ABAP Objects, how
do you group classes to avoid namespace collision?
I know that there is package concept in SAP/ABAP but it
is different concept in Java.
Thanks in advanced for your reply.

Hello One and Lonley,
the package concept in ABAP and Java is quite different. In java the package name is part of the development object in ABAP not. So any class pool name is global unique. In combination with the restriction on 30 chars this leads often to somehow cryptic names.
The only way to escape this somehow is the excessive use of local classes. That mean classes defined within main programs. If you are on 7.00 you may check FuGr SAPLSAUNIT_TREE_CTRL_LISTENER for this technique.
Best Regards
klaus

Poll: Development in ABAP Objects / Webdynpro vs. classical Dynpro

Hey there ABAP developers,
I just want to ask if you can give me one or two minutes of your attention for two poll questions.
At the moment I´m writing my master thesis about the development of a monitoring tool in ABAP. One of my bigger chapters is about the decision, which programming paradigm should be used for new development projects in SAP. And another important one is about WebDynpro vs. classical Dynpros.
Because of the fact, that I can´t create any polls in here, I just started this discussion and hope for many replies .
It would be very nice if some of you could give me an answer to the following questions (only 2 ), so that I can maybe use the result of this poll in my master thesis, if there are enough responses.
1. What percentage of new development projects are you developing in ABAP Objects? (Not to be considered small reports that just runs for only one time)
     A. 0 %
     B. less than 25%
     C. 25% - 49%
     D. 50% - 75%
     E. more than 75%
2. Which GUI technology do you prefer?
     A. Classical Dynpro
     B. WebDynpro
     C. Business Server Pages (BSP)
     D. others (please mention)
I want to thank you in advance for answering the questions,
Best regards,
Christoph

Hi,
Present SAP Implementation projects are very rare, maximum projects are support and up gradations only .
If they want Implement the SAP newly , defiantly they should creating ABAP Objects.
Why Because ABAP Objects are Object Oriented Concepts, so, for future reference and re usability..etc .
Now Come to the First Quetion.
if it is implementation project   ABAP Objects are 25% - 49%.
if it is Support project ABAP Objects are 25%
Now Come to the Second Quetion.
Depend upon Reqmnt, but Most of the Applications are Webdynpro . i.e 70%.
Remaining 30% All ( BSP and GUI ....Etc..)
This is my opinion.
Sambaiah.Paidipelli.

Dynamic documents in ABAP Objects (weblog)

Hi SDNers,
Do you want to implement the following features in ABAP Screens?
1. Large font sizes and more colour options than traditional ABAP/4 (There are some limitations also)
2. ICONS and pictures in different sizes
3. Texts
4. Links
5. Pushbuttons
6. Input fields
7. Dropdown list boxes
8. Tables with row span and with column span
9. Tables with frames and without frames
10. Tables with buttons, icons, pictures, input elements and texts in it.
Then please read the below weblog to incorporate these features...
<a href="/people/venkata.ramisetti/blog/2005/12/20/dynamic-documents-in-abap-objects">Dynamic Documents in ABAP Objects</a>
Thanks,
Ramakrishna

one limitation which comes to my mind immediately is that you cannot create spool output of the dynamic document.
Regards
Raja

Help in abap objects

hallow
i wont example in regular abap like select stetmet and how i do that in abap objects (the same code)and which benefit i have in using objects.
Regards

hi,
check the below links lot of info and examples r there
http://www.sapgenie.com/abap/OO/index.htm
http://www.geocities.com/victorav15/sapr3/abap_ood.html
http://www.brabandt.de/html/abap_oo.html
Check this cool weblog:
/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql
/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm
http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt
http://www.allsaplinks.com/
http://www.sap-img.com/
http://www.sapgenie.com/
http://help.sap.com
For funtion module to class
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm
for classes
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm
for methods
http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm
for inheritance
http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm
for interfaces
http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm
4) http://esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf
5) http://esnips.com/doc/92be4457-1b6e-4061-92e5-8e4b3a6e3239/Object-Oriented-ABAP.ppt
6) http://esnips.com/doc/448e8302-68b1-4046-9fef-8fa8808caee0/abap-objects-by-helen.pdf
7) http://esnips.com/doc/39fdc647-1aed-4b40-a476-4d3042b6ec28/class_builder.ppt
8) http://www.amazon.com/gp/explorer/0201750805/2/ref=pd_lpo_ase/102-9378020-8749710?ie=UTF8

Wa in ABAP Objects

Hello!
How can I write wa in ABAP Objects?
CLASS money DEFINITION.
PUBLIC SECTION.
    CLASS-DATA: wa TYPE zaa_sflight,
    wa1 TYPE TABLE OF wa.
    CLASS-METHODS zmoney.
ENDCLASS.
The program says, wa is unknown. How can I write it correct?
Thanks!!

Hi Andrei Algaier,
    This is because wa is not defined as datatype in datadictionary or in program with types statement.
example:
types : wa type c.
data : xyz type wa.
xyz will be of type c.
This might be helpful.
Regards,
Kalyan.

Select-option in ABAP objects

Hi Guys,
           I need a small help from you. I want to know how to populate the value from select-option to abap object. Please help me, it is very important

check this code
REPORT ZSELOPT_TO_CLASS .
TABLES: VBRK.
SELECT-OPTIONS: S_VBELN FOR VBRK-VBELN.
DATA: IT_VBELN TYPE RSELOPTION.
DATA: X_VBELN TYPE RSDSSELOPT.
CLASS C1 DEFINITION.
PUBLIC SECTION.
DATA: IT_VBRP TYPE VBRP_TAB,
      X_VBRP LIKE LINE OF IT_VBRP.
METHODS: GET_DATA IMPORTING S_VBELN TYPE RSELOPTION.
METHODS: DISP_DATA.
ENDCLASS.
CLASS C1 IMPLEMENTATION.
METHOD GET_DATA.
*SELECT * FROM VBRP*
   INTO TABLE IT_VBRP
   WHERE VBELN IN S_VBELN.
ENDMETHOD.
METHOD DISP_DATA.
LOOP AT IT_VBRP INTO X_VBRP.
    WRITE:/ X_VBRP-VBELN,
            X_VBRP-POSNR.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA OBJ TYPE REF TO ZCL_SELOPT.
CREATE OBJECT OBJ.
LOOP AT S_VBELN.
MOVE S_VBELN-LOW TO X_VBELN-LOW.
MOVE S_VBELN-HIGH TO X_VBELN-HIGH.
MOVE S_VBELN-SIGN TO X_VBELN-SIGN.
MOVE S_VBELN-OPTION TO X_VBELN-OPTION.
APPEND X_VBELN TO IT_VBELN.
ENDLOOP.
CALL METHOD OBJ->GET_DATA
                    EXPORTING
                      S_VBELN = IT_VBELN.
CALL METHOD OBJ->DISP_DATA.
Edited by: moazam hai on May 17, 2008 6:17 AM
Edited by: moazam hai on May 17, 2008 6:19 AM

Single click in abap objects

hi,
 can any1 pls explain me the single click event LINK_CLICK in abap object.
does this single click event mean that if i click anywhere on my alv report it will trigger the event.
 pls explain me about this LINK_CLICK event in details pls

answered the similar question last week. You can see here Event
Link_click or ALV_Object Model HYPERLINK.
This example demonstrates how to use a Hiperlink field in ALV. These example was based on 'SALV_DEMO_TABLE_COLUMNS' that contains Hiperlink, icon, Hotspot...
The Code is:
REPORT zsalv_mar NO STANDARD PAGE HEADING.
 CLASS lcl_handle_events DEFINITION
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
 METHODS:
 on_link_click FOR EVENT link_click OF cl_salv_events_table
 IMPORTING row column.
ENDCLASS. "lcl_handle_events DEFINITION
 CLASS lcl_handle_events IMPLEMENTATION
CLASS lcl_handle_events IMPLEMENTATION.
METHOD on_link_click.
 DATA: l_row_string TYPE string,
 l_col_string TYPE string,
 l_row TYPE char128.
 WRITE row TO l_row LEFT-JUSTIFIED.
 CONCATENATE text-i02 l_row INTO l_row_string SEPARATED BY space.
 CONCATENATE text-i03 column INTO l_col_string SEPARATED BY space.
 MESSAGE i000(0k) WITH 'Single Click' l_row_string l_col_string.
ENDMETHOD. "on_single_click
ENDCLASS. "lcl_handle_events IMPLEMENTATION
DATA: gr_events TYPE REF TO lcl_handle_events.
TYPES: BEGIN OF g_type_s_outtab.
INCLUDE TYPE alv_tab.
TYPES: t_hyperlink TYPE salv_t_int4_column,
 END OF g_type_s_outtab.
DATA: gt_outtab TYPE STANDARD TABLE OF g_type_s_outtab.
DATA: gr_table TYPE REF TO cl_salv_table.
TYPES: BEGIN OF g_type_s_hyperlink,
 handle TYPE salv_de_hyperlink_handle,
 hyperlink TYPE service_rl,
 carrid TYPE s_carrid,
 END OF g_type_s_hyperlink.
DATA: gt_hyperlink TYPE STANDARD TABLE OF g_type_s_hyperlink.
SELECTION-SCREEN BEGIN OF BLOCK gen WITH FRAME.
PARAMETERS: p_amount TYPE i DEFAULT 30.
SELECTION-SCREEN END OF BLOCK gen.
START-OF-SELECTION.
PERFORM select_data.
PERFORM display.
*& Form select_data
 text
--> p1 text
<-- p2 text
FORM select_data .
DATA: line_outtab TYPE g_type_s_outtab,
 ls_hype TYPE g_type_s_hyperlink,
 lt_hyperlink TYPE salv_t_int4_column,
 ls_hyperlink TYPE salv_s_int4_column,
 v_tabix TYPE sytabix.
SELECT *
 FROM alv_tab
 INTO CORRESPONDING FIELDS OF TABLE gt_outtab
 UP TO p_amount ROWS.
LOOP AT gt_outtab INTO line_outtab.
 v_tabix = sy-tabix.
 ls_hype-handle = sy-tabix.
 ls_hype-hyperlink = line_outtab-url.
 ls_hype-carrid = line_outtab-carrid.
 INSERT ls_hype INTO TABLE gt_hyperlink.
 ls_hyperlink-columnname = 'URL'.
 ls_hyperlink-value = sy-tabix.
 APPEND ls_hyperlink TO lt_hyperlink.
 line_outtab-t_hyperlink = lt_hyperlink.
 MODIFY gt_outtab FROM line_outtab INDEX v_tabix.
 CLEAR line_outtab.
 CLEAR lt_hyperlink.
 CLEAR ls_hyperlink.
ENDLOOP.
ENDFORM. " select_data
*& Form display
 text
--> p1 text
<-- p2 text
FORM display .
TRY.
 cl_salv_table=>factory(
 IMPORTING
 r_salv_table = gr_table
 CHANGING
 t_table = gt_outtab ).
 CATCH cx_salv_msg. "#EC NO_HANDLER
ENDTRY.
DATA: lr_functions TYPE REF TO cl_salv_functions_list.
lr_functions = gr_table->get_functions( ).
lr_functions->set_default( abap_true ).
*... set the columns technical
DATA: lr_columns TYPE REF TO cl_salv_columns_table,
 lr_column TYPE REF TO cl_salv_column_table.
lr_columns = gr_table->get_columns( ).
lr_columns->set_optimize( abap_true ).
*... §4.7 set hyperlink column
DATA: lr_hyperlinks TYPE REF TO cl_salv_hyperlinks,
 ls_hyperlink TYPE g_type_s_hyperlink.
DATA: lr_functional_settings TYPE REF TO cl_salv_functional_settings.
TRY.
 lr_columns->set_hyperlink_entry_column( 'T_HYPERLINK' ).
 CATCH cx_salv_data_error. "#EC NO_HANDLER
ENDTRY.
TRY.
 lr_column ?= lr_columns->get_column( 'URL' ).
 lr_column->set_cell_type( if_salv_c_cell_type=>link ).
 lr_column->set_long_text( 'URL' ).
 CATCH cx_salv_not_found. "#EC NO_HANDLER
ENDTRY.
lr_functional_settings = gr_table->get_functional_settings( ).
lr_hyperlinks = lr_functional_settings->get_hyperlinks( ).
LOOP AT gt_hyperlink INTO ls_hyperlink.
 TRY.
 lr_hyperlinks->add_hyperlink(
 handle = ls_hyperlink-handle
 hyperlink = ls_hyperlink-hyperlink ).
 CATCH cx_salv_existing. "#EC NO_HANDLER
 ENDTRY.
ENDLOOP.
DATA: lr_events TYPE REF TO cl_salv_events_table.
lr_events = gr_table->get_event( ).
CREATE OBJECT gr_events.
SET HANDLER gr_events->on_link_click FOR lr_events.
gr_table->display( ).
ENDFORM. " display

Regd Abap Objects

Similar Messages

Maybe you are looking for