..3 Программа печати
Здесь находится nugget для инсталляции объектов через SAPLINK .
Создайте отчет Z_HIDECOLUMNS и скопируйте в него этот код:
REPORT z_hidecolumns .
* selection-screen parameters
PARAMETERS:
show_d TYPE flag DEFAULT 'X' ,
show_e TYPE flag DEFAULT 'X' ,
show_f TYPE flag DEFAULT 'X' .
* declare the context
DATA gs_context TYPE zcontext_hidecolumns .
* fill the context
PERFORM fill_context .
* call the form
CALL FUNCTION 'ZXLWB_CALLFORM'
EXPORTING
iv_formname = 'HIDECOLUMNS'
iv_context_ref = gs_context
EXCEPTIONS
process_terminated = 1
OTHERS = 2.
IF sy-subrc NE 0 .
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 .
ENDIF .
*&---------------------------------------------------------------------*
*& Form fill_context
*&---------------------------------------------------------------------*
FORM fill_context .
DATA:
ls_line TYPE zcontext_hidecolumns_line ,
lv_index_char TYPE char10 .
* table header
gs_context-header_show_d = show_d .
gs_context-header_show_e = show_e .
gs_context-header_show_f = show_f .
* table positions
DO 10 TIMES .
lv_index_char = sy-index . CONDENSE lv_index_char NO-GAPS .
CLEAR ls_line .
CONCATENATE 'A' lv_index_char INTO ls_line-a SEPARATED BY space .
CONCATENATE 'B' lv_index_char INTO ls_line-b SEPARATED BY space .
CONCATENATE 'C' lv_index_char INTO ls_line-c SEPARATED BY space .
CONCATENATE 'D' lv_index_char INTO ls_line-d SEPARATED BY space .
CONCATENATE 'E' lv_index_char INTO ls_line-e SEPARATED BY space .
CONCATENATE 'F' lv_index_char INTO ls_line-f SEPARATED BY space .
ls_line-show_d = show_d .
ls_line-show_e = show_e .
ls_line-show_f = show_f .
APPEND ls_line TO gs_context-table .
ENDDO .
ENDFORM . "fill_context