..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


 

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