ALV / SF / DOI …… System Para
*&----------------ALV
PARA :
1 ---- field catalog
I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, OO ----- > LVC_T_FCAT
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV. ------> LVC_S_FCAT
e.g :
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
2------ report header
IT_LISTHEADER TYPE SLIS_T_LISTHEADER, OO -----> LVC_T_HEAD
e.g.:
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'. " character type
append hline to I_LISTHEADER .
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = IT_LISTHEADER
.
ENDFORM. "
3------ event
V_EVENTS TYPE SLIS_T_EVENT, OO ------> LVC_T_EVTS
WA_EVENT TYPE SLIS_ALV_EVENT. -------> LVC_S_EVTS
e.g :
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = V_EVENTS
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
WA_EVENT-FORM = 'TOP_OF_PAGE'.
MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-FORM.
ENDIF.
4------ lay out
ALV_LAYOUT TYPE SLIS_LAYOUT_ALV. OO -----> LVC_S_LAYO
e.g.:
alv_loyout- zebra = 'X'
alv_loyout- edit = 'X'
5------- filter
GT_FILT TYPE slis_filter_alv OO ----> LVC_T_FILT,
GS_FILT TYPE slis_filter_alv0/1 ----> LVC_S_FILT,
6------- sort
it_sort type slis_t_sortinfo_alv OO -------> LVC_T_SORT
wa_sort type slis_sortinfo_alv
7------------ start color , if ALV need color , define in table
color(4) type c ,
colinfo TYPE slis_t_specialcol_alv,
e.g. :
gt_color1-fieldname = 'EBELN'.
gt_color1-color-col = 3.
gt_color1-color-int = 1.
gt_color1-color-inv = 0.
APPEND gt_color1.
LOOP AT IT_EKKO into WA_EKKO.
CASE sy-tabix.
WHEN 1.
WA_EKKO-color = 'C200'.
WHEN 2.
WA_EKKO-color = 'C300'.
WHEN 3.
WA_EKKO-color = 'C700'.
WHEN 4.
WA_EKKO-color = 'C600'.
ENDCASE.
WA_EKKO-colinfo[] = gt_color1[].
MODIFY IT_EKKO from WA_EKKO INDEX sy-tabix.
ENDLOOP.
*----------- end
RS_SELFIELD TYPE SLIS_SELFIELD. " * information cursor position ALV when run
FUNC:
*----- 1.
V_REPID = SY-REPID.
data : I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = V_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_GRID_TITLE = I_TITLE_EKKO
* I_GRID_SETTINGS =
IS_LAYOUT = ALV_LAYOUT
IT_FIELDCAT = I_FIELDCAT[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* i_default = 'ZLAY1'
I_SAVE = 'A'
* is_variant = i_variant
IT_EVENTS = V_EVENTS
TABLES
T_OUTTAB = IT_EKKO
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
*----- 2.
GO_GRID TYPE REF TO CL_GUI_ALV_GRID,
GO_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
IF GO_GRID IS INITIAL.
CREATE OBJECT GO_GRID
EXPORTING
I_PARENT = CL_GUI_CONTAINER=>SCREEN0.
CREATE OBJECT EVENT_RECEIVER.
SET HANDLER EVENT_RECEIVER->HANDLE_DATA_CHANGED FOR GO_GRID.
IF SY-BATCH IS INITIAL.
CALL METHOD GO_GRID->REGISTER_EDIT_EVENT
EXPORTING
I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER. "回车时触发
ENDIF .
ENDIF .
CALL METHOD GO_GRID->SET_TABLE_FOR_FIRST_DISPLAY
EXPORTING
IS_VARIANT = GS_VARIANT
I_SAVE = 'A'
IS_LAYOUT = ALV_LAYOUT
CHANGING
IT_OUTTAB = ITAB[]
IT_FIELDCATALOG = GT_FIELDCAT[]
EXCEPTIONS
INVALID_PARAMETER_COMBINATION = 1
PROGRAM_ERROR = 2
TOO_MANY_LINES = 3
OTHERS = 4.
CALL METHOD GO_GRID->SET_READY_FOR_INPUT "处于编辑状态
EXPORTING
I_READY_FOR_INPUT = 1.
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS "设置焦点在go_grid 上
EXPORTING
CONTROL = GO_GRID .
*&----------------SF
PARA :
WA_CONTROL like ssfctrlop, "Smart Forms: Control structure
WA_OPTIONS type ssfcompop, " SAP Smart Forms: Smart Composer (transfer) options
gv_op type ssfcresop, " Smart Forms: Return value at start of form printing
gv_otf type ssfcrescl. " Smart Forms: Return value at end of form printing
WA_CONTROL-no_open = 'X'. " SAP Smart Forms: General Indicator
WA_CONTROL-no_close = 'X'.
WA_CONTROL-no_close = 'X'. " Output DEVICE
WA_CONTROL-preview = 'X'. " Print preview
WA_OPTIONS -tddest = 'LOCL'. " Spool: Output device
WA_OPTIONS -tdimmed = 'X'. " Print Immediately (Print Parameters)
WA_OPTIONS -tddelete = 'X'. " Delete After Printing (Print Parameters)
WA_CONTROL-NO_DIALOG = 'X'."是否显示选择打印机界面
FUNC :
1 .
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = C2_NAME
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = C1_NAME
.
CALL FUNCTION C1_NAME
IMPORTING
CONTROL_PARAMETERS = WA_CONTROL
OUTPUT_OPTIONS = WA_OPTIONS
TABLES
Itab = ITAB .
2.
call function 'SSF_OPEN'
exporting
* ARCHIVE_PARAMETERS =
user_settings = space
output_options = WA_OPTIONS
control_parameters = WA_CONTROL
importing
job_output_options = gv_op
.
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = C2_NAME
* VARIANT = ' '
* DIRECT_CALL = ' '
importing
fm_name = C1_NAME .
CALL FUNCTION C1_NAME
EXPORTING
CONTROL_PARAMETERS = WA_CONTROL
TABLES
T_FO = ITAB
call function 'SSF_CLOSE'
IMPORTING
job_output_info = gv_otf
EXCEPTIONS
.
*&----------------DOI