Application Development 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
Showing results for 
Search instead for 
Did you mean: 

alv grid

Former Member
0 Kudos

I have devloped one alv grid program but when i am going to run this program with the test data i am getting runtime error.can u check my code and tell me where the code is wrong.i am giving the program code.

&----


*& Include ZIRPR002_DELAY_REPORT_TOP

&----


TABLES : zrpa_prd_delay.

TYPE-pools : slis.

  • Type defination

TYPES : begin of ty_zrpa_prd_delay,

  • werks like zrpa_prd_delay-werks,

PI_AUFART like zrpa_prd_delay-PI_AUFART, "Order category for process orders

SHIFT like zrpa_prd_delay-SHIFT, " Shift

ZZDATE like zrpa_prd_delay-ZZDATE, " Field of type DATS

GSUZS like zrpa_prd_delay-GSUZS , " Scheduled start time

GLUZS like zrpa_prd_delay-GLUZS, "Scheduled finish time

RE_DELAY like zrpa_prd_delay-RE_DELAY, " Reason for Delay

T_DELAY like zrpa_prd_delay-T_DELAY , " Total Delay

end of ty_zrpa_prd_delay.

data : i_zrpa_prd_delay type standard table of ty_zrpa_prd_delay initial size 0,

wa_zrpa_prd_delay type ty_zrpa_prd_delay,

i_tab_fieldcat type slis_t_fieldcat_alv,

wa_fieldcat type slis_fieldcat_alv,

i_tab_header type slis_t_listheader,

wa_header type slis_listheader.

*Data declearation for select-options.

data : g_pi_aufart type pi_aufart,

g_shift type zzshift,

g_date type dats,

g_re_delay type zzre_delay.

data : g_repid LIKE sy-repid.

data : g_top_of_page type SLIS_FORMNAME VALUE 'TOP_OF_PAGE'.

&----


*& Include ZIRPR002_DLY_RPT_SELECT_DATA

&----


&----


*& Form VALIDATION

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM VALIDATION .

*Validation

select single PI_AUFART from ZRPA_PRD_DELAY

into g_pi_aufart

where pi_aufart in s_order.

if sy-subrc <> 0.

message e004.

endif.

select single SHIFT from ZRPA_PRD_DELAY

into g_shift

where shift in s_shift.

if sy-subrc <> 0.

message e005.

endif.

select single RE_DELAY from ZRPA_PRD_DELAY

into g_re_delay

where re_delay in s_resion.

if sy-subrc <> 0.

message e006.

ENDIF.

ENDFORM. " VALIDATION

&----


*& Form SELECT_DATA

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM SELECT_DATA .

select

PI_AUFART

SHIFT

ZZDATE

GSUZS

GLUZS

RE_DELAY

T_DELAY from ZRPA_PRD_DELAY

into table i_zrpa_prd_delay

where pi_aufart in s_order

and shift in s_shift

and zzdate in s_date

and re_delay in s_resion.

IF SY-SUBRC <> 0.

MESSAGE E007.

ENDIF.

ENDFORM. " SELECT_DATA

&----


*& Form BUILD_FIELDCAT

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM BUILD_FIELDCAT .

wa_fieldcat-col_pos = 1.

wa_fieldcat-fieldname = 'pi_aufart'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Order Type'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-fieldname = 'ZZDATE'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Date'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 3.

wa_fieldcat-fieldname = 'SHIFT'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Shift'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 4.

wa_fieldcat-fieldname = 'GSUZS'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Start Time'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 5.

wa_fieldcat-fieldname = 'GLUZS'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Finish Time'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 6.

wa_fieldcat-fieldname = 'RE_DELAY'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Reason'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 7.

wa_fieldcat-fieldname = 'T_DELAY'.

wa_fieldcat-tabname = 'i_zrpa_prd_delay'.

wa_fieldcat-seltext_l = 'Total Delay'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

ENDFORM. " BUILD_FIELDCAT

form top_of_page.

wa_header-typ = 'H'.

