SAP-SMARTFORMS-憑證連續(xù)打印設置操作計算很好

1、SAPSMARTFORM就證連續(xù)打印設置操作之三 利用ALV顯示，并進行手動選擇打印 在SAP系統(tǒng)中，憑證經(jīng)常需要連續(xù)打印，如從憑證號100,打印至120;要求系統(tǒng)在打印的時候自動按 憑證號進行分頁處理。下面的例子是利用內(nèi)表傳遞數(shù)據(jù)至SMARTFORMS中，并且利用打印程序中的內(nèi)表循 環(huán)來實現(xiàn)憑證的自動分頁打印處理；而SMARTFORMS勺設置則非常的簡單，按一張憑證號來進行設置即可。 下面進行具體的操作講解。打印效果顯示，如下圖所示：運行報表程序： 連續(xù)耳印蔚試川 消隹免定+97d到方4390二|中| 運行后，出現(xiàn)下面的界面，這時我們就可以選擇需要打印的單據(jù)號，然后再點擊工具欄中的“打印”按

2、鈕,即可進行選擇性的連續(xù)打印，如下圖： 連續(xù)打印資試zwy 真口SD區(qū)導證后匿方包蛆磔&TT%的4111 詡M彳,H口打卻 箱售訂單交期統(tǒng)計表 上面為顯示連續(xù)打印三張銷售憑證，運行后如下圖所示:國 甲W 誨游 -酒中平邊諭等號網(wǎng) 軍白田 修繇號訂單期隹日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 總數(shù)量 iao

5、oo 總命領 32a38.0032a38.00 廣州XXXX有限公司打印日第，2014-04-01 |n|s11:17:43 餡逑也投21000分何要道，12鋪逑辦主處：KWO 做后有名私：fiKnm：19。7懦生復114971 行號 物料代碼 物料描述 數(shù)量 單價 單位 金以 備注 1 10 0 10 1no )! 40to-ttMtt220/25* g.000 61000 CAP 12200.00 20.20.000000 總金12,12,200.200.0000 業(yè)務員: 掾作見 業(yè)務經(jīng)理: 業(yè)務員: 操作屆 業(yè)務經(jīng)理: 行號 物料代碼 物料描法 幫母 單飾 單位 命地 籥注 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 畫.闞字他 統(tǒng)計區(qū)域的設置: “g主工口 f卻TTTOATF?S *命：gem前卓琳1 “3城計聞。 ：1方ZlLlL*曰 3 n，ET-i物罰i I，弟更上爐 才.曰煙忘跳導rf I9kTEMLAES貴房 0時機rm二市 頁尾的設置： H%TEMPLATE天尾 *囪囪宜3業(yè)務員 SKTEXT35業(yè)考員京陵 ,國唯TNT36操作員 5%TEXTR操作員字照 GSVBAKGSVBAK- -NETFRNETFR -2貫人藁一 CH佻MGE：步寬工 年1wmocwi附防內(nèi) 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.”定義內(nèi)表 DATA:ENDOFGTVBAK. DATA:BEGINOFGT_VBAPOCCURS0, DATA:ENDOFGTVBAP. DATA:PVBELNTYPEVBAK-VBELN. *定義傳遞到FORM中的頁頭數(shù)據(jù) 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界面上的內(nèi)表 DATA: BEGINOF GT_VBAK_ALV OCCURS0, VKORG TYPE VBAK-VKORG 銷售組織 包含文件 ZPSD007VARLZPSD007VARL 活動 *& *&包含 ZPSD007VARL INCLUDETYPE ZWYVBAP. VBELN LIKEVBAK-VBELN. FMNAME TYPERS38L_FNAM, ERRTAB TYPETSFERROR. 定義內(nèi)表 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 * $顯示在界面上的數(shù)據(jù) * &* FORMGET_DATA_ALV. SELECT VKORG VTWEG VKBUR VKGRP KUNNR VBELN AUDAT INTOCORRESPONDINGFIELDSOFTABLEGT_VBAK_ALVFROMVBAK WHEREVBELNINS_VBELN

13、. ENDFORM1get_data_alv FORMPRINT_SO CLEARGT_VBAP * 獲取選中的數(shù)據(jù)，并把選中的數(shù)據(jù)傳遞至內(nèi)表中。 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.對憑證號進行循環(huán)處理，即在程序中進行分頁的設置 P_VBELN=GT_VBAP-VBELN. * 獲取打印的表頭數(shù)據(jù) SELECTSINGLE VKORG VTWEG VKBUR VKGRP KUNNR VBELN AUDAT INTO(VKORG,VTWEGVKBUR,VKGRP,KUNNR,VBELN,AUDAT)FROMVBAK WHEREVBELN=P_VBELN. * 獲取打印的表體數(shù)據(jù)CLEARGT_VBAK口.清空內(nèi)表 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”傳遞內(nèi)表數(shù)據(jù)至

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相關內(nèi)表和結 構 * - * 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燈單創(chuàng)建日期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數(shù)據(jù) * FORMPF_ALV_LIST_DISPLYTABLESTABLE. *ALV數(shù)據(jù)顯示函數(shù) 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=銷售訂單交期統(tǒng)計表 * I_CAL