材料提成比率查詢(xún)報(bào)表程序介紹

1、*-* Progrram Naame : ZZCFMR1173 * Purpoose : 材材料提成比率率查詢(xún)報(bào)表 * Projeect Naame : CCRM * Creatted byy : hhuoqi * Creatte on : 22010.007.14 * Functtionall Conssultannt : 王王瑩* Descrriptioon : 材材料提成比率率查詢(xún)報(bào)表*-* Moodificcationn Log *Date Proggrammeer Corrr. # DDescriiptionn *2010.008.04 huoqqi v1.11 先判斷斷材料ID的的

2、商品性質(zhì)為為免費(fèi)材料* 還是收收費(fèi)材料，免免費(fèi)材料則材材料提成比* 率為00，收費(fèi)材料料則再繼續(xù)執(zhí)執(zhí)行原查找* ZT00116ZZT01177ZT01118的邏輯輯。*-*REPORT zcfmmr173.TABLES: zt01116.TYPE-POOOLS: slis.DATA: ffieldccat TTYPE sslis_tt_fielldcat_alv WWITH HHEADERR LINEE, gg_repiid TTYPE ssy-reppid, ggs_layyout TTYPE sslis_llayoutt_alv.DATA: llt_proocess_type TTYPE

3、zztb_trran_chheck ,lls_proocess_type TTYPE zztr_trran_chheck .RANGES: r_prrocesss_typee FOR crmd_orderradm_hh-proccess_ttype.RANGES: is_sseorg FOR ccrmt_rreportt_orgmman-seervicee_org.*根據(jù)服務(wù)組織織找相應(yīng)的OOTJIDDATA: BBEGIN OF i_hrp10000 OCCCURS 0, otjiid LLIKE hhrp10000-otjjid, stexxt LLIKE hhrp10000-steext

4、, servvice_oorg TTYPE ccrmt_sservicce_orgg, EEND OFF i_hrrp10000.*DATA: BBEGIN OF itt_zzcllsp OCCCURS 0, prodduct_iid LIKKE coomm_prroductt-prodduct_iid, prodduct_gguid LIKKE coomm_prroductt-prodduct_gguid, cateegory_id LIKKE coomm_prrprdcaatr-caategorry_id, cateegory_guid LIKKE coomm_prrprdcaatr-ca

5、ategorry_guiid, EEND OFF it_zzzclspp.*DATA: BBEGIN OF itt_commm_prshhtext OCCURRS 0, prodduct_gguid LIIKE ccomm_pprshteext-prroductt_guidd, shorrt_texxt LIIKE ccomm_pprshteext-shhort_ttext, EEND OFF it_ccomm_pprshteext.*DATA: BBEGIN OF itt_commm_cateegorytt OCCUURS 0, cateegory_guid LIIKE ccomm_ccat

6、egooryt-ccategoory_guuid, cateegory_text LIIKE ccomm_ccategooryt-ccategoory_teext, EEND OFF it_ccomm_ccategooryt.DATA: BBEGIN OF itt_cateegory_guid OCCURRS 0, cateegory_id LIIKE ccomm_ccategoory-caategorry_id, cateegory_guid LIIKE ccomm_ccategoory-caategorry_guiid, EEND OFF it_ccategoory_guuid.DATA:

7、 BBEGIN OF itt_proccess_ttype OOCCURSS 0, proccess_ttype LIIKE zttr_traan_cheeck-prrocesss_typee, p_deescripption_20 LIIKE zttr_traan_cheeck-p_descrriptioon_20, EEND OFF it_pprocesss_typpe.DATA: BBEGIN OF itt_out OCCURRS 0, servvice_oorg LIKE zt01134-zssales_org, servvice_oorg_deesc LIKE hrp11000-ss

8、text, zzcllsp LIKE zt01134-zzzclspiid, zzcllsp_deesc LIKE commm_prshhtext-shortt_textt, zzcllspz LIKE zt01116-zzzclspzz, zzcllspz_ddesc LIKE commm_cateegorytt-cateegory_text, zzfwwddlx LIKE zt01116-zzzfwddllx, zzfwwddlx_desc LIKE crmcc_procc_typee_t-p_descrriptioon_20, zzdqqspz LIKE zt01116-zzzdqspz

