SAP-SMARTFORMS-憑證連續(xù)打印設(shè)置操作[計(jì)算很好]

1、SAP SMARTFORM憑證連續(xù)打印設(shè)置操作之三利用ALV顯示，并進(jìn)行手動選擇打印在SAP系統(tǒng)中，憑證經(jīng)常需要連續(xù)打印，如從憑證號100，打印至120;要求系統(tǒng)在打印的時(shí)候自動按憑證號進(jìn)行分頁處理。下面的例子是利用表傳遞數(shù)據(jù)至SMARTFORMS,并且利用打印程序中的表循環(huán)來實(shí)現(xiàn)憑證的自動分頁打印處理；而SMARTFORMS設(shè)置那么非常的簡單，按一憑證號來進(jìn)行設(shè)置即可。下面進(jìn)行具體的操作講解。打印效果顯示， 如以下列圖所示： 運(yùn)行報(bào)表程序運(yùn)行后，出現(xiàn)下面的界面，這時(shí)我們就可以選擇需要打印的單據(jù)號，然后再點(diǎn)擊工具欄中的“打印按鈕, 即可進(jìn)行選擇性的連續(xù)打印，如以下列圖：<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連續(xù)打印三銷售憑 憑證，運(yùn)下 圖所上面為顯示示 ：廣州大me1OCK1grtn的打印西竟：事g

5、oo頁*鬢oootn 靈HlblRI： 2B14HH fll HfM= 11； 17:43i?牯蘭力擊址=io mlwr-om捕程尋t斛何行號檢料代碼輛料桔雀單價(jià)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業(yè)務(wù)員：掃ft員：業(yè)務(wù)圾理；廣州XXX1O0C1井鈾廉卑童ElMk打卻曰耳h W1 <

6、;-qlHiR> n-V;«17惴蘭辦專It：阿口竹"m at樹生單E：行號翎料欄述fit量;單ffr單何脊注10L-KI£1 時(shí)Rd$a 4Q lolt nit 工® T時(shí)M . 000GAI!IZW.OO20. QOQ業(yè)務(wù)員；畏作耳：業(yè)總理=廣州限公司NWs«Bm：12樣牌麗廿*WMi節(jié)7T-ni-n用性單弓：m行號翎料優(yōu)碼單愉備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業(yè)罷矗數(shù)據(jù)結(jié)構(gòu)體的定義 zwyvbap ; TCODE SE11,此結(jié)構(gòu)體在后面的程序中也要用到，是傳遞數(shù)據(jù)的接口。定義 如以下圖所示ZVYVBAF牡舌衛(wèi)更橫述lSfi 駢需紳!踵】/ BL®ftI能A方生爼 r>?<2J尅麗剋！祿，囁位可理JSifVEELN 1捷型VD3LHCJ1ARIQ|灤也力蹲tit七K£5Efol o1理型 PC -NitHTO76生創(chuàng)幻HX；止的劭目上TtEE 1冀型» 壯THECHaP.19ARETX

8、1襄型-ARaTICW.40M耳舊訂單為巨短甘注H且NCTo 1英型KWJNEDGQIUMIS: E、詁至甲丘去示出護(hù)計(jì)訂甲竝HEFTo! 1類型 FfFTVRriER15:聞工戶而性芾刖砒HET芳To 1裘型-MT£ECURE112；諦JtEIXS 1類型ismsW：T3SMARTFORMSFORM界面設(shè)置 1、 表格接口的數(shù)據(jù)，如以下列圖所示導(dǎo)入 導(dǎo)出丟一例外麗團(tuán)園區(qū)匾|蠶數(shù)名稱類型分西亡黃聯(lián)類型聯(lián)省信iUSER SETTINGSTYPETDE00LX1VKORGTYPEVKORG1VTfEGTYPEVTVECVKBURTYPEVKBUR1VKCRPTYPEVKGRPIKUNNR

9、TYPEKUNNR1NAME1TYPEMElGP 1VEELTiTYPEVBELN1AUDATTYPEAUDAT二表 的 數(shù) 據(jù) 如 以 下 圖 所 示表格ZSD_PRINT1001話動的描述請售打師2表 格接口/導(dǎo)出2妾 例外國畫畫爾匾匾跑糞型分酉 2pi_VBAKLIKEI ZYVEAF3、 全 局 定 義 中 的 數(shù) 據(jù) 定 義 如 以 下 圖 所全局?jǐn)?shù)損類型字段符號初始化搐式化程序貨幣/毅里字我:U網(wǎng)那0 Q|帀i t I 一一缺省值GS.VEAKLIKEZWYVEAPTOTALTTFECHAK1QPRICETYPECHA?10SUN_FRICETYPECHAH10SUM_TOTALT

