《材料提成比率查询报表程序介绍》由会员分享,可在线阅读,更多相关《材料提成比率查询报表程序介绍(16页珍藏版)》请在金锄头文库上搜索。
1、*-* Program Name : ZCFMR173 * Purpose : 材料提成比率查询报表 * Project Name : CRM * Created by : huoqi * Create on : 2010.07.14 * Functional Consultant : 王莹* Description : 材料提成比率查询报表*-* Modification Log *Date Programmer Corr. # Description *2010.08.04 huoqi v1.1 先判断材料ID的商品性质为免费材料* 还是收费材料,免费材料则材料提成比* 率为0,收费材料则
2、再继续执行原查找* ZT0116ZT0117ZT0118的逻辑。*-*REPORT zcfmr173.TABLES: zt0116.TYPE-POOLS: slis.DATA: fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE, g_repid TYPE sy-repid, gs_layout TYPE slis_layout_alv.DATA: lt_process_type TYPE ztb_tran_check ,ls_process_type TYPE ztr_tran_check .RANGES: r_process_type FO
3、R crmd_orderadm_h-process_type.RANGES: is_seorg FOR crmt_report_orgman-service_org.*根据服务组织找相应的OTJIDDATA: BEGIN OF i_hrp1000 OCCURS 0, otjid LIKE hrp1000-otjid, stext LIKE hrp1000-stext, service_org TYPE crmt_service_org, END OF i_hrp1000.*DATA: BEGIN OF it_zzclsp OCCURS 0, product_id LIKE comm_produ
4、ct-product_id, product_guid LIKE comm_product-product_guid, category_id LIKE comm_prprdcatr-category_id, category_guid LIKE comm_prprdcatr-category_guid, END OF it_zzclsp.*DATA: BEGIN OF it_comm_prshtext OCCURS 0, product_guid LIKE comm_prshtext-product_guid, short_text LIKE comm_prshtext-short_text
5、, END OF it_comm_prshtext.*DATA: BEGIN OF it_comm_categoryt OCCURS 0, category_guid LIKE comm_categoryt-category_guid, category_text LIKE comm_categoryt-category_text, END OF it_comm_categoryt.DATA: BEGIN OF it_category_guid OCCURS 0, category_id LIKE comm_category-category_id, category_guid LIKE co
6、mm_category-category_guid, END OF it_category_guid.DATA: BEGIN OF it_process_type OCCURS 0, process_type LIKE ztr_tran_check-process_type, p_description_20 LIKE ztr_tran_check-p_description_20, END OF it_process_type.DATA: BEGIN OF it_out OCCURS 0, service_org LIKE zt0134-zsales_org, service_org_des
7、c LIKE hrp1000-stext, zzclsp LIKE zt0134-zzclspid, zzclsp_desc LIKE comm_prshtext-short_text, zzclspz LIKE zt0116-zzclspz, zzclspz_desc LIKE comm_categoryt-category_text, zzfwddlx LIKE zt0116-zzfwddlx, zzfwddlx_desc LIKE crmc_proc_type_t-p_description_20, zzdqspz LIKE zt0116-zzdqspz, zzdqspz_desc LI
8、KE comm_categoryt-category_text, zzspxz(10), zztcbl LIKE zt0116-zztcbl, END OF it_out.DATA: BEGIN OF it_zt0134 OCCURS 0, zsales_org LIKE zt0134-zsales_org, zzclspid LIKE zt0134-zzclspid, END OF it_zt0134.DATA: BEGIN OF it_zt0135 OCCURS 0, zsales_org LIKE zt0135-zsales_org, zzclspz LIKE zt0135-zzclsp
9、z, END OF it_zt0135.DATA: it_out1 LIKE it_out OCCURS 0 WITH HEADER LINE.SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.SELECT-OPTIONS: s_seorg FOR zt0116-service_org OBLIGATORY, 服务组织 s_zzclsp FOR zt0116-zzclsp OBLIGATORY, 材料商品ID s_type FOR zt0116-zzfwddlx, 服务订单类型 s_dqspz FOR zt0116-zzd
10、qspz MODIF ID md1. 电器商品组SELECTION-SCREEN END OF BLOCK b1.SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.PARAMETERS: r1 RADIOBUTTON GROUP ran1 DEFAULT X USER-COMMAND rb1, r2 RADIOBUTTON GROUP ran1, r3 RADIOBUTTON GROUP ran1.SELECTION-SCREEN END OF BLOCK b2.SELECTION-SCREEN COMMENT /2(83
11、) com1 VISIBLE LENGTH 120.AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_type-low. PERFORM sub_pro_type_select USING s_type-low.AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_type-high. PERFORM sub_pro_type_select USING s_type-low.AT SELECTION-SCREEN OUTPUT. PERFORM frm_pbo.AT SELECTION-SCREEN. PERFORM frm_authority_check. PERFORM frm_input_check. CHECK is_seorg IS NOT INITIAL.