Scrolling Issue - ALV- ABAP OOPS!

Hello All,
I have a strange issue with regards to ALV developed using ABAP OOPS. I have more than 25 fields on the output screen.
For each field on output screen, F4 help is possible. So when I scroll to the right most fields on the screen, do a f4 help and fill the value, the alv output screen automatically moves to the left side.
I tried to resolve using SET_SCROLL_INFO_VIA_ID method of the class CL_GUI_ALV_GRID.
CALL METHOD g_alvgrid->set_scroll_info_via_id
    EXPORTING
      is_row_info = v_scrl_row_info
      is_col_info = v_scrl_col_info.
* Set Scroll Position
CALL METHOD g_alvgrid->set_current_cell_via_id
    EXPORTING
      is_row_id    = v_scrl_row_set
      is_column_id = v_scrl_col_set.
But still moves to the left side.
If you have some ideas on this, pls share the same. Thanks in advance.
Best Regards
Himayat.
Edited by: Himayatullah Md on Nov 25, 2011 4:42 PM
Please use code tags
Edited by: Rob Burbank on Nov 25, 2011 10:49 AM

If you use [refresh_table_display|http://help.sap.com/saphelp_erp2004/helpdata/en/0a/b5531ed30911d2b467006094192fe3/frameset.htm] set paramter is_stable to keep scrollbar on desired position.
Regards
Marcin

Similar Messages

Hierarchy ALV in ABAP OOPS

Hi FOlks,
            Have a requirement to develop Hierarchy ALV with two levels. As we need to make the columns as editable we are going for ALV OOPS. Is there any way of doing Hierarchy ALV in OOPS...if so, could you please suggest me which Class and method to be used.....
                                Thanks in advance,
                                 Shyam.

Look at sample programs in R3
SALV_DEMO_TREE_DATA_UPDATE     Demonstration Program for ALV OM Tree: Changed Data
SALV_DEMO_TREE_EVENTS          Demonstration Program for ALV OM Tree: Events
SALV_DEMO_TREE_FUNCTIONS       Demonstration Program for ALV OM Tree: Functions
SALV_DEMO_TREE_METADATA        Demonstration Program for ALV OM Tree: Metadata
SALV_DEMO_TREE_SELECTIONS      Demonstration Program for ALV OM Tree: Selections
SALV_DEMO_TREE_SETTINGS        Demonstration Program for ALV OM Tree: Settings
SALV_DEMO_TREE_SIMPLE          Demonstration Program for ALV OM Tree
Regards,

Heirarchical ALV with OOPS

Can anyone help me with the code of Heirarchical ALV with OOPS in module pool programming.

hi,
link
http://www.sap-img.com/abap/how-to-use-alv-for-hierarchical-lists.htm
Check this example report : BALVHD01
chk a sample code.
REPORT ZTEST_HIER LINE-COUNT 65
 LINE-SIZE 200
 NO STANDARD PAGE HEADING
 MESSAGE-ID ZZ.
TYPE-POOLS: SLIS.
TYPES: BEGIN OF TY_HEAD,
 VBELN LIKE VBAK-VBELN,
 KUNNR LIKE VBAK-KUNNR,
 NAME LIKE KNA1-NAME1,
 END OF TY_HEAD.
TYPES: BEGIN OF TY_ITEM,
 VBELN LIKE VBAP-VBELN,
 POSNR LIKE VBAP-POSNR,
 MATNR LIKE VBAP-MATNR,
 MAKTX LIKE MAKT-MAKTX,
 CHECK(1),
 END OF TY_ITEM.
DATA: IT_ITEM TYPE TABLE OF TY_ITEM.
DATA: IT_HEADER TYPE TABLE OF TY_HEAD,
 IT_EVENTS TYPE SLIS_T_EVENT, "Events.
 IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: X_LAYOUT TYPE SLIS_LAYOUT_ALV,
 X_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 X_KEY TYPE SLIS_KEYINFO_ALV,
 X_EVENTS TYPE SLIS_ALV_EVENT, "Event
 X_VBELN LIKE VBAK-VBELN,
 X_ITEM TYPE TY_ITEM.
CONSTANTS: C_S(1) VALUE '/'.
DATA: V_FLAG.
* SELECTION-SCREEN *
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VBELN FOR X_VBELN. "Sales order Number
SELECTION-SCREEN END OF BLOCK BLK.
AT SELECTION-SCREEN.
IF NOT S_VBELN[] IS INITIAL.
 SELECT SINGLE VBELN
 INTO X_VBELN
 FROM VBAK
 WHERE VBELN IN S_VBELN.
 IF SY-SUBRC <> 0.
 MESSAGE E002 WITH 'Please enter valid Sales Order'(020).
 ENDIF.
ENDIF.
* CLASS lcl_bill_complete DEFINITION
CLASS LCL_BILL_COMPLETE DEFINITION.
PUBLIC SECTION.
 METHODS:GET_HEADER_DATA,
 GET_ITEM_DATA,
 SHOW_DATA,
 FILL_FIELDCAT,
 FILL_EVENTS,
 TOP_OF_PAGE.
ENDCLASS. "lcl_bill_complete DEFINITION
* CLASS lcl_bill_complete IMPLEMENTATION
CLASS LCL_BILL_COMPLETE IMPLEMENTATION.
METHOD GET_HEADER_DATA.
 DATA:X_HEADER LIKE LINE OF IT_HEADER.
 X_HEADER-VBELN = '12345'.
 X_HEADER-KUNNR = '1234'.
 X_HEADER-NAME = 'Test'.
 APPEND X_HEADER TO IT_HEADER.
 X_HEADER-VBELN = '12346'.
 X_HEADER-KUNNR = '1236'.
 X_HEADER-NAME = 'Test'.
 APPEND X_HEADER TO IT_HEADER.
 X_HEADER-VBELN = '12347'.
 X_HEADER-KUNNR = '1235'.
 X_HEADER-NAME = 'Test'.
 APPEND X_HEADER TO IT_HEADER.
ENDMETHOD. "get_header_data
METHOD GET_ITEM_DATA.
 DATA:X_ITEM LIKE LINE OF IT_ITEM.
 X_ITEM-VBELN = '12345'.
 X_ITEM-POSNR = '0010'.
 X_ITEM-MATNR = 'TESTMATNR'.
 X_ITEM-MAKTX = 'TESTMAT'.
 APPEND X_ITEM TO IT_ITEM.
 X_ITEM-VBELN = '12345'.
 X_ITEM-POSNR = '0020'.
 X_ITEM-MATNR = 'TESTMATNR'.
 X_ITEM-MAKTX = 'TESTMAT'.
 APPEND X_ITEM TO IT_ITEM.
 X_ITEM-VBELN = '12346'.
 X_ITEM-POSNR = '0010'.
 X_ITEM-MATNR = 'TESTMATNR'.
 X_ITEM-MAKTX = 'TESTMAT'.
 APPEND X_ITEM TO IT_ITEM.
 X_ITEM-VBELN = '12346'.
 X_ITEM-POSNR = '0020'.
 X_ITEM-MATNR = 'TESTMATNR'.
 X_ITEM-MAKTX = 'TESTMAT'.
 APPEND X_ITEM TO IT_ITEM.
 X_ITEM-VBELN = '12347'.
 X_ITEM-POSNR = '0010'.
 X_ITEM-MATNR = 'TESTMATNR'.
 X_ITEM-MAKTX = 'TESTMAT'.
 APPEND X_ITEM TO IT_ITEM.
 X_ITEM-VBELN = '12347'.
 X_ITEM-POSNR = '0020'.
 X_ITEM-MATNR = 'TESTMATNR'.
 X_ITEM-MAKTX = 'TESTMAT'.
 APPEND X_ITEM TO IT_ITEM.
ENDMETHOD. "get_item_data
METHOD SHOW_DATA.
 X_KEY-HEADER01 = 'VBELN'.
 X_KEY-ITEM01 = 'VBELN'.
 X_KEY-ITEM02 = 'POSNR'.
 CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 IS_LAYOUT = X_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT[]
 I_TABNAME_HEADER = 'IT_HEADER'
 I_TABNAME_ITEM = 'IT_ITEM'
 IS_KEYINFO = X_KEY
 IT_EVENTS = IT_EVENTS
 TABLES
 T_OUTTAB_HEADER = IT_HEADER
 T_OUTTAB_ITEM = IT_ITEM
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDMETHOD. "show_data
METHOD FILL_FIELDCAT.
 DATA: L_POS TYPE I.
 X_LAYOUT-HEADER_TEXT = 'HEADER'.
 X_LAYOUT-ITEM_TEXT = 'ITEM'.
 X_LAYOUT-DEFAULT_ITEM = ' '.
 X_LAYOUT-NO_KEYFIX = 'X'.
 X_LAYOUT-BOX_TABNAME = 'IT_ITEM'.
 L_POS = L_POS + 1.
*- Sales Order Number
 X_FIELDCAT-FIELDNAME = 'VBELN'.
 X_FIELDCAT-TABNAME = 'IT_HEADER'.
 X_FIELDCAT-SELTEXT_M = 'Sales Order'(017).
 X_FIELDCAT-OUTPUTLEN = 11.
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
 X_FIELDCAT-FIELDNAME = 'KUNNR'.
 X_FIELDCAT-TABNAME = 'IT_HEADER'.
 X_FIELDCAT-SELTEXT_M = 'Sold-to Party'(010).
 X_FIELDCAT-OUTPUTLEN = 13.
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
 X_FIELDCAT-FIELDNAME = 'NAME'.
 X_FIELDCAT-TABNAME = 'IT_HEADER'.
 X_FIELDCAT-OUTPUTLEN = 15.
 X_FIELDCAT-SELTEXT_M = 'Sold-to name'(011).
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
 X_FIELDCAT-FIELDNAME = 'CHECK'.
 X_FIELDCAT-TABNAME = 'IT_ITEM'.
 X_FIELDCAT-CHECKBOX = 'X'.
 X_FIELDCAT-INPUT = 'X'.
 X_FIELDCAT-EDIT = 'X'.
 X_FIELDCAT-SELTEXT_M = ' '.
 X_FIELDCAT-OUTPUTLEN = 2.
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
 X_FIELDCAT-FIELDNAME = 'VBELN'.
 X_FIELDCAT-TABNAME = 'IT_ITEM'.
 X_FIELDCAT-SELTEXT_M = 'Sales Order'(017).
 X_FIELDCAT-OUTPUTLEN = 11.
 X_FIELDCAT-TECH = 'X'.
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
*- Sales Order Item
 X_FIELDCAT-FIELDNAME = 'POSNR'.
 X_FIELDCAT-TABNAME = 'IT_ITEM'.
 X_FIELDCAT-SELTEXT_M = 'SO Item'(018).
 X_FIELDCAT-OUTPUTLEN = 7.
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
 X_FIELDCAT-FIELDNAME = 'MATNR'.
 X_FIELDCAT-TABNAME = 'IT_ITEM'.
 X_FIELDCAT-OUTPUTLEN = 18.
 X_FIELDCAT-SELTEXT_M = 'Material number'(012).
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
 L_POS = L_POS + 1.
 X_FIELDCAT-FIELDNAME = 'MAKTX'.
 X_FIELDCAT-TABNAME = 'IT_ITEM'.
 X_FIELDCAT-OUTPUTLEN = 40.
 X_FIELDCAT-SELTEXT_M = 'Material Description'(013).
 X_FIELDCAT-COL_POS = L_POS.
 APPEND X_FIELDCAT TO IT_FIELDCAT.
 CLEAR X_FIELDCAT.
ENDMETHOD. "fill_fieldcat
*--Fill the events table
METHOD FILL_EVENTS.
*- Top of page
 X_EVENTS-NAME = 'TOP_OF_PAGE'.
 X_EVENTS-FORM = 'TOP_OF_PAGE'.
 APPEND X_EVENTS TO IT_EVENTS.
ENDMETHOD. "fill_events
"fill_events
METHOD TOP_OF_PAGE.
*- Call Steelcase Standard Header
 WRITE 'top_of_page here'.
ENDMETHOD. "top_of_page
ENDCLASS. "lcl_bill_complete IMPLEMENTATION
START-OF-SELECTION.
DATA: OBJ TYPE REF TO LCL_BILL_COMPLETE.
CREATE OBJECT OBJ.
CALL METHOD OBJ->GET_HEADER_DATA.
CALL METHOD OBJ->GET_ITEM_DATA.
CALL METHOD OBJ->FILL_FIELDCAT.
CALL METHOD OBJ->FILL_EVENTS.
CALL METHOD OBJ->SHOW_DATA.
*& Form top_of_page
* TOP_OF_PAGE
FORM TOP_OF_PAGE.
*-To show the top of page
CALL METHOD OBJ->TOP_OF_PAGE.
ENDFORM. "top_of_page
if hlped plsmark points.
rgds
Anver

ABAP OOP example and invitation

For quite a while, I've been trying to learn more about ABAP OOP. But, I've
found many of the examples on the web, and in SAP provided articles, either
difficult to understand or outright lame. They never seemed to illustrate
much of what a staff ABAP programmer is called upon to do.
So, last week I decided to take the problem head on and see if I could come
up with something we all could use as a starting point to learn more about
ABAP objects.
Here's a chunk of code that I want everybody to pick apart, critique,
modify, append or whatever. The only stipulation is that you post your
suggestions back to this forum. Maybe after we get some nice ABAP objects
together, the forum manager can put them into an OOP area of this website.
================================================================
The first object I created uses the MARC (Plant Data for Material) table.
I wanted to use it to learn more about how "Selection Sets" can be used with
ABAP OOP.
The class has five methods:
-o- constructor
-o- return_marc_table
-o- return_subset_marc_table
-o- length
-o- write_marc_table
This class isn't, really, very useful. But, it does show how selection-sets
can be used with ABAP oop. The code is studded with commented BREAK-POINTS
that you can turn on and off to examine things.
Split the code into two files: Main program and Top include. Look at the
initialization section and you should be able to see how you can tweak
the materials selected for your environment.
enjoy
[email protected]
REPORT zejb_oop_sel_set2 .
This program is designed to demonstrate passing selection sets
to an ABAP object
The program has some educational value. But, other than that
probably isn't of much use.
=========================================== Main Program - BEGIN
INCLUDE zejb_oop_sel_set2_top. "data and class definitions
SELECT-OPTIONS:
s_matnr FOR marc-matnr,
s_werks FOR marc-werks.
DATA: my_marc TYPE REF TO marc_object .
============================================= START-OF-SELECTION
START-OF-SELECTION.
matnr_selector[] = s_matnr[] .
werks_selector[] = s_werks[].
call the constructor table and create the CLASS-DATA
CREATE OBJECT my_marc
 EXPORTING
 s_matnr = matnr_selector
 s_werks = werks_selector .
================================================ END-OF-SELECTION
END-OF-SELECTION.
CALL METHOD my_marc->return_marc_table
 IMPORTING
 return_marc = tb_marc.
BREAK-POINT. " inspect tb_marc
CALL METHOD my_marc->length
 IMPORTING
 table_size = zzlines.
WRITE:/ 'Class-Data table in object my_marc has '
 , zzlines , ' lines'.
ULINE.
WRITE:/ 'printing internal table tb_marc'.
CALL METHOD my_marc->write_marc_table
 EXPORTING
 print_table = tb_marc.
SKIP.
BREAK-POINT.
examine matnr_subset_selector
examine werks_subset_selector
CALL METHOD my_marc->return_subset_marc_table
 EXPORTING
 s_matnr = matnr_subset_selector
 s_werks = werks_subset_selector
 IMPORTING
 return_marc = tb_subset_marc.
BREAK-POINT.
examine tb_subset_marc
ULINE.
WRITE:/ 'printing internal table tb_subset_marc'.
CALL METHOD my_marc->write_marc_table
 EXPORTING
 print_table = tb_subset_marc.
ULINE.
================================================== INITIALIZATION
INITIALIZATION.
DEFINE range_append. "#EC *
1 == range_name
 clear &1. "#EC *
 &1-sign = &2. "#EC *
 &1-option = &3. "#EC *
 &1-low = &4. "#EC *
 &1-high = &5. "#EC *
 append &1. clear &1. "#EC *
END-OF-DEFINITION. "#EC *
DEFINE fill_range. "#EC *
1 == range_name
 clear &1. "#EC *
 &1-sign = &2. "#EC *
 &1-option = &3. "#EC *
 &1-low = &4. "#EC *
 &1-high = &5. "#EC *
END-OF-DEFINITION. "#EC *
modify these materials and plants to suit your environment
or create a selection variant
range_append s_matnr 'I' 'EQ' 'HAP100' space.
range_append s_matnr 'I' 'EQ' 'HAP205' space.
range_append s_matnr 'I' 'EQ' 'HAP221' space.
range_append s_matnr 'I' 'EQ' 'HAP240' space.
range_append s_matnr 'I' 'EQ' 'HAP245' space.
range_append s_matnr 'I' 'EQ' 'HAP250' space.
range_append s_matnr 'I' 'EQ' 'HAP260' space.
range_append s_werks 'I' 'EQ' '1000' space.
range_append s_werks 'I' 'EQ' '1020' space.
fill subset selector
fill_range st_matnr_selector 'I' 'EQ' 'HAP205' space.
APPEND st_matnr_selector TO matnr_subset_selector.
fill_range st_matnr_selector 'I' 'EQ' 'HAP250' space.
APPEND st_matnr_selector TO matnr_subset_selector.
fill_range st_werks_selector 'I' 'EQ' '1000' space.
APPEND st_werks_selector TO werks_subset_selector.
============================================ Main Program - End
*& Include ZEJB_OOP_SEL_SET2_TOP *
============================================ Top include - BEGIN
TABLES : marc.
DATA: tb_marc TYPE TABLE OF marc,
 tb_subset_marc TYPE TABLE OF marc,
 st_marc TYPE marc. "#EC *
"^^^^^^^ to/from structure. use as needed
DATA: st_matnr_selector TYPE range_s_matnr,
st_werks_selector TYPE range_werks,
matnr_selector TYPE TABLE OF range_s_matnr,
werks_selector TYPE TABLE OF range_werks,
matnr_subset_selector TYPE TABLE OF range_s_matnr,
werks_subset_selector TYPE TABLE OF range_werks.
DATA: zzlines TYPE i. " size of class_data table.
 CLASS marc_object DEFINITION
NOTE: for those new to abap objects, EVERYTHING in abap OOP
 must be explicitly "TYPED". more on this as I go along
CLASS marc_object DEFINITION.
PUBLIC SECTION.
 TYPES:
 typ_marc TYPE TABLE OF marc,
 typ_matnr_selector TYPE TABLE OF range_s_matnr,
 typ_werks_selector TYPE TABLE OF range_werks.
 DATA: return_marc TYPE typ_marc,
 print_table TYPE typ_marc.
 CLASS-DATA:
 class_marc
 TYPE typ_marc. " <== inside public area
 ^^^^^^^ this table will be available to all methods
 ^^^^^^^ in the class
 METHODS:
 constructor
 IMPORTING
 s_matnr TYPE typ_matnr_selector
 s_werks TYPE typ_werks_selector OPTIONAL ,
 return_marc_table
 EXPORTING return_marc TYPE typ_marc ,
 return_subset_marc_table
 IMPORTING
 s_matnr TYPE typ_matnr_selector
 s_werks TYPE typ_werks_selector OPTIONAL
 EXPORTING
 return_marc TYPE typ_marc,
 length EXPORTING table_size TYPE i,
 write_marc_table
 IMPORTING print_table TYPE typ_marc.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS. "marc_object DEFINITION
*EJECT
 CLASS zget_sales_order_change IMPLEMENTATION
CLASS marc_object IMPLEMENTATION.
METHOD constructor .
 DATA:
 s_lcl_matnr TYPE TABLE OF range_s_matnr ,
 s_lcl_werks TYPE TABLE OF range_werks .
 s_lcl_matnr[] = s_matnr[] .
 s_lcl_werks[] = s_werks[] .
 SELECT * FROM marc
 APPENDING TABLE class_marc
 WHERE matnr IN s_lcl_matnr
 AND werks IN s_lcl_werks.
 SORT class_marc BY matnr werks.
 BREAK-POINT.
ENDMETHOD. "xxx
METHOD return_marc_table.
 return_marc[] = class_marc[] .
 BREAK-POINT. " examine class_marc
ENDMETHOD. "return_marc table
METHOD return_subset_marc_table.
 DATA: st_marc TYPE marc.
 REFRESH return_marc.
 LOOP AT class_marc INTO st_marc
 WHERE matnr IN s_matnr
 AND werks IN s_werks .
 APPEND st_marc TO return_marc.
 ENDLOOP.
 BREAK-POINT. " examine return_marc
ENDMETHOD. "return_subset_marc_table
METHOD length.
 DESCRIBE TABLE class_marc LINES table_size.
ENDMETHOD. "length
METHOD write_marc_table.
 DATA: st_marc TYPE marc.
 LOOP AT print_table INTO st_marc.
 WRITE:/ 'Material ' , st_marc-matnr,
 'Plant ' , st_marc-werks.
 ENDLOOP.
ENDMETHOD. "write_marc_table
ENDCLASS. "marc_object IMPLEMENTATION
============================================== Top include - END

Search using " ALV Factory methods" u'll get lots of material.
for instance u can a look at this wiki
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/abap/abap%2b-%2bdeveloping%2binteractive%2balv%2breport%2busing%2booabap
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/community/object%2bmodel%2balv%2b-%2binteractive
[ALVOO PDF|https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/cda3992d-0e01-0010-90b2-c4e1f899ac01]

Dynamically change in size of the custom container using ALV GRID (OOPS)

Hi Gurus!!!!
I have an issue with the output of the report which is developed using ALV GRID (OOPS). I have used the custom container occupying full screen (Screen painter). When I execute the report using my PC the output displays report as expected in full screen. The problem is when we execute this report in 19 INCH monitor then there is always gap below the report.
As per my understanding we should have a code to change the size of custom container dynamically.
Please suggest some help on this.
Thanks,
Hemal Shah

Hi,
If you set the attributes, Resizing - Vertical and Horizontal for the customer container, than system will resize the size of the custome continer as per the resolution.
Hope it helps,
Sumana

Detect rows selection in ALV using oops

Hi ALL,
I HAVE An ALV OUTPUT OF RECORDS USING OOPS.
NOW I CAN SELECT ONE OR MULTIPLE ROWS OF THE OUTPUT AND I HAVE ADDED A DELETE ICON TO MY TOOL BAR.
I HAVE BACK AND EXIT BUTTON AND I HAVE CODE FOR THE SAME IN PAI.
FOR DELETE ICON SY-UCOMM IS DELE AND CONTROL COMES TO PAI
MY QUESTION IS HOW DO YOU KNOW WHICH ROW OR ROWS ARE SELETEd , IN NORMAL ABAP , a field BOX type c has a value X , but what about in ALV using OOPS.
I have no idea whether my approach is correct or wrong or do i need to something else.
Thanks

Hi Darren,
This is what i have . Iam new oops so i want to just make sure
method handle_user_command.
§ 3.In event handler method for event USER_COMMAND: Query your
function codes defined in step 2 and react accordingly.
    data: lt_rows type lvc_t_row.
    case e_ucomm.
      when 'DELETE'.
        call method g_grid->get_selected_rows
                 importing et_index_rows = lt_rows.
DATA : WA_LT_ROWS LIKE LINE OF LT_ROWS.
LOOP AT LT_ROWS INTO WA_LT_ROWS.
DELETE I_ZFINAL INDEX WA_LT_ROWS-INDEX.
ENDLOOP.
ENDCASE.
call method g_grid->set_table_for_first_display
exporting
   I_BYPASSING_BUFFER            =
   I_BUFFER_ACTIVE               =
   I_CONSISTENCY_CHECK           =
   I_STRUCTURE_NAME              =
   IS_VARIANT                    =
   I_SAVE                        =
   I_DEFAULT                     = 'X'
     is_layout                     = g_layout
   IS_PRINT                      =
   IT_SPECIAL_GROUPS             =
    it_toolbar_excluding          = pt_exclude
   IT_HYPERLINK                  =
   IT_ALV_GRAPHICS               =
changing
    it_outtab                     = i_zFINAL
    it_fieldcatalog               = fieldcat
   IT_SORT                       =
   IT_FILTER                     =
exceptions
    invalid_parameter_combination = 1
    program_error                 = 2
    too_many_lines                = 3
    others                        = 4
LET ME KNOW THANKS

Hi guru's alv wit oops explain to me good example

hi guru's alv wit oops explain to me good example

Hi
What is Object Orientation?
In the past, information systems used to be defined primarily by their functionality: data and functions were kept separate and linked together by means of input and output relations.
The object-oriented approach, however, focuses on objects that represent abstract or concrete things of the real world. These objects are first defined by their character and their properties which are represented by their internal structure and their attributes (data). The behaviour of these objects is described by methods (functionality).
Objects form a capsule which combines the character to the respective behaviour. Objects should enable programmers to map a real problem and its proposed software solution on a one-to-one basis.
Typical objects in a business environment are, for example, Customer, Order, or Invoice. From Release 3.1 onwards, the Business Object Repository (BOR) of SAP Web Applicaton Server ABAP has contained examples of such objects. The BOR object model will be integrated into ABAP Objects in the next Release by migrating the BOR object types to the ABAP class library.
A comprehensive introduction to object orientation as a whole would go far beyond the limits of this introduction to ABAP Objects. This documentation introduces a selection of terms that are used universally in object orientation and also occur in ABAP Objects. In subsequent sections, it goes on to discuss in more detail how these terms are used in ABAP Objects. The end of this section contains a list of further reading, with a selection of titles about object orientation.
Objects
Objects are instances of classes. They contain data and provides services. The data forms the attributes of the object. The services are known as methods (also known as operations or functions). Typically, methods operate on private data (the attributes, or state of the object), which is only visible to the methods of the object. Thus the attributes of an object cannot be changed directly by the user, but only by the methods of the object. This guarantees the internal consistency of the object.
Classes
Classes describe objects. From a technical point of view, objects are runtime instances of a class. In theory, you can create any number of objects based on a single class. Each instance (object) of a class has a unique identity and its own set of values for its attributes.
Object References
In a program, you identify and address objects using unique object references. Object references allow you to access the attributes and methods of an object.
In object-oriented programming, objects usually have the following properties:
Encapsulation
Objects restrict the visibility of their resources (attributes and methods) to other users. Every object has an interface, which determines how other objects can interact with it. The implementation of the object is encapsulated, that is, invisible outside the object itself.
Inheritance
You can use an existing class to derive a new class. Derived classes inherit the data and methods of the superclass. However, they can overwrite existing methods, and also add new ones.
Polymorphism
Identical (identically-named) methods behave differently in different classes. In ABAP Objects, polymorphism is implemented by redefining methods during inheritance and by using constructs called interfaces.
Uses of Object Orientation
Below are some of the advantages of object-oriented programming:
· Complex software systems become easier to understand, since object-oriented structuring provides a closer representation of reality than other programming techniques.
· In a well-designed object-oriented system, it should be possible to implement changes at class level, without having to make alterations at other points in the system. This reduces the overall amount of maintenance required.
· Through polymorphism and inheritance, object-oriented programming allows you to reuse individual components.
· In an object-oriented system, the amount of work involved in revising and maintaining the system is reduced, since many problems can be detected and corrected in the design phase.
Achieving these goals requires:
· Object-oriented programming languages
Object-oriented programming techniques do not necessarily depend on object-oriented programming languages. However, the efficiency of object-oriented programming depends directly on how object-oriented language techniques are implemented in the system kernel.
· Object-oriented tools
Object-oriented tools allow you to create object-oriented programs in object-oriented languages. They allow you to model and store development objects and the relationships between them.
· Object-oriented modeling
The object-orientation modeling of a software system is the most important, most time-consuming, and most difficult requirement for attaining the above goals. Object-oriented design involves more than just object-oriented programming, and provides logical advantages that are independent of the actual implementation.
This section of the ABAP Users Guide provides an overview of the object-oriented extension of the ABAP language. We have used simple examples to demonstrate how to use the new features. However, these are not intended to be a model for object-oriented design. More detailed information about each of the ABAP Objects statements is contained in the keyword documentation in the ABAP Editor. For a comprehensive introduction to object-oriented software development, you should read one or more of the titles listed below.
ABAP supports a hybrid programming model. You can use an object-oriented ("OO") programming model based on classes and interfaces, and you can use the more classic procedural and event-driven programming model based on function modules, subroutines, dialog modules, and event blocks. Both models can be used in parallel. You can use classes inside classic processing blocks or you can call classic procedures from methods. In ABAP Objects, SAP has implemented a cleanup of the ABAP language. Within the scope of this language cleanup, stricter syntax checks are performed in classes that restrict the usage of obsolete language elements.
Object orientation in ABAP is an extension of the ABAP language that makes available the advantages of object-oriented programming, such as encapsulation, interfaces, and inheritance. This helps to simplify applications and make them more controllable.
ABAP Objects is fully compatible with the existing language, so you can use existing statements and modularization units in programs that use ABAP Objects, and can also use ABAP Objects in existing ABAP programs.
Check these links/people/thomas.jung3/blog/2005/09/08/oo-abap-dynpro-programming
/people/ravikumar.allampallam/blog/2005/02/11/abap-oo-in-action
This is good for beginners
/people/sap.user72/blog/2005/05/10/a-small-tip-for-the-beginners-in-oo-abap
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
http://www.sapgenie.com/abap/OO/
http://www.sapgenie.com/abap/OO/index.htm
http://www.sapgenie.com/abap/controls/index.htm
http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf
http://www.sapgenie.com/abap/OO/index.htm
http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
http://www.sapgenie.com/abap/OO/
these links
http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm
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
For Materials:
1) http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf -- Page no: 1291
2) http://esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt
3) http://esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf
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
1) http://www.erpgenie.com/sap/abap/OO/index.htm
2) http://help.sap.com/saphelp_nw04/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm
Sample code
*"Table declarations...................................................
TABLES:
EKKO, " Purchasing Document Header
CDHDR, " Change document header
SSCRFIELDS. " Fields on selection screens
*"Selection screen elements............................................
SELECT-OPTIONS:
S_EBELN FOR EKKO-EBELN, " Purchasing Document Number
S_LIFNR FOR EKKO-LIFNR, " Vendor's account number
S_EKGRP FOR EKKO-EKGRP, " Purchasing group
S_BEDAT FOR EKKO-BEDAT, " Purchasing Document Date
S_UDATE FOR CDHDR-UDATE. " Creation date of the change
" document
*" Data declarations...................................................
Field String to hold Purchase Document Number *
DATA:
BEGIN OF FS_EBELN,
EBELN(90) TYPE C, " Purchase Document Number
ERNAM TYPE EKKO-ERNAM, " Name of Person who Created
" the Object
LIFNR TYPE EKKO-LIFNR, " Vendor's account number
EKGRP TYPE EKKO-EKGRP, " Purchasing group
BEDAT TYPE EKKO-BEDAT, " Purchasing Document Date
END OF FS_EBELN,
Field String to hold Purchase Document Header *
BEGIN OF FS_EKKO,
EBELN TYPE EKKO-EBELN, " Purchasing Document Number
ERNAM TYPE EKKO-ERNAM, " Name of Person who Created the
" Object
LIFNR TYPE EKKO-LIFNR, " Vendor's account number
EKGRP TYPE EKKO-EKGRP, " Purchasing group
BEDAT TYPE EKKO-BEDAT, " Purchasing Document Date
END OF FS_EKKO,
Field String to hold Account Number and name of the Vendor *
BEGIN OF FS_LFA1,
LIFNR TYPE LFA1-LIFNR, " Account Number of Vendor
NAME1 TYPE LFA1-NAME1, " Name1
END OF FS_LFA1,
Field String to hold Change date and the name of the user *
BEGIN OF FS_CDHDR,
OBJECTCLAS TYPE CDHDR-OBJECTCLAS, " Object Class
OBJECTID TYPE CDHDR-OBJECTID, " Object value
CHANGENR TYPE CDHDR-CHANGENR, " Document change number
USERNAME TYPE CDHDR-USERNAME, " User name
UDATE TYPE CDHDR-UDATE, " Creation date of the change
" document
END OF FS_CDHDR,
Field String to hold Change document items *
BEGIN OF FS_CDPOS,
OBJECTCLAS TYPE CDPOS-OBJECTCLAS," Object class
OBJECTID(10) TYPE C, " Object Value
CHANGENR TYPE CDPOS-CHANGENR, " Document change number
TABNAME TYPE CDPOS-TABNAME, " Table Name
FNAME TYPE CDPOS-FNAME, " Field Name
VALUE_NEW TYPE CDPOS-VALUE_NEW, " New contents of changed field
VALUE_OLD TYPE CDPOS-VALUE_OLD, " Old contents of changed field
END OF FS_CDPOS,
Field String to hold Date Element Name *
BEGIN OF FS_DATAELE,
TABNAME TYPE DD03L-TABNAME, " Table Name
FIELDNAME TYPE DD03L-FIELDNAME, " Field Name
ROLLNAME TYPE DD03L-ROLLNAME, " Data element (semantic domain)
END OF FS_DATAELE,
Field String to hold Short Text of the Date Element *
BEGIN OF FS_TEXT,
ROLLNAME TYPE DD04T-ROLLNAME, " Data element (semantic domain)
DDTEXT TYPE DD04T-DDTEXT, " Short Text Describing R/3
" Repository Objects
END OF FS_TEXT,
Field String to hold data to be displayed on the ALV grid *
BEGIN OF FS_OUTTAB,
EBELN TYPE EKKO-EBELN, " Purchasing Document Number
ERNAM TYPE EKKO-ERNAM, " Name of Person who Created the
" Object
LIFNR TYPE EKKO-LIFNR, " Vendor's account number
EKGRP TYPE EKKO-EKGRP, " Purchasing group
BEDAT TYPE EKKO-BEDAT, " Purchasing Document Date
WERKS TYPE LFA1-WERKS, " Plant
NAME1 TYPE LFA1-NAME1, " Name1
USERNAME TYPE CDHDR-USERNAME, " User name
UDATE TYPE CDHDR-UDATE, " Creation date of the change
" document
DDTEXT TYPE DD04T-DDTEXT, " Short Text Describing R/3
" Repository Objects
VALUE_NEW TYPE CDPOS-VALUE_NEW, " New contents of changed field
VALUE_OLD TYPE CDPOS-VALUE_OLD, " Old contents of changed field
END OF FS_OUTTAB,
Internal table to hold Purchase Document Number *
T_EBELN LIKE STANDARD TABLE
OF FS_EBELN,
Internal table to hold Purchase Document Header *
T_EKKO LIKE STANDARD TABLE
OF FS_EKKO,
Temp Internal table to hold Purchase Document Header *
T_EKKO_TEMP LIKE STANDARD TABLE
OF FS_EKKO,
Internal table to hold Account number and Name of the Vendor *
T_LFA1 LIKE STANDARD TABLE
OF FS_LFA1,
Internal Table to hold Change date and the name of the user *
T_CDHDR LIKE STANDARD TABLE
OF FS_CDHDR,
Internal Table to hold Change document items *
T_CDPOS LIKE STANDARD TABLE
OF FS_CDPOS,
Temp. Internal Table to hold Change document items *
T_CDPOS_TEMP LIKE STANDARD TABLE
OF FS_CDPOS,
Internal Table to hold Data Element Name *
T_DATAELE LIKE STANDARD TABLE
OF FS_DATAELE,
Temp. Internal Table to hold Data Element Name *
T_DATAELE_TEMP LIKE STANDARD TABLE
OF FS_DATAELE,
Internal Table to hold Short Text of the Date Element *
T_TEXT LIKE STANDARD TABLE
OF FS_TEXT,
Internal Table to hold data to be displayed on the ALV grid *
T_OUTTAB LIKE STANDARD TABLE
OF FS_OUTTAB.
C L A S S D E F I N I T I O N *
CLASS LCL_EVENT_HANDLER DEFINITION DEFERRED.
*" Data declarations...................................................
Work variables *
DATA:
W_EBELN TYPE EKKO-EBELN, " Purchasing Document Number
W_LIFNR TYPE EKKO-LIFNR, " Vendor's account number
W_EKGRP TYPE EKKO-EKGRP, " Purchasing group
W_VALUE TYPE EKKO-EBELN, " Reflected Value
W_SPACE VALUE ' ', " Space
W_FLAG TYPE I, " Flag Variable
W_VARIANT TYPE DISVARIANT, " Variant
*--- ALV Grid
W_GRID TYPE REF TO CL_GUI_ALV_GRID,
*--- Event Handler
W_EVENT_CLICK TYPE REF TO LCL_EVENT_HANDLER,
*--- Field catalog table
T_FIELDCAT TYPE LVC_T_FCAT.
AT SELECTION-SCREEN EVENT *
AT SELECTION-SCREEN ON S_EBELN.
Subroutine to validate Purchase Document Number.
PERFORM VALIDATE_PD_NUM.
AT SELECTION-SCREEN ON S_LIFNR.
Subroutine to validate Vendor Number.
PERFORM VALIDATE_VEN_NUM.
AT SELECTION-SCREEN ON S_EKGRP.
Subroutine to validate Purchase Group.
PERFORM VALIDATE_PUR_GRP.
START-OF-SELECTION EVENT *
START-OF-SELECTION.
Subroutine to select all Purchase orders.
PERFORM SELECT_PO.
CHECK W_FLAG EQ 0.
Subroutine to select Object values.
PERFORM SELECT_OBJ_ID.
CHECK W_FLAG EQ 0.
Subroutine to select Changed values.
PERFORM SELECT_CHANGED_VALUE.
CHECK W_FLAG EQ 0.
Subroutine to Select Purchase Orders.
PERFORM SELECT_PUR_DOC.
Subroutine to select Vendor Details.
PERFORM SELECT_VENDOR.
Subroutine to select Text for the Changed values.
PERFORM DESCRIPTION.
END-OF-SELECTION EVENT *
END-OF-SELECTION.
IF NOT T_EKKO IS INITIAL.
Subroutine to populate the Output Table.
PERFORM FILL_OUTTAB.
Subroutine to build Field Catalog.
PERFORM PREPARE_FIELD_CATALOG CHANGING T_FIELDCAT.
CALL SCREEN 100.
ENDIF. " IF NOT T_EKKO...
CLASS LCL_EVENT_HANDLER DEFINITION
Defining Class which handles events
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
METHODS:
HANDLE_HOTSPOT_CLICK
FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
IMPORTING E_ROW_ID E_COLUMN_ID.
ENDCLASS. " LCL_EVENT_HANDLER DEFINITION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION
Implementing the Class which can handle events
CLASS LCL_EVENT_HANDLER IMPLEMENTATION .
*---Handle Double Click
METHOD HANDLE_HOTSPOT_CLICK .
Subroutine to get the HotSpot Cell information.
PERFORM GET_CELL_INFO.
SET PARAMETER ID 'BES' FIELD W_VALUE.
CALL TRANSACTION 'ME23N'.
ENDMETHOD. " HANDLE_HOTSPOT_CLICK
ENDCLASS. " LCL_EVENT_HANDLER
*& Module STATUS_0100 OUTPUT
PBO Event
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'OOPS'.
SET TITLEBAR 'TIT'.
Subroutine to fill the Variant Structure
PERFORM FILL_VARIANT.
IF W_GRID IS INITIAL.
CREATE OBJECT W_GRID
EXPORTING
I_SHELLSTYLE = 0
I_LIFETIME =
I_PARENT = CL_GUI_CONTAINER=>SCREEN0
I_APPL_EVENTS =
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =
I_FCAT_COMPLETE = SPACE
EXCEPTIONS
ERROR_CNTL_CREATE = 1
ERROR_CNTL_INIT = 2
ERROR_CNTL_LINK = 3
ERROR_DP_CREATE = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF. " IF SY-SUBRC <> 0
CALL METHOD W_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT = W_VARIANT
I_SAVE = 'A'
I_DEFAULT = 'X'
IS_LAYOUT =
IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =
IR_SALV_ADAPTER =
CHANGING
IT_OUTTAB = T_OUTTAB
IT_FIELDCATALOG = T_FIELDCAT
IT_SORT =
IT_FILTER =
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 3
OTHERS = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF. " IF SY-SUBRC <> 0.
ENDIF. " IF W_GRID IS INITIAL
CREATE OBJECT W_EVENT_CLICK.
SET HANDLER W_EVENT_CLICK->HANDLE_HOTSPOT_CLICK FOR W_GRID.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
PAI Event
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form PREPARE_FIELD_CATALOG
Subroutine to build the Field catalog
<--P_T_FIELDCAT Field Catalog Table
FORM PREPARE_FIELD_CATALOG CHANGING PT_FIELDCAT TYPE LVC_T_FCAT .
DATA LS_FCAT TYPE LVC_S_FCAT.
Purchasing group...
LS_FCAT-FIELDNAME = 'EKGRP'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Purchasing Document Number...
LS_FCAT-FIELDNAME = 'EBELN'.
LS_FCAT-REF_TABLE = 'EKKO' .
LS_FCAT-EMPHASIZE = 'C411'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-HOTSPOT = 'X'.
APPEND LS_FCAT TO PT_FIELDCAT .
CLEAR LS_FCAT .
Name of Person who Created the Object...
LS_FCAT-FIELDNAME = 'ERNAM'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-OUTPUTLEN = '15' .
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Purchasing Document Date...
LS_FCAT-FIELDNAME = 'BEDAT'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Vendor's account number...
LS_FCAT-FIELDNAME = 'LIFNR'.
LS_FCAT-REF_TABLE = 'EKKO'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Account Number of Vendor or Creditor...
LS_FCAT-FIELDNAME = 'NAME1'.
LS_FCAT-REF_TABLE = 'LFA1'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-COLTEXT = 'Vendor Name'(001).
LS_FCAT-SELTEXT = 'Vendor Name'(001).
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Creation date of the change document...
LS_FCAT-FIELDNAME = 'UDATE'.
LS_FCAT-REF_TABLE = 'CDHDR'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-COLTEXT = 'Change Date'(002).
LS_FCAT-SELTEXT = 'Change Date'(002).
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
User name of the person responsible in change document...
LS_FCAT-FIELDNAME = 'USERNAME'.
LS_FCAT-REF_TABLE = 'CDHDR'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '10'.
LS_FCAT-COLTEXT = 'Modified by'(003).
LS_FCAT-SELTEXT = 'Modified by'(003).
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Short Text Describing R/3 Repository Objects...
LS_FCAT-FIELDNAME = 'DDTEXT'.
LS_FCAT-REF_TABLE = 'DD04T'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '15'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
Old contents of changed field...
LS_FCAT-FIELDNAME = 'VALUE_OLD'.
LS_FCAT-REF_TABLE = 'CDPOS'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '12'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
New contents of changed field...
LS_FCAT-FIELDNAME = 'VALUE_NEW'.
LS_FCAT-REF_TABLE = 'CDPOS'.
LS_FCAT-INTTYPE = 'C'.
LS_FCAT-OUTPUTLEN = '12'.
APPEND LS_FCAT TO PT_FIELDCAT.
CLEAR LS_FCAT.
ENDFORM. " PREPARE_FIELD_CATALOG
*& Form SELECT_PO
Subroutine to select all the Purchase Orders
There are no interface parameters to be passed to this subroutine.
FORM SELECT_PO .
SELECT EBELN " Purchasing Document Number
ERNAM " Name of Person who Created
" the Object
LIFNR " Vendor's account number
EKGRP " Purchasing group
BEDAT " Purchasing Document Date
FROM EKKO
PACKAGE SIZE 10000
APPENDING TABLE T_EBELN
WHERE EBELN IN S_EBELN
AND BEDAT IN S_BEDAT.
ENDSELECT.
IF SY-SUBRC NE 0.
W_FLAG = 1.
MESSAGE S401(M8).
ENDIF. " IF SY-SUBRC NE 0
ENDFORM. " SELECT_PO
*& Form SELECT_OBJ_ID
Subroutine to select Object ID
There are no interface parameters to be passed to this subroutine.
FORM SELECT_OBJ_ID .
IF NOT T_EBELN IS INITIAL.
SELECT OBJECTCLAS " Object Class
OBJECTID " Object value
CHANGENR " Document change number
USERNAME " User name
UDATE " Creation date
FROM CDHDR
INTO TABLE T_CDHDR
FOR ALL ENTRIES IN T_EBELN
WHERE OBJECTID EQ T_EBELN-EBELN
AND UDATE IN S_UDATE
AND TCODE IN ('ME21N','ME22N','ME23N').
ENDSELECT.
IF SY-SUBRC NE 0.
W_FLAG = 1.
MESSAGE S833(M8) WITH 'Header Not Found'(031).
ENDIF. " IF SY-SUBRC NE 0.
ENDIF. " IF NOT T_EBELN IS INITIAL
ENDFORM. " SELECT_OBJ_ID
*& Form SELECT_CHANGED_VALUE
Subroutine to select Changed Values
There are no interface parameters to be passed to this subroutine.
FORM SELECT_CHANGED_VALUE .
IF NOT T_CDHDR IS INITIAL.
SELECT OBJECTCLAS " Object class
OBJECTID " Object value
CHANGENR " Document change number
TABNAME " Table Name
FNAME " Field Name
VALUE_NEW " New contents of changed field
VALUE_OLD " Old contents of changed field
FROM CDPOS
PACKAGE SIZE 10000
APPENDING TABLE T_CDPOS
FOR ALL ENTRIES IN T_CDHDR
WHERE OBJECTCLAS EQ T_CDHDR-OBJECTCLAS
AND OBJECTID EQ T_CDHDR-OBJECTID
AND CHANGENR EQ T_CDHDR-CHANGENR.
ENDSELECT.
IF SY-SUBRC NE 0.
W_FLAG = 1.
MESSAGE S833(M8) WITH 'Item Not Found'(032).
ENDIF. " IF SY-SUBRC NE 0.
ENDIF. " IF NOT T_CDHDR IS INITIAL
T_CDPOS_TEMP[] = T_CDPOS[].
ENDFORM. " SELECT_CHANGED_VALUE
*& Form SELECT_PUR_DOC
Subroutine to select Purchase Order Details
There are no interface parameters to be passed to this subroutine.
FORM SELECT_PUR_DOC .
IF NOT T_CDPOS IS INITIAL.
SORT T_EBELN BY EBELN.
LOOP AT T_CDPOS INTO FS_CDPOS.
READ TABLE T_EBELN INTO FS_EBELN WITH KEY EBELN =
FS_CDPOS-OBJECTID BINARY SEARCH.
IF SY-SUBRC NE 0.
DELETE TABLE T_EBELN FROM FS_EBELN.
ENDIF. " IF SY-SUBRC NE 0.
ENDLOOP. " LOOP AT T_CDPOS...
LOOP AT T_EBELN INTO FS_EBELN.
MOVE FS_EBELN-EBELN TO FS_EKKO-EBELN.
MOVE FS_EBELN-ERNAM TO FS_EKKO-ERNAM.
MOVE FS_EBELN-LIFNR TO FS_EKKO-LIFNR.
MOVE FS_EBELN-EKGRP TO FS_EKKO-EKGRP.
MOVE FS_EBELN-BEDAT TO FS_EKKO-BEDAT.
APPEND FS_EKKO TO T_EKKO.
ENDLOOP. " LOOP AT T_EBELN...
T_EKKO_TEMP[] = T_EKKO[].
ENDIF. " IF NOT T_CDPOS IS INITIAL
ENDFORM. " SELECT_PUR_DOC
*& Form SELECT_VENDOR
Subroutine to select Vendor details
There are no interface parameters to be passed to this subroutine.
FORM SELECT_VENDOR .
IF NOT T_EKKO IS INITIAL.
SORT T_EKKO_TEMP BY LIFNR.
DELETE ADJACENT DUPLICATES FROM T_EKKO_TEMP COMPARING LIFNR.
SELECT LIFNR " Account Number of Vendor or
" Creditor
NAME1 " Name 1
FROM LFA1
INTO TABLE T_LFA1
FOR ALL ENTRIES IN T_EKKO_TEMP
WHERE LIFNR EQ T_EKKO_TEMP-LIFNR.
IF SY-SUBRC NE 0.
MESSAGE S002(M8) WITH 'Master Details'(033).
ENDIF. " IF SY-SUBRC NE 0.
ENDIF. " IF NOT T_EKKO IS INITIAL
ENDFORM. " SELECT_VENDOR
*& Form DESCRIPTION
Subroutine to get the description
There are no interface parameters to be passed to this subroutine.
FORM DESCRIPTION .
IF NOT T_CDPOS IS INITIAL.
SORT T_CDPOS_TEMP BY TABNAME FNAME.
DELETE ADJACENT DUPLICATES FROM T_CDPOS_TEMP COMPARING TABNAME FNAME
SELECT TABNAME " Table Name
FIELDNAME " Field Name
ROLLNAME " Data element
FROM DD03L
INTO TABLE T_DATAELE
FOR ALL ENTRIES IN T_CDPOS_TEMP
WHERE TABNAME EQ T_CDPOS_TEMP-TABNAME
AND FIELDNAME EQ T_CDPOS_TEMP-FNAME.
IF NOT T_DATAELE IS INITIAL.
T_DATAELE_TEMP[] = T_DATAELE[].
SORT T_DATAELE_TEMP BY ROLLNAME.
DELETE ADJACENT DUPLICATES FROM T_DATAELE_TEMP COMPARING ROLLNAME.
SELECT ROLLNAME " Data element
DDTEXT " Short Text Describing R/3
" Repository Objects
FROM DD04T
INTO TABLE T_TEXT
FOR ALL ENTRIES IN T_DATAELE_TEMP
WHERE ROLLNAME EQ T_DATAELE_TEMP-ROLLNAME
AND DDLANGUAGE EQ SY-LANGU.
IF SY-SUBRC NE 0.
EXIT.
ENDIF. " IF SY-SUBRC NE 0.
ENDIF. " IF NOT T_DATAELE IS INITIAL.
ENDIF. " IF NOT T_CDPOS IS INITIAL.
ENDFORM. " DESCRIPTION
*& Form FILL_OUTTAB
Subroutine to populate the Outtab
There are no interface parameters to be passed to this subroutine.
FORM FILL_OUTTAB .
SORT T_CDHDR BY OBJECTCLAS OBJECTID CHANGENR.
SORT T_EKKO BY EBELN.
SORT T_LFA1 BY LIFNR.
SORT T_DATAELE BY TABNAME FIELDNAME.
SORT T_TEXT BY ROLLNAME.
LOOP AT T_CDPOS INTO FS_CDPOS.
READ TABLE T_CDHDR INTO FS_CDHDR WITH KEY
OBJECTCLAS = FS_CDPOS-OBJECTCLAS
OBJECTID = FS_CDPOS-OBJECTID
CHANGENR = FS_CDPOS-CHANGENR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE FS_CDHDR-USERNAME TO FS_OUTTAB-USERNAME.
MOVE FS_CDHDR-UDATE TO FS_OUTTAB-UDATE.
READ TABLE T_EKKO INTO FS_EKKO WITH KEY
EBELN = FS_CDHDR-OBJECTID
BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE FS_EKKO-EBELN TO FS_OUTTAB-EBELN.
MOVE FS_EKKO-ERNAM TO FS_OUTTAB-ERNAM.
MOVE FS_EKKO-LIFNR TO FS_OUTTAB-LIFNR.
MOVE FS_EKKO-EKGRP TO FS_OUTTAB-EKGRP.
MOVE FS_EKKO-BEDAT TO FS_OUTTAB-BEDAT.
READ TABLE T_LFA1 INTO FS_LFA1 WITH KEY
LIFNR = FS_EKKO-LIFNR
BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE FS_LFA1-NAME1 TO FS_OUTTAB-NAME1.
ENDIF. " IF SY-SUBRC EQ 0.
ENDIF. " IF SY-SUBRC EQ 0.
ENDIF. " IF SY-SUBRC EQ 0.
MOVE FS_CDPOS-VALUE_NEW TO FS_OUTTAB-VALUE_NEW.
MOVE FS_CDPOS-VALUE_OLD TO FS_OUTTAB-VALUE_OLD.
READ TABLE T_DATAELE INTO FS_DATAELE WITH KEY
TABNAME = FS_CDPOS-TABNAME
FIELDNAME = FS_CDPOS-FNAME
BINARY SEARCH.
IF SY-SUBRC EQ 0.
READ TABLE T_TEXT INTO FS_TEXT WITH KEY
ROLLNAME = FS_DATAELE-ROLLNAME
BINARY SEARCH.
IF SY-SUBRC EQ 0.
MOVE FS_TEXT-DDTEXT TO FS_OUTTAB-DDTEXT.
ENDIF. " IF SY-SUBRC EQ 0.
ENDIF. " IF SY-SUBRC EQ 0.
APPEND FS_OUTTAB TO T_OUTTAB.
CLEAR FS_OUTTAB.
ENDLOOP.
ENDFORM. " FILL_OUTTAB
*& Form GET_CELL_INFO
Subroutine to get the Cell Information
--> W_VALUE Holds the value of Hotspot clicked
FORM GET_CELL_INFO .
CALL METHOD W_GRID->GET_CURRENT_CELL
IMPORTING
E_ROW =
E_VALUE = W_VALUE
E_COL =
ES_ROW_ID =
ES_COL_ID =
ES_ROW_NO =
ENDFORM. " GET_CELL_INFO
*& Form VALIDATE_PD_NUM
Subroutine to validate Purchase Document Number
There are no interface parameters to be passed to this subroutine.
FORM VALIDATE_PD_NUM .
IF NOT S_EBELN[] IS INITIAL.
SELECT EBELN " Purchase Document Number
FROM EKKO
INTO W_EBELN
UP TO 1 ROWS
WHERE EBELN IN S_EBELN.
ENDSELECT.
IF SY-SUBRC NE 0.
CLEAR SSCRFIELDS-UCOMM.
MESSAGE E717(M8).
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_EBELN[]...
ENDFORM. " VALIDATE_PD_NUM
*& Form VALIDATE_VEN_NUM
Subroutine to validate Vendor Number
There are no interface parameters to be passed to this subroutine.
FORM VALIDATE_VEN_NUM .
IF NOT S_LIFNR[] IS INITIAL.
SELECT LIFNR " Vendor Number
FROM LFA1
INTO W_LIFNR
UP TO 1 ROWS
WHERE LIFNR IN S_LIFNR.
ENDSELECT.
IF SY-SUBRC NE 0.
CLEAR SSCRFIELDS-UCOMM.
MESSAGE E002(M8) WITH W_SPACE.
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_LIFNR[]...
ENDFORM. " VALIDATE_VEN_NUM
*& Form VALIDATE_PUR_GRP
Subroutine to validate the Purchase Group
There are no interface parameters to be passed to this subroutine.
FORM VALIDATE_PUR_GRP .
IF NOT S_EKGRP[] IS INITIAL.
SELECT EKGRP " Purchase Group
FROM T024
INTO W_EKGRP
UP TO 1 ROWS
WHERE EKGRP IN S_EKGRP.
ENDSELECT.
IF SY-SUBRC NE 0.
CLEAR SSCRFIELDS-UCOMM.
MESSAGE E622(M8) WITH W_SPACE.
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_EKFRP[]...
ENDFORM. " VALIDATE_PUR_GRP
*& Form FILL_VARIANT
Subroutine to fill the Variant Structure
There are no interface parameters to be passed to this subroutine
FORM FILL_VARIANT .
Filling the Variant structure
W_VARIANT-REPORT = SY-REPID.
W_VARIANT-USERNAME = SY-UNAME.
ENDFORM. " FILL_VARIANT
Check my previous links
Regards
Pavan