10、YPEBSEC-MBTKS_PRICETYPEBSEC-D«BTESMARTFORM頁和窗口的操作：1、頁頭顯示容。下面的操作都只進(jìn)行截圖顯示。如以下列圖所示: S頁和窗口*電%PAG£1新頁面 E %WINDOW1頁頭顯示內(nèi)容%TEMPLATE1 公！5宕稱諸TEKTL埜司名稱*直TEXT犯打印日期'%TEKT2銷售組織*眩%TEXT3謂啻組織室段-爾TEXT4分銷渠道*留%TEXT5分俏渠道宇段:0* %TEXT6銷害辦事處，眩TEKT7稍售亦事建亨段-旨%TEXTE供給商名稱'圖強(qiáng)TEKT9供給商名稱宇段*%TEXT10單據(jù)日期-必 TEXTll單據(jù)曰

11、期寧段*函TEXT丘莒售單號團(tuán)味TEKT13誚售單號事覆 Q MAJN 主窗口卜B %WINL»W2頁屋-已幣ME： jiTS.國MtTEMn ilal&t-耀aft如 nrunifl1laum。極*1 -網(wǎng)T匚門也Tlgi_H_ 21 史 .HJJft VaA h-ti；J. *3 >L i.1' * i 嗎尹TWUHX2、MAIN主窗口的設(shè)置:"a頁和窗口寸 3 W'AGEl IS®-B %wwowi頁頭顯示內(nèi)容 卜關(guān)專汀EMPLAEl瓜司夂湘 |亍營賦應(yīng)理2二1 卜曲咗迫匝 12鴛列表標(biāo)題 卜S %LOCP1嘶循環(huán)1*囲%TEM

12、PLATE4統(tǒng)計(jì)區(qū)域* ffl TEMPLATES 頁尾吒j WINDOW?頁尾打印表體的表頭顯示，如以下列圖所示:曲 7oTEMPLATE2列丟杖題*玄樓雀巫運(yùn)行號*留%TEMT15物料代碼-廚TEXTIS物料插述'函IEXT17數(shù)重* E1 TolEXTlS 單價(jià)玄TEXTIQ單位函VoTEXTSO金額*函%TEXT21管主JfeAd i n Aftrii fcfr/lr»T >區(qū) TEMPL衛(wèi)TEW列表手覆-鬻匚0圧1新程序行1*團(tuán)%7FXT22行號*場 TEXT29物斜編碼亠函%TEXT24物料描述固 ¥dTEXT25 ifi'訝%TEXT26

13、單價(jià) 2 %TEXT27 單愷*場 Vo7EXT28金額* 曆 7oTEXT29 備逹 數(shù)據(jù) 計(jì)算事件輸出趣頁雜件I LOOP循環(huán)4內(nèi)部表'gt vbakI轉(zhuǎn)至T G5_VBAK-行丨刪岡麗IBIISI 畫岡_新程序行的設(shè)置：選擇 Ma in Win dow -> Create -> Flow Logic -> Program Lin es計(jì)算一顒厲性I輸入童數(shù)輸出巒數(shù)GS.VEAK-KVMEITGJhTOTALGS_VRAK-NETVR*FJi：C£i 41 1i 最屬性益件輻扎遞數(shù)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已計(jì)T-計(jì)帀宦-門FdlND二從氏頭咎.-：廣芒可 '.iCMFlni _u Qj K1M 工笛口KSJtSE立話元五-TF*P砂幔菖園畫畫

15、畫團(tuán)|匝E匣函國|團(tuán)叵囤 0.* 9 r.7EMPt4T5j#-VB史叫"Pl州硏一 f Tc£OOEl 護(hù)朋 ii 1叼10是字熄1 WfHV>K i»-Hm統(tǒng)計(jì)區(qū)的設(shè)置函 'Aiwrait £. -.= J戈乩>HsrjAEn-，羽r p AT .也知.更 *遵:S2P1帶j(汗1書-iT3HPJT=4好計(jì)悄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業(yè)勞員宇用%TEXTX操作員%7EKT39播作員宇段 %TEXT37業(yè)務(wù)經(jīng)理 %TEXT38業(yè)箸經(jīng)理宇段頁尾的設(shè)置：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中的頁頭數(shù)據(jù)|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*$顯示在界面上的數(shù)據(jù)|SELECT*

21、&*FORM GET_DATA_ALVINTO CORRESPONDINGHELDS OF TABLE GT VBAK ALVFROM VBAKWHERE VBELN IN S VBELNENDFORM"get data alv *&*&Formprint so*&*text 設(shè)置打印的程序*FORM PRINT_SOCLEAR GT VBAP. *獲取選中的數(shù)據(jù)，并把選中的數(shù)據(jù)傳遞至表中。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"對憑證號進(jìn)行循環(huán)處理，即在程序中進(jìn)行分頁的設(shè)置P_VBELN = GT_VBAPVBELN* 獲取打印的表頭數(shù)據(jù)SELEC

25、T SINGLEVKORGVTWEGVKBURINTO (VKORGVTWEGVKBURVKGRPKUNNRVBELNAUDATFROM VBAKWHERE VBELN = P_VBELN* 獲取打印的表體數(shù)據(jù)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"傳遞表數(shù)據(jù)到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相關(guān)表和結(jié)構(gòu)*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 報(bào)表的字段設(shè)置PERFORMPF ALV LIST FCAT USING IT FIELDCAT. *ALV報(bào)表顯示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''訂單創(chuàng)立日期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