SAPSMARTFORMS凭证连续打印设置操作计算很好.docx
《SAPSMARTFORMS凭证连续打印设置操作计算很好.docx》由会员分享，可在线阅读，更多相关《SAPSMARTFORMS凭证连续打印设置操作计算很好.docx（16页珍藏版）》请在冰豆网上搜索。
SAPSMARTFORMS凭证连续打印设置操作计算很好
SAP-SMARTFORMS-凭证连续打印设置操作[计算很好]
SAPSMARTFORMS凭证连续打印设置操作之三
利用ALV显示，并进行手动选择打印
在SAP系统中，凭证经常需要连续打印，如从凭证号100，打印至120；要求系统在打印的时候自动按凭证号进行分页处理。
下面的例子是利用内表传递数据至SMARTFORMS中，并且利用打印程序中的内表循环来实现凭证的自动分页打印处理；而SMARTFORMS的设置则非常的简单，按一张凭证号来进行设置即可。
下面进行具体的操作讲解。
打印效果显示，如下图所示：
运行报表程序：
运行后，出现下面的界面，这时我们就可以选择需要打印的单据号，然后再点击工具栏中的“打印”按钮，即可进行选择性的连续打印，如下图：
数据结构体的定义zwyvbap；TCODE：
SE11，此结构体在后面的程序中也要用到，是传递数据的接口。
定义如下图所示：
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
ARKTX
KWMENG
NETWR
NETPR
MEINS
INTO CORRESPONDING FIELDS OF TABLE GT_VBAK
FROM VBAP
WHERE VBELN = P_VBELN.
CALL FUNCTION FM_NAME
EXPORTING
CONTROL_PARAMETERS = CONTROL
VKORG = VKORG
VTWEG = VTWEG
VKBUR = VKBUR
VKGRP = VKGRP
KUNNR = KUNNR
VBELN = VBELN
AUDAT = AUDAT
NAME1 = NAME1
TABLES
GT_VBAK = GT_VBAK "传递内表数据到SMARTFORMS中
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.
CALL FUNCTION 'SSF_CLOSE'
* IMPORTING
* JOB_OUTPUT_INFO =
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
* analyse internal error table of Smart Forms
CALL FUNCTION 'SSF_READ_ERRORS'
IMPORTING
ERRORTAB = ERRTAB.
IF NOT ERRTAB IS INITIAL.
* add your handling
ENDIF.
ENDFORM. "print_so
*&---------------------------------------------------------------------*
*& 包含 ZP_SD_007_ALV
*&---------------------------------------------------------------------*
TYPE-POOLS:
slis.
*-----------------------------------------------------------*
*ALV相关内表和结构 *
*-----------------------------------------------------------*
DATA:
IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
WA_STATUS TYPE SLIS_FORMNAME VALUE 'SUB_SET_PF_STATUS',
WA_COMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND',
IT_EVENTS TYPE SLIS_T_EVENT.
DATA:
G_LAYOUT TYPE LVC_S_LAYO,
FIELDCAT TYPE LINE OF LVC_T_FCAT,
GT_FIELDCAT TYPE LVC_T_FCAT.
*&---------------------------------------------------------------------*
*& 显示ALV
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LT_TAB text
*----------------------------------------------------------------------*
FORM SHOW_ALV TABLES TABLE.
*ALV表格显示样式
PERFORM ALV_LIST_LAYOUT.
*ALV报表的字段设置
PERFORM PF_ALV_LIST_FCAT USING IT_FIELDCAT.
*ALV报表显示
PERFORM PF_ALV_LIST_DISPLY TABLES TABLE.
ENDFORM. " SHOW_ALV
*&---------------------------------------------------------------------*
*& Form ALV_LIST_LAYOUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM ALV_LIST_LAYOUT.
WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
WA_LAYOUT-DETAIL_INITIAL_LINES = 'X'.
WA_LAYOUT-BOX_FIELDNAME = 'SELE'. "定义边框选中栏
ENDFORM. " ALV_LIST_LAYOUT
*&---------------------------------------------------------------------*
*& Form PF_ALV_LIST_FCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IT_FIELDCAT text
*----------------------------------------------------------------------*
FORM PF_ALV_LIST_FCAT USING P_IT_FIELDCAT.
DATA:
LW_AFIELDCAT TYPE SLIS_FIELDCAT_ALV,
LW_POS TYPE I.
DEFINE D_FIELD.
CLEAR LW_AFIELDCAT.
LW_POS = LW_POS + 1.
LW_AFIELDCAT-COL_POS = LW_POS.
LW_AFIELDCAT-FIELDNAME = &1.
LW_AFIELDCAT-SELTEXT_L = &2.
LW_AFIELDCAT-REF_FIELDNAME = &4.
LW_AFIELDCAT-REF_TABNAME = &3.
LW_AFIELDCAT-NO_ZERO = &5.
LW_AFIELDCAT-HOTSPOT = &6.
LW_AFIELDCAT-OUTPUTLEN = &7.
LW_AFIELDCAT-EDIT = &8.
LW_AFIELDCAT-KEY = &9.
APPEND LW_AFIELDCAT TO IT_FIELDCAT.
END-OF-DEFINITION.
D_FIELD:
'VBELN' '销售单号' SPACE SPACE 'X' SPACE '10' SPACE SPACE,"销售凭证
'VKORG' '销售组织' SPACE
升级会员 