wa_header-info = 'Production Delay Report'.

append wa_header to i_tab_header.

clear wa_header.

wa_header-typ = 'H'.

wa_header-info = 'Bokaro Steel Plant'.

append wa_header to i_tab_header.

clear wa_header.

wa_header-typ = 'H'.

wa_header-info = 'Date:'.

append wa_header to i_tab_header.

clear wa_header.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = i_tab_header.

  • I_LOGO =

  • I_END_OF_LIST_GRID =

  • I_ALV_FORM =

.

endform. "Top Of Page

&----


*& 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 = g_repid

  • I_CALLBACK_PF_STATUS_SET = ' '

  • I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = g_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 =

IT_FIELDCAT = i_tab_fieldcat

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • 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

  • I_HTML_HEIGHT_TOP = 0

  • I_HTML_HEIGHT_END = 0

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • IR_SALV_FULLSCREEN_ADAPTER =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = i_zrpa_prd_delay

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

1 ACCEPTED SOLUTION

Former Member
0 Kudos

When populating field catalog in subroutine BUILD_FIELDCAT, table name and field name should be in uppercase.

wa_fieldcat-col_pos = 1.

wa_fieldcat-fieldname = 'PI_AUFART'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Order Type'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-fieldname = 'ZZDATE'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Date'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 3.

wa_fieldcat-fieldname = 'SHIFT'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Shift'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 4.

wa_fieldcat-fieldname = 'GSUZS'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Start Time'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 5.

wa_fieldcat-fieldname = 'GLUZS'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Finish Time'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 6.

wa_fieldcat-fieldname = 'RE_DELAY'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Reason'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 7.

wa_fieldcat-fieldname = 'T_DELAY'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Total Delay'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

Regards,

Joy.

4 REPLIES 4

Former Member
0 Kudos

Post the run time error message which you are getting.

reg

Prajwal

0 Kudos

hi, this time my server is down it will up at 3 o'clock.so at 3 o'clock i will send the error message.

but after watching the code i think there will no any error in coding.

In my coding i want to add one more field i.e infront of date which is on header date will dispalyed which will come from what we enter on selection screen .so how can i do it.

0 Kudos

See this code. this will help u

FORM comment_build CHANGING alv_top_of_page TYPE slis_t_listheader.

DATA : v_heading(60).

DATA : v_date(10).

CLEAR gs_line.

v_heading = date+9(2).

concatenate v_heading '.' date7(2) '.' date3(4) into v_heading.

gs_line-typ = 'S'.

gs_line-key = 'From : '.

gs_line-info = v_heading.

append gs_line to alv_top_of_page.

v_heading = date+17(2).

concatenate v_heading '.' date15(2) '.' date11(4) into v_heading.

gs_line-typ = 'S'.

gs_line-key = 'To : '.

gs_line-info = v_heading.

append gs_line to alv_top_of_page.

*

  • CONCATENATE v_heading 'Month Pay Details' INTO v_heading.

*

ENDFORM. " comment_build

Former Member
0 Kudos

When populating field catalog in subroutine BUILD_FIELDCAT, table name and field name should be in uppercase.

wa_fieldcat-col_pos = 1.

wa_fieldcat-fieldname = 'PI_AUFART'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Order Type'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 2.

wa_fieldcat-fieldname = 'ZZDATE'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Date'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 3.

wa_fieldcat-fieldname = 'SHIFT'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Shift'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 4.

wa_fieldcat-fieldname = 'GSUZS'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Start Time'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 5.

wa_fieldcat-fieldname = 'GLUZS'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Finish Time'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 6.

wa_fieldcat-fieldname = 'RE_DELAY'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Reason'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

wa_fieldcat-col_pos = 7.

wa_fieldcat-fieldname = 'T_DELAY'.

wa_fieldcat-tabname = 'I_ZRPA_PRD_DELAY'.

wa_fieldcat-seltext_l = 'Total Delay'.

append wa_fieldcat to i_tab_fieldcat.

clear wa_fieldcat.

Regards,

Joy.