Scrolling Issue with Yoga 3 Pro

Hi guys,
Got myself a yoga 3 pro and i really like it! It has got a few issues though... The one currently frustrating me the most is shown in the following video:
Scrolling Issue
Google Chrome somehow doesn't work well on this laptop. As you can see the UI renders in funny angles, then sometimes even stays like that after scrolling. But this mostly just happens while scrolling and then when the scrolling is complete, it renders fine again, particularly on longer webpages and PDF's. Also the scrolling itself is very laggy and sometimes not responsive, although this might also be the touchpad not reacting that well - I have to say i had a macbook pro before this and that touchpad is unbeatable (the rest is **bleep** hehe).
I couldnt reproduce the same issues on Internet Explorer (somehow no surprise, it being a windows thing and all). Firefox has laggy scrolling but almost no rendering issues of the same kind (when used heavily, it also happens though). When used heavily (high cpu usage) i even experienced this issue briefly in the windows explorer.
Now I'm not just here to complain, as I said before the laptop is great in general, just hoping there is a solution or awareness regarding the scrolling issue.
Thank you.
Regards

Haven't seen that on my Y3P, *but* I agree that the trackpad is just horrible compared with Mac trackpads, or even with the Logitech T650. As for Chrome, indeed it works OK with touch but not so great with the trackpad. In general, IE works better, looks nicer, and uses less power---but it's noticeably slower.

