你不找到的话，错误就在那里。你找到了错误才会成为财富！

'<?xml version="1.0" encoding="UTF-8"?>'

'<handleIMatnrResourceServiceResponse><out>'

'<MLMatnrResource>

<backup1/>

<backup2/>

<backup3/>

<backup4/>

<backup5/>

<ebeln>4800064316</ebeln>

<ebelp>00010</ebelp>

<lifnrAmount/>

<maktx>A级冰箱型号标贴_C0414.6-1(A</maktx>'

'<matnr>000000000800013563</matnr>

<proAmount/>

<storeAmount>12.0</storeAmount>

</MLMatnrResource>'

'</out></handleIMatnrResourceServiceResponse>'

<?sap.transform simple?>

<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">

  <tt:root name="MLMatnrResource"/>

  <tt:template>

    <handleIMatnrResourceServiceResponse>

      <out>

        <tt:loop name="out" ref=".MLMatnrResource">

          <MLMatnrResource>

            <backup1>

              <tt:value ref="$ref.backup1"/>

            </backup1>

            <backup2>

              <tt:value ref="$ref.backup2"/>

            </backup2>

            <backup3>

              <tt:value ref="$ref.backup3"/>

            </backup3>

            <backup4>

              <tt:value ref="$ref.backup4"/>

            </backup4>

            <backup5>

              <tt:value ref="$ref.backup5"/>

            </backup5>

            <ebeln>

              <tt:value ref="$ref.ebeln"/>

            </ebeln>

            <ebelp>

              <tt:value ref="$ref.ebelp"/>

            </ebelp>

            <lifnrAmount>

              <tt:value ref="$ref.lifnrAmount"/>

            </lifnrAmount>

            <maktx>

              <tt:value ref="$ref.maktx"/>

            </maktx>

            <matnr>

              <tt:value ref="$ref.matnr"/>

            </matnr>

            <proAmount>

              <tt:value ref="$ref.proAmount"/>

            </proAmount>

            <storeAmount>

              <tt:value ref="$ref.storeAmount"/>

            </storeAmount>

          </MLMatnrResource>

        </tt:loop>

      </out>

    </handleIMatnrResourceServiceResponse>

  </tt:template>

</tt:transform>

 CALL TRANSFORMATION  ZML_XML_TRANS02"ZML_XML_RESOURCE

        SOURCE XML Z_OUT-RETURN_DATA

        RESULT MLMATNRRESOURCE =  GT_RE.

FUNCTION ZMLSCP1_FR0008.

*"----------------------------------------------------------------------

*"*"本地接口：

*"  IMPORTING

*"     VALUE(I_EBELN) TYPE  EBELN OPTIONAL

*"     VALUE(I_MATNR) TYPE  MATNR OPTIONAL

*"  EXPORTING

*"     VALUE(O_STATU) TYPE  CHAR1

*"     VALUE(O_MSG) TYPE  CHAR255

*"  TABLES

*"      OT_RESOURCE STRUCTURE  ZSRM_RESOURCE

*"----------------------------------------------------------------------

*&Flag  -手动； -自动

  DATA:L_TABIX TYPE SY-TABIX.

  DATA:LV_FLAG TYPE C.

  DATA:LV_CON  TYPE STRING.

  DATA: ERROR TYPE REF TO CX_AI_SYSTEM_FAULT.

  DATA: PRXY  TYPE REF TO ZCO_REQUEST_IMATNR_RESOURCE_SE."Proxy Name

  DATA: Z_IN  TYPE ZREQUEST8. "request in

  DATA: Z_OUT TYPE ZRESPONSE8."request out

  DATA: O_CX  TYPE  REF  TO  CX_ROOT.

  DATA: O_ERROR TYPE REF TO CX_ST_ERROR.

  TYPES:BEGIN OF TY_RE,

    BACKUP1 TYPE STRING,"备用字段1

    BACKUP2 TYPE STRING,"备用字段2

    BACKUP3 TYPE STRING,"备用字段3

    BACKUP4 TYPE STRING,"备用字段4

    BACKUP5 TYPE STRING,"备用字段5

    EBELN   TYPE STRING,"采购订单号

    EBELP   TYPE STRING,"采购订单行项目号

    LIFNRAMOUNT TYPE MENGE, "供应商库存数量 "结构-MENGE:物料主记录视图: 可选的物料数量

    MAKTX   TYPE STRING,    "物料描述

    MATNR   TYPE STRING,    "物料代码

    PROAMOUNT TYPE MENGE,   "生产数量

    STOREAMOUNT TYPE MENGE, "线边仓库存数量

    PRODATE TYPE DATUM,     "生产日期

        END OF TY_RE.

  DATA:GT_RE TYPE STANDARD TABLE OF TY_RE,

       WA_RE LIKE LINE OF GT_RE.

*&job user

  IF SY-UNAME EQ ''.

    LV_FLAG = ''.

  ELSE.

    LV_FLAG = ''.

  ENDIF.

  CONCATENATE '<in0>' LV_FLAG '</in0>' '<in1>' I_EBELN '</in1>' '<in2>' I_MATNR '</in2>' INTO LV_CON.

*&s1.call proxy get data via cis

*  Z_IN-REQUEST_DATA = '<?xml version="1.0" encoding="UTF-8"?><handleIMatnrResourceService><in0>' && LV_FLAG && '</in0></handleIMatnrResourceService>'.

  CONCATENATE '<?xml version="1.0" encoding="UTF-8"?><handleIMatnrResourceService>' LV_CON '</handleIMatnrResourceService>' INTO Z_IN-REQUEST_DATA.

  CLEAR ERROR.

  TRY.

      CREATE OBJECT PRXY

        EXPORTING

          LOGICAL_PORT_NAME = 'ZMLSCP_GET_RESOURCE'.

      CALL METHOD PRXY->REQUEST

        EXPORTING

          INPUT  = Z_IN

        IMPORTING

          OUTPUT = Z_OUT.

    CATCH CX_AI_SYSTEM_FAULT INTO ERROR.

      O_STATU = 'E'.

      O_MSG = ERROR->ERRORTEXT.

      RETURN.

  ENDTRY.

*&1.1 is it ok?

  IF Z_OUT-RETURN_CODE = 'E'.

    O_STATU = 'E'.

    O_MSG = Z_OUT-RETURN_DESC.

    RETURN.

  ENDIF.

  BREAK-POINT.

*&s2.transfer XML

  IF Z_OUT-RETURN_DATA IS NOT INITIAL."业务系统返回报文不为空

    TRY .

        CLEAR:GT_RE,WA_RE.

        CALL TRANSFORMATION  ZML_XML_TRANS02"ZML_XML_RESOURCE

        SOURCE XML Z_OUT-RETURN_DATA

        RESULT MLMATNRRESOURCE =  GT_RE.

*

        IF  SY-SUBRC NE .

          O_STATU = 'E'.

          O_MSG = 'XML解析失败！'.

          RETURN.

        ENDIF.

  BREAK-POINT.

      CATCH CX_ST_ERROR INTO O_ERROR .

        O_STATU = 'E'.

        O_MSG = O_ERROR->GET_TEXT( ) .

    ENDTRY.

  ELSE.

    O_STATU = 'E'.

    O_MSG = '返回结果为空！'.

  ENDIF.

*&s3.data save to ZSRM_RESOURCE

  IF GT_RE[] IS NOT INITIAL.

    LOOP AT GT_RE INTO WA_RE.

      MOVE-CORRESPONDING WA_RE TO OT_RESOURCE.

      OT_RESOURCE-ZDATUM = SY-DATUM.

      OT_RESOURCE-ZCPUTM = SY-UZEIT.

      OT_RESOURCE-USNAM  = SY-UNAME.

      OT_RESOURCE-ZFLAG  = LV_FLAG.

      APPEND OT_RESOURCE.

* MODIFY GT_RE FROM WA_RE.

* CLEAR WA_RE.

    ENDLOOP.

* TRY

    MODIFY ZSRM_RESOURCE FROM TABLE OT_RESOURCE.

    IF SY-SUBRC EQ .

      COMMIT WORK AND WAIT .

      DESCRIBE TABLE OT_RESOURCE LINES L_TABIX.

      O_STATU = 'S'.

      O_MSG   = '成功存入ZSRM_RESOURCE' && L_TABIX && '条记录！'.

    ELSE.

      ROLLBACK WORK.

      O_STATU = 'E'.

      O_MSG   = '数据存入 ZSRM_RESOURCE表失败！'.

    ENDIF.

  ENDIF.

ENDFUNCTION.