GT_DATA[] = GT_DATA_A[] .
DELETE GT_DATA[] WHERE CKBOX IS INITIAL .
IF GT_DATA[] IS NOT INITIAL.
LOOP AT GT_DATA .
L_CONTROL_PARAMETERS-NO_OPEN = 'X'.
L_CONTROL_PARAMETERS-NO_CLOSE = 'X'."
AT FIRST .
L_CONTROL_PARAMETERS-NO_OPEN = SPACE."首次运行时打开打印对话框
L_CONTROL_PARAMETERS-NO_CLOSE = 'X'."并且不关闭假脱机请求
ENDAT .
* AT LAST .
* L_CONTROL_PARAMETERS-NO_OPEN = SPACE.
* L_CONTROL_PARAMETERS-NO_CLOSE = 'X'."并且不关闭假脱机请求
** L_CONTROL_PARAMETERS-PREVIEW = 'X'.
* ENDAT .
CLEAR GT_DATA_IT[] .
SELECT VBELN POSNR MATNR ARKTX FKIMG VRKME NETWR INTO CORRESPONDING FIELDS OF TABLE GT_DATA_IT[] FROM VBRP
WHERE VBELN = GT_DATA-VBELN
.
IF GT_DATA_IT[] IS NOT INITIAL.
LOOP AT GT_DATA_IT.
SELECT SINGLE VBELV POSNV INTO ( GT_DATA_IT-VBELN_VA , GT_DATA_IT-POSNR_VA ) FROM VBFA
WHERE VBELN = GT_DATA_IT-VBELN
AND POSNN = GT_DATA_IT-POSNR
.
SELECT SINGLE KDMAT INTO GT_DATA_IT-KDMAT FROM VBAP
WHERE VBELN = GT_DATA_IT-VBELN_VA
AND POSNR = GT_DATA_IT-POSNR_VA
.
SELECT SINGLE BSTNK INTO GT_DATA_IT-BSTNK FROM VBAK
WHERE VBELN = GT_DATA_IT-VBELN_VA
.
GT_DATA_IT-ZSLDV = GT_DATA_IT-FKIMG && '/' && GT_DATA_IT-VRKME .
IF GT_DATA_IT-FKIMG <> 0.
GT_DATA_IT-ZHXDJ = GT_DATA_IT-NETWR / GT_DATA_IT-FKIMG .
ENDIF.
IF GT_DATA-VBELN_VL IS INITIAL.
SELECT SINGLE VBELN INTO GT_DATA-VBELN_VL FROM LIPS
WHERE VBELV = GT_DATA_IT-VBELN_VA
AND VBELN <> ''
.
ENDIF.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = GT_DATA_IT-POSNR
IMPORTING
OUTPUT = GT_DATA_IT-POSNR.
MODIFY GT_DATA_IT .
CLEAR GT_DATA_IT .
ENDLOOP.
ENDIF.
* DO 17 TIMES.
* CLEAR GT_DATA_IT .
* APPEND GT_DATA_IT .
* ENDDO.
* FORMNAME = 'ZMMSF103_D' . 设置每页15行
CLEAR NUM .
DESCRIBE TABLE GT_DATA_IT LINES NUM .
CLEAR TEMP .
CLEAR TEMP_Z .
TEMP = NUM MOD 15 .
TEMP_Z = NUM DIV 15 .
IF TEMP <> 0.
TEMP_Z = TEMP_Z + 1 .
ENDIF.
GT_DATA-TEMP_Z = TEMP_Z .
IF TEMP <> 0.
DO 15 - TEMP TIMES.
CLEAR GT_DATA_IT .
APPEND GT_DATA_IT .
ENDDO.
ENDIF.
CALL FUNCTION FM_NAME
EXPORTING
CONTROL_PARAMETERS = L_CONTROL_PARAMETERS
OUTPUT_OPTIONS = L_OUTPUT_OPTIONS
USER_SETTINGS = ''
GS_INVOICE_HEAD = GT_DATA
TABLES
GT_INVOICE_ITEM = GT_DATA_IT[]
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDLOOP.
DATA: LS_JOB_OUTPUT_INFO TYPE SSFCRESCL.
CALL FUNCTION 'SSF_CLOSE'
IMPORTING
JOB_OUTPUT_INFO = LS_JOB_OUTPUT_INFO
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
OTHERS = 4.
smartforms模板自动补齐空行
最新推荐文章于 2025-02-10 11:38:41 发布