Scribd
Upload
9 views

Tip Alv Tabla Structure

The document outlines an ABAP program that sets up an ALV (ABAP List Viewer) display for a report, defining field catalog entries for various sales-related data fields. It includes a function call to 'REUSE_ALV_LIST_DISPLAY' to render the report based on the defined layout and field catalog. Error handling is also incorporated to manage potential issues during the display process.

Uploaded by

Rene Salinas
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
9 views

Tip Alv Tabla Structure

The document outlines an ABAP program that sets up an ALV (ABAP List Viewer) display for a report, defining field catalog entries for various sales-related data fields. It includes a function call to 'REUSE_ALV_LIST_DISPLAY' to render the report based on the defined layout and field catalog. Error handling is also incorporated to manage potential issues during the display process.

Uploaded by

Rene Salinas
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 3

FORM f_display_report.

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.


data: x_fieldcat type slis_fieldcat_alv.
DATA: ls_layout TYPE slis_layout_alv.
x_fieldcat-fieldname = 'vkorg'.
x_fieldcat-seltext_l = 'Sales Organization'.
x_fieldcat-tabname = 'ITAB'.
*x_fieldcat-input = 'X'.
*x_fieldcat-edit = 'X'.
x_fieldcat-col_pos = 1.
append x_fieldcat to gt_fieldcat.
"clear x_fieldcat.
x_fieldcat-fieldname = 'vbeln'.
x_fieldcat-seltext_l = 'Sales Order'.
x_fieldcat-col_pos = 2.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'posnr'.
x_fieldcat-seltext_l = 'Position'.
x_fieldcat-col_pos = 3.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'SerialNumber'.
x_fieldcat-seltext_l = 'SerialNumber'.
x_fieldcat-col_pos = 4.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'matnr'.
x_fieldcat-seltext_l = 'Material'.
x_fieldcat-col_pos = 5.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'costousd'.
x_fieldcat-seltext_l = 'CostoUSD'.
x_fieldcat-col_pos = 6.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'value'.
x_fieldcat-seltext_l = 'Value'.
x_fieldcat-col_pos = 7.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'currency'.
x_fieldcat-seltext_l = 'Currency'.
x_fieldcat-col_pos = 8.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'stat_venc'.
x_fieldcat-seltext_l = 'Status'.
x_fieldcat-col_pos = 9.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'daysdif'.
x_fieldcat-seltext_l = 'Agging Days'.
x_fieldcat-col_pos = 10.
append x_fieldcat to gt_fieldcat.
x_fieldcat-fieldname = 'CategoryDate'.
x_fieldcat-seltext_l = 'CategoryDate'.
x_fieldcat-col_pos = 11.
append x_fieldcat to gt_fieldcat.

call function 'REUSE_ALV_LIST_DISPLAY'


exporting
i_callback_program = sy-repid "programa
is_layout = ls_layout
i_callback_pf_status_set = 'F_SET_PF_STATUS'
i_callback_user_command = 'F_USER_COMMAND'
it_fieldcat = gt_fieldcat
tables
t_outtab = i_stock_cds
EXCEPTIONS
INCONSISTENT_INTERFACE = 3
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.

ZREEWM_CYC_COUNT_WEEK_F01

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'


* EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_STRUCTURE_NAME =
* IS_LAYOUT =
* IT_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
* IR_SALV_LIST_ADAPTER =
* IT_EXCEPT_QINFO =
* I_SUPPRESS_EMPTY_DATA = ABAP_FALSE
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB =
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

Module Name CHECKBOX_OUT


1332 *& Form CHECKBOX_OUT
1336 form checkbox_out using rs_layout type kkblo_layout
1342 if not rs_layout-box_tabname is initial and
1343 rs_layout-box_tabname ne r_tabname.
>>>>> if not r_sum is initial or <box> = '-'.
1354 if <box> = ' ' or <box> = 'X'.
1355 g_mark = <box>.
1357 write g_mark as checkbox no-gap input off.
1359 write g_mark as checkbox no-gap.
1363 if <box> = '1'.
1368 write l_mark as checkbox no-gap input off.
CHECKBOX_OUT

You might also like