How to get Subtotal text in ALV using OOPS

hi,
Can any one pls help me out getting subtotals text in ALV using OOPS concepts....Pls provide me if any of u have sample code for that......
my code:
data:gr_grid_d0100 type ref to cl_gui_alv_grid.
data : gr_events_d0100 type ref to lcl_events_d0100.
classes**********
class lcl_events_d0100 definition.
public section.
 methods:
subtotal_text for event subtotal_text
 of cl_gui_alv_grid
 importing es_subtottxt_info
 ep_subtot_line
 e_event_data.
endclass.
class lcl_events_d0100 implementation.
method subtotal_text.
 perform d0100_event_subtotal_text using es_subtottxt_info
ep_subtot_line
e_event_data.
endmethod. "subtotal_text
endclass.
data : gr_event_handler type ref to lcl_events_d0100.
SET HANDLER gr_event_handler->subtotal_text FOR wcl_alv_grid_request
FORM d0100_event_subtotal_text USING
 es_subtottxt_info TYPE LVC_S_STXT
 ep_subtot_line TYPE REF TO data
 e_event_data TYPE REF TO cl_alv_event_data.
DATA: l_text TYPE string.
l_text = es_subtottxt_info.
FIELD-SYMBOLS: <fs> TYPE ANY.
ASSIGN e_event_data->m_data->* TO <fs>.
 <fs> = text-007.

hi vijay
check this code
if you want to use field symbols.
data: total type ref to data,
subtotal1 type ref to data.
field-symbols <total> like gt_sflight.
field-symbols <subtotal1> like gt_sflight.
call method grid1->get_subtotals
importing
ep_collect00 = total
ep_collect01 = subtotal1.
assign total->* to <total>.
assign subtotal1->* to <subtotal1>.
or u can use
U have to do the subtotal column wise.In the field catalog specify the following in addition to the corresponding field name(i.e. Column)
DATA ls_fcat TYPE lvc_s_fcat.
ls_fcat-do_sum = 'X'.
Hope this helps u out.
Thanks & Regards,
naveen

END-OF-PAGE in ALV using OOPS

Hello ,
Can anyone let me know how to trigger the END-of-page event in ALV using OOPs.
Thanks in advance.
Regards
Jai

Hello Pratuysh,
Thanks for the answer
I know that report,but that doesn't help me.
Any other way
Thanks
Jai

Int-ALV with OOPS

when i am going from 1st detail list to basic list and choosing another sales order number i am geting the previous data instead of data according to new sales order number.
i have tried in ECC5.0 and also in 4.7EE.Plz Help me.
The code is as follows
*& Report ZAP_OOPS_ALV_2
*& Interactive alv with oops.
REPORT zap_oops_alv_2 MESSAGE-ID zapmsg.
*& Structure Declaration
Structure Declaration for sales order header data
TYPES: BEGIN OF ty_vbak,
 vbeln TYPE vbeln_va, "Sales Ord Num
 vkorg TYPE vkorg, "Sales Org
 vkgrp TYPE vkgrp, "Sales Grp
 kunnr TYPE kunnr, "Customer
 END OF ty_vbak,
