Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

ALV

Go to solution
Former Member

‎2006 Jul 24 5:53 PM

0 Likes
685

Hi,

What are the T-Codes used to design ALV?

Any sample P.O Report using ALV?

and tell me T-Codes for

Batch Input Method

LSMW

BAPI

User Exists

BADI's

Thanks

Seshu

1 ACCEPTED SOLUTION
Read only

Go to solution
Former Member

‎2006 Jul 24 5:56 PM

0 Likes
646

hi seshu,

there is no transaction code for ALV's

u have to write a report for ALV and FUNCTION MODULES ARE USED..

TO CHECK DEMO PROGRAMS IN ALV

GOTO SE38 AND TYPE BALV AND press F4

Batch Input Method

u have to write a program.

u have to do recording using the TCODE SHDB or SM35

for the Transaction u want,

Transaction code for LSMW:<b>LSMW</b>

User Exists: CMOD or SMOD

hi seshu,

there is no transaction code for ALV's

u have to write a report for ALV and FUNCTION MODULES ARE USED..

TO CHECK DEMO PROGRAMS IN ALV

GOTO SE38 AND TYPE BALV AND press F4

Batch Input Method

u have to write a program.

u have to do recording using the TCODE SHDB or SM35

for the Transaction u want,

Transaction code for LSMW:<b>LSMW</b>

User Exists: CMOD or SMOD

Reply
4 REPLIES 4
Read only

Go to solution
Former Member

‎2006 Jul 24 5:56 PM

0 Likes
647

hi seshu,

there is no transaction code for ALV's

u have to write a report for ALV and FUNCTION MODULES ARE USED..

TO CHECK DEMO PROGRAMS IN ALV

GOTO SE38 AND TYPE BALV AND press F4

Batch Input Method

u have to write a program.

u have to do recording using the TCODE SHDB or SM35

for the Transaction u want,

Transaction code for LSMW:<b>LSMW</b>

User Exists: CMOD or SMOD

Read only

Go to solution
Former Member

‎2006 Jul 24 6:23 PM

0 Likes
646

hi seshu,

Alv's r one of the type of reports, these r having more advantages when compared to normal reports so tcode is se38. U have to use different sap provided standard function modules for it

u can check the below links for ALV's

Reprots

http://www.sapgenie.com/abap/reports.htm

http://www.allsaplinks.com/material.html

http://www.sapdevelopment.co.uk/reporting/reportinghome.htm

ALV

1. Please give me general info on ALV.

http://www.sapfans.com/forums/viewtopic.php?t=58286

http://www.sapfans.com/forums/viewtopic.php?t=76490

http://www.sapfans.com/forums/viewtopic.php?t=20591

http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.

2. How do I program double click in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=11601

http://www.sapfans.com/forums/viewtopic.php?t=23010

3. How do I add subtotals (I have problem to add them)...

http://www.sapfans.com/forums/viewtopic.php?t=20386

http://www.sapfans.com/forums/viewtopic.php?t=85191

http://www.sapfans.com/forums/viewtopic.php?t=88401

http://www.sapfans.com/forums/viewtopic.php?t=17335

4. How to add list heading like top-of-page in ABAP lists?

http://www.sapfans.com/forums/viewtopic.php?t=58775

http://www.sapfans.com/forums/viewtopic.php?t=60550

http://www.sapfans.com/forums/viewtopic.php?t=16629

5. How to print page number / total number of pages X/XX in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)

6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.

http://www.sapfans.com/forums/viewtopic.php?t=64320

http://www.sapfans.com/forums/viewtopic.php?t=44477

7. How can I set the cell color in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=52107

8. How do I print a logo/graphics in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=81149

http://www.sapfans.com/forums/viewtopic.php?t=35498

http://www.sapfans.com/forums/viewtopic.php?t=5013

9. How do I create and use input-enabled fields in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=84933

http://www.sapfans.com/forums/viewtopic.php?t=69878

10. How can I use ALV for reports that are going to be run in background?

http://www.sapfans.com/forums/viewtopic.php?t=83243

http://www.sapfans.com/forums/viewtopic.php?t=19224

11. How can I display an icon in ALV? (Common requirement is traffic light icon).

http://www.sapfans.com/forums/viewtopic.php?t=79424

http://www.sapfans.com/forums/viewtopic.php?t=24512

