《SAP-SMARTFORMS-凭证连续打印设置操作之三》由会员分享，可在线阅读，更多相关《SAP-SMARTFORMS-凭证连续打印设置操作之三（18页珍藏版）》请在金锄头文库上搜索。
1、 SAP SMARTFORMS 凭证连续打印设置操作之三-利用ALV显示，并进展手动选择打印在SAP系统中，凭证经常需要连续打印，如从凭证号100，打印至120；要求系统在打印的时候自动按凭证号进展分页处理。下面的例子是利用表传递数据至SMARTFORMS中，并且利用打印程序中的表循环来实现凭证的自动分页打印处理；而SMARTFORMS的设置那么非常的简单，按一凭证号来进展设置即可。下面进展具体的操作讲解。一、 打印效果显示，如下列图所示：运行报表程序：运行后，出现下面的界面，这时我们就可以选择需要打印的单据号，然后再点击工具栏中的“打印按钮，即可进展选择性的连续打印，如下列图：上面为显示连续
2、打印三销售凭证，运行后如下列图所示：二、 数据结构体的定义 zwyvbap；TCODE：SE11，此结构体在后面的程序中也要用到，是传递数据的接口。定义如下列图所示：三、 SMARTFORMS FORM界面设置1、表格接口的数据，如下列图所示：2、表格接口表的数据如下列图所示：3、全局定义中的数据定义如下列图所示：四、 SMARTFORMS页和窗口的操作：1、页头显示容。下面的操作都只进展截图显示。如下列图所示：2、MAIN主窗口的设置：打印表体的表头显示，如下列图所示：表体循环显示：新程序行的设置：统计区域的设置：页尾的设置：五、 REPORT 完整代码清单，如下列图所示TCODE：SE38
3、：*&-*&ReportZP_SD_006*&*&-*&*&*&-*REPORTzp_sd_007.INCLUDEzp_sd_007_varl.INCLUDEzp_sd_007_form.INCLUDEzp_sd_007_alv.START-OF-SELECTION.PERFORMget_data_alv.PERFORMshow_alvTABLESgt_vbak_alv.*&-*&包含ZP_SD_007_VARL*&-*TABLES:vbak.DATA:formnameTYPEtdsfname,fm_nameTYPErs38l_fnam,controlTYPEssfctrlop,errtabT
4、YPEtsferror.DATA:BEGINOFgt_vbakOCCURS0.定义表INCLUDETYPEzwyvbap.DATA:ENDOFgt_vbak.DATA:BEGINOFgt_vbapOCCURS0,定义表vbelnLIKEvbak-vbeln.DATA:ENDOFgt_vbap.DATA:p_vbelnTYPEvbak-vbeln.*定义传递到FORM中的页头数据DATA:vkorgTYPEvbak-vkorg,销售组织vtwegTYPEvbak-vtweg,分销渠道vkburTYPEvbak-vkbur,销售办事处vkgrpTYPEvbak-vkgrp,销售组kunnrTYPE
5、vbak-kunnr,供给商代码name1TYPEkna1-name1,供给商名称vbelnTYPEvbak-vbeln,订单audatTYPEvbak-audat.过账日期*定义显示在ALV界面上的表DATA:BEGINOFgt_vbak_alvOCCURS0,vkorgTYPEvbak-vkorg,销售组织vtwegTYPEvbak-vtweg,分销渠道vkburTYPEvbak-vkbur,销售办事处vkgrpTYPEvbak-vkgrp,销售组kunnrTYPEvbak-kunnr,供给商代码name1TYPEkna1-name1,供给商名称vbelnTYPEvbak-vbeln,订单
6、audatTYPEvbak-audat,过账日期seleTYPEchar1.定义选中栏，边上的DATA:ENDOFgt_vbak_alv.SELECTION-SCREENBEGINOFBLOCK100WITHFRAMETITLEtext-001.*PARAMETERSs_vbelnTYPEvbak-vbelnOBLIGATORY.SELECT-OPTIONS:s_vbelnFORvbak-vbelnDEFAULT4970TO4990.定义需要打印的凭证SELECTION-SCREENENDOFBLOCK100.*&-*&包含ZP_SD_007_FORM*$显示在界面上的数据*&-*FORMge
7、t_data_alv.SELECTvkorgvtwegvkburvkgrpkunnrvbelnaudatINTOCORRESPONDINGFIELDSOFTABLEgt_vbak_alvFROMvbakWHEREvbelnINs_vbeln.ENDFORM.get_data_alv*&-*&Formprint_so*&-*text设置打印的程序*-*FORMprint_so.CLEARgt_vbap.*SELECTvbelnINTOCORRESPONDINGFIELDSOFTABLEgt_vbapFROMvbakWHEREvbelnINs_vbeln.*获取选中的数据，并把选中的数据传递至表中
8、。LOOPATgt_vbak_alvWHEREsele=X.gt_vbap-vbeln=gt_vbak_alv-vbeln.APPENDgt_vbap.ENDLOOP.formname=ZSD_PRINT_001.CALLFUNCTIONSSF_FUNCTION_MODULE_NAMEEXPORTINGformname=formname#Form#importingIMPORTINGfm_name=fm_nameEXCEPTIONSno_form=1no_founction_module=2OTHERS=3.IFsy-subrc0.MESSAGEIDsy-msgidTYPEsy-msgtyNU
9、MBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.control-no_dialog=X.control-preview=X.control-no_open=X.control-no_close=X.CALLFUNCTIONSSF_OPENEXPORTING*ARCHIVE_PARAMETERS=*USER_SETTINGS=X*MAIL_SENDER=*MAIL_RECIPIENT=*MAIL_APPL_OBJ=*OUTPUT_OPTIONS=control_parameters=control*IMPORTING*JOB_OUTP
10、UT_OPTIONS=EXCEPTIONSformatting_error=1internal_error=2send_error=3user_canceled=4OTHERS=5.IFsy-subrc0.*errorhandlingMESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.EXIT.ENDIF.LOOPATgt_vbap.对凭证号进展循环处理，即在程序中进展分页的设置p_vbeln=gt_vbap-vbeln.*获取打印的表头数据SELECTSINGLEvkorgvtwegvkburvkgrpkunnrvbelnaudatINTO(