9、z, zzdqqspz_ddesc LIKE commm_cateegorytt-cateegory_text, zzsppxz(100), zztccbl LIKE zt01116-zzztcbl, EEND OFF it_oout.DATA: BBEGIN OF itt_zt01134 OCCCURS 0, zsalles_orrg LLIKE zt01334-zsaales_oorg, zzcllspid LLIKE zt01334-zzcclspidd, EEND OFF it_zzt01344.DATA: BBEGIN OF itt_zt01135 OCCCURS 0, zsalle

10、s_orrg LLIKE zt01335-zsaales_oorg, zzcllspz LLIKE zt01335-zzcclspz, EEND OFF it_zzt01355.DATA: iit_outt1 LIKKE it_out OOCCURSS 0 WIITH HEEADER LINE.SELECTIION-SCCREEN BEGINN OF BBLOCK b1 WIITH FRRAME TTITLE text-001.SELECT-OPTIOONS: ss_seorrg FOOR zt00116-sservicce_orgg OBLIIGATORRY, 服務(wù)組組織 ss_zzclls

11、p FOOR zt00116-zzzclspp OBLIIGATORRY, 材料商商品ID ss_typee FOOR zt00116-zzzfwdddlx, 服務(wù)訂訂單類(lèi)型 ss_dqsppz FOOR zt00116-zzzdqsppz MODDIF IDD md1. 電器商商品組SELECTIION-SCCREEN END OOF BLOOCK b11.SELECTIION-SCCREEN BEGINN OF BBLOCK b2 WIITH FRRAME TTITLE text-002.PARAMETTERS: r1 RAADIOBUUTTON GROUPP ran11 DEFAAULT

12、 X USSER-COOMMANDD rb1, r2 RAADIOBUUTTON GROUPP ran11, r3 RAADIOBUUTTON GROUPP ran11.SELECTIION-SCCREEN END OOF BLOOCK b22.SELECTIION-SCCREEN COMMEENT /22(83) com1 VISIBBLE LEENGTH 120.AT SELEECTIONN-SCREEEN ONN VALUUE-REQQUEST FOR ss_typee-low. PERFOORM suub_proo_typee_seleect USSING ss_typee-low.A

13、T SELEECTIONN-SCREEEN ONN VALUUE-REQQUEST FOR ss_typee-highh. PERFOORM suub_proo_typee_seleect USSING ss_typee-low.AT SELEECTIONN-SCREEEN OUUTPUT. PERFOORM frrm_pboo.AT SELEECTIONN-SCREEEN. PERFOORM frrm_autthoritty_cheeck. PERFOORM frrm_inpput_chheck. CHECKK is_sseorg IS NOT IINITIAAL.START-OOF-SEL

14、LECTIOON. PERFOORM frrm_datta_proocess. PERFOORM frrm_datta_outtput.END-OF-SELECCTION.*&-*& Formm SUBB_PRO_TYPE_SELECCT*&-* textt*-* -P_S_TYPPE_LOWW texxt*-*FORM suub_proo_typee_seleect UUSING p_s_typpe_loww. DATA : f4hhelp LLIKE TTABLE OF dddshrettval WWITH HHEADERR LINEE. DATA: BEGIIN OF list OCCU

15、RRS 0, proccess_ttype LIIKE zttr_traan_cheeck-prrocesss_typee, p_deescripption_20 LIIKE zttr_traan_cheeck-p_descrriptioon_20, END OF liist.*帶搜索幫助，服服務(wù)訂單類(lèi)型型的值：ZSS01-ZSS12、ZGGS1-ZGGS3 r_proocess_type-sign = I. r_proocess_type-optioon = BT. r_proocess_type-low = ZS001. r_proocess_type-high = ZSS12. APPE

16、NND r_pprocesss_typpe. CLEARR r_prrocesss_typee. r_proocess_type-sign = I. r_proocess_type-optioon = BT. r_proocess_type-low = ZGSS1. r_proocess_type-high = ZGGS3. APPENND r_pprocesss_typpe. CLEARR r_pprocesss_typpe. SELECCT proocess_type p_desscripttion_220 INTO CORREESPONDDING FFIELDSS OF TTABLE l