Structure Declaration for sales order item data
 BEGIN OF ty_vbap,
 vbeln TYPE vbeln_va, "Sales Ord Num
 posnr TYPE posnr, "Sales item
 matnr TYPE matnr, "Material Num
 matkl TYPE matkl, "Material Grp
 netwr TYPE netwr, "Net values
 END OF ty_vbap,
Structure Declaration for customer data
 BEGIN OF ty_kna1,
 kunnr TYPE kunnr, "Customer
 name1 TYPE name1, "Name
 ort01 TYPE ort01, "City
 pstlz TYPE pstlz, "Postal code
 regio TYPE regio, "State
 END OF ty_kna1,
Structure declaration for final output
 BEGIN OF ty_output,
 vbeln TYPE vbeln_va, "Sales Ord Num
 vkorg TYPE vkorg, "Sales Org
 vkgrp TYPE vkgrp, "Sales Grp
 kunnr TYPE kunnr, "Customer
 name1 TYPE name1, "Name
 ort01 TYPE ort01, "City
 pstlz TYPE pstlz, "Postal code
 regio TYPE regio, "State
 posnr TYPE posnr, "Sales item
 matnr TYPE matnr, "Material Num
 matkl TYPE matkl, "Material Grp
 netwr TYPE netwr, "Net values
 END OF ty_output.
