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

1、SAP SMARTFORM凭证连续打印设置操作之三利用ALV显示，并进行手动选择打印在SAP系统中，凭证经常需要连续打印，如从凭证号100，打印至120;要求系统在打印的时候自动按凭证号进行分页处理。下面的例子是利用表传递数据至SMARTFORMS,并且利用打印程序中的表循环来实现凭证的自动分页打印处理；而SMARTFORMS设置那么非常的简单，按一凭证号来进行设置即可。下面进行具体的操作讲解。打印效果显示， 如以下列图所示： 运行报表程序运行后，出现下面的界面，这时我们就可以选择需要打印的单据号，然后再点击工具栏中的“打印按钮, 即可进行选择性的连续打印，如以下列图：<3 蝕且 昌甸禎

2、品 塑兔也.P £ -5 TT lii 也口丨曽 R魁捧HH Qiri舉单畧腑輕st门朋订呈日.逹m!70WD01CO3mmLU0CCO531175斗疔017 0103WOO1IXOIDOL1CQocawjicoi4D7LLW7-C1-O7?2UQOOLUUUQUO!472173WDiOicm1030133DixojniDaa：49731997-CI1-2LWDiQicaj100010Qoffroi2i<i4974L«7-C1-21A帀UDOicm1Q3D13Jnrrmucros斗耳巧L-W7-Cill<17&UQOlinn133rrmiaorH斗号托1