17、t_prrocesss_typee FROM crmc_proc_type_t WHEREE langgu = ssy-lanngu ANDD proccess_ttype IIN r_pprocesss_typpe. LOOP AT ltt_proccess_ttype IINTO lls_proocess_type. MOVVE-CORRRESPOONDINGG ls_pprocesss_typpe TO list. APPPEND llist. ENDLOOOP. CALL FUNCTTION F4IF_INT_TTABLE_VALUEE_REQUUEST EXPPORTINNG rre

18、tfieeld = PROCEESS_TYYPE ddynpprrog = ssy-reppid ddynpnrr = ssy-dynnnr sstepl = 1 wwindoww_titlle = 訂單類(lèi)型查查詢(xún) vvalue_org = S TABBLES vvalue_tab = llist rreturnn_tab = ff4helpp. p_s_ttype_llow = f4hellp-fieeldvall.ENDFORMM. SUUB_PROO_TYPEE_SELEECT*&-*& Formm FRMM_PBO*&-* textt*-* - p1 textt* p1 textt*

19、- p2 textt*-*FORM frrm_autthoritty_cheeck .*權(quán)限控制到服服務(wù)組織*ZSN_ORRG001 REFREESH iss_seorrg. SELECCT * IINTO CCORRESSPONDIING FIIELDS OF TAABLE ii_hrp11000 FFROM hhrp10000 WHHERE hhrp10000otjjid INN s_seeorg AND hhrp10000plvvar = 01 AND hhrp10000otyype = O AND hhrp10000beggda sy-daatum. IF i_hrp10000 IS

20、INNITIALL. MESSSAGE e398(00) WWITH 沒(méi)有找到合合適的組織數(shù)數(shù)據(jù)！. ELSE. LOOOP AT i_hrpp1000. iis_seoorg-siign = I. iis_seoorg-opption = EQQ. iis_seoorg-loow = i_hhrp10000-otjjid. AAPPENDD is_sseorg. CCLEAR is_seeorg. ENDDLOOP. LOOOP AT is_seeorg.* 需控制到服服務(wù)組織。只只可查看本服服務(wù)組織的下下的單據(jù)。權(quán)權(quán)限對(duì)象：ZZSN_ORRG001 AAUTHORRITY-CCHECK O

21、BJECCT ZSSN_ORGG001 IDD SALLES_ORRG FIIELD iis_seoorg-loow. IIF sy-subrcc 00. DELEETE iss_seorrg. MESSSAGE ii398(000) WIITH 您您沒(méi)有操作組組織 iss_seorrg-loww 的權(quán)限限！. EXITT. EENDIF. ENDDLOOP. ENDIFF.ENDFORMM. FRRM_AUTTHORITTY_CHEECK*&-*& Formm FRMM_INPUUT_CHEECK*&-* textt*-* - p1 textt* p1 textt* - p2 textt*-

22、*FORM frrm_datta_proocess .*1、若勾選提提成比率1，點(diǎn)點(diǎn)執(zhí)行，則根根據(jù)查詢(xún)條件件中錄入的：服務(wù)組織、材材料商品IDD、*服務(wù)訂單類(lèi)型型、電器商品品組篩選條件件，查詢(xún)ZTT0116表表，并顯示字字段（見(jiàn)下）。*若查詢(xún)條件中中服務(wù)訂單類(lèi)類(lèi)型、電器商商品組字段不不輸入，則顯顯示ZT01116表中所所有的服務(wù)訂訂單類(lèi)型和電電器商品組。*2、若勾選提提成比率2，點(diǎn)點(diǎn)執(zhí)行，則根根據(jù)查詢(xún)條件件錄入的服務(wù)務(wù)組織、材料料商品ID、*服務(wù)訂單類(lèi)型型、電器商品品組篩選條件件，查詢(xún)ZTT0117表表，并顯示字字段（見(jiàn)下）。其其中，*通過(guò)查詢(xún)條件件中錄入的材材料商品IDD先查找該IID對(duì)應(yīng)的

