*&---------------------------------------------------------------------*
*& Report Z_SALAH_SMART02
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_SALAH_SMART02.
**********************************************************************
*REPORT DESCRIBE:SMARTFORMS 打印第二弹
*DEVELOPER:SALAH
*DEVELOP DATE:20101112
*MODIFY DATE:
*FUNCTION SPEC:
*KEY USER:
**********************************************************************
DATA GT_01 TYPE ZNKP09.
DATA GT_02 TYPE ZNKP09.
DATA GS_01 LIKE LINE OF GT_01.
DATA GS_FM TYPE RS38L_FNAM.
DATA L_CONTORL TYPE SSFCTRLOP.
DATA L_CONTORL_INFO TYPE SSFCRESCL.
DATA I_01 TYPE I.
SELECT EBELP
EBELN
MATNR
WERKS
BUKRS
FROM EKPO
INTO CORRESPONDING FIELDS OF TABLE GT_01 UP TO 20 ROWS.
SORT GT_01 BY EBELP.
I_01 = LINES( GT_01 ).
LOOP AT GT_01 INTO GS_01.
IF SY-TABIX = I_01.
APPEND INITIAL LINE TO GT_01.
ENDIF.
AT FIRST .
L_CONTORL-NO_CLOSE = 'X'."激活多数据打印,添加新数据
ENDAT.
AT LAST.
L_CONTORL-NO_CLOSE = ' '."不再添加新数据。关闭该参数
ENDAT.
AT NEW EBELP.
*BREAK-POINT.
IF GT_02 IS NOT INITIAL.
CALL FUNCTION '/1BCDWB/SF00000237'
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS = L_CONTORL
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
TABLES
GT_01 = GT_02
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
IF SY-SUBRC <> 0.
* IMPLEMENT SUITABLE ERROR HANDLING HERE
ENDIF.
L_CONTORL-NO_OPEN = 'X'.
CLEAR GT_02.
ENDIF.
ENDAT.
APPEND GS_01 TO GT_02.
ENDLOOP.