SAPSMARTFORMS凭证连续打印设置操作计算很好Word下载.docx
- 文档编号:7264143
- 上传时间:2023-05-08
- 格式:DOCX
- 页数:19
- 大小:326.62KB
SAPSMARTFORMS凭证连续打印设置操作计算很好Word下载.docx
《SAPSMARTFORMS凭证连续打印设置操作计算很好Word下载.docx》由会员分享,可在线阅读,更多相关《SAPSMARTFORMS凭证连续打印设置操作计算很好Word下载.docx(19页珍藏版)》请在冰点文库上搜索。
REPORT完整代码清单,如下图所示(TCODE:
SE38):
*&
---------------------------------------------------------------------*
Report
ZTEST1000012
REPORT
ZTEST.
ZP_SD_007.
INCLUDE
ZP_SD_007_VARL.
ZP_SD_007_FORM.
ZP_SD_007_ALV.
START-OF-SELECTION.
PERFORM
GET_DATA_ALV.
SHOW_ALV
TABLES
GT_VBAK_ALV.
包含
ZP_SD_007_VARL
TABLES:
VBAK.
DATA:
FORMNAME
TYPE
TDSFNAME,
FM_NAME
RS38L_FNAM,
CONTROL
SSFCTRLOP,
ERRTAB
TSFERROR.
BEGIN
OF
GT_VBAK
OCCURS
0.
"
定义内表
ZWYVBAP.
END
GT_VBAK.
GT_VBAP
0,
VBELN
LIKE
VBAK-VBELN.
GT_VBAP.
P_VBELN
*
定义传递到FORM中的页头数据
VKORG
VBAK-VKORG,
销售组织
VTWEG
VBAK-VTWEG,
分销渠道
VKBUR
VBAK-VKBUR,
销售办事处
VKGRP
VBAK-VKGRP,
销售组
KUNNR
VBAK-KUNNR,
供应商代码
NAME1
KNA1-NAME1,
供应商名称
VBAK-VBELN,
订单号码
AUDAT
VBAK-AUDAT.
过账日期
定义显示在ALV界面上的内表
GT_VBAK_ALV
0,
VBAK-AUDAT,
SELE
CHAR1.
定义选中栏,边上的
SELECTION-SCREEN
BLOCK
100
WITH
FRAME
TITLE
TEXT-001.
SELECT-OPTIONS:
S_VBELN
FOR
VBAK-VBELN
DEFAULT
'
4970'
TO
4990'
.
定义需要打印的凭证号码
100.
ZP_SD_007_FORM
*$
显示在界面上的数据
FORM
SELECT
VKORG
VTWEG
VKBUR
VKGRP
KUNNR
VBELN
AUDAT
INTO
CORRESPONDING
FIELDS
TABLE
GT_VBAK_ALV
FROM
VBAK
WHERE
IN
S_VBELN.
ENDFORM.
get_data_alv
Form
print_so
text
设置打印的程序
*----------------------------------------------------------------------*
PRINT_SO.
CLEAR
GT_VBAP[].
获取选中的数据,并把选中的数据传递至
内表中。
LOOP
AT
=
X'
.
GT_VBAP-VBELN
GT_VBAK_ALV-VBELN.
APPEND
ENDLOOP.
ZSD_PRINT_001'
CALL
FUNCTION
SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME
IMPORTING
FM_NAME
EXCEPTIONS
NO_FORM
1
NO_FOUNCTION_MODULE
2
OTHERS
3.
IF
SY-SUBRC
<
>
0.
MESSAGE
ID
SY-MSGID
SY-MSGTY
NUMBER
SY-MSGNO
SY-MSGV1
SY-MSGV2
SY-MSGV3
SY-MSGV4.
ENDIF.
CONTROL-NO_DIALOG
CONTROL-PREVIEW
CONTROL-NO_OPEN
CONTROL-NO_CLOSE
SSF_OPEN'
ARCHIVE_PARAMETERS
=
USER_SETTINGS
MAIL_SENDER
MAIL_RECIPIENT
MAIL_APPL_OBJ
OUTPUT_OPTIONS
CONTROL_PARAMETERS
CONTROL
JOB_OUTPUT_OPTIONS
FORMATTING_ERROR
INTERNAL_ERROR
SEND_ERROR
3
USER_CANCELED
4
5.
error
handling
EXIT.
GT_VBAP.
对凭证号进行循环处理,即在程序中进行分页的设置
GT_VBAP-VBELN.
获取打印的表头数据
SELECT
SINGLE
(VKORG,VTWEG,VKBUR,VKGRP,KUNNR,VBELN,AUDAT)
P_VBELN.
获取打印的表体数据
GT_VBAK[].
清空内表
POSNR
MATNR
ARKTX
KWMENG
NETWR
NETPR
MEINS
GT_VBAK
VBAP
NAME1
TABLES
传递内表数据到SMARTFORMS中
SSF_CLOSE'
JOB_OUTPUT_INFO
4.
analyse
internal
table
of
Smart
Forms
SSF_READ_ERRORS'
ERRORTAB
ERRTAB.
NOT
IS
INITIAL.
add
your
print_so
ZP_SD_007_ALV
TYPE-POOLS:
slis.
*-----------------------------------------------------------*
*ALV相关内表和结构
*
IT_FIELDCAT
SLIS_T_FIELDCAT_ALV,
WA_LAYOUT
SLIS_LAYOUT_ALV,
WA_STATUS
SLIS_FORMNAME
VALUE
SUB_SET_PF_STATUS'
WA_COMAND
USER_COMMAND'
IT_EVENTS
SLIS_T_EVENT.
G_LAYOUT
LVC_S_LAYO,
FIELDCAT
LINE
LVC_T_FCAT,
GT_FIELDCAT
LVC_T_FCAT.
显示ALV
text
-->
P_LT_TAB
TABLE.
*ALV表格显示样式
ALV_LIST_LAYOUT.
*ALV报表的字段设置
PF_ALV_LIST_FCAT
USING
IT_FIELDCAT.
*ALV报表显示
PF_ALV_LIST_DISPLY
SHOW_ALV
ALV_LIST_LAYOUT
p1
--
p2
WA_LAYOUT-COLWIDTH_OPTIMIZE
WA_LAYOUT-DETAIL_INITIAL_LINES
WA_LAYOUT-BOX_FIELDNAME
SELE'
定义边框选中栏
PF_ALV_LIST_FCAT
P_IT_FIELDCAT
P_IT_FIELDCAT.
LW_AFIELDCAT
SLIS_FIELDCAT_ALV,
LW_POS
I.
DEFINE
D_FIELD.
LW_AFIELDCAT.
+
1.
LW_AFIELDCAT-COL_POS
LW_POS.
LW_AFIELDCAT-FIELDNAME
&
LW_AFIELDCAT-SELTEXT_L
2.
LW_AFIELDCAT-REF_FIELDNAME
LW_AFIELDCAT-REF_TABNAME
LW_AFIELDCAT-NO_ZERO
LW_AFIELDCAT-HOTSPOT
6.
LW_AFIELDCAT-OUTPUTLEN
7.
LW_AFIELDCAT-EDIT
8.
LW_AFIELDCAT-KEY
9.
END-OF-DEFINITION.
D_FIELD:
VBELN'
销售单号'
SPACE
10'
SPACE,"
销售凭证
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SAPSMARTFORMS 凭证 连续 打印 设置 操作 计算 很好
![提示](https://static.bingdoc.com/images/bang_tan.gif)