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
