材料提成比率查询报表程序.docx
- 文档编号:9624923
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:22
- 大小:19.06KB
材料提成比率查询报表程序.docx
《材料提成比率查询报表程序.docx》由会员分享,可在线阅读,更多相关《材料提成比率查询报表程序.docx(22页珍藏版)》请在冰豆网上搜索。
材料提成比率查询报表程序
*----------------------------------------------------------------------*
*ProgramName:
ZCFMR173*
*Purpose:
材料提成比率查询报表*
*ProjectName:
CRM*
*Createdby:
huoqi*
*Createon:
2010.07.14*
*FunctionalConsultant:
王莹
*Description:
材料提成比率查询报表
*----------------------------------------------------------------------*
*ModificationLog*
*DateProgrammerCorr.#Description*
*2010.08.04huoqiv1.1先判断材料ID的商品性质为免费材料
*还是收费材料,免费材料则材料提成比
*率为0,收费材料则再继续执行原查找
*ZT0116\ZT0117\ZT0118的逻辑。
*----------------------------------------------------------------------*
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.
*根据服务组织找相应的OTJID
DATA:
BEGINOFi_hrp1000OCCURS0,
otjidLIKEhrp1000-otjid,
stextLIKEhrp1000-stext,
service_orgTYPEcrmt_service_org,
ENDOFi_hrp1000.
*
DATA:
BEGINOFit_zzclspOCCURS0,
product_idLIKEcomm_product-product_id,
product_guidLIKEcomm_product-product_guid,
category_idLIKEcomm_prprdcatr-category_id,
category_guidLIKEcomm_prprdcatr-category_guid,
ENDOFit_zzclsp.
**
DATA:
BEGINOFit_comm_prshtextOCCURS0,
product_guidLIKEcomm_prshtext-product_guid,
short_textLIKEcomm_prshtext-short_text,
ENDOFit_comm_prshtext.
*
DATA:
BEGINOFit_comm_categorytOCCURS0,
category_guidLIKEcomm_categoryt-category_guid,
category_textLIKEcomm_categoryt-category_text,
ENDOFit_comm_categoryt.
DATA:
BEGINOFit_category_guidOCCURS0,
category_idLIKEcomm_category-category_id,
category_guidLIKEcomm_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_descLIKEcomm_prshtext-short_text,
zzclspzLIKEzt0116-zzclspz,
zzclspz_descLIKEcomm_categoryt-category_text,
zzfwddlxLIKEzt0116-zzfwddlx,
zzfwddlx_descLIKEcrmc_proc_type_t-p_description_20,
zzdqspzLIKEzt0116-zzdqspz,
zzdqspz_descLIKEcomm_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,"材料商品ID
s_typeFORzt0116-zzfwddlx,"服务订单类型
s_dqspzFORzt0116-zzdqspzMODIFIDmd1."电器商品组
SELECTION-SCREENENDOFBLOCKb1.
SELECTION-SCREENBEGINOFBLOCKb2WITHFRAMETITLEtext-002.
PARAMETERS:
r1RADIOBUTTONGROUPran1DEFAULT'X'USER-COMMANDrb1,
r2RADIOBUTTONGROUPran1,
r3RADIOBUTTONGROUPran1.
SELECTION-SCREENENDOFBLOCKb2.
SELECTION-SCREENCOMMENT/2(83)com1
VISIBLELENGTH120.
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_seorg[]ISNOTINITIAL.
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-ZGS3
r_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_20
INTOCORRESPONDINGFIELDSOFTABLElt_process_type
FROMcrmc_proc_type_t
WHERElangu=sy-langu
ANDprocess_typeINr_process_type.
LOOPATlt_process_typeINTOls_process_type.
MOVE-CORRESPONDINGls_process_typeTOlist.
APPENDlist.
ENDLOOP.
CALLFUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield='PROCESS_TYPE'
dynpprog=sy-repid
dynpnr=sy-dynnr
stepl='1'
window_title='订单类型查询'
value_org='S'
TABLES
value_tab=list
return_tab=f4help.
p_s_type_low=f4help-fieldval.
ENDFORM."SUB_PRO_TYPE_SELECT
*&---------------------------------------------------------------------*
*&FormFRM_PBO
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*-->p1text
*<--p2text
*----------------------------------------------------------------------*
FORMfrm_pbo.
CONCATENATE'注:
服务组织、材料商品ID必填,材料提成比率优先取提成比率1,'
'提成比率1无数据再取提成比率2,'
'提成比率2也无数据再取提成比率3'INTOcom1.
IFr3='X'.
LOOPATSCREEN.
IFscreen-group1='MD1'.
screen-input='0'.
MODIFYSCREEN.
ENDIF.
ENDLOOP.
ENDIF.
ENDFORM."FRM_PBO
*&---------------------------------------------------------------------*
*&FormFRM_AUTHORITY_CHECK
*&---------------------------------------------------------------------*
*text
*----------------------------------------------------------------------*
*-->p1text
*<--p2text
*----------------------------------------------------------------------*
FORMfrm_authority_check.
*权限控制到服务组织
*ZSN_ORG001
REFRESHis_seorg.
SELECT*INTOCORRESPONDINGFIELDSOFTABLEi_hrp1000
FROMhrp1000
WHEREhrp1000~otjidINs_seorg
ANDhrp1000~plvar='01'
ANDhrp1000~otype='O'
ANDhrp1000~begda ANDhrp1000~endda>sy-datum. IFi_hrp1000[]ISINITIAL. MESSAGEe398(00)WITH'没有找到合适的组织数据! '. ELSE. LOOPATi_hrp1000. is_seorg-sign='I'. is_seorg-option='EQ'. is_seorg-low=i_hrp1000-otjid. APPENDis_seorg. CLEARis_seorg. ENDLOOP. LOOPATis_seorg. *需控制到服务组织。 只可查看本服务组织的下的单据。 权限对象: ZSN_ORG001 AUTHORITY-CHECKOBJECT'ZSN_ORG001' ID'SALES_ORG'FIELDis_seorg-low. IFsy-subrc<>0. DELETEis_seorg[]. MESSAGEi398(00)WITH'您没有操作组织'is_seorg-low'的权限! '. EXIT. ENDIF. ENDLOOP. ENDIF. ENDFORM."FRM_AUTHORITY_CHECK *&---------------------------------------------------------------------* *&FormFRM_INPUT_CHECK *&---------------------------------------------------------------------* *text *----------------------------------------------------------------------* *-->p1text *<--p2text *----------------------------------------------------------------------* FORMfrm_input_check. FIND'*'INTABLEs_zzclsp. IFsy-subrc=0. MESSAGEe398(00)WITH'材料商品ID不允许输入*'. EXIT. ENDIF. ENDFORM."FRM_INPUT_CHECK *&---------------------------------------------------------------------* *&FormFRM_DATA_PROCESS *&---------------------------------------------------------------------* *text *----------------------------------------------------------------------* *-->p1text *<--p2text *----------------------------------------------------------------------* FORMfrm_data_process. *1、若勾选提成比率1,点执行,则根据查询条件中录入的: 服务组织、材料商品ID、 *服务订单类型、电器商品组筛选条件,查询ZT0116表,并显示字段(见下)。 *若查询条件中服务订单类型、电器商品组字段不输入,则显示ZT0116表中所有的服务订单类型和电器商品组。 *2、若勾选提成比率2,点执行,则根据查询条件录入的服务组织、材料商品ID、 *服务订单类型、电器商品组筛选条件,查询ZT0117表,并显示字段(见下)。 其中, *通过查询条件中录入的材料商品ID先查找该ID对应的材料商品组, *再根据该材料商品组查找ZT0117表。 若查询条件中服务订单类型、电器商品组字段不输入, *则显示ZT0117表中所有的服务订单类型和电器商品组。 *3.若勾选提成比率3,点执行,则根据查询条件录入的服务组织、材料商品ID、 *服务订单类型筛选条件,查询ZT0118表,其中,通过查询条件中录入的材料商品ID *先查找该ID对应的材料商品组,再根据该材料商品组查找ZT0118表。 *其中查询条件中的电器商品组不作为查询筛选字段。 *根据输入的材料商品ID来找其对应的材料商品组 SELECTa~product_ida~product_guidb~category_idb~category_guid INTOCORRESPONDINGFIELDSOFTABLEit_zzclsp FROMcomm_productASaINNERJOIN comm_prprdcatrASb ONa~product_guid=b~product_guidINNERJOIN comm_hierarchyASc ONb~hierarchy_guid=c~hierarchy_guid WHEREa~product_idINs_zzclsp ANDc~hierarchy_id='R3MATCLASS'. * CHECKit_zzclsp[]ISNOTINITIAL. IFr1='X'. CLEAR: it_out.REFRESH: it_out. SELECTservice_orgzzclspzzclspzzzfwddlxzzdqspzzztcbl FROMzt0116 INTOCORRESPONDINGFIELDSOFTABLEit_out WHEREservice_orgINis_seorg ANDzzfwddlxINs_type ANDzzfwddlxINr_process_type ANDzzdqspzINs_dqspz ANDzzclspINs_zzclsp. ELSEIFr2='X'. SELECTservice_orgzzclspzzzfwddlxzzdqspzzztcbl FROMzt0117 INTOCORRESPONDINGFIELDSOFTABLEit_out FORALLENTRIESINit_zzclsp WHEREservice_orgINis_seorg ANDzzfwddlxINs_type ANDzzfwddlxINr_process_type ANDzzdqspzINs_dqspz ANDzzclspz=it_zzclsp-category_id. ELSEIFr3='X'. SELECTservice_orgzzclspzzzfwddlxzztcbl FROMzt0118 INTOCORRESPONDINGFIELDSOFTABLEit_out FORALLENTRIESINit_zzclsp WHEREservice_orgINis_seorg ANDzzfwddlxINs_type ANDzzfwddlxINr_process_type AND
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 材料 提成 比率 查询 报表 程序
![提示](https://static.bdocx.com/images/bang_tan.gif)