23、材材料商品組，*再根據(jù)該材料料商品組查找找ZT01117表。若查查詢(xún)條件中服服務(wù)訂單類(lèi)型型、電器商品品組字段不輸輸入，*則顯示ZT00117表中中所有的服務(wù)務(wù)訂單類(lèi)型和和電器商品組組。*3.若勾選提提成比率3，點(diǎn)點(diǎn)執(zhí)行，則根根據(jù)查詢(xún)條件件錄入的服務(wù)務(wù)組織、材料料商品ID、*服務(wù)訂單類(lèi)型型篩選條件，查查詢(xún)ZT01118表，其其中，通過(guò)查查詢(xún)條件中錄錄入的材料商商品ID*先查找該IDD對(duì)應(yīng)的材料料商品組，再再根據(jù)該材料料商品組查找找ZT01118表。*其中查詢(xún)條件件中的電器商商品組不作為為查詢(xún)篩選字字段。*根據(jù)輸入的材材料商品IDD來(lái)找其對(duì)應(yīng)應(yīng)的材料商品品組 SELECCT approducct_

24、id aprooduct_guid bcattegoryy_id bbcateegory_guid INTTO CORRRESPOONDINGG FIELLDS OFF TABLLE it_zzclssp FROOM commm_prooduct AS a INNNER JOOIN commm_prpprdcattr AS b OON approducct_guiid = bbprodduct_gguid IINNER JOIN commm_hieerarchhy AS c OON bhhierarrchy_gguid = chiierarcchy_guuid WHEERE aproduuct

25、_idd IN ss_zzcllsp AAND chieraarchy_id = R3MAATCLASSS.* CHECKK it_zzzclspp ISS NOT INITIIAL. IF r11 = XX. CLEEAR: iit_outt.REFRRESH: it_ouut. SELLECT sservicce_orgg zzcllsp zzzclspzz zzfwwddlx zzdqsspz zzztcbl FFROM zzt01166 IINTO CCORRESSPONDIING FIIELDS OF TAABLE iit_outt WWHERE serviice_orrg IN i

26、s_seeorg AND zzfwdddlx IN s_typpe AND zzfwdddlx IN r_proocess_type AND zzdqsspz IN s_dqsspz AND zzclssp IN s_zzcclsp. ELSEIIF r2 = X. SELLECT sservicce_orgg zzcllspz zzzfwdddlx zzzdqspzz zztccbl FFROM zzt01177 IINTO CCORRESSPONDIING FIIELDS OF TAABLE iit_outt FFOR ALLL ENTTRIES IN itt_zzcllsp WHEERE

27、 seervicee_org IN iss_seorrg AAND zzzfwddllx IN s_type AAND zzzfwddllx IN r_proceess_tyype AAND zzzdqspzz IN s_dqspzz AAND zzzclspzz = it_zzclssp-cattegoryy_id. ELSEIIF r3 = X. SELLECT sservicce_orgg zzcllspz zzzfwdddlx zzztcbl FFROM zzt01188 IINTO CCORRESSPONDIING FIIELDS OF TAABLE iit_outt FFOR AL

28、LL ENTTRIES IN itt_zzcllsp WHEERE seervicee_org IN iss_seorrg AAND zzzfwddllx IN s_type AAND zzzfwddllx IN r_proceess_tyype AAND zzzclspzz = it_zzclssp-cattegoryy_id. ENDIFF.* CHECCK it_out IS NNOT INNITIALL. IF itt_out IS NOT IINITIAAL. SELLECT pprocesss_typpe p_ddescriiptionn_20 INTTO CORRRESPOOND

29、INGG FIELLDS OFF TABLLE it_proceess_tyype FROOM crmmc_prooc_typpe_t WHEERE laangu = sy-llangu AAND prrocesss_typee IN rr_proccess_ttype. SELLECT pproducct_guiid shoort_teext FFROM ccomm_pprshteext IINTO TTABLE it_coomm_prrshtexxt FFOR ALLL ENTTRIES IN itt_zzcllsp WWHERE produuct_guuid = it_zzzclsp-p

30、roduuct_guuid. SELLECT ccategoory_guuid caategorry_texxt FFROM ccomm_ccategooryt IINTO TTABLE it_coomm_caategorryt FFOR ALLL ENTTRIES IN itt_zzcllsp WWHERE categgory_gguid = it_zzzclspp-cateegory_guid. IF r3 X. SSELECTT cateegory_id caategorry_guiid FROMM commm_cateegory INTOO TABLLE it_categgory_gg