12. How can I display a checkbox in ALV?

http://www.sapfans.com/forums/viewtopic.php?t=88376

http://www.sapfans.com/forums/viewtopic.php?t=40968

http://www.sapfans.com/forums/viewtopic.php?t=6919

tcodes:

batch input sm35

lswm : LSMW

bapi : all the standard bapi's u will find in BOR(busisness Object Repository).

user exits: CMOD, SMOD.

BADI's: fiding BADI's

Go To IMG( Implementation guide)

Find the BADI in implementation Guide (IMG)

TCODE: SPRO (IMG)

Search for BADI

Check the Documentation For BADI for functionality

Data Populated as Parameters in the BADI .

Functionality will be implemented in the Method.

If u need any further info shoot me a mail to [email protected]

Regards,

Naveen

Read only

Go to solution
Former Member

‎2006 Jul 24 6:27 PM

0 Likes
646

Hi,

As your other questions answered,here i am giving a program to display Purhcase order details using ALV.Just copy paste this code in a z program.


tables: ekko , ekpo .

type-pools: slis .

data:i_event type slis_t_event with header line .
"Table of Events
data:i_header type slis_t_listheader with header line.
"Table for Display Header
data:fieldcatalog type slis_T_fieldcat_alv  WITH HEADER LINE.
data: i_sort type slis_t_sortinfo_alv. "table
data: ls_sort type slis_sortinfo_alv.   "HEADER FOR THE SORTING TABLE

data:i_layout type slis_layout_alv .
" For Layout
data: text(30) .
data: begin of it_final occurs 0 ,
      ebeln like ekko-ebeln ,           "Purchasing Document No.
      bedat like ekko-bedat ,           "Purchasing Document Date
      ebelp like ekpo-ebelp ,          "Item No. of Purchasing Document
      matnr like ekpo-matnr ,           "Material No.
      netwr like ekpo-netwr ,         "Net Order Value in PO Currancy
      meins like ekpo-meins ,           "UOM
      menge like ekpo-menge ,         "Purchase Order Quantity
      bprme like ekpo-bprme ,         "Order Price Unit
      chk(1) ,
      light(1) ,
      change like ekpo-menge ,

      end of it_final .
*data: i_temp like it_final occurs 0 .
**select option

selection-screen begin of block block.
select-options: s_ebeln for ekko-ebeln  .
selection-screen end of block block .

 selection-screen begin of block block1 .
 parameters:grid radiobutton group r .
 parameters:list radiobutton group r .
 selection-screen end of block block1 .

** at selection screen

at selection-screen .

select single * from ekko where ebeln in s_ebeln .

if sy-subrc <> 0 .
   message e000 .
endif .

start-of-selection .
if grid = 'X' .
 perform get_data .
 perform event using i_event[] .
 perform field using fieldcatalog[] .
 perform layout using i_layout .
 perform sort using i_sort .
 perform grid_display .
endif .
if list = 'X' .
 perform get_data .
 perform event using i_event[] .
 perform field using fieldcatalog[] .
 perform layout using i_layout .
 perform sort using i_sort .
 perform list_display .
 endif .
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form get_data .

 SELECT EKKO~EBELN
       EKKO~BEDAT
       EKPO~EBELP
       EKPO~MATNR
       EKPO~NETWR
       EKPO~MEINS
       EKPO~MENGE
       EKPO~BPRME
       INTO CORRESPONDING FIELDS OF  table IT_FINAL
       FROM EKKO INNER JOIN EKPO ON EKKO~EBELN = EKPO~EBELN
       WHERE EKKO~EBELN IN S_EBELN.
       APPEND IT_FINAL.

loop at it_final.
     if it_final-menge eq 0 .
        it_final-light = '1' .
      elseif it_final-menge le 200 .
        it_final-light = '2' .
     else .
        it_final-light = '3' .
     endif .
    modify it_final  transporting light.
endloop.
**



endform.                    " get_data
*&---------------------------------------------------------------------*
*&      Form  event
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_event[]  text
*----------------------------------------------------------------------*
form event  using    p_i_event type slis_t_event.

  clear p_i_event .
  refresh p_i_event .

 CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