*& Internal table Declaration
DATA: t_vbak TYPE STANDARD TABLE OF ty_vbak INITIAL SIZE 0,
 t_vbap TYPE STANDARD TABLE OF ty_vbap INITIAL SIZE 0,
 t_kna1 TYPE STANDARD TABLE OF ty_kna1 INITIAL SIZE 0,
 t_output TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,
 t_vbep TYPE STANDARD TABLE OF vbep INITIAL SIZE 0,
*& Work Area Declaration
w_vbak TYPE ty_vbak,
w_vbap TYPE ty_vbap,
w_kna1 TYPE ty_kna1,
w_output TYPE ty_output,
w_vbep TYPE vbep,
g_flag TYPE char1,
g_vbeln TYPE vbak-vbeln.
Alv Declarations
DATA:g_custom_container1 TYPE REF TO cl_gui_custom_container,
 g_custom_container2 TYPE REF TO cl_gui_custom_container,
 g_grid1 TYPE REF TO cl_gui_alv_grid,
 g_grid2 TYPE REF TO cl_gui_alv_grid,
 w_fieldcat TYPE lvc_s_fcat,
 t_fieldcat TYPE lvc_t_fcat.
*& Selection Screen Declaration
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECT-OPTIONS:s_vbeln FOR g_vbeln.
SELECTION-SCREEN END OF BLOCK b1.
 CLASS handle DEFINITION
