SAP-SMARTS-凭证连续打印设置操作之三.doc

-北京科莱特信息技术有限公司SAP SMARTFORMS 凭证连续打印设置操作之三-利用ALV显示，并进行手动选择打印在SAP系统中，凭证经常需要连续打印，如从凭证号100，打印至120；要求系统在打印的时候自动按凭证号进行分页处理。下面的例子是利用内表传递数据至SMARTFORMS中，并且利用打印程序中的内表循环来实现凭证的自动分页打印处理；而SMARTFORMS的设置则非常的简单，按一张凭证号来进行设置即可。下面进行具体的操作讲解。一、 打印效果显示，如下图所示：运行报表程序：运行后，出现下面的界面，这时我们就可以选择需要打印的单据号，然后再点击工具栏中的“打印”按钮，即可进行选择性的连续打印，如下图：上面为显示连续打印三张销售凭证，运行后如下图所示：二、 数据结构体的定义 zwyvbap；TCODE：SE11，此结构体在后面的程序中也要用到，是传递数据的接口。定义如下图所示：三、 SMARTFORMS FORM界面设置1、表格接口的数据，如下图所示：2、表格接口表的数据如下图所示：3、全局定义中的数据定义如下图所示：四、 SMARTFORMS页和窗口的操作：1、页头显示内容。下面的操作都只进行截图显示。如下图所示：2、MAIN主窗口的设置：打印表体的表头显示，如下图所示：表体循环显示：新程序行的设置：统计区域的设置：页尾的设置：五、 REPORT 完整代码清单，如下图所示（TCODE：SE38）：*&-*&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,errtabTYPEtsferror.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,销售组kunnrTYPEvbak-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,订单号码audatTYPEvbak-audat,过账日期seleTYPEchar1.定义选中栏，边上的DATA:ENDOFgt_vbak_alv.SELECTION-SCREENBEGINOFBLOCK100WITHFRAMETITLEtext-001.*PARAMETERSs_vbelnTYPEvbak-vbelnOBLIGATORY.SELECT-OPTIONS:s_vbelnFORvbak-vbelnDEFAULT4970TO4990.定义需要打印的凭证号码SELECTION-SCREENENDOFBLOCK100.*&-*&包含ZP_SD_007_FORM*$显示在界面上的数据*&-*FORMget_data_alv.SELECTvkorgvtwegvkburvkgrpkunnrvbelnaudatINTOCORRESPONDINGFIELDSOFTABLEgt_vbak_alvFROMvbakWHEREvbelnINs_vbeln.ENDFORM.get_data_alv*&-*&Formprint_so*&-*text设置打印的程序*-*FORMprint_so.CLEARgt_vbap.*SELECTvbelnINTOCORRESPONDINGFIELDSOFTABLEgt_vbapFROMvbakWHEREvbelnINs_vbeln.*获取选中的数据，并把选中的数据传递至内表中。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-msgtyNUMBERsy-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_OUTPUT_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(vkorg,vtweg,vkbur,vkgrp,kunnr,vbeln,audat)FROMvbakWHEREvbeln=p_vbeln.*获取打印的表体数据CLEARgt_vbak.清空内表SELECTvbelnposnrmatnrarktxkwmengnetwrnetprmeinsINTOCORRESPONDINGFIELDSOFTABLEgt_vbakFROMvbapWHEREvbeln=p_vbeln.CALLFUNCTIONfm_nameEXPORTINGcontrol_parameters=controlvkorg=vkorg销售订单vtweg=vtweg客户vkbur=vkbur日期vkgrp=vkgrp日期kunnr=kunnrvbeln=vbelnaudat=audatname1=name1TABLESgt_vbak=gt_vbak传递内表数据到SMARTFORMS中EXCEPTIONSformatting_error=1internal_error=2send_error=3user_canceled=4OTHERS=5.IFsy-subrc0.*errorhandlingMESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.ENDLOOP.CALLFUNCTIONSSF_CLOSE*IMPORTING*JOB_OUTPUT_INFO=EXCEPTIONSformatting_error=1internal_error=2send_error=3OTHERS=4.IFsy-subrc0.*errorhandlingMESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgnoWITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.ENDIF.*analyseinternalerrortableofSmartFormsCALLFUNCTIONSSF_READ_ERRORSIMPORTINGerrortab=errtab.IFNOTerrtabISINITIAL.*addyourhandlingENDIF.ENDFORM.print_so*&-*&包含ZP_SD_007_ALV*&-*TYPE-POOLS:slis.*-*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_layoutTYPElvc_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.ENDFORM.SHOW_ALV*&-*&FormALV_LIST_LAYOUT*&-*text*-*-p1text*P_IT_FIELDCATtext*-*FORMpf_alv_list_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-fix_column=X.lw_afieldcat-seltext_l=&2.lw_afieldcat-ref_fieldname=&4.lw_afieldcat-ref_tabname=&3.lw_afieldcat-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销售组织spacespacespacespace5spacespace,销售凭证类vtweg分销渠道spacespacespacespace5spacespace,销售凭证类*SPART产品组spacespacespacespace5spacespace,销售凭证类VKBUR销售办事处spacespacespacespace5spacespace,销售凭证类VKGRP销售组织spacespacespacespace5spacespace,销售凭证类KUNNR客户代码spacespacespacespace10spacespace,VBELN销售单号spacespaceXspace10spacespace,AUDAT订单创建日期spacespacespacespace10spacespace.ENDFORM.PF_ALV_LIST_FCAT*&-*&Formsub_set_pf_status*&-*text*-*-RT_EXTABtext*-*FORMsub_set_pf_statusUSINGrt_extabTYPEslis_t_extab.SETPF-STATUSSTANDARD.EXCLUDINGex_tab.SETTITLEBAR选择手动打印条目.ENDFORM.sub_set_pf_status*&-*&FormPF_ALV_LIST_DISPLY*&-*显示ALV数据*-*FORMpf_alv_list_displyTABLEStable.*ALV数据显示函数CALLFUNCTIONREUSE_ALV_GRID_DISPLAYEXPORTINGi_callback_program=sy-repid*i_interface_check=Xi_callback_pf_status_set=wa_statusi_callback_user_command=ALV_USER_COMMANDit_fieldcat=it_fieldcatis_layout=wa_layouti_grid_title=销售