利用标准的BOL编辑工具，添加BOL对象，重写查询方法，实现简答的BOL查询
1.SE11创建查询对象结构：
2.SE11创建查询结果对象：
3.SE24新建处理类：
重写查询结果方法：
METHOD IF_GENIL_APPL_INTLAY~GET_DYNAMIC_QUERY_RESULT. TYPES:BEGIN OF TY_ADM, GUID_H TYPE CRMT_OBJECT_GUID, "销售订单 OBJECT_ID TYPE CRMT_OBJECT_ID_DB, OBJECT_ID_H TYPE CRMT_OBJECT_ID_DB, "销售订单 ZZZTRACKRETURN TYPE ZTRACKRETURN, "销售订单-发回运单号 GUID_D TYPE CRMT_OBJECT_GUID, "维修工单 OBJECT_ID_D TYPE CRMT_OBJECT_ID_DB, "维修工单 END OF TY_ADM, BEGIN OF TY_PARTNER, GUID_HI TYPE CRMT_OBJECT_GUID, GUID_SET TYPE CRMT_OBJECT_GUID, PARTNER_NO TYPE CRMT_PARTNER_NO, PARTNER TYPE BU_PARTNER, BU_SORT1 TYPE BU_SORT1, END OF TY_PARTNER, BEGIN OF TY_ITEM, HEADER TYPE CRMT_OBJECT_GUID, "销售订单 PRODUCT TYPE CRMT_PRODUCT_GUID_DB, ORDERED_PROD TYPE CRMT_ORDERED_PROD_DB, NUMBER_INT TYPE CRMT_ITEM_NO, ITM_TYPE TYPE CRMT_ITEM_TYPE_DB, QUANTITY TYPE CRMT_SCHEDLIN_QUAN, END OF TY_ITEM, BEGIN OF TY_RESU, GUID_H TYPE CRMT_OBJECT_GUID, OBJECT_ID TYPE CRMT_OBJECT_ID_DB, CREATED_AT TYPE COMT_CREATED_AT_USR, ZZZMODENO TYPE ZMODENO, ZZCLIENT_TYPE TYPE ZADTEL000056, PO_NUMBER_SOLD TYPE CRMT_PO_NUMBER_SOLD, END OF TY_RESU. DATA: LT_SELECTION TYPE AXTT_TABLES_SEL_PARAM, LS_SELECTION TYPE AXT_TABLES_SEL_PARAM, RT_OBJECT_ID TYPE RANGE OF CRMT_OBJECT_ID, RS_OBJECT_ID LIKE LINE OF RT_OBJECT_ID, RT_ZZAFLD00001X TYPE RANGE OF ZADTEL00009Q, RS_ZZAFLD00001X LIKE LINE OF RT_ZZAFLD00001X, LV_DATE TYPE ZADTEL00009Q, RT_ZZAFLD00001Y TYPE RANGE OF ZADTEL00009U, RS_ZZAFLD00001Y LIKE LINE OF RT_ZZAFLD00001Y, LV_TIME TYPE ZADTEL00009U, LX_ROOT TYPE REF TO CX_ROOT. "#EC NEEDED DATA:GT_ADM TYPE TABLE OF TY_ADM, VT_ADM TYPE TABLE OF TY_ADM, GW_ADM LIKE LINE OF GT_ADM, GT_PARTNER TYPE TABLE OF TY_PARTNER, LT_PARTNER TYPE TABLE OF TY_PARTNER, GW_PARTNER LIKE LINE OF GT_PARTNER, LS_PARTNER LIKE LINE OF LT_PARTNER, GV_PARTNER TYPE BU_PARTNER_GUID, GT_ITEM TYPE TABLE OF TY_ITEM, VT_ITEM TYPE TABLE OF TY_ITEM, GW_ITEM LIKE LINE OF GT_ITEM, GT_PRTEXT TYPE TABLE OF COMM_PRSHTEXT, GW_PRTEXT LIKE LINE OF GT_PRTEXT, GV_INDEX TYPE I, GT_PRICE TYPE TABLE OF CNCCRMPRSAP032, GW_PRICE LIKE LINE OF GT_PRICE, GV_TIMESTMP TYPE /SAPCND/TIMESTAMP_TO.. " DATA LS_SELECTION_PARAS TYPE GENILT_SELECTION_PARAMETER. DATA LT_WHERE_CONDITION TYPE CRMT_REPORT_DYN_SQL_LINE_TA. DATA: LT_RESULT TYPE TABLE OF ZCRMS0031, LT_RESU TYPE TABLE OF TY_RESU, LS_RESU LIKE LINE OF LT_RESU, GT_RESULT TYPE TABLE OF ZCRMS0031, LS_RESULT TYPE ZCRMS0031. DATA: LV_MAXHIT TYPE INT4, LV_NAME TYPE THEAD-TDNAME, LV_STR1 TYPE STRING, LV_STR2 TYPE STRING, LV_OBJECT_KEY TYPE CRMT_BSP_OBJECTKEY, LR_OBJECT TYPE REF TO IF_GENIL_CONT_ROOT_OBJECT. DEFINE SET_RESULT. LOOP AT GT_RESULT INTO LS_RESULT. LR_OBJECT = IV_ROOT_LIST->ADD_OBJECT( IV_OBJECT_NAME = 'ZODRESULT' IS_OBJECT_KEY = LS_RESULT-OBJECT_ID ). LV_OBJECT_KEY = LS_RESULT-OBJECT_ID. LR_OBJECT->SET_KEY( LV_OBJECT_KEY ). LR_OBJECT->SET_ATTRIBUTES( LS_RESULT ). CLEAR LS_RESULT. ENDLOOP. END-OF-DEFINITION .* IF ZCL_CRM_BUFFER=>GT_RESULT IS NOT INITIAL.* LT_RESULT = ZCL_CRM_BUFFER=>GT_RESULT .* SET_RESULT.** CLEAR ZCL_CRM_BUFFER=>GT_RESULT.* EXIT.* ENDIF. LT_SELECTION = IT_SELECTION_PARAMETERS.* SORT LT_SELECTION BY ATTR_NAME. LOOP AT LT_SELECTION INTO LS_SELECTION. CASE LS_SELECTION-ATTR_NAME. WHEN 'OBJECT_ID'. MOVE-CORRESPONDING LS_SELECTION TO RS_OBJECT_ID. INSERT RS_OBJECT_ID INTO TABLE RT_OBJECT_ID. WHEN 'ZZAFLD00001X'. MOVE-CORRESPONDING LS_SELECTION TO RS_ZZAFLD00001X. INSERT RS_ZZAFLD00001X INTO TABLE RT_ZZAFLD00001X. WHEN 'ZZAFLD00001Y'. MOVE-CORRESPONDING LS_SELECTION TO RS_ZZAFLD00001Y. INSERT RS_ZZAFLD00001Y INTO TABLE RT_ZZAFLD00001Y. ENDCASE. ENDLOOP. LV_MAXHIT = IS_QUERY_PARAMETERS-MAX_HITS. SELECT SINGLE PARTNER_GUID INTO GV_PARTNER FROM BUT000 WHERE PARTNER = '0000200100'."'0000202525'. "取到销售订单抬头信息 SELECT A~GUID AS GUID_H A~OBJECT_ID A~PO_NUMBER_SOLD AS OBJECT_ID_H A~ZZZTRACKRETURN INTO CORRESPONDING FIELDS OF TABLE GT_ADM FROM ZHSB_SALES_INDEX AS A INNER JOIN CRMD_ORDERADM_I AS B ON A~GUID = B~HEADER WHERE A~OBJECT_ID IN RT_OBJECT_ID AND B~ZZAFLD00001X IN RT_ZZAFLD00001X AND B~ZZAFLD00001Y IN RT_ZZAFLD00001Y* AND B~ZZAFLD00001X <> LV_DATE AND A~PROCESS_TYPE = 'ZSO5' AND A~SALES_ORG = 'O 50000231'."日期不为空 IF GT_ADM[] IS NOT INITIAL. "合作伙伴过滤 SELECT A~GUID_HI" TYPE CRMT_OBJECT_GUID, A~GUID_SET" TYPE CRMT_OBJECT_GUID, B~PARTNER_NO" TYPE CRMT_PARTNER_NO, INTO CORRESPONDING FIELDS OF TABLE GT_PARTNER FROM CRMD_LINK AS A INNER JOIN CRMD_PARTNER AS B ON A~GUID_SET = B~GUID AND B~PARTNER_NO = GV_PARTNER FOR ALL ENTRIES IN GT_ADM WHERE A~GUID_HI = GT_ADM-GUID_H AND A~OBJTYPE_SET = '07'. "付款方为202525 "取销售订单项目 SELECT A~HEADER" TYPE CRMT_OBJECT_GUID, "销售订单 A~PRODUCT " TYPE CRMT_PRODUCT_GUID_DB, A~ORDERED_PROD" TYPE CRMT_ORDERED_PROD_DB, A~NUMBER_INT " TYPE CRMT_ITEM_NO, A~ITM_TYPE " TYPE CRMT_ITEM_TYPE_DB, B~QUANTITY INTO TABLE GT_ITEM FROM CRMD_ORDERADM_I AS A INNER JOIN CRMD_SCHEDLIN AS B ON A~GUID = B~ITEM_GUID AND B~EVENT_TYPE = 'ORDER' FOR ALL ENTRIES IN GT_ADM WHERE HEADER = GT_ADM-GUID_H. "销售订单项目 物料文本 IF GT_ITEM[] IS NOT INITIAL. VT_ITEM[] = GT_ITEM[]. SORT VT_ITEM BY PRODUCT. DELETE ADJACENT DUPLICATES FROM VT_ITEM COMPARING PRODUCT. SELECT * INTO TABLE GT_PRTEXT FROM COMM_PRSHTEXT FOR ALL ENTRIES IN VT_ITEM WHERE PRODUCT_GUID = VT_ITEM-PRODUCT AND LANGU = 'J'. CONCATENATE SY-DATUM SY-UZEIT INTO GV_TIMESTMP. SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_PRICE FROM CNCCRMPRSAP032 FOR ALL ENTRIES IN VT_ITEM WHERE PRODUCT = VT_ITEM-PRODUCT AND SALES_ORG = 'O 50000231' AND DIS_CHANNEL = '11' AND PRICE_GRP IN ('11','12','03') AND KSCHL = 'ZPR0' AND TIMESTAMP_TO >= GV_TIMESTMP AND TIMESTAMP_FROM < GV_TIMESTMP. ENDIF. "取维修工单抬头 VT_ADM[] = GT_ADM[]. DELETE VT_ADM WHERE OBJECT_ID_H IS INITIAL. IF VT_ADM[] IS NOT INITIAL. SELECT GUID AS GUID_H OBJECT_ID CREATED_AT ZZZMODENO ZZCLIENT_TYPE PO_NUMBER_SOLD INTO CORRESPONDING FIELDS OF TABLE LT_RESU FROM ZHSB_ORDER_INDEX FOR ALL ENTRIES IN VT_ADM WHERE OBJECT_ID = VT_ADM-OBJECT_ID_H AND PROCESS_TYPE = 'ZSV1'. ENDIF. CHECK LT_RESU[] IS NOT INITIAL. IF LT_RESU[] IS NOT INITIAL. SELECT A~GUID_HI" TYPE CRMT_OBJECT_GUID, A~GUID_SET" TYPE CRMT_OBJECT_GUID, B~PARTNER_NO" TYPE CRMT_PARTNER_NO, C~PARTNER C~BU_SORT1 INTO CORRESPONDING FIELDS OF TABLE LT_PARTNER FROM CRMD_LINK AS A INNER JOIN CRMD_PARTNER AS B ON A~GUID_SET = B~GUID AND B~PARTNER_FCT = 'ZHSI00SN' INNER JOIN BUT000 AS C ON B~PARTNER_NO = C~PARTNER_GUID FOR ALL ENTRIES IN LT_RESU WHERE A~GUID_HI = LT_RESU-GUID_H AND A~OBJTYPE_SET = '07'. ENDIF. ENDIF. LOOP AT GT_ADM INTO GW_ADM. READ TABLE GT_PARTNER INTO GW_PARTNER WITH KEY GUID_HI = GW_ADM-GUID_H."过滤条件 IF SY-SUBRC = 0. READ TABLE LT_RESU INTO LS_RESU WITH KEY OBJECT_ID = GW_ADM-OBJECT_ID_H. IF SY-SUBRC = 0. MOVE-CORRESPONDING LS_RESU TO LS_RESULT. READ TABLE LT_PARTNER INTO LS_PARTNER WITH KEY GUID_HI = LS_RESU-GUID_H. IF SY-SUBRC = 0. LS_RESULT-BU_SORT1 = LS_PARTNER-BU_SORT1. ENDIF. LOOP AT GT_ITEM INTO GW_ITEM WHERE HEADER = GW_ADM-GUID_H."销售订单项目 LS_RESULT-ZZZTRACKRETURN = GW_ADM-ZZZTRACKRETURN."跟踪单号* LS_RESULT-PRODUCT = GW_ITEM-PRODUCT."产品GUID LS_RESULT-ORDERED_PROD = GW_ITEM-ORDERED_PROD. LS_RESULT-PRODUCT_ID = GW_ITEM-ORDERED_PROD. LS_RESULT-QUANTITY = GW_ITEM-QUANTITY. READ TABLE GT_PRTEXT INTO GW_PRTEXT WITH KEY PRODUCT_GUID = GW_ITEM-PRODUCT. IF SY-SUBRC = 0. LS_RESULT-SHORT_TEXT = GW_PRTEXT-SHORT_TEXT. ENDIF. LOOP AT GT_PRICE INTO GW_PRICE WHERE PRODUCT = GW_ITEM-PRODUCT. CASE GW_PRICE-PRICE_GRP. WHEN '03'."End User LS_RESULT-SUBTOTAL3 = GW_PRICE-KBETR. WHEN '11'."Retailer LS_RESULT-SUBTOTAL1 = GW_PRICE-KBETR. WHEN '12'."Distributor LS_RESULT-SUBTOTAL2 = GW_PRICE-KBETR. WHEN OTHERS. ENDCASE. ENDLOOP. APPEND LS_RESULT TO GT_RESULT. ENDLOOP. ENDIF. ENDIF. ENDLOOP. SET_RESULT."添加结果 ENDMETHOD. 4.编辑BOL类：
事务代码：GENIL_MODEL_EDITOR
输入组件：ZCRMOD 点击创建
点击查询结果对象，右键创建：
点击动态查询对象，右键新建：ZODSEARCH
实施类：ZCL_DOWNLOAD_ORDER_IL
5.SPRO新建组件集，添加组件到组件集
6.UI组件：
事务代码：BSP_WD_CMPWB
输入组件名称：ZPARTLIST创建，
运行时资源库，添加组件集
退出重新事务代码进入，右键视图，创建搜索页面。根据向导一直做完就可以了，然后配置页面，就OK了