CLASS handle DEFINITION.
PUBLIC SECTION.
 CLASS-METHODS:click FOR EVENT double_click OF cl_gui_alv_grid
 IMPORTING e_row.
ENDCLASS. "handle DEFINITION
 CLASS handle IMPLEMENTATION
CLASS handle IMPLEMENTATION.
METHOD click.
 CLEAR w_output.
 READ TABLE t_output INTO w_output INDEX e_row.
 CLEAR e_row.
 REFRESH t_vbep.
 SELECT *
 FROM vbep
 INTO TABLE t_vbep
 WHERE vbeln = w_output-vbeln.
 CREATE OBJECT g_custom_container2
 EXPORTING
 container_name = 'GRID2'.
 CREATE OBJECT g_grid2
 EXPORTING
 i_parent = g_custom_container2.
 CALL SCREEN 200.
ENDMETHOD. "click
ENDCLASS. "handle IMPLEMENTATION
DATA: g_handle TYPE REF TO handle.
 CLASS main DEFINITION
CLASS main DEFINITION.
PUBLIC SECTION.
 METHODS:get_vbak,
 get_vbap,
 get_kna1,
 disp_output,
 validate_vbeln,
 display_alv.
ENDCLASS. "main DEFINITION
 CLASS main IMPLEMENTATION