31、uid FOR ALL EENTRIEES IN it_ouut WHERRE cattegoryy_id = it_oout-zzzdqspzz. IIF it_categgory_gguid IS NNOT INNITIALL. SELEECT caategorry_guiid cattegoryy_textt FRROM coomm_caategorryt APPPENDIING TAABLE iit_commm_cattegoryyt FOOR ALLL ENTRRIES IIN it_categgory_gguid WHHERE ccategoory_guuid = it_caate

32、gorry_guiid-cattegoryy_guidd. EENDIF. ENDDIF. ENDIFF. SORT i_hrpp1000 BY ottjid. SORT it_zzzclsp BY prroductt_id. SORT it_coomm_prrshtexxt BY produuct_guuid. SORT it_zzzclsp BY caategorry_id. SORT it_coomm_caategorryt BYY cateegory_guid. SORT it_caategorry_guiid BY categgory_iid. SORT it_prrocesss_t

33、ypee BY pprocesss_typpe. LOOP AT itt_out. REAAD TABBLE i_hrp10000 WIITH KEEY otjjid = it_ouut-serrvice_org BBINARYY SEARRCH. IF sy-suubrc = 0. iit_outt-servvice_oorg_deesc = i_hrpp1000-stextt. ENDDIF. IF r1 = X. RREAD TTABLE it_zzzclsp WITH KEY pproducct_id = it_out-zzzclspp BINAARY SEEARCH. IIF sy-

34、subrcc = 0. READD TABLLE it_comm_prshttext WWITH KKEY prroductt_guidd = itt_zzcllsp-prroductt_guidd BINAARY SEEARCH. IF ssy-subbrc = 0. itt_out-zzclssp_dessc = iit_commm_prsshtextt-shorrt_texxt. ENDIIF. EENDIF. ENDDIF. REAAD TABBLE itt_zzcllsp WIITH KEEY cattegoryy_id = it_oout-zzzclspzz BINAARY SEE

35、ARCH. IF sy-suubrc = 0. RREAD TTABLE it_coomm_caategorryt WIITH KEEY cattegoryy_guidd = itt_zzcllsp-caategorry_guiid BINNARY SSEARCHH. IIF sy-subrcc = 0. it_oout-zzzclspzz_descc = itt_commm_cateegorytt-cateegory_text. EENDIF. ENDDIF. IF r3 X. RREAD TTABLE it_caategorry_guiid WITTH KEYY cateegory_id

36、= it_ouut-zzddqspz BINARRY SEAARCH. IIF sy-subrcc = 0. READD TABLLE it_comm_categgoryt WITH KEY ccategoory_guuid = it_caategorry_guiid-cattegoryy_guidd BINAARY SEEARCH. IF ssy-subbrc = 0. itt_out-zzdqsspz_deesc = it_coomm_caategorryt-caategorry_texxt. ENDIIF. EENDIF. ENDDIF. REAAD TABBLE itt_procces

37、s_ttype WITH KEY pprocesss_typpe = iit_outt-zzfwwddlx BINARRY SEAARCH. IF sy-suubrc = 0. iit_outt-zzfwwddlx_desc = it_proceess_tyype-p_descrriptioon_20. ENDDIF. MODDIFY iit_outt. ENDLOOOP. LOOP AT itt_out. IF r1 = X. MMOVE-CCORRESSPONDIING itt_out TO itt_out11. AAPPENDD it_oout1. CCLEAR it_ouut1. EL

38、SSE. LLOOP AAT it_zzclssp WHHERE ccategoory_idd = itt_out-zzclsspz. MOVEE-CORRRESPONNDING it_ouut TO it_ouut1. it_oout1-zzzclspp = itt_zzcllsp-prroductt_id. READD TABLLE it_comm_prshttext WWITH KKEY prroductt_guidd = itt_zzcllsp-prroductt_guidd. IF ssy-subbrc = 0. itt_out11-zzcllsp_deesc = it_coomm_

39、prrshtexxt-shoort_teext. ENDIIF. APPEEND itt_out11. CLEAAR it_out1. EENDLOOOP. ENDDIF. ENDLOOOP.* 根據(jù)服務(wù)組組織、材料商商品ID判斷斷商品性質(zhì)（邏邏輯見(jiàn)下述表表格），* 若商品性質(zhì)質(zhì)為“免費(fèi)材料”，則材料提提成比例為00，* 根據(jù)服務(wù)組組織、材料商商品ID查詢(xún)?cè)僙T01334表，若有有維護(hù)，* 則該字段值值固定為“免費(fèi)材料”；若無(wú)，再再根據(jù)服務(wù)組組織、* 材料商品IID對(duì)應(yīng)的材材料商品組搜搜索ZT01135表，若若有維護(hù)，* 則該字段值值固定為“免費(fèi)材料”， IF itt_out11 ISS NO

40、T INITIIAL. SELLECT zzsaless_org zzclsspid FFROM zzt01344 IINTO CCORRESSPONDIING FIIELDS OF TAABLE iit_zt00134 FFOR ALLL ENTTRIES IN itt_out11 WWHERE zsalees_orgg = itt_out11-servvice_oorg AND zzclsspid = itt_out11-zzcllsp AND date_from = sy-ddatum. SELLECT zzsaless_org zzclsspz FFROM zzt01355 IINTO

41、 CCORRESSPONDIING FIIELDS OF TAABLE iit_zt00135 FFOR ALLL ENTTRIES IN itt_out11 WWHERE zsalees_orgg = itt_out11-servvice_oorg AND zzclsspz = itt_out11-zzcllspz AND date_from = sy-ddatum. ENDIFF. SORT it_ztt0134 BY zssales_org zzzclsppid. SORT it_ztt0135 BY zssales_org zzzclsppz. LOOP AT itt_out11. R

42、EAAD TABBLE itt_zt01134 WIITH KEEY zsaales_oorg = it_ouut1-seervicee_org zzcclspidd = it_ouut1-zzzclsp. IF sy-suubrc = 0. CCLEAR: it_oout1-zzzfwdddlx,itt_out11-zzfwwddlx_desc,it_ouut1-zzzdqspzz,it_oout1-zzzdqsppz_dessc. iit_outt1-zzsspxz = 免費(fèi)材材料. iit_outt1-zzttcbl = 0. ELSSE. RREAD TTABLE it_ztt0135

43、 WITH KEY zzsaless_org = it_out1-serviice_orrg zzzclsppz = it_out1-zzclsspz. IIF sy-subrcc = 0. CLEAAR: itt_out11-zzfwwddlx,it_ouut1-zzzfwddllx_dessc,it_out1-zzdqsspz,itt_out11-zzdqqspz_ddesc. it_oout1-zzzspxzz = 免免費(fèi)材料. it_oout1-zzztcbll = 0. EELSE. it_oout1-zzzspxzz = 收收費(fèi)材料. EENDIF. ENDDIF. MODDIFY

44、 iit_outt1. ENDLOOOP. CLEARR: i_hhrp10000, itt_zzcllsp,itt_commm_prshhtext,it_zzzclsp,it_coomm_caategorryt,itt_cateegory_guid,it_prrocesss_typee. REFREESH: ii_hrp11000, it_zzzclsp,it_coomm_prrshtexxt,it_zzclssp,it_comm_categgoryt,it_caategorry_guiid,it_proceess_tyype. FREE: i_hrrp10000, it_zzclssp,i

45、t_comm_prshttext,iit_zzcclsp,iit_commm_cattegoryyt,it_categgory_gguid,iit_proocess_type. IF itt_out11 ISS INITTIAL. MESSSAGE s398(00) WWITH 您要找的數(shù)數(shù)據(jù)不存在！. EXIIT. ENDIFF. SORT it_ouut1 BYY servvice_oorg zzzclsp zzclsspz zzzfwddllx zzddqspz zzspxxz. DELETTE ADJJACENTT DUPLLICATEES FROOM it_out1 COMPAARING serviice_orrg zzcclsp zzzclsppz zzffwddlxx zzdqqspz zzzspxzz.ENDFORMM. FRRM_DATTA_PROOCESS*&-*& Formm FRMM_DATAA_OUTPPUT*&-* textt*-