*&------------------------------------------------ --------------------- *
*&レポートZ_SALAH_SMART02
*&---------------------- ----------------------------------------------- *
*&
*&------------------------------------------------ --------------------- *
REPORT Z_SALAH_SMART02 。
************************************************** ********************
* REPORT DESCRIBE:スマートフォーム打印第二弹
* DEVELOPER:サラは
* DATEを開発:20101112
* MODIFY日:
* FUNCTION SPEC:
* KEYのUSER:
************************************************** ********************
データGT_01 TYPE ZNKP09 。
データGT_02 TYPE ZNKP09 。
DATA GS_01 LIKE LINE GT_01 OF 。
データGS_FM TYPE RS38L_FNAM 。
データL_CONTORL TYPE SSFCTRLOP 。
データL_CONTORL_INFO TYPE SSFCRESCL 。
データI_01 TYPE I 。
EBELP SELECT
EBELN
MATNR
WERKS
BUKRSを
EKPO FROM
INTO CORRESPONDING FIELDS OF TABLE GT_01 UP TO 20 ROWS 。
SORTのGT_01 EBELP BY 。
I_01 = LINES (GT_01 )。
ループ GT_01 AT 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'
輸出し
* 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
*例外
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
*その他= 5
。
IF SY -SUBRC <> 0 。
*適切なエラーHERE HANDLING IMPLEMENT
ENDIFを。
L_CONTORL -NO_OPEN = 'X' 。
CLEAR GT_02 。
ENDIF 。
ENDAT 。
APPEND GS_01 TO GT_02 。
ENDLOOP 。