CLASS main IMPLEMENTATION.
Method declaration for getting vbak data
METHOD get_vbak.
 SELECT vbeln
 vkorg
 vkgrp
 kunnr
 FROM vbak
 INTO TABLE t_vbak
 WHERE vbeln IN s_vbeln.
ENDMETHOD. "get_vbak
Method Declaration for getting VBAP data
METHOD get_vbap.
 SELECT vbeln
 posnr
 matnr
 matkl
 netwr
 FROM vbap
 INTO TABLE t_vbap
 FOR ALL ENTRIES IN t_vbak
 WHERE vbeln = t_vbak-vbeln.
ENDMETHOD. "get_vbap
Method Declaration for getting KNA1 data
METHOD get_kna1.
 SELECT kunnr
 name1
 ort01
 pstlz
 regio
 FROM kna1
 INTO TABLE t_kna1
 FOR ALL ENTRIES IN t_vbak
 WHERE kunnr = t_vbak-kunnr.
ENDMETHOD. "get_kna1
Method Declaration for displaying the output
METHOD disp_output.
 LOOP AT t_vbap INTO w_vbap.
 w_output-vbeln = w_vbap-vbeln.
 w_output-posnr = w_vbap-posnr.
 w_output-matnr = w_vbap-matnr.
 w_output-matkl = w_vbap-matkl.
 w_output-netwr = w_vbap-netwr.
 CLEAR w_vbak.
 READ TABLE t_vbak INTO w_vbak WITH KEY vbeln = w_vbap-vbeln.
 IF sy-subrc = 0.
 w_output-vkorg = w_vbak-vkorg.
 w_output-vkgrp = w_vbak-vkgrp.
 w_output-kunnr = w_vbak-kunnr.
 ENDIF.
 CLEAR w_kna1.
 READ TABLE t_kna1 INTO w_kna1 WITH KEY kunnr = w_vbak-kunnr.
 IF sy-subrc = 0.
 w_output-name1 = w_kna1-name1.
 w_output-ort01 = w_kna1-ort01.
 w_output-pstlz = w_kna1-pstlz.
 w_output-regio = w_kna1-regio.
 ENDIF.
 APPEND w_output TO t_output.
 CLEAR w_output.
 ENDLOOP.
ENDMETHOD. "disp_output
METHOD validate_vbeln.
 DATA:l_vbeln TYPE vbeln_va.
 SELECT SINGLE vbeln
 FROM vbak
 INTO l_vbeln
 WHERE vbeln IN s_vbeln.
 IF sy-subrc <> 0.
 MESSAGE e001.
 ENDIF.
ENDMETHOD. "validate_vbeln
METHOD display_alv.
 CREATE OBJECT g_custom_container1
 EXPORTING
 container_name = 'GRID1'.
 CREATE OBJECT g_grid1
 EXPORTING
 i_parent = g_custom_container1.
 SET HANDLER g_handle->click FOR g_grid1.
 w_fieldcat-col_pos = 1.
 w_fieldcat-fieldname = 'VBELN'.
 w_fieldcat-scrtext_m = 'Sales Ord'.
 APPEND w_fieldcat TO t_fieldcat.
 CLEAR w_fieldcat.
 w_fieldcat-col_pos = 2.
 w_fieldcat-fieldname = 'POSNR'.
 w_fieldcat-scrtext_m = 'Sales Item'.
 APPEND w_fieldcat TO t_fieldcat.
 CLEAR w_fieldcat.
 w_fieldcat-col_pos = 3.
 w_fieldcat-fieldname = 'MATNR'.
 w_fieldcat-scrtext_m = 'Material'.
 APPEND w_fieldcat TO t_fieldcat.
 CLEAR w_fieldcat.
 w_fieldcat-col_pos = 4.
 w_fieldcat-fieldname = 'VKORG'.
 w_fieldcat-scrtext_m = 'Sale Org'.
 APPEND w_fieldcat TO t_fieldcat.
 CLEAR w_fieldcat.
 w_fieldcat-col_pos = 5.
 w_fieldcat-fieldname = 'KUNNR'.
 w_fieldcat-scrtext_m = 'Customer'.
 APPEND w_fieldcat TO t_fieldcat.
 CLEAR w_fieldcat.
 CALL SCREEN 100.
ENDMETHOD. "display_alv
ENDCLASS. "main IMPLEMENTATION
DATA:g_main TYPE REF TO main.
Selection SELECTION EVENT
AT SELECTION-SCREEN.
*Create the object
CREATE OBJECT g_main.
CALL METHOD g_main->validate_vbeln.
Start of selection EVENT
START-OF-SELECTION.
CALL METHOD g_main->get_vbak .
CALL METHOD g_main->get_vbap.
CALL METHOD g_main->get_kna1.
CALL METHOD g_main->disp_output.
CALL METHOD g_main->display_alv.
*& Module STATUS_0100 OUTPUT
 text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'MENU'.
SET TITLEBAR 'xxx'.
CALL METHOD g_grid1->set_table_for_first_display
 CHANGING
 it_outtab = t_output
 it_fieldcatalog = t_fieldcat.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module STATUS_0200 OUTPUT
 text
MODULE status_0200 OUTPUT.
SET PF-STATUS 'MENU1'.
SET TITLEBAR 'xxx'.
CALL METHOD g_grid2->set_table_for_first_display
 EXPORTING
 i_structure_name = 'VBEP'
 CHANGING
 it_outtab = t_vbep.
ENDMODULE. " STATUS_0200 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module USER_COMMAND_0200 INPUT
 text
MODULE user_command_0200 INPUT.
CASE sy-ucomm.
 WHEN 'BACK'.
 g_flag = 'X'.
 REFRESH t_vbep.
 SET HANDLER g_handle->click FOR g_grid1.
 CALL METHOD g_main->display_alv.
 CALL SCREEN 100.
 LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 100.
 LEAVE TO SCREEN 0 .
 SET SCREEN 100. LEAVE SCREEN.
 WHEN 'EXIT'.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT

Hi Srikar,
 In OOPS ALV, we first define screen then we define container on screen. Container means area on screen where you'll be placing your ALV.
CREATE OBJECT r_cont
 EXPORTING
 container_name = 'CONTAINER_1' " Container name
 EXCEPTIONS
 OTHERS = 6
Now you assign reference of container to your grid. grid defines structure of your ALV.
CREATE OBJECT r_grid
 EXPORTING
 i_parent = r_cont
 EXCEPTIONS
 OTHERS = 5
Now you call the method set_table_for_first_display of class cl_gui_alv_grid to define fieldcatalog, internal table etc. to display ALV. The reason behind using MODULE is that screen logic is always defined in MODULES. If the user is interacting with screen then screen logic will be defined in PAI of screen.
One more thing is that in normal ALV you don't define screen and container. That means ALV will always be displayed at system defined place, but in OOP ALV, you define container(area) to define the place for your ALV.
The advantage which I found in OOP ALV is that it is more flexible to use.
Regards
Abhijeet

Scroll issue OS 10.9.2

someone else has spotted a scrolling issue on Safari, Preview of pdf files and every animation (from the dock to switching desktop)? what I mean: it seams like "twitching" and is very frustrating to deal with it.
is it possible to solve it?

I often see this because horizontal scrolling will move back and forward in a browser (like clicking the forward and/or back buttons). This often appears as twitchiness. Try to observe if this is the case when you experience this.

Can any provide me problem issues on ABAP dictionary for practice?

Or any one can tell me the links in which problem issues on ABAP dictionary is there?
Moderator message : Don't ask for links & solution to vague requirements. Thread locked.
Edited by: Vinod Kumar on Jun 14, 2011 9:36 AM

Hi jessculter,
Thanks for your post.
I am sorry to hear about the problems you have been having lately.
Please send me in your details using the "Contact The Mods" link found in my profile and I will take it from there.
Cheers,
OlgaC
BTCare Community Mod
If we have asked you to email us with your details, please make sure you are logged in to the forum, otherwise you will not be able to see our ‘Contact Us’ link within our profiles.
We are sorry that we are unable to deal with service/account queries via the private message(PM) function so please don't PM your account info, we need to deal with this via our email account :-)
If someone answers your question correctly please let other members know by clicking on ’Mark as Accepted Solution’.

Horizontal Scroll in ALV Trees

Is it possible to have horizontal scrolling in ALV Trees ,
If possible suggest please.

With the current version of VC there is no horizontal scroll bar in the Flex tables possible.

Header in ALV using Oops

I need to display Table header in ALV using Oops.
I need to data from 8 fields which I get in the run time of the program.
I am new to Oops ALV, I have done a similar thing in normal ALV but not in oops.
Detailed info required, Custom container settings as well.
Thanks in Advance

see this weblog TOP_OF_PAGE in ALV Using CL_GUI_ALV_GRID

Scrolling Issue - ALV- ABAP OOPS!

Similar Messages

Maybe you are looking for