财务管理财务知识材料提成比率查询报表程序介绍*-*ProgramName:ZCFMR173*Purpose:材料提成比率查询报表*ProjectName:CRM*Createdby:huoqi*Createon:2010.07.14*FunctionalConsultant:王莹*Description:材料提成比率查询报表*-*ModificationLog*DateProgrammerCorr.#Description*2010.08.04huoqiv1.1先判断材料ID的商品性质为免费材料*还是收费材料，免费材料则材料提成比*率为0，收费材料则再继续执行原查找*ZT0116ZT0117ZT0118的逻辑。*-*REPORTzcfmr173.TABLES:zt0116.TYPE-POOLS:slis.DATA:fieldcatTYPEslis_t_fieldcat_alvWITHHEADERLINE,g_repidTYPEsy-repid,gs_layoutTYPEslis_layout_alv.DATA:lt_process_typeTYPEztb_tran_check,ls_process_typeTYPEztr_tran_check.RANGES:r_process_typeFORcrmd_orderadm_h-process_type.RANGES:is_seorgFORcrmt_report_orgman-service_org.*根据服务组织找相应的OTJIDDATA:BEGINOFi_hrp1000OCCURS0,otjidLIKEhrp1000-otjid,stextLIKEhrp1000-stext,service_orgTYPEcrmt_service_org,ENDOFi_hrp1000.*DATA:BEGINOFit_zzclspOCCURS0,product_idLIKEm_product-product_id,product_guidLIKEm_product-product_guid,category_idLIKEm_prprdcatr-category_id,category_guidLIKEm_prprdcatr-category_guid,ENDOFit_zzclsp.*DATA:BEGINOFit_m_prshtextOCCURS0,product_guidLIKEm_prshtext-product_guid,short_textLIKEm_prshtext-short_text,ENDOFit_m_prshtext.*DATA:BEGINOFit_m_categorytOCCURS0,category_guidLIKEm_categoryt-category_guid,category_textLIKEm_categoryt-category_text,ENDOFit_m_categoryt.DATA:BEGINOFit_category_guidOCCURS0,category_idLIKEm_category-category_id,category_guidLIKEm_category-category_guid,ENDOFit_category_guid.DATA:BEGINOFit_process_typeOCCURS0,process_typeLIKEztr_tran_check-process_type,p_description_20LIKEztr_tran_check-p_description_20,ENDOFit_process_type.DATA:BEGINOFit_outOCCURS0,service_orgLIKEzt0134-zsales_org,service_org_descLIKEhrp1000-stext,zzclspLIKEzt0134-zzclspid,zzclsp_descLIKEm_prshtext-short_text,zzclspzLIKEzt0116-zzclspz,zzclspz_descLIKEm_categoryt-category_text,zzfwddlxLIKEzt0116-zzfwddlx,zzfwddlx_descLIKEcrmc_proc_type_t-p_description_20,zzdqspzLIKEzt0116-zzdqspz,zzdqspz_descLIKEm_categoryt-category_text,zzspxz(10),zztcblLIKEzt0116-zztcbl,ENDOFit_out.DATA:BEGINOFit_zt0134OCCURS0,zsales_orgLIKEzt0134-zsales_org,zzclspidLIKEzt0134-zzclspid,ENDOFit_zt0134.DATA:BEGINOFit_zt0135OCCURS0,zsales_orgLIKEzt0135-zsales_org,zzclspzLIKEzt0135-zzclspz,ENDOFit_zt0135.DATA:it_out1LIKEit_outOCCURS0WITHHEADERLINE.SELECTION-SCREENBEGINOFBLOCKb1WITHFRAMETITLEtext-001.SELECT-OPTIONS:s_seorgFORzt0116-service_orgOBLIGATORY,服务组织s_zzclspFORzt0116-zzclspOBLIGATORY,材料商品IDs_typeFORzt0116-zzfwddlx,服务订单类型s_dqspzFORzt0116-zzdqspzMODIFIDmd1.电器商品组SELECTION-SCREENENDOFBLOCKb1.SELECTION-SCREENBEGINOFBLOCKb2WITHFRAMETITLEtext-002.PARAMETERS:r1RADIOBUTTONGROUPran1DEFAULTXUSER-COMMANDrb1,r2RADIOBUTTONGROUPran1,r3RADIOBUTTONGROUPran1.SELECTION-SCREENENDOFBLOCKb2.SELECTION-SCREENCOMMENT/2(83)1VISIBLELENGTH120.ATSELECTION-SCREENONVALUE-REQUESTFORs_type-low.PERFORMsub_pro_type_selectUSINGs_type-low.ATSELECTION-SCREENONVALUE-REQUESTFORs_type-high.PERFORMsub_pro_type_selectUSINGs_type-low.ATSELECTION-SCREENOUTPUT.PERFORMfrm_pbo.ATSELECTION-SCREEN.PERFORMfrm_authority_check.PERFORMfrm_input_check.CHECKis_seorgISNOTINITIAL.START-OF-SELECTION.PERFORMfrm_data_process.PERFORMfrm_data_output.END-OF-SELECTION.*&-*&FormSUB_PRO_TYPE_SELECT*&-*text*-*-P_S_TYPE_LOWtext*-*FORMsub_pro_type_selectUSINGp_s_type_low.DATA:f4helpLIKETABLEOFddshretvalWITHHEADERLINE.DATA:BEGINOFlistOCCURS0,process_typeLIKEztr_tran_check-process_type,p_description_20LIKEztr_tran_check-p_description_20,ENDOFlist.*带搜索帮助，服务订单类型的值：ZS01-ZS12、ZGS1-ZGS3r_process_type-sign=I.r_process_type-option=BT.r_process_type-low=ZS01.r_process_type-high=ZS12.APPENDr_process_type.CLEARr_process_type.r_process_type-sign=I.r_process_type-option=BT.r_process_type-low=ZGS1.r_process_type-high=ZGS3.APPENDr_process_type.CLEARr_process_type.SELECTprocess_typep_description_20INTOCORRESPONDINGFIELDSOFTABLElt_process_typeFROMcrmc_proc_type_tWHERElangu=sy-languANDprocess_typeINr_process_type.LOOPATlt_process_typeINTOls_process_type.MOVE-CORRESPONDINGls_process_typeTOlist.APPENDlist.ENDLOOP.CALLFUNCTIONF4IF_INT_TABLE_VALUE_REQUESTEXPORTINGretfield=PROCESS_TYPEdynpprog=sy-repiddynpnr=sy-dynnrstepl=1window_title=订单类型查询value_org=STABLESvalue_tab=listreturn_tab=f4help.p_s_type_low=f4help-fieldval.ENDFORM.SUB_PRO_TYPE_S