Introduction: THE DOCUMENT ELABORATES THE STEP BY STEP PROCESS TO USE TABSTRIP TOOLS AND ASSISTANCE CLASS.


1.      Technical Design


1.1.     Developing Application:


  • Create a Webdynpro Application from Transaction Code: Se80.


       Capture.JPG


1.2.     View Designing:

  • Go to the Main View and create a Group element in the Route Element Container.


          Capture.JPG


  • Take two Tray elements in the Group and take two Captions and Input Fields in the trays simultaneously.


          Capture.JPG


  • Create two Labels and input fields in the respective trays.


          Capture.JPG


  • Create another group to display the outputs in the Tab Strip.

          Capture.JPG

  • Create a Tab Strip inside the second Group.

          Capture.JPG

  • Right Click on the Tab Strip and click on Insert tab. Create two tabs and change the captions of the tabs as: “Material Details” and “Plant Details”.


          Capture.JPG


  • Now, go to the two tabs of the tab strip simultaneously, and add the table element to each of them for displaying the details tables and bind them with the respective nodes for display.


       Capture.JPG

          Capture.JPG

1.3.     Component Controller Designing and Context Mapping:


         

  • Now, go to the Component Controller of the application and create the node and take the attributes from the structure for the input fields as well as the table for the output screen.


          Capture.JPG

           Capture.JPG

  • Now create the nodes for the result data for the material and plant details and fill up nodes with the attributes, those are to be displayed.


          Capture.JPG


          Capture.JPG


  • Finally the context node will look like:


          Capture.JPG


              

  • Now go to the main view and navigate to the context tab and make the context mapping.


          Capture.JPG


1.4.     Value Mapping to the Input Fields and Tables from the View Controller:


  • Now go to the Layout tab and select the input fields and map them with the context attributes using the value property.


          Capture.JPG


          Capture.JPG


1.5.     Creation of Push Button and Action of the button:

Once the user will provide the input to the respective input fields and press the Search Button, it will call the Assistance class and fetch the data from the Database table and display the output to the tables of the respective tab strips.


  • Take a button and for searching the material details:


          Capture.JPG


  • Now, create an action for the “OnAction” event of the button and write the code inside the same.


          Capture.JPG


          Capture.JPG


1.6.     Code for the Action Button:


method ONACTIONSEARCH_DETAILS .

*************************************************************************
*****************         Material Number             *******************
*************************************************************************
DATA lo_nd_material_number TYPE REF TO if_wd_context_node.

DATA lo_el_material_number TYPE REF TO if_wd_context_element.
DATA ls_material_number TYPE wd_this->element_material_number.

DATA lo_nd_plants TYPE REF TO if_wd_context_node.

DATA lo_el_plants TYPE REF TO if_wd_context_element.
DATA ls_plants TYPE wd_this->element_plants.

DATA: it_material       TYPE              zgt_material,
it_plant         
TYPE              zgt_plant,
node_material    
TYPE REF TO       if_wd_context_node,
node_plant       
TYPE REF TO       if_wd_context_node.

*     navigate from <CONTEXT> to <MATERIAL_NUMBER> via lead selection
lo_nd_material_number
= wd_context->get_child_node( name = wd_this->wdctx_material_number ).
*     get element via lead selection
lo_el_material_number
= lo_nd_material_number->get_element( ).

*     @TODO handle not set lead selection
IF lo_el_material_number IS INITIAL.
ENDIF.

*     get all declared attributes
lo_el_material_number
->get_static_attributes(
IMPORTING
static_attributes
= ls_material_number ).

*************************************************************************
*****************             Plant Input             *******************
*************************************************************************

* navigate from <CONTEXT> to <PLANTS> via lead selection
lo_nd_plants
= wd_context->get_child_node( name = wd_this->wdctx_plants ).

* get element via lead selection
lo_el_plants
= lo_nd_plants->get_element( ).

* @TODO handle not set lead selection
IF lo_el_plants IS INITIAL.
ENDIF.

* get all declared attributes
lo_el_plants
->get_static_attributes(
IMPORTING
static_attributes
= ls_plants ).

* NAVIGATE FROM <CONTEXT> TO <Material_Details> VIA LEAD SELECTION .
node_material   
= wd_context->get_child_node(‘MATERIAL_DETAILS’) .
* NAVIGATE FROM <CONTEXT> TO <Plant_Details> VIA LEAD SELECTION .
node_plant      
= wd_context->get_child_node(‘PLANT_DETAILS’).

IF ls_material_number IS NOT INITIAL OR ls_plants IS NOT INITIAL.
CALL METHOD wd_assist->get_material_plant
EXPORTING
im_matnr   
= ls_material_numbermatnr
im_werks   
= ls_plantswerks
IMPORTING
et_material
= it_material
et_plant   
= it_plant.

ENDIF.

*** Binding <Internal tables> to the respective <Nodes>:
node_material
->bind_table( it_material ).
node_plant
->bind_table( it_plant ).

endmethod.

1.7.     Webdynpro Application Creation:


  • Now, Create a Webdynpro Application, by right clicking on the component name and providing a suitable description to the same and activate the entire component.


          Capture.JPG


2.     Data Dictionary:


The structures and table types, those are declared globally through transaction SE11 and used by the Webdynpro Component.

The Line type used for Material Details:



          Capture.JPG


The Table type used for Material Details:


          Capture.JPG


The line type used for the Plant Details:


          Capture.JPG


The table type used for Plant Details:


          Capture.JPG



3.     Assistance Class Design:


As this code uses the Assistance Class to fetch the data from the Database table, we need to develop a global class.

The Assistance Class details to fetch the details of the material as well as the respective plants:


          Capture.JPG


The Method: GET_MATERIAL_PLANT in the class.

         

          Capture.JPG


         

Code to Fetch data in Assistance Class

METHOD get_material_plant.

**** Type Declaration
TYPES: BEGIN OF ty_mara,
matnr    
TYPE      matnr,
mtart    
TYPE      mtart,
matkl    
TYPE      matkl,
meins    
TYPE      meins,
END OF   ty_mara.

TYPES: BEGIN OF ty_makt,
matnr    
TYPE      matnr,
spras    
TYPE      spras,
maktx    
TYPE      maktx,
END OF   ty_makt.

TYPES: BEGIN OF ty_marc,
matnr    
TYPE      matnr,
werks    
TYPE      werks_d,
END OF   ty_marc.

TYPES: BEGIN OF ty_t001w,
werks    
TYPE      werks_d,
name1    
TYPE      name1,
bwkey    
TYPE      bwkey,
kunnr    
TYPE      kunnr_wk,
lifnr    
TYPE      lifnr_wk,
END OF   ty_t001w.

**** Data Declaration
DATA: wa_mara      TYPE            ty_mara,
it_mara     
TYPE TABLE OF   ty_mara,
wa_makt     
TYPE            ty_makt,
it_makt     
TYPE TABLE OF   ty_makt,
wa_marc     
TYPE            ty_marc,
it_marc     
TYPE TABLE OF   ty_marc,
wa_t001w    
TYPE            ty_t001w,
it_t001w    
TYPE TABLE OF   ty_t001w,
es_material 
TYPE            zty_material,
es_plant    
TYPE            zty_plant.

**** Constant Declaration
CONSTANTS: co_spras     TYPE            spras             VALUE      ‘E’.
**** Selecting data from MARA Table
SELECT matnr
mtart
matkl
meins
FROM mara
INTO TABLE it_mara
WHERE matnr EQ im_matnr.

IF sysubrc = 0.
SELECT matnr
spras
maktx
FROM makt
INTO TABLE it_makt
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_maramatnr
AND   spras = co_spras.

IF sysubrc = 0.
LOOP AT it_mara INTO wa_mara.
es_material
matnr       =     wa_maramatnr.
es_material
mtart       =     wa_maramtart.
es_material
matkl       =     wa_maramatkl.
es_material
meins       =     wa_marameins.

READ TABLE it_makt INTO wa_makt  WITH KEY matnr = wa_maramatnr.
IF sysubrc = 0.
es_material
maktx       =     wa_maktmaktx.
APPEND es_material   TO    et_material.
CLEAR: wa_mara,
wa_makt
,
es_material
.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.

IF im_werks IS NOT INITIAL.
SELECT matnr
werks
FROM marc
INTO TABLE it_marc
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_maramatnr
AND   werks = im_werks.

IF sysubrc = 0.
SELECT  werks
name1
bwkey
kunnr
lifnr
FROM t001w
INTO TABLE it_t001w
FOR ALL ENTRIES IN it_marc
WHERE werks  it_marcwerks
AND   werks  im_werks.

IF sysubrc = 0.
LOOP AT it_t001w INTO wa_t001w.
es_plant
werks       = wa_t001wwerks.
es_plant
name1       = wa_t001wname1.
es_plant
bwkey       = wa_t001wbwkey.
es_plant
kunnr       = wa_t001wkunnr.
es_plant
lifnr       = wa_t001wlifnr.

APPEND es_plant  TO et_plant.
CLEAR: wa_t001w,
es_plant
.
ENDLOOP.
ENDIF.
ENDIF.

ELSE.

SELECT matnr
werks
FROM marc
INTO TABLE it_marc
FOR ALL ENTRIES IN it_mara
WHERE matnr = it_maramatnr.

IF sysubrc = 0.
SELECT  werks
name1
bwkey
kunnr
lifnr
FROM t001w
INTO TABLE it_t001w
FOR ALL ENTRIES IN it_marc
WHERE werks  it_marcwerks.

IF sysubrc = 0.
LOOP AT it_t001w INTO wa_t001w.
es_plant
werks       = wa_t001wwerks.
es_plant
name1       = wa_t001wname1.
es_plant
bwkey       = wa_t001wbwkey.
es_plant
kunnr       = wa_t001wkunnr.
es_plant
lifnr       = wa_t001wlifnr.

APPEND es_plant  TO et_plant.
CLEAR: wa_t001w,
es_plant
.
ENDLOOP.
ENDIF.
ENDIF.

ENDIF.


ENDMETHOD.





4.     Output:


The output of the program will be as follows where we can find the details of the material and plantin two respective tabs.



          Capture.JPG

         

          Capture.JPG


    

To report this post you need to login first.

Be the first to leave a comment

You must be Logged on to comment or reply to a post.

Leave a Reply