3、7-01-14177uqdinnuai133nrrmiiari斗？7717-( 1-214UDCirai1QCCIQDirmiiagrp-dbzi眄LOODinn1030133nrnmnTi斗們1357叩卜丑ISOwnniicnilQQCi101onrmipio斗曲017( 1-21WQOICOCi1030130D0COTJ1C33斗9S21'397 01-32WDO1COO10CCI101DOCOT32WO斗983L'?97 0t2264WQOicoo1U3D133OOCOTJ1D02斗册L'?97-01-22斗眄WQO1CCDIDSCi133OOOXIJ2CCH45

4、C5L99M22二ieewoo1OT01010IOOOOOT3KO4惑1'?37-1-22i107woo1CCO1010lUJgOOOTJUTl457回珂卜224ifl61X)00ILUJ1010IB0000ljl«04968回"1-22斗10910Q01£OJMJ 1011J3ooooajim4Q&i回"V224i«3CIDDOtcmIDlXi100OCLOJ3214n4«01'«7-£11-23连续打印三销售凭 凭证，运下 图所上面为显示示 ：广州大me1OCK1grtn的打印西竟：事g

5、oo頁*鬓oootn 灵HlblRI： 2B14HH fll HfM= 11； 17:43i?牯兰力击址=io mlwr-om捕程寻t斛何行号检料代码辆料桔雀单价1D-CISuiTO5妣IM 00reA15G 闖20-42Sqit X-all5. 4Q41A3A.04ref44d.0a3D1H1OMi£hircr*B4 ME- 17WP4- ooe23S0.00陀40-!£PX l!ir/F«4. OQQ144Z.0Qire鼻EU甘員ia. u(jo鞋金甜32,tf3d.OO业务员：掃ft员：业务圾理；广州XXX1O0C1井铀廉卑童ElMk打却曰耳h W1 <

6、;-qlHiR> n-V;«17惴兰办專It：阿口竹"m at樹生单E：行号翎料欄述fit量;单ffr单何脊注10L-KI£1 时Rd$a 4Q lolt nit 工® T时M . 000GAI!IZW.OO20. QOQ业务員；畏作耳：业總理=广州限公司NWs«Bm：12样牌丽廿*WMi节7T-ni-n用性单弓：m行号翎料优码单愉备it10 013.444MMl Ml*C4dfC.4O3002侗0IU1 00片755J <WI凹 0JS«4iin Tw Lrd 1 3K.0M1730.00KJ6454 0040ng-i&

7、#163;*日耳* tiitm«. QQO1STS.QQI叱7512 W16. QUO書舗2fiL 604.QD业罢矗数据结构体的定义 zwyvbap ; TCODE SE11,此结构体在后面的程序中也要用到，是传递数据的接口。定义 如以下图所示ZVYVBAF牡舌衛更橫述lSfi 駢需紳!踵】/ BL®ftI能A方生爼 r>?<2J尅丽剋！祿，囁位可理JSifVEELN 1捷型VD3LHCJ1ARIQ|滦也力蹲tit七K£5Efol o1理型 PC -NitHTO76生创幻HX；止的劭目上TtEE 1冀型» 壯THECHaP.19ARETX

8、1襄型-ARaTICW.40M耳舊订单為巨短甘注H且NCTo 1英型KWJNEDGQIUMIS: E、詁至甲丘去示出护计订甲竝HEFTo! 1类型 FfFTVRriER15:闻工戶而性芾刖砒HET芳To 1裘型-MT£ECURE112；諦JtEIXS 1类型ismsW：T3SMARTFORMSFORM界面设置 1、 表格接口的数据，如以下列图所示导入 导出丢一例外丽團園區匾|蚕数名称类型分西亡黄联类型联省信iUSER SETTINGSTYPETDE00LX1VKORGTYPEVKORG1VTfEGTYPEVTVECVKBURTYPEVKBUR1VKCRPTYPEVKGRPIKUNNR

9、TYPEKUNNR1NAME1TYPEMElGP 1VEELTiTYPEVBELN1AUDATTYPEAUDAT二表 的 数 据 如 以 下 图 所 示表格ZSD_PRINT1001话动的描述请售打師2表 格接口/导出2妾 例外國画画爾匾匾跑粪型分酉 2pi_VBAKLIKEI ZYVEAF3、 全 局 定 义 中 的 数 据 定 义 如 以 下 图 所全局数損类型字段符号初始化搐式化程序貨币/毅里字我:U网那0 Q|帀i t I 一一缺省值GS.VEAKLIKEZWYVEAPTOTALTTFECHAK1QPRICETYPECHA?10SUN_FRICETYPECHAH10SUM_TOTALT

10、YPEBSEC-MBTKS_PRICETYPEBSEC-D«BTESMARTFORM页和窗口的操作：1、页头显示容。下面的操作都只进行截图显示。如以下列图所示: S页和窗口*电%PAG£1新页面 E %WINDOW1页头显示内容%TEMPLATE1 公！5宕称诸TEKTL埜司名稱*直TEXT犯打印日期'%TEKT2销售组织*眩%TEXT3谓啻组织室段-爾TEXT4分销渠道*留%TEXT5分俏渠道宇段:0* %TEXT6销害办事处，眩TEKT7稍售亦事建亨段-旨%TEXTE供给商名称'圖強TEKT9供给商名称宇段*%TEXT10单据日期-必 TEXTll单据曰

11、期宁段*函TEXT丘莒售单号团味TEKT13誚售单号事覆 Q MAJN 主窗口卜B %WINL»W2页屋-已幣ME： jiTS.国MtTEMn ilal&t-耀aft如 nrunifl1laum。極*1 -网T匚门也Tlgi_H_ 21 史 .HJJft VaA h-ti；J. *3 >L i.1' * i 吗尹TWUHX2、MAIN主窗口的设置:"a页和窗口寸 3 W'AGEl IS®-B %wwowi页头显示内容 卜關专汀EMPLAEl瓜司夂湘 |亍营賦应理2二1 卜曲咗迫匝 12鸳列表标题 卜S %LOCP1嘶循环1*囲%TEM

12、PLATE4统计区域* ffl TEMPLATES 页尾吒j WINDOW?页尾打印表体的表头显示，如以下列图所示:曲 7oTEMPLATE2列丟杖题*玄楼雀巫运行号*留%TEMT15物料代码-厨TEXTIS物料插述'函IEXT17数重* E1 TolEXTlS 单价玄TEXTIQ单位函VoTEXTSO金额*函%TEXT21管主JfeAd i n Aftrii fcfr/lr»T >區 TEMPL卫TEW列表手覆-鬻匚0圧1新程序行1*团%7FXT22行号*场 TEXT29物斜编码亠函%TEXT24物料描述固 ¥dTEXT25 ifi'訝%TEXT26

13、单价 2 %TEXT27 单愷*场 Vo7EXT28金额* 曆 7oTEXT29 备逹 数据 计算事件输出趣页杂件I LOOP循环4内部表'gt vbakI转至T G5_VBAK-行丨删冈丽IBIISI 画岡_新程序行的设置：选择 Ma in Win dow -> Create -> Flow Logic -> Program Lin es计算一顒厲性I输入童数输出巒數GS.VEAK-KVMEITGJhTOTALGS_VRAK-NETVR*FJi：C£i 41 1i 最属性益件辐扎遞數1USESl；S_VBAE-NETPRSmi_PFICETSUM TUTA

14、L*t 1 r1 >辅1V拒却CS_VEAK-HETFP亠S PJ1ICEJ*1GS_VBAK-HET?RA.S PRI(JE鼻w14 ¥i 1 k4广tctal - 2s_vbali kotns.2ipric« 一 ts vbik-r-eTivrr sum_przcs = 驴_讥哉 lict pr.钊_sum_toial = sun_r ct al + Total.3is_price = s.ptice + price已计T-計帀宦-门FdlND二从氏头咎.-：广芒可 '.iCMFlni _u Qj K1M 工笛口KSJtSE立話元五-TF*P砂幔菖園画画

15、画團|匝E匣函国|團叵囤 0.* 9 r.7EMPt4T5j#-VB史叫"Pl州硏一 f Tc£OOEl 护朋 ii 1叼10是字熄1 WfHV>K i»-Hm统计区的设置函 'Aiwrait £. -.= J戈乩>HsrjAEn-，羽r p AT .也知.更 *遵:S2P1带j(汗1书-iT3HPJT=4好计悄Y rl-ilT 兰曲ta'.Jf -TP. T-S.Jrr *匍帖T34VVTE5可尿* 3呢Emir融營卿怪式|« 12*&*&Report ZTEST1000012*&*&

16、;*&*&*&*REPORT ZTEST REPORT ZP_SD_007 INCLUDEZP_SD_007_VARLINCLUDE ZP_SD_007_FORMNCLUDE ZP_SD_007_ALVSTART-OF-SELECTION* S TEMPLATES 页尾iTEXT3j|il-员%TEXT35业劳员宇用%TEXTX操作员%7EKT39播作员宇段 %TEXT37业务经理 %TEXT38业箸经理宇段页尾的设置：REPORT完整代码清单如以下列图所示 (TCODE :SE38 )PERFORMGET_DATA_ALVPERFORMSHOW ALV TABLES

17、GT VBAK ALV*&包含ZP SD 007 VARL*&*包含交件ZP_SD_007_VARL*&TABLES VBAKDATA FORMNAME TYPE TDSFNAM,EFM_NAME TYPE RS38L_FNAMCONTROL TYPE SSFCTRLO,PERRTAB TYPE TSFERRORDATA BEGIN OF GT_VBAK OCCURS 0."定义表INCLUDE TYPEZWYVBAPDATA END OF GT_VBAKDATA BEGIN OF GT VBAP OCCURS 0,"定义表VBELN LIKE VB

18、AKVBELNDATA END OF GT VBAPDATAP_VBELN TYPEVBAKVBELN *定义传递到FORI中的页头数据|DATAVKORG TYPEVBAKVKORG"销售组织VTWEG TYPEVBAKVTWE,G"分销渠道VKBUR TYPEVBAK VKBUR"销售办事处VKGRP TYPEVBAKVKGRP"销售组KUNNR TYPEVBAK KUNNR"供给商代码NAME1 TYPEKNA1 NAME,1"供给商名称VBELN TYPEVBAKVBELN"订单AUDAT TYPEVBAK AUDA

19、T"过账日期*定义显示在ALV界面上的表DATABEGIN OF GTVBAK ALV OCCURS 0,VKORG TYPEVBAKVKORG"销售组织VTWEG TYPEVBAKVTWE,G"分销渠道VKBUR TYPEVBAK VKBUR"销售办事处VKGRP TYPEVBAKVKGRP"销售组KUNNR TYPEVBAK KUNNR"供给商代码NAME1 TYPEKNA1 NAME,1"供给商名称VBELN TYPEVBAKVBELN"订单AUDAT TYPEVBAK AUDAT"过账日期SELE

20、 TYPE CHAR.1"定义选中栏，边上的DATA END OF GT VBAK ALVSELECTION-SCREEN BEGIN OF BLOCK 100 WITH FRAME TITLE TEXT 001.SELECT-OPTIONS S_VBELN FOR VBAKVBELN DEFAULT '4970' TO '4990'."定义需要打印的凭证SELECTION-SCREEN END OF BLOCK 100.包含文件2P二甜涉。蚀话动 *&*&包含ZP_SD_007_FORM*$显示在界面上的数据|SELECT*

21、&*FORM GET_DATA_ALVINTO CORRESPONDINGHELDS OF TABLE GT VBAK ALVFROM VBAKWHERE VBELN IN S VBELNENDFORM"get data alv *&*&Formprint so*&*text 设置打印的程序*FORM PRINT_SOCLEAR GT VBAP. *获取选中的数据，并把选中的数据传递至表中。LOOP AT GT_VBAK_ALV WHERE SELE ='X'.GT VBAPVBELN = GT VBAK ALWBELNAPPEND G

22、T VBAPENDLOOPFORMNAME= 'ZSD PRINT 001'.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGFORMNAME=FORMNAMEIMPORTINGFM NAME=FM_NAMEEXCEPTIONSNO_FORM一 <NO FOUNCTION MODULE 2OTHERS=3.IF SY-SUBRC <>0.MESSAGE ID SY MSGID TYPE SY- MSGTY NUMBER SY- MSGNOWITH SY-MSGV1 SY- MSGV2 SY-MS

23、GV3 SY- MSGV4ENDIFCONTRO1NO DIALOG ='X'.CONTRO1PREVIEW= XCONTRO1NO OPEN= XCONTRO1NO_CLOSE = XCALL FUNCTION 'SSF_OPEN'EXPORTINGARCHIVE_PARAMETERS=*USER_SETTINGS=X*MAIL SENDER=*MAIL RECIPIENT=*MAIL APPL OBJ=*OUTPUT OPTIONSCONTROL_PARAMETERS= CONTROL IMPORTING*JOB_OUTPUT_OPTIONS=EXCEPTI

24、ONSFORMATTING_ERROR=1INTERNAL_ERROR=2SEND ERROR=3USER CANCELED=4OTHERS=5.IF SY-SUBRC <> 0. * error handlingMESSAGE ID SY-MSGID TYPE SY- MSGTY NUMBER SY- MSGNOWITH SY-MSGV1 SY- MSGV2 SY-MSGV3 SY- MSGV4 EXIT.ENDIF.LOOP AT GT_VBAP"对凭证号进行循环处理，即在程序中进行分页的设置P_VBELN = GT_VBAPVBELN* 获取打印的表头数据SELEC

25、T SINGLEVKORGVTWEGVKBURINTO (VKORGVTWEGVKBURVKGRPKUNNRVBELNAUDATFROM VBAKWHERE VBELN = P_VBELN* 获取打印的表体数据CLEAR GT_VBAK. "清空表SELECTINTO CORRESPONDINGHELDS OF TABLE GT VBAKFROM VBAPWHERE VBELN = P_VBELNCALL FUNCTION FM NAMEEXPORTINGVKORG=VKORGVTWEG=VTWEGVKBUR=VKBURVKGRP=VKGRPKUNNR=KUNNRVBELN=VBEL

26、INAUDAT=AUDATNAME1=NAME1TABLESGT_VBAK=GT_VBAK"传递表数据到SMARTFORMSEXCEPTIONSCONTROL_PARAMETERS CONTROLFORMATTING ERRORINTERNAL ERRORSEND ERRORUSER CANCELED5.OTHERSIF SY-SUBRC <>0.MESSAGE ID SY-MSGID TYPE SY- MSGTY NUMBER SY-MSGNOWITH SY- MSGV1 SY-MSGV2 SYMSGV3 SY- MSGV4ENDIFENDLOOPCALL FUNCTI

27、ON 'SSF_CLOSE'*IMPORTING*JOB OUTPUT INFO=EXCEPTIONSFORMATTING_ERROR=1INTERNAL_ERROR=2SEND_ERROR=3OTHERS=4.IF SY-SUBRC <>0.MESSAGE ID SY-MSGID TYPE SY- MSGTY NUMBER SY- MSGNOWITH SY-MSGV1 SY- MSGV2 SY-MSGV3 SY- MSGV4ENDIF * analyse internalerror table of Smart FormsCALL FUNCTION 'SS

28、F_READ_ERRORS'IMPORTINGERRORTAB= ERRTABIF NOT ERRTAB IS INITIAL .*add your handlingENDIF ENDFORM"pri nt_so包含交件ZP_SD_007_ALV活动*&1*&包含ZP SD 007 ALV*&*TYPE-POOLS slis . *ALV相关表和结构*DATA IT FIELDCATTYPE SLIST FIELDCAT ALVWA LAYOUTTYPESLIS LAYOUT ALVWA_STATUSTYPESLIS_FORMNAME VALUE &#

29、39;SUB_SET_PF_STATUS,WA COMANDTYPESLIS FORMNAME VALUE 'USER COMMAND'IT EVENTSTYPESLIS T EVENT DATA G LAYOUTTYPE LVC_S_LAYQFIELDCATTYPELINE OF LVC T FCATGT_FIELDCATTYPE LVC T FCAT*&*&显示ALV*&-*text*-*->P_LT_TABtext*-*FORM SHOW ALV TABLES TABLE *ALV表格显示样式PERFORMALV LIST LAYOUT*AL

30、V 报表的字段设置PERFORMPF ALV LIST FCAT USING IT FIELDCAT. *ALV报表显示PERFORMPF_ALV_LIST_DISPLY TABLES TABLE ENDFORM " SHOW_ALV*&*&FormALV LIST LAYOUT*&*text*-> pltext* <- p2 text*FORMALV_LIST_LAYOUTWA LAYOUIOLWIDTH OPTIMIZE= 'X'.WA_LAYOUT)ETAIL_INITIAL_LINES= 'X'.WA LAY

31、OUBOX FIELDNAME = 'SELE'."定义边框选中栏ENDFORM " ALV LIST LAYOUT*&-* &FormPF_ALV_LIST_FCAT* &*text*->P_IT_FIELDCATtext*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_AFIELDCATLW_POS = LW_POS +1.LW_A

32、FIELDCA-TCOL_POS= LW_POSLW AFIELDCATFIELDNAME= &1.LW_AFIELDCATSELTEXT_L= &2.LW_AFIELDCATREF_FIELDNAME =&4LW AFIELDCATREF TABNAME= &3.LW_AFIELDCATNO_ZERO= &5.LW AFIELDCATHOTSPOT= &6.LW_AFIELDCA-TOUTPUTLEN=&7.LW_AFIELDCA-TEDIT=&8.LW AFIELDCA-TKEY=&9.APPEND LW_AFIELD

33、CAT TOIT_FIELDCAT.END-OF-DEFINITION.D_FIELD:'VBELN' '销售单号SPACE SPACE XSPACE'VKORG''10'SPACE SPACE,"销售凭证'销售组织SPACE SPACE SPACESPACE '5'SPACE SPACE,'销售凭证类'vtweg''分销渠道SPACE SPACE SPACESPACE '5'SPACE SPACE,'销售凭证类'VKBUR''

34、;销售办事处SPACE SPACE SPACESPACE '5'SPACE SPACE,'销售凭证类'VKGRP''销售组织SPACE SPACE SPACESPACE '5'SPACE SPACE,'销售凭证类'KUNNR''客户代码SPACE SPACE SPACESPACE '10'SPACE SPACE,'VBELN''销售单号SPACE SPACE XSPACE '10' SPACE SPACE,'AUDAT''

35、;SPACE SPACE SPACE SPACE '10''订单创立日期SPACE SPACEENDFORM "PF ALV LIST FCA*&-*&Formsub_set pf status*&*text*->RT_EXTAB text* form sub_set_pf_statususing rt_extab type slis_t_extab SET PF-STATUS 'STANDARD'." EXCLUDINGex tab.SET TITLEBAR '选择手动打印条目'.ENDFORM &quo