1、ReportZP_SD_006REPORTzp_sd_007.INCLUDEzp_sd_007_varl.zp_sd_007_form.zp_sd_007_alv.START-OF-SELECTION.PERFORMget_data_alv.show_alvTABLESgt_vbak_alv.包含ZP_SD_007_VARLTABLES:vbak.DATA:formnameTYPEtdsfname,fm_namers38l_fnam,controlssfctrlop,errtabtsferror.BEGINOFgt_vbakOCCURS0.定义内表zwyvbap.ENDgt_vbak.gt_v
2、bap0,vbelnLIKEvbak-vbeln.gt_vbap.p_vbeln*定义传递到FORM中的页头数据vkorgvbak-vkorg,销售组织vtwegvbak-vtweg,分销渠道vkburvbak-vkbur,销售办事处vkgrpvbak-vkgrp,销售组kunnrvbak-kunnr,供应商代码name1kna1-name1,供应商名称vbak-vbeln,订单号码audatvbak-audat.过账日期定义显示在ALV界面上的内表gt_vbak_alv0,vbak-audat,selechar1.定义选中栏,边上的SELECTION-SCREENBLOCK100WITHFR
3、AMETITLEtext-001.*PARAMETERSs_vbelnvbak-vbelnOBLIGATORY.SELECT-OPTIONS:FORDEFAULT4970TO4990.定义需要打印的凭证号码100.ZP_SD_007_FORM*$显示在界面上的数据FORMSELECTvkorgvtwegvkburvkgrpkunnrvbelnaudatINTOCORRESPONDINGFIELDSTABLEgt_vbak_alvFROMvbakWHEREINs_vbeln.ENDFORM.get_data_alvFormprint_sotext设置打印的程序*-*print_so.CLEARg
4、t_vbap.SELECTvbak获取选中的数据,并把选中的数据传递至内表中。LOOPAT=X.gt_vbap-vbelngt_vbak_alv-vbeln.APPENDENDLOOP.ZSD_PRINT_001CALLFUNCTIONSSF_FUNCTION_MODULE_NAMEEXPORTING#Form#importingIMPORTINGfm_nameEXCEPTIONSno_form1no_founction_module2OTHERS3.IFsy-subrc0.MESSAGEIDsy-msgidsy-msgtyNUMBERsy-msgnosy-msgv1sy-msgv2sy-ms
5、gv3sy-msgv4.ENDIF.control-no_dialogcontrol-previewcontrol-no_opencontrol-no_closeSSF_OPENARCHIVE_PARAMETERS=USER_SETTINGSMAIL_SENDERMAIL_RECIPIENTMAIL_APPL_OBJOUTPUT_OPTIONScontrol_parameterscontrolJOB_OUTPUT_OPTIONSformatting_errorinternal_errorsend_error3user_canceled45.errorhandlingEXIT.gt_vbap.对
6、凭证号进行循环处理,即在程序中进行分页的设置gt_vbap-vbeln.获取打印的表头数据SINGLE(vkorg,vtweg,vkbur,vkgrp,kunnr,vbeln,audat)p_vbeln.获取打印的表体数据gt_vbak.清空内表posnrmatnrarktxkwmengnetwrnetprmeinsgt_vbakvbap销售订单客户日期name1TABLES传递内表数据到SMARTFORMS中SSF_CLOSEJOB_OUTPUT_INFO4.analyseinternaltableofSmartFormsSSF_READ_ERRORSerrortaberrtab.NOTIS
7、INITIAL.addyourZP_SD_007_ALVTYPE-POOLS:slis.*-*ALV相关内表和结构*it_fieldcatslis_t_fieldcat_alv,wa_layoutslis_layout_alv,wa_statusslis_formnameVALUESUB_SET_PF_STATUS,wa_comandUSER_COMMANDit_eventsslis_t_event.g_layoutlvc_s_layo,fieldcatLINElvc_t_fcat,gt_fieldcatlvc_t_fcat.显示ALVtext-P_LT_TABtable.*ALV表格显示样式
8、alv_list_layout.*ALV报表的字段设置pf_alv_list_fcatUSINGit_fieldcat.*ALV报表显示pf_alv_list_displySHOW_ALVALV_LIST_LAYOUTp1-p2wa_layout-colwidth_optimizewa_layout-detail_initial_lineswa_layout-box_fieldnameSELE定义边框选中栏PF_ALV_LIST_FCATP_IT_FIELDCATp_it_fieldcat.lw_afieldcatslis_fieldcat_alv,lw_posi.DEFINEd_field.clearlw_afieldcat.+1.lw_afieldcat-col_poslw_pos.lw_afieldcat-fieldname&LW_AFIELDCAT-fix_columnlw_afieldcat-seltext_l2.lw_afieldcat-ref_fieldnamelw_afieldcat-ref_tabnamelw_afieldcat-no_zerolw_afieldcat-hotspot6.lw_afieldcat-outputlen7.lw_afieldcat-edit8.lw_afieldcat-key9.appendlw_afieldc
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1