..3 Программа печати

Здесь находится nugget для инсталляции объектов через SAPLINK .

Создайте отчет Z_DYNTABLE и скопируйте в него этот код:


REPORT z_dyntable .


* declare the context

DATA gt_context TYPE zcontext_dyntable .


* fill the context

PERFORM fill_context .


* call the form

CALL FUNCTION 'ZXLWB_CALLFORM'

EXPORTING

iv_formname = 'DYNTABLE'

iv_context_ref = gt_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_row TYPE zcontext_dyntable_row ,

ls_cell TYPE zcontext_dyntable_cell ,

lv_rows_number TYPE i ,

lv_cols_number TYPE i ,

lv_index_row TYPE char10 ,

lv_index_col TYPE char10 .


CALL FUNCTION 'BKK_RANDOM'

EXPORTING

i_modulo = 100

IMPORTING

e_random_number = lv_rows_number.


CALL FUNCTION 'BKK_RANDOM'

EXPORTING

i_modulo = 100

IMPORTING

e_random_number = lv_cols_number.


DO lv_rows_number TIMES .

lv_index_row = sy-index .

CLEAR ls_row .


DO lv_cols_number TIMES .

lv_index_col = sy-index .

CLEAR ls_cell .

CONCATENATE 'Cell' lv_index_row

'/' lv_index_col

INTO ls_cell-value SEPARATED BY space .

CONDENSE ls_cell-value .

APPEND ls_cell TO ls_row-cells .

ENDDO .


APPEND ls_row TO gt_context .

ENDDO .


ENDFORM . "fill_context

Результат работы программы: