SAP-SMARTFORMS-凭证连续打印设置操作计算很好

1、SAPSMARTFORM就证连续打印设置操作之三 利用ALV显示，并进行手动选择打印 在SAP系统中，凭证经常需要连续打印，如从凭证号100,打印至120;要求系统在打印的时候自动按 凭证号进行分页处理。下面的例子是利用内表传递数据至SMARTFORMS中，并且利用打印程序中的内表循 环来实现凭证的自动分页打印处理；而SMARTFORMS勺设置则非常的简单，按一张凭证号来进行设置即可。 下面进行具体的操作讲解。打印效果显示，如下图所示：运行报表程序： 连续耳印蔚试川 消隹免定+97d到方4390二|中| 运行后，出现下面的界面，这时我们就可以选择需要打印的单据号，然后再点击工具栏中的“打印”按

2、钮,即可进行选择性的连续打印，如下图： 连续打印资试zwy 真口SD区导证后匿方包蛆磔&TT%的4111 诩M彳,H口打却 箱售订单交期统计表 上面为显示连续打印三张销售凭证，运行后如下图所示:国 甲W 诲游 -酒中平边谕等号网 军白田 修繇号订单期隹日1 TO inoo inn loir LID nrrmi|- ?-DL-03 i?i 1DDC 1 OO Ida 101 icooaolCOL 4S7L L-O7 72 1DOO 1CO3 ,01JO 11D 3C00033200 4972 LQQ?1-21 173 IDQO 103 74 1D0C 二口7575 LODC 10SC 1

3、76 tone 103C 177177 kODC M30 17 IODO 1DOO 些 Loan 1D3O 耻 loan 1DC0 182 LODO 1D3 旧 W WQO 1JX WQO 10X IBS UJOO 10X ise mao UIL 107 1X100 IDIL tee mao lDl(j 旧q WDQ 10ID IOC 1HQ0 IDHTJ 0COOO31C52 4&T3 1M7-0L2L naoasiTO 4574 17-01-21 20000J1CC2 4975 3ML恐 口4S76 3COOT511CO 4S77 LS7-fll-2L 0CCO53213ODCCO

4、TDISCODOCTOR13)DCCO5D1C33ULUJJJ2KIJLWJJllXG DCC033KO0(O331171DOBKOQcrrnjii7iDcrrmpKi 其ML2L例ELML9?72ELML9?722 2 L湖UL22LWJ-Cl-22 1印01 221M7-01-22l7-01-22l7-01-22 FPOl的打印孩蚊；第OOOOl页,共00003页电R出比口和存目&a LffvVYYKh ro4IS1775P 4.000 23SO.OC rc XQ0.00 4 40 0 t-1Z AGDXI5F/FQ 4.000 1462.00 FC 5848.00 总数量 iao

5、oo 总命领 32a38.0032a38.00 广州XXXX有限公司打印日第，2014-04-01 |n|s11:17:43 馅逑也投21000分何要道，12铺逑办主处：KWO 做后有名私：fiKnm：19。7懦生复114971 行号 物料代码 物料描述 数量 单价 单位 金以 备注 1 10 0 10 1no )! 40to-ttMtt220/25* g.000 61000 CAP 12200.00 20.20.000000 总金12,12,200.200.0000 业务员: 掾作见 业务经理: 业务员: 操作届 业务经理: 行号 物料代码 物料描法 帮母 单饰 单位 命地 籥注 10 CI

6、 君,41 3.444 1130.40 M 4M4. 70 IM4V工1 4.MO l M00 K 755JfM 却 13 写“rvT LraI3 5.044 1730.40 E 6654M 40 B-QCreate-FlowLogic-ProgramLines计算 tctaltctal= =zs.vbazs.vbalkumtnelkumtne， price-gsrTAak-rietiur 3Um_price=gs_vbnetpr. i_- sumtotalsumtotal- -suntotalsuntotal+ +zotal.zotal. 明 S_price=sprice+price. IK

7、IK 文车费型E三革元素-开粘P型雀菁 Mn;克丸 E.，修，*IW 画.阚字他 统计区域的设置: “g主工口 f却TTTOATF?S *命：gem前卓琳1 “3城计闻。 ：1方ZlLlL*曰 3 n，ET-i物罚i I，弟更上炉 才.曰烟忘跳导rf I9kTEMLAES贵房 0时机rm二市 页尾的设置： H%TEMPLATE天尾 *囱囱宜3业务员 SKTEXT35业考员京陵 ,国唯TNT36操作员 5%TEXTR操作员字照 GSVBAKGSVBAK- -NETFRNETFR -2贯人藁一 CH佻MGE：步宽工 年1wmocwi附防内 3号TFMRATE|宅司行邯 ,WlK7,由口 *翎 船f

8、tlLOPl钟W1 -注开3H4丁11墨河. ,tTPKCEJii？rt1一国*TE订胃的身 ，格*TB(T23脚陋N申七ILii凡tr串咻-图怆诈打方型号科式A212号与本 REPORTZPSD007. INCLUDEZPSD007VARL INCLUDEZPSD007FORM. INCLUDEZPSD007ALV START-OF-SELECTION PERFORMGETDATAALV. PERFORMSHOWALVTABLESGTVBAKALV. *& TABLES:VBAK. DATA:FORMNAMETYPETDSFNAME, CONTROLTYPESSFCTRLOP, DA

9、TA:BEGINOFGTVBAKOCCURS0.”定义内表 DATA:ENDOFGTVBAK. DATA:BEGINOFGT_VBAPOCCURS0, DATA:ENDOFGTVBAP. DATA:PVBELNTYPEVBAK-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-NAM

10、E1, 供应商名称 VBELN TYPE VBAK-VBELN, 订单号码 AUDAT TYPE VBAK-AUDAT. 过账日期 *定义显示在ALV界面上的内表 DATA: BEGINOF GT_VBAK_ALV OCCURS0, VKORG TYPE VBAK-VKORG 销售组织 包含文件 ZPSD007VARLZPSD007VARL 活动 *& *&包含 ZPSD007VARL INCLUDETYPE ZWYVBAP. VBELN LIKEVBAK-VBELN. FMNAME TYPERS38L_FNAM, ERRTAB TYPETSFERROR. 定义内表 VTWEG

11、 TYPEVBAK-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, 过账日期 SELETYPECHAR1.”定义选中栏，边上的 DATA:ENDOFGT_VBAK_ALV.| SELECTION-SCREENBEGINOFBLOCK100WITHFRAMETITLETEXT-001. SEL

12、ECT-OPTIONS:S_VBELNFORVBAK-VBELNDEFAULT4970TO4990.定义需要打印 的凭证号码 SELECTION-SCREENENDOFBLOCK100. 包含文件？郎IFO加一|活动 * &* * &包含ZP_SD_007_FORM * $显示在界面上的数据 * &* FORMGET_DATA_ALV. SELECT VKORG VTWEG VKBUR VKGRP KUNNR VBELN AUDAT INTOCORRESPONDINGFIELDSOFTABLEGT_VBAK_ALVFROMVBAK WHEREVBELNINS_VBELN

13、. ENDFORM1get_data_alv FORMPRINT_SO CLEARGT_VBAP * 获取选中的数据，并把选中的数据传递至内表中。 LOOPATGT_VBAK_ALVWHERESELE=X. GT_VBAP-VBELN=GT_VBAK_ALV-VBELN. APPENDGT_VBAP. *& *Formprintso *& * text设置打印的程序 ENDLOOP. FORMNAME=ZSD_PRINT_001 CALLFUNCTIONSSF_FUNCTION_MODULE_NAME EXPORTING FORMNAME=FORMNAME IMPORTING

14、FM_NAME=FM_NAME EXCEPTIONS NO_FORM=1 NO_FOUNCTION_MODULE=2 OTHERS=3. IFSY-SUBRC0. MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4. ENDIF. CONTROL-NO_DIALOG=X. CONTROL-PREVIEW=X. CONTROL-NO_OPEN=X. CONTROL-NO_CLOSE=X. CALLFUNCTIONSSF_OPEN EXPORTING * ARCHIVE_PARAMETER

15、S= * 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. 一IFSY-SUBRC0. * errorhandling MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBE

16、RSY-MSGNO WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4. EXIT. ENDIF. LOOPATGT_VBAP.对凭证号进行循环处理，即在程序中进行分页的设置 P_VBELN=GT_VBAP-VBELN. * 获取打印的表头数据 SELECTSINGLE VKORG VTWEG VKBUR VKGRP KUNNR VBELN AUDAT INTO(VKORG,VTWEGVKBUR,VKGRP,KUNNR,VBELN,AUDAT)FROMVBAK WHEREVBELN=P_VBELN. * 获取打印的表体数据CLEARGT_VBAK口.清空内表 SELECT

17、 VBELN POSNR MATNR ARKTX KWMENG NETWR NETPR MEINS INTOCORRESPONDINGFIELDSOFTABLEGT_VBAK FROMVBAP WHEREVBELN=P_VBELN. CALLFUNCTIONFM_NAME EXPORTING CONTROL_PARAMETERS VKORG CONTROL VKORG VTWEG=VTWEG VKBUR=VKBUR VKGRP=VKGRP KUNNR=KUNNR VBELN=VBELN AUDAT=AUDAT NAME1=NAME1 TABLES GT_VBAK=GT_VBAK”传递内表数据至

18、USMARTFORMS中 EXCEPTIONS FORMATTING_ERROR=1 INTERNAL_ERROR=2 SEND_ERROR=3 USER_CANCELED=4 OTHERS=5. IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4. ENDIF. ENDLOOP. CALLFUNCTIONSSF_CLOSE * IMPORTING * JOB_OUTPUT_INFO= EXCEPTIONS FORMATTING_ERROR=1 INTERNAL

19、_ERROR=2 SEND_ERROR=3 OTHERS=4. IFSY-SUBRC0.MESSAGEIDSY-MSGIDTYPESY-MSGTYNUMBERSY-MSGNO WITHSY-MSGV1SY-MSGV2SY-MSGV3SY-MSGV4.ENDIF. * analyseinternalerrortableofSmartFormsCALLFUNCTIONSSF_READ_ERRORSIMPORTINGERRORTAB=ERRTAB.IFNOTERRTABISINITIAL. * addyourhandlingENDIF. ENDFORMprint_so 包含文件2J2J- -SDOO

20、7ALVSDOO7ALV活动 *& *& 包含 ZP_SD_007_ALV *&- * TYPE-POOLSslis. * - * *ALV相关内表和结 构 * - * DATA:IT_FIELDCATTYPESLIS_T_FIELDCAT_ALV, WA_LAYOUTTYPESLIS_LAYOUT_ALV, WA_STATUSTYPESLIS_FORMNAMEVALUESUB_SET_PF_STATUS WA_COMANDTYPESLIS_FORMNAMEVALUEUSER_COMMAND, IT_EVENTSTYPESLIS_T_EVENT. DATA:G_LAYO

21、UTTYPELVC_S_LAYO, FIELDCATTYPELINEOFLVC_T_FCAT GT_FIELDCATTYPELVC_T_FCAT. * &* * &显示ALV * &* *text * *-P_LT_TABtext * FORMSHOW_ALVTABLESTABLE. *ALV表格显示样式 PERFORMALV_LIST_LAYOUT. *ALV报表的字段设置 PERFORMPF_ALV_LIST_FCATUSINGIT_FIELDCAT *ALV报表显示 PERFORMPF_ALV_LIST_DISPLYTABLESTABLE. ENDFORM1SHO

22、W_ALV *&*&FormALVLISTLAYOUT*& *text * pl text FORMALV_LIST_LAYOUT. WA_LAYOUT-COLWIDTH_OPTIMIZE=X. WA_LAYOUT-DETAIL_INITIAL_LINES=X. WA_LAYOUT-BOX_FIELDNAME=SELE.定义边框选中栏 ENDFORM1ALV_LIST_LAYOUT * &* * &FormPF_ALV_LIST_FCAT * &* * text * * * -P_IT_FIELDCATtext * * FORMPF_ALV_LI

23、ST_FCATUSINGP_IT_FIELDCAT. DATA:LW_AFIELDCATTYPESLIS_FIELDCAT_ALV, LW_POSTYPEI. DEFINED_FIELD. CLEARLW_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_AFIELDC

24、AT-NO_ZERO=&5. LW_AFIELDCAT-HOTSPOT=&6. LW_AFIELDCAT-OUTPUTLEN=&7. LW_AFIELDCAT-EDIT=&8. LW_AFIELDCAT-KEY=&9. APPENDLW_AFIELDCATTOIT_FIELDCAT. END-OF-DEFINITION. D_FIELD: VBELN销售单号SPACESPACEXSPACE10SPACESPACE证 VKORG销售组织SPACESPACESPACESPACE5SPACESPAC直证类vtweg分销渠道SPACESPACESPACESPAC

25、E5SPACESPACE证类VKBUR销售办事处SPACESPACESPACESPACE5SPACESPACE1证类VKGRP销售组织SPACESPACESPACESPACE5SPACESPAC售怔类KUNNR客户代码SPACESPACESPACESPACE10SPACESPACE, VBELN销售单号SPACESPACEXSPACE10SPACESPACE, AUDAT灯单创建日期SPACESPACESPACESPACE10SPACESPACE. ENDFORM1PF_ALV_LIST_FCAT *& *& FORMSUB_SET_PF_STATUSUSINGRT_EXTAB

26、TYPESLIS_T_EXTABSETPF-STATUSSTANDARD.EXCLUDINGex_tab. SETTITLEBAR选择手动才T印条目. ENDFORM1sub_set_pf_status *& *&FormPF_ALV_LIST_DISPLY *& *显示ALV数据 * FORMPF_ALV_LIST_DISPLYTABLESTABLE. *ALV数据显示函数 CALLFUNCTIONREUSE_ALV_GRID_DISPLAY EXPORTING I_CALLBACK_PROGRAM=SY-REPID * i_interface_check=X I_CALLBACK_PF_STATUS_SET=WA_STATUS I_CALLBACK_USER_COMMAND=ALV_USER_COMMAND IT_FIELDCAT=IT_FIELDCAT IS_LAYOUT=WA_LAYOUT I_GRID_TITLE=销售订单交期统计表 * I_CAL