*  EXPORTING
*    I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = p_i_event
*  EXCEPTIONS
*    LIST_TYPE_WRONG       = 1
*    OTHERS                = 2
           .
 IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

  read table p_i_event with key name = slis_ev_top_of_page into i_event
  .

      if sy-subrc = 0.
         move 'TOP_OF_PAGE_PO' to i_event-form.
         modify p_i_event from i_event index sy-tabix transporting form.

      endif.
      clear i_event.


endform.                    " event

form top_of_page_po .
  clear i_header .
  refresh i_header .
  write sy-datum to text.

    i_header-typ = 'S'.
    i_header-key = 'DATE'.
    i_header-info = text.
    append i_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    it_list_commentary       = i_header[]
    I_LOGO                   = 'ENJOYSAPLOGO'.
*   I_END_OF_LIST_GRID       =
          .
 endform .
*&---------------------------------------------------------------------*
*&      Form  field
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_fieldCATALOG[]  text
*----------------------------------------------------------------------*
form field using  p_fieldcatalog type slis_t_fieldcat_alv.

      clear fieldcatalog.
      fieldcatalog-fieldname   = 'EBELN'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Purch'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 1.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      " SET THE OUTPUT LENGTH.
      fieldcatalog-emphasize   = 'X'.
      " COLOR OF THIS COLUMN.
      fieldcatalog-key         = 'X'.
      " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
*      fieldcatalog-HOTSPOT     = 'X'.
      append fieldcatalog .

      clear fieldcatalog.
      fieldcatalog-fieldname   = 'BEDAT'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Purch'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 2.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      " SET THE OUTPUT LENGTH.
      fieldcatalog-emphasize   = 'X'.
      " COLOR OF THIS COLUMN.
      fieldcatalog-key         = ' '.
      " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
      append fieldcatalog .

      clear fieldcatalog.
      fieldcatalog-fieldname   = 'EBELP'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Item no'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 3.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      " SET THE OUTPUT LENGTH.
      fieldcatalog-emphasize   = 'X'.
      " COLOR OF THIS COLUMN.
      fieldcatalog-key         = ' '.
      " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
      append fieldcatalog .
            clear fieldcatalog.

      fieldcatalog-fieldname   = 'MATNR'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Material No'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 4.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
      append fieldcatalog .
      clear fieldcatalog.


      fieldcatalog-fieldname   = 'NETWR'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Net Value '.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 5.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.

      fieldcatalog-fieldname   = 'MEINS'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'UOM'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 6.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 4.
      append fieldcatalog .
      clear fieldcatalog.

      fieldcatalog-fieldname   = 'MENGE'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Purchase Order Quantity'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 7.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.


      fieldcatalog-fieldname   = 'BPRME'.
      " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'Order P'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 8.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 10.
      fieldcatalog-do_sum = 'X'.
      append fieldcatalog .
      clear fieldcatalog.

     fieldcatalog-fieldname   = 'CHANGE'.
     " FIELD FOR WHICH CATALOG ID FILLED.
      fieldcatalog-seltext_m   = 'New Quantity'.
      " MEDIUM TEXT FOR HEADER.
      fieldcatalog-col_pos     = 9.
      " POSITION OF THE COLUMN.
      fieldcatalog-outputlen   = 20.
*      FIELDCATALOG-DO_SUM = 'X'.
      fieldcatalog-edit   = 'X'.
      append fieldcatalog .
      clear fieldcatalog.


endform.                    " field
*&---------------------------------------------------------------------*
*&      Form  list_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form list_display .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK              = ' '
*   I_BYPASSING_BUFFER             =
*   I_BUFFER_ACTIVE                = ' '
    I_CALLBACK_PROGRAM             = SY-REPID
   I_CALLBACK_PF_STATUS_SET       = 'SET_PO_PF_STATUS'
    I_CALLBACK_USER_COMMAND        = 'USER_COMMAND'
*   I_STRUCTURE_NAME               =
    IS_LAYOUT                      = i_layout
    IT_FIELDCAT                    = fieldcaTALOG[]
*   IT_EXCLUDING                   =
*   IT_SPECIAL_GROUPS              =
    IT_SORT                        = i_sort
*   IT_FILTER                      =
*   IS_SEL_HIDE                    =
*   I_DEFAULT                      = 'X'
*   I_SAVE                         = ' '
*   IS_VARIANT                     =
    IT_EVENTS                      = i_event[]
