SRM项目学习心得由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“我的项目学习心得”。
Se01：release请求，se01-transport Se11：数据表/视图/数据类型/类型组 等 Se16：数据浏览器，看表里数据 Se21：包/包接口（包构建器）Se24：对象类型（类构建器）Se37：函数模块function Se38：ABAP编辑器：初始屏幕（SRM项目用程序ZRPT_SEND_ESB_MESSAGE向ESB发送接口）
Se80：程序入口
Pfcg：角色维护（权限）Stms：传输不同客户端请求 Su01：用户角色分配 Ppoma_bbp：物料组 Smartforms：Smartforms Bbpgetvd：SAP传输供应商主数据
搜索：
METHOD REFRESH.DATA LO_ND_ZTIP_QUOTA TYPE REF TO IF_WD_CONTEXT_NODE.DATA LO_EL_ZTIP_QUOTA TYPE REF TO IF_WD_CONTEXT_ELEMENT.*--
DATA LO_ND_VENDOR_INFO TYPE REF TO IF_WD_CONTEXT_NODE.DATA LO_EL_VENDOR_INFO TYPE REF TO IF_WD_CONTEXT_ELEMENT.*--
DATA LO_ND_MATERIAL_INFO TYPE REF TO IF_WD_CONTEXT_NODE.DATA LO_EL_MATERIAL_INFO TYPE REF TO IF_WD_CONTEXT_ELEMENT.*
DATA LT_ZTIP_QUOTA TYPE WD_THIS->ELEMENTS_ZTIP_QUOTA.DATA LS_ZTIP_QUOTA TYPE WD_THIS->ELEMENT_ZTIP_QUOTA.*--
DATA LT_VENDOR_INFO TYPE WD_THIS->ELEMENTS_VENDOR_ND_INFO.*--
DATA LT_MATERIAL_INFO TYPE WD_THIS->ELEMENTS_MATERIAL_INFO.* navigate from to via lead selection
LO_ND_ZTIP_QUOTA = WD_CONTEXT->GET_CHILD_NODE(NAME = WD_THIS->WDCTX_ZTIP_QUOTA).LO_EL_ZTIP_QUOTA = LO_ND_ZTIP_QUOTA->GET_ELEMENT().*--
LO_ND_VENDOR_INFO = WD_CONTEXT->GET_CHILD_NODE(NAME = WD_THIS->WDCTX_VENDOR_ND_INFO).LO_EL_VENDOR_INFO = LO_ND_VENDOR_INFO->GET_ELEMENT().*--
LO_ND_MATERIAL_INFO = WD_CONTEXT->GET_CHILD_NODE(NAME = WD_THIS->WDCTX_MATERIAL_INFO).LO_EL_VENDOR_INFO = LO_ND_MATERIAL_INFO->GET_ELEMENT().* @TODO handle non existant child * IF lo_nd_ztip_quota IS INITIAL.* ENDIF.LO_ND_ZTIP_QUOTA->GET_STATIC_ATTRIBUTES_TABLE(IMPORTING TABLE = LT_ZTIP_QUOTA).*--
LO_ND_ZTIP_QUOTA->GET_STATIC_ATTRIBUTES_TABLE(IMPORTING TABLE = LT_VENDOR_INFO).*--
LO_ND_MATERIAL_INFO->GET_STATIC_ATTRIBUTES_TABLE(IMPORTING TABLE = LT_MATERIAL_INFO).*------
DATA : L1_FIELDNAME TYPE STRING , LT_MATNR TYPE REF TO DATA , R_MATNR TYPE RANGE OF ZTIP_QUOTA-ZMATNR.L1_FIELDNAME = 'MATNR'.LT_MATNR = WD_THIS->LD_SEL_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD(I_ID = L1_FIELDNAME).FIELD-SYMBOLS: TYPE STANDARD TABLE.ASSIGN LT_MATNR->* TO.R_MATNR =.*-------
DATA : L2_FIELDNAME TYPE STRING , LT_SHORT_TEXT TYPE REF TO DATA , R_SHORT_TEXT TYPE RANGE OF COMM_PRSHTEXT-SHORT_TEXT.L2_FIELDNAME = 'SHORT_TEXT'.LT_SHORT_TEXT = WD_THIS->LD_SEL_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD（I_ID = L2_FIELDNAME).FIELD-SYMBOLS: TYPE STANDARD TABLE.ASSIGN LT_SHORT_TEXT->* TO.R_SHORT_TEXT =.*-------
DATA : L3_FIELDNAME TYPE STRING , LT_VENDOR TYPE REF TO DATA , R_VENDOR TYPE RANGE OF ZTIP_QUOTA-ZVENDOR.L3_FIELDNAME = 'VENDOR'.LT_VENDOR = WD_THIS->LD_SEL_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD(I_ID = L3_FIELDNAME).FIELD-SYMBOLS: TYPE STANDARD TABLE.ASSIGN LT_VENDOR->* TO.R_VENDOR =.*-------
DATA : L4_FIELDNAME TYPE STRING , LT_MC_NAME1 TYPE REF TO DATA , R_MC_NAME1 TYPE RANGE OF BUT000-MC_NAME1.L4_FIELDNAME = 'MC_NAME1'.LT_MC_NAME1 = WD_THIS->LD_SEL_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD（I_ID = L4_FIELDNAME).FIELD-SYMBOLS: TYPE STANDARD TABLE.ASSIGN LT_MC_NAME1->* TO.R_MC_NAME1 =.*-------
DATA : L5_FIELDNAME TYPE STRING , LT_PLANT TYPE REF TO DATA , R_PLANT TYPE RANGE OF ZTIP_QUOTA-ZPLANT.L5_FIELDNAME = 'REGION'.LT_PLANT = WD_THIS->LD_SEL_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD(I_ID = L5_FIELDNAME).FIELD-SYMBOLS: TYPE STANDARD TABLE.ASSIGN LT_PLANT->* TO.R_PLANT =.**-------
*---------------------使已经存在的值不能被修改---------------------------
DATA: LT_SET TYPE WDR_CONTEXT_ELEMENT_SET, LS_SET TYPE LINE OF WDR_CONTEXT_ELEMENT_SET.LT_SET = LO_ND_ZTIP_QUOTA->GET_ELEMENTS().LOOP AT LT_SET INTO LO_EL_ZTIP_QUOTA.LO_EL_ZTIP_QUOTA->GET_STATIC_ATTRIBUTES(IMPORTING STATIC_ATTRIBUTES = LS_ZTIP_QUOTA).LS_ZTIP_QUOTA-OTHER_ENABLED = ''.ENDLOOP.*--------
CLEAR LT_ZTIP_QUOTA.DATA LT_ZTIP_QUOTA_TEM LIKE LT_ZTIP_QUOTA.DATA LT_ZTIP_QUOTA_MAIN LIKE LT_ZTIP_QUOTA.*--------------------------SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_ZTIP_QUOTA_TEM FROM ZTIP_QUOTA WHERE ZMATNR IN R_MATNR AND ZVENDOR IN R_VENDOR AND REGION IN R_PLANT ORDER BY ZMATNR ASCENDING.*--
SELECT MC_NAME1 PARTNER INTO CORRESPONDING FIELDS OF TABLE LT_VENDOR_INFO FROM BUT000 WHERE MC_NAME1 IN R_MC_NAME1.*--
SELECT A~SHORT_TEXT B~PRODUCT_ID INTO CORRESPONDING FIELDS OF TABLE LT_MATERIAL_INFO FROM COMM_PRSHTEXT AS A INNER JOIN COMM_PRODUCT AS B ON A~PRODUCT_GUID = B~PRODUCT_GUID WHERE A~SHORT_TEXT IN R_SHORT_TEXT.*--------------------------
DATA LS_ZTIP_QUOTA_TEM LIKE LINE OF LT_ZTIP_QUOTA_TEM.DATA LS_VENDOR_INFO LIKE LINE OF LT_VENDOR_INFO.LOOP AT LT_ZTIP_QUOTA_TEM INTO LS_ZTIP_QUOTA_TEM.READ TABLE LT_VENDOR_INFO INTO LS_VENDOR_INFO WITH KEY PARTNER = LS_ZTIP_QUOTA_TEM-ZVENDOR.LS_ZTIP_QUOTA_TEM-MC_NAME1 = LS_VENDOR_INFO-MC_NAME1.IF LS_ZTIP_QUOTA_TEM-MC_NAME1 IS NOT INITIAL.APPEND LS_ZTIP_QUOTA_TEM TO LT_ZTIP_QUOTA_MAIN.ENDIF.CLEAR LS_VENDOR_INFO.ENDLOOP.*--
DATA LS_ZTIP_QUOTA_MAIN LIKE LINE OF LT_ZTIP_QUOTA_MAIN.DATA LS_MATERIAL_INFO LIKE LINE OF LT_MATERIAL_INFO.LOOP AT LT_ZTIP_QUOTA_MAIN INTO LS_ZTIP_QUOTA_MAIN.DATA MATNR TYPE CHAR40.*--------将物料编号转换为40位--------------
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING INPUT = LS_ZTIP_QUOTA_MAIN-ZMATNR IMPORTING
OUTPUT = MATNR.*--------end将物料编号转换为40位-----------
READ TABLE LT_MATERIAL_INFO INTO LS_MATERIAL_INFO WITH KEY PRODUCT_ID = MATNR.LS_ZTIP_QUOTA_MAIN-SHORT_TEXT = LS_MATERIAL_INFO-SHORT_TEXT.IF LS_ZTIP_QUOTA_MAIN-SHORT_TEXT IS NOT INITIAL.APPEND LS_ZTIP_QUOTA_MAIN TO LT_ZTIP_QUOTA.ENDIF.CLEAR LS_MATERIAL_INFO.ENDLOOP.*-----
* navigate from to via lead selection LO_ND_ZTIP_QUOTA = WD_CONTEXT->GET_CHILD_NODE(NAME = WD_THIS->WDCTX_ZTIP_QUOTA).* @TODO handle non existant child * IF lo_nd_ztip_quota IS INITIAL.* ENDIF.* * @TODO compute values * * e.g.call a model function *
LO_ND_ZTIP_QUOTA->BIND_TABLE(NEW_ITEMS = LT_ZTIP_QUOTA SET_INITIAL_ELEMENTS = ABAP_TRUE).ENDMETHOD.新增：
DATA LO_ND_ZTIP_QUOTA TYPE REF TO IF_WD_CONTEXT_NODE.DATA LT_ZTIP_QUOTA TYPE WD_THIS->ELEMENTS_ZTIP_QUOTA.* navigate from to via lead selection LO_ND_ZTIP_QUOTA = WD_CONTEXT->GET_CHILD_NODE(NAME = WD_THIS->WDCTX_ZTIP_QUOTA).* @TODO handle non existant child21 * IF lo_nd_ztip_quota IS INITIAL.* ENDIF.*------------------------
LO_ND_ZTIP_QUOTA->GET_STATIC_ATTRIBUTES_TABLE(IMPORTING TABLE = LT_ZTIP_QUOTA).DATA LS_ZTIP_QUOTA LIKE LINE OF LT_ZTIP_QUOTA.DATA CURRENT_DATE TYPE ZTIP_QUOTA-ZCHANGEAT.CURRENT_DATE = SY-DATUM.LS_ZTIP_QUOTA-ZCHANGEAT = CURRENT_DATE.*-----------使得当前增加的数据可编辑且insert或者append到内表中
LS_ZTIP_QUOTA-OTHER_ENABLED = 'X'.APPEND LS_ZTIP_QUOTA TO LT_ZTIP_QUOTA.* INSERT ls_ztip_quota into lt_ztip_quota INDEX 1.*---------------------------
* navigate from to via lead selection LO_ND_ZTIP_QUOTA = WD_CONTEXT->GET_CHILD_NODE(NAME = WD_THIS->WDCTX_ZTIP_QUOTA).* @TODO handle non existant child * IF lo_nd_ztip_quota IS INITIAL.* ENDIF.* * @TODO compute values * * e.g.call a model function *
LO_ND_ZTIP_QUOTA->BIND_TABLE(NEW_ITEMS = LT_ZTIP_QUOTA SET_INITIAL_ELEMENTS = ABAP_TRUE).
