SAPSMARTFORMS凭证连续打印设置操作计算很好.docx
- 文档编号:1291999
- 上传时间:2022-10-20
- 格式:DOCX
- 页数:16
- 大小:351.24KB
SAPSMARTFORMS凭证连续打印设置操作计算很好.docx
《SAPSMARTFORMS凭证连续打印设置操作计算很好.docx》由会员分享,可在线阅读,更多相关《SAPSMARTFORMS凭证连续打印设置操作计算很好.docx(16页珍藏版)》请在冰豆网上搜索。
SAPSMARTFORMS凭证连续打印设置操作计算很好
SAP-SMARTFORMS-凭证连续打印设置操作[计算很好]
SAP-SMARTFORMS-凭证连续打印设置操作[计算很好]
SMARTFORMSFORM界面设置
1、表格接口的数据,如下图所示:
2、表格接口表的数据如下图所示:
3、全局定义中的数据定义如下图所示:
SMARTFORMS页和窗口的操作:
1、页头显示内容。
下面的操作都只进行截图显示。
如下图所示:
2、MAIN主窗口的设置:
打印表体的表头显示,如下图所示:
表体循环显示:
新程序行的设置:
选择MainWindow->Create->FlowLogic->ProgramLines 计算
统计区域的设置:
页尾的设置:
REPORT完整代码清单,如下图所示(TCODE:
SE38):
*&---------------------------------------------------------------------*
*& Report ZTEST1000012
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST.
REPORT ZP_SD_007.
INCLUDE ZP_SD_007_VARL.
INCLUDE ZP_SD_007_FORM.
INCLUDE ZP_SD_007_ALV.
START-OF-SELECTION.
PERFORM GET_DATA_ALV.
PERFORM SHOW_ALV TABLES GT_VBAK_ALV.
*&---------------------------------------------------------------------*
*& 包含 ZP_SD_007_VARL
*&---------------------------------------------------------------------*
TABLES:
VBAK.
DATA:
FORMNAME TYPE TDSFNAME,
FM_NAME TYPE RS38L_FNAM,
CONTROL TYPE SSFCTRLOP,
ERRTAB TYPE TSFERROR.
DATA:
BEGIN OF GT_VBAK OCCURS 0. "定义内表
INCLUDE TYPE ZWYVBAP.
DATA:
END OF GT_VBAK.
DATA:
BEGIN OF GT_VBAP OCCURS 0, "定义内表
VBELN LIKE VBAK-VBELN.
DATA:
END OF GT_VBAP.
DATA:
P_VBELN TYPE VBAK-VBELN.
* 定义传递到FORM中的页头数据
DATA:
VKORG TYPE VBAK-VKORG, "销售组织
VTWEG TYPE VBAK-VTWEG, "分销渠道
VKBUR TYPE VBAK-VKBUR, "销售办事处
VKGRP TYPE VBAK-VKGRP, "销售组
KUNNR TYPE VBAK-KUNNR, "供应商代码
NAME1 TYPE KNA1-NAME1, "供应商名称
VBELN TYPE VBAK-VBELN, "订单号码
AUDAT TYPE VBAK-AUDAT. "过账日期
* 定义显示在ALV界面上的内表
DATA:
BEGIN OF GT_VBAK_ALV OCCURS 0,
VKORG TYPE VBAK-VKORG, "销售组织
VTWEG TYPE VBAK-VTWEG, "分销渠道
VKBUR TYPE VBAK-VKBUR, "销售办事处
VKGRP TYPE VBAK-VKGRP, "销售组
KUNNR TYPE VBAK-KUNNR, "供应商代码
NAME1 TYPE KNA1-NAME1, "供应商名称
VBELN TYPE VBAK-VBELN, "订单号码
AUDAT TYPE VBAK-AUDAT, "过账日期
SELE TYPE CHAR1. "定义选中栏,边上的
DATA:
END OF GT_VBAK_ALV.
SELECTION-SCREEN BEGIN OF BLOCK 100 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
S_VBELN FOR VBAK-VBELN DEFAULT '4970' TO '4990'. "定义需要打印的凭证号码
SELECTION-SCREEN END OF BLOCK 100.
*&---------------------------------------------------------------------*
*& 包含 ZP_SD_007_FORM
*$ 显示在界面上的数据
*&---------------------------------------------------------------------*
FORM GET_DATA_ALV.
SELECT
VKORG
VTWEG
VKBUR
VKGRP
KUNNR
VBELN
AUDAT
INTO CORRESPONDING FIELDS OF TABLE GT_VBAK_ALV
FROM VBAK
WHERE VBELN IN S_VBELN.
ENDFORM. "get_data_alv
*&---------------------------------------------------------------------*
*& Form print_so
*&---------------------------------------------------------------------*
* text 设置打印的程序
*----------------------------------------------------------------------*
FORM PRINT_SO.
CLEAR GT_VBAP[].
* 获取选中的数据,并把选中的数据传递至 内表中。
LOOP AT GT_VBAK_ALV WHERE SELE = 'X'.
GT_VBAP-VBELN = GT_VBAK_ALV-VBELN.
APPEND GT_VBAP.
ENDLOOP.
FORMNAME = 'ZSD_PRINT_001'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = FORMNAME
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FOUNCTION_MODULE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CONTROL-NO_DIALOG = 'X'.
CONTROL-PREVIEW = 'X'.
CONTROL-NO_OPEN = 'X'.
CONTROL-NO_CLOSE = 'X'.
CALL FUNCTION 'SSF_OPEN'
EXPORTING
* ARCHIVE_PARAMETERS =
* USER_SETTINGS = 'X'
* MAIL_SENDER =
* MAIL_RECIPIENT =
* MAIL_APPL_OBJ =
* OUTPUT_OPTIONS =
CONTROL_PARAMETERS = CONTROL
* IMPORTING
* JOB_OUTPUT_OPTIONS =
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
* error handling
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
EXIT.
ENDIF.
LOOP AT GT_VBAP. "对凭证号进行循环处理,即在程序中进行分页的设置
P_VBELN = GT_VBAP-VBELN.
* 获取打印的表头数据
SELECT SINGLE
VKORG
VTWEG
VKBUR
VKGRP
KUNNR
VBELN
AUDAT
INTO (VKORG,VTWEG,VKBUR,VKGRP,KUNNR,VBELN,AUDAT)
FROM VBAK
WHERE VBELN = P_VBELN.
* 获取打印的表体数据
CLEAR GT_VBAK[]. "清空内表
SELECT
VBELN
POSNR
MATNR
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- SAPSMARTFORMS 凭证 连续 打印 设置 操作 计算 很好