*   IT_EVENT_EXIT                  =
*   IS_PRINT                       =
*   IS_REPREP_ID                   =
*   I_SCREEN_START_COLUMN          = 0
*   I_SCREEN_START_LINE            = 0
*   I_SCREEN_END_COLUMN            = 0
*   I_SCREEN_END_LINE              = 0
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER        =
*   ES_EXIT_CAUSED_BY_USER         =
  TABLES
    t_outtab                       = it_final
* EXCEPTIONS
*   PROGRAM_ERROR                  = 1
*   OTHERS                         = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


endform.                    " list_display
*&---------------------------------------------------------------------*
*&      Form  layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_layout[]  text
*----------------------------------------------------------------------*
form layout  using    p_i_layout TYPE SLIS_LAYOUT_ALV .

 i_layout-zebra  = 'X'.
    i_layout-lights_fieldname = 'LIGHT'.
    i_layout-lights_tabname = 'IT_FINAL'.
    i_layout-box_fieldname = 'CHK'.
    i_layout-box_tabname  = 'IT_FINAL'.
    i_layout-edit = ' '.


endform.

                 FORM SET_PO_PF_STATUS USING  P_I_EXTAB TYPE
                 SLIS_T_EXTAB.
                 SET PF-STATUS 'MENUPO'.
                 ENDFORM.


form USER_COMMAND  using r_ucomm like sy-ucomm
                         rs_selfield type slis_selfield .

  if r_ucomm = '&GO'.

   call function 'REUSE_ALV_CHECKBOX_SET'
     changing
       I_fieldcat       = fieldcatalog[]
             .


   call transaction 'ME22N'.

  endif .
endform .
*&---------------------------------------------------------------------*
*&      Form  grid_display
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form grid_display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
    I_CALLBACK_PROGRAM                = SY-REPID
    I_CALLBACK_PF_STATUS_SET          = 'SET_PO_PF_STATUS'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
    IS_LAYOUT                         = I_LAYOUT
    IT_FIELDCAT                       = FIELDCATALOG[]
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
    IT_SORT                           = i_sort
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
    IT_EVENTS                         = I_EVENT[]
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   I_HTML_HEIGHT_TOP                 =
*   I_HTML_HEIGHT_END                 =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
  TABLES
    t_outtab                          = IT_FINAL
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


endform.                    " grid_display
*&---------------------------------------------------------------------*
*&      Form  sort
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_I_sort  text
*----------------------------------------------------------------------*
form sort  using    p_i_sort type slis_t_sortinfo_alv.

   refresh i_sort.

ls_sort-spos = 1.  " position
ls_sort-fieldname = 'EBELN'.                     "fieldname.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
ls_sort-group = 'grp1'.

append ls_sort to i_sort.
clear ls_sort.

Regards,

Raghav

Read only

Go to solution
Former Member

‎2006 Jul 24 6:34 PM

0 Likes
646

Hi seshu,

Go to tcode CMOD. In the menu, 'Utilities-->SAP Enhancements'. This will allow you to look at all existing user exits as per old enhancement concept. Apart from that you have BADIs(tcodes SE18 & SE19).

t-code for batch input shdb or sm35.

for lsmw islsmw

sample alv program:

tables: vbak.

type-pools : slis.

data: begin of it_vbak occurs 0,

icon type icon-id,

vbeln like vbak-vbeln,

audat like vbak-audat,

vbtyp like vbak-vbtyp,

auart like vbak-auart,

augru like vbak-augru,

netwr like vbak-netwr,

waerk like vbak-waerk,

end of it_vbak.

data: g_repid like sy-repid,

wa_sort type slis_sortinfo_alv,

it_sort type slis_t_sortinfo_alv,

wa_layout type slis_layout_alv,

it_fieldtab type slis_t_fieldcat_alv,

wa_fieldcat type slis_fieldcat_alv.

selection-screen begin of block b1 with frame.

select-options:s_vbeln for vbak-vbeln,

s_vbtyp for vbak-vbtyp default 'C'.

selection-screen end of block b1 .

selection-screen begin of block b2 with frame.

parameters: list radiobutton group rad1,

grid radiobutton group rad1.

selection-screen end of block b2.

initialization.

g_repid = sy-repid.

start-of-selection.

select vbeln

audat

vbtyp

auart

augru

netwr

waerk into corresponding fields of table it_vbak

from vbak where audat > '01/01/2004' and

netwr > 0 and

vbeln in s_vbeln and

vbtyp in s_vbtyp.

loop at it_vbak.

if it_vbak-netwr < 10000.

it_vbak-icon = '@08@'.

elseif it_vbak-netwr > 10000 and it_vbak-netwr < 100000.

it_vbak-icon = '@09@'.

elseif it_vbak-netwr > 100000.

it_vbak-icon = '@0A@'.

endif.

modify it_vbak index sy-tabix.

endloop.

end-of-selection.

perform sort_list.

perform modify_fieldcat.

perform layout_list.

&----

*& Form sort_list

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

form sort_list .

clear wa_sort.

wa_sort-fieldname = 'AUART'.

wa_sort-spos = '1'.

wa_sort-up = 'X'.

append wa_sort to it_sort.

clear wa_sort.

wa_sort-fieldname = 'VBTYP'.

wa_sort-spos = '2'.

wa_sort-up = 'X'.

append wa_sort to it_sort.

clear wa_sort.

wa_sort-fieldname = 'WAERK'.

wa_sort-spos = '3'.

wa_sort-up = 'X'.

wa_sort-subtot = 'X'.

append wa_sort to it_sort.

endform. " sort_list

&----

*& Form layout_list

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

form layout_list .

clear wa_layout.

if list = 'X'.

wa_layout-zebra = 'X'.

wa_layout-window_titlebar = 'LIST DISPLAY'.

wa_layout-subtotals_text = 'SUBTOTAL'.

wa_layout-totals_text = 'TOTAL'.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER =

  • I_BUFFER_ACTIVE = ' '

i_callback_program = g_repid

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_STRUCTURE_NAME =

is_layout = wa_layout

it_fieldcat = it_fieldtab[]

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

it_sort = it_sort[]

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

  • IT_EVENTS =

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_vbak

  • EXCEPTIONS

  • PROGRAM_ERROR = 1

  • OTHERS = 2

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

elseif grid = 'X'.

wa_layout-zebra = 'X'.

wa_layout-window_titlebar = 'GRID DISPLAY'.

wa_layout-subtotals_text = 'SUBTOTAL'.

wa_layout-totals_text = 'TOTAL'.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = g_repid

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

  • I_CALLBACK_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • I_GRID_TITLE =

  • I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldtab

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

it_sort = it_sort

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

  • IT_EVENTS =

  • IT_EVENT_EXIT =

  • IS_PRINT =

  • IS_REPREP_ID =

  • I_SCREEN_START_COLUMN = 0

  • I_SCREEN_START_LINE = 0

  • I_SCREEN_END_COLUMN = 0

  • I_SCREEN_END_LINE = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • I_HTML_HEIGHT_TOP =

  • I_HTML_HEIGHT_END =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_vbak

  • EXCEPTIONS

  • PROGRAM_ERROR = 1

  • OTHERS = 2

.

if sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

endif.

endform. " layout_list

&----

*& Form modify_fieldcat

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

form modify_fieldcat .

clear wa_fieldcat.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'ICON'.

wa_fieldcat-seltext_l = 'LIGHTS'.

wa_fieldcat-icon = 'X'.

  • WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES DOCUMENT'.

  • WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

  • when 'maktx'.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'AUDAT'.

wa_fieldcat-seltext_l = 'DATE'.

  • WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-outputlen = 15.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'VBTYP'.

wa_fieldcat-seltext_l = 'SALES CATEGORY'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'AUART'.

wa_fieldcat-seltext_l = 'SALES DOCUMENT TYPE'.

wa_fieldcat-col_pos = 5.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'AUGRU'.

wa_fieldcat-seltext_l = 'ORDER REASON'.

  • WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 6.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'NETWR'.

wa_fieldcat-seltext_l = 'QUANTITY'.

wa_fieldcat-do_sum = 'X'.

  • WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 7.

wa_fieldcat-outputlen = 25.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-fieldname = 'WAERK'.

wa_fieldcat-seltext_l = 'CURRENCY'.

  • WA_FIELDCAT-ddictxt = 'l'.

wa_fieldcat-col_pos = 8.

wa_fieldcat-outputlen = 10.

append wa_fieldcat to it_fieldtab.

clear wa_fieldcat .

endform. " modify_fieldcat

goto se38 editor,code ur alv. execute it.no need of tcode.

reward if helpful.

regards,

keerthi.