Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 351

Re: Values in graphs

$
0
0

Hi Naveen,

 

I had a sample code about that topic. You can use it if you want.

 

Regards.

 

 

 

REPORT  zp1079_33.

 

"Graphic FrameWork type pool

TYPE-POOLS: gfw.

 

" Graphic 1 Structure - Values

TYPES : BEGIN OF ty_grvalwa1.

         INCLUDE STRUCTURE gprval.

TYPES : END OF ty_grvalwa1.

 

" Graphic 1 Structure - Colons

TYPES : BEGIN OF ty_col1_texts.

         INCLUDE STRUCTURE gprtxt.

TYPES : END OF ty_col1_texts.

 

" Graphic 1 Data Definitions

DATA : grval1     TYPE STANDARD TABLE OF ty_grvalwa1,

        grvalwa1   TYPE ty_grvalwa1,

        col1_texts TYPE STANDARD TABLE OF ty_col1_texts,

        col1_wa    TYPE ty_col1_texts.

 

" Graphic 2 Structure - Values

TYPES : BEGIN OF ty_grvalwa2.

         INCLUDE STRUCTURE gprval.

TYPES : END OF ty_grvalwa2.

 

" Graphic 2 Structure - Colons

TYPES : BEGIN OF ty_col2_texts.

         INCLUDE STRUCTURE gprtxt.

TYPES : END OF ty_col2_texts.

 

" Graphic 2 Data Definitions

DATA : grval2 TYPE STANDARD TABLE OF ty_grvalwa2,

        grvalwa2 TYPE ty_grvalwa2,

        col2_texts TYPE STANDARD TABLE OF ty_col2_texts,

        col2_wa TYPE ty_col2_texts.

 

 

DATA :custom_container TYPE REF TO cl_gui_custom_container,

       splitter TYPE REF TO cl_gui_splitter_container,

       cont1 TYPE REF TO cl_gui_container,

       cont2 TYPE REF TO cl_gui_container.

 

START-OF-SELECTION.

   CALL SCREEN 600.

 

*&----------------------------------------------------------------*

*&      Module  PBO_0600  OUTPUT

*&----------------------------------------------------------------*

MODULE pbo_0600 OUTPUT.

   SET PF-STATUS 'SPLITGRAPH'.

   CREATE OBJECT custom_container

     EXPORTING

       container_name = 'CONTAINER'.

 

 

   CREATE OBJECT splitter

     EXPORTING

       parent  = custom_container

       rows    = 1

       columns = 2

       align   = 15.

 

 

   CALL METHOD splitter->get_container

     EXPORTING

       row       = 1

       column    = 1

     RECEIVING

       container = cont1.

 

   CALL METHOD splitter->get_container

     EXPORTING

       row       = 1

       column    = 2

     RECEIVING

       container = cont2.

 

*Graphic 1 display

   REFRESH : grval1,col1_texts.

   grvalwa1-rowtxt = 'Rise'.

   grvalwa1-val1 = 1100.      

   grvalwa1-val2 = 4500.      

   grvalwa1-val3 = 7500.      

   APPEND grvalwa1 TO grval1.

 

   grvalwa1-rowtxt = 'Coffee'.

   grvalwa1-val1 = 2000.

   grvalwa1-val2 = 6000.

   grvalwa1-val3 = 4000.

   APPEND grvalwa1 TO grval1.

 

   grvalwa1-rowtxt = 'Tea'.

   grvalwa1-val1 = 3500.

   grvalwa1-val2 = 7000.

   grvalwa1-val2 = 8000.

   APPEND grvalwa1 TO grval1.

 

   grvalwa1-rowtxt = 'Legumes'.

   grvalwa1-val1 = 6000.

   grvalwa1-val2 = 7000.

   grvalwa1-val2 = 10000.

   APPEND grvalwa1 TO grval1.

 

   col1_wa-coltxt = '2005'.      " Colon 1 Text

   APPEND col1_wa TO col1_texts.

   col1_wa-coltxt = '2006'.      " Colon 2 Text

   APPEND col1_wa TO col1_texts.

   col1_wa-coltxt = '2007'.      " Colon 3 Text

   APPEND col1_wa TO col1_texts.

 

   " Show Graphic 1

   CALL FUNCTION 'GFW_PRES_SHOW_MULT'

     EXPORTING

       parent            = cont1

       presentation_type = gfw_prestype_lines

       show              = gfw_false

     TABLES

       values            = grval1

       column_texts      = col1_texts

     EXCEPTIONS

       error_occurred    = 1.

 

*Graphic 2

   REFRESH : grval2,col2_texts.

   grvalwa2-rowtxt = 'Wheat'.

   grvalwa2-val1 = 3000.

   grvalwa2-val2 = 5500.

 

   APPEND grvalwa2 TO grval2.

   grvalwa2-rowtxt = 'Corn'.

   grvalwa2-val1 = 2700.

   grvalwa2-val2 = 8000.

 

   APPEND grvalwa2 TO grval2.

   grvalwa2-rowtxt = 'Barley'.

   grvalwa2-val1 = 3250.

   grvalwa2-val2 = 5000.

 

   APPEND grvalwa2 TO grval2.

   grvalwa2-rowtxt = 'Oat'.

   grvalwa2-val1 = 6500.

   grvalwa2-val2 = 9000.

 

   APPEND grvalwa2 TO grval2.

   col2_wa-coltxt = '2005'.

   APPEND col2_wa TO col2_texts.

   col2_wa-coltxt = '2006'.

   APPEND col2_wa TO col2_texts.

 

   " Show Graphic 2

   CALL FUNCTION 'GFW_PRES_SHOW_MULT'

     EXPORTING

       parent            = cont2

       presentation_type = gfw_prestype_lines

       show              = gfw_true

     TABLES

       values            = grval2

       column_texts      = col2_texts

     EXCEPTIONS

       error_occurred    = 1.

ENDMODULE.                 " PBO_0600  OUTPUT

*&----------------------------------------------------------------*

*&      Module  PAI_0600  INPUT

*&----------------------------------------------------------------*

MODULE pai_0600 INPUT.

   CASE sy-ucomm.

     WHEN '&F03'.

       LEAVE PROGRAM.

   ENDCASE.

ENDMODULE.                 " PAI_0600  INPUT


Viewing all articles
Browse latest Browse all 351

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>