更改物料描述的RFC

FUNCTION ZBAPI_MAT_NETWEIGHT_UPDATE.
*"----------------------------------------------------------------------
"“Local Interface:
*” IMPORTING
*" VALUE(IT_NETWEIGHT) TYPE ZBAPIT_NETWEIGHT
*" EXPORTING
*" VALUE(ET_UPD_STATUS) TYPE ZBAPIT_NETWEIGHT_UPD_STATUS
*" VALUE(RETURN) TYPE BAPIRET2_T
*"----------------------------------------------------------------------

DATA :
FT_NETWEIGHT type ZBAPIT_NETWEIGHT,
ls_return like BAPIRET2.

FIELD-SYMBOLS: <FS_NETWEIGHT> LIKE LINE OF FT_NETWEIGHT.

data: HEADData LIKE BAPIMATHEAD ,
MATERIALDESCRIPTION TYPE TABLE OF BAPI_MAKT WITH HEADER LINE.

FT_NETWEIGHT[] = IT_NETWEIGHT[].

SORT FT_NETWEIGHT by MATERIAL.

if FT_NETWEIGHT is INITIAL.
return.
ENDIF.

LOOP AT FT_NETWEIGHT ASSIGNING <FS_NETWEIGHT>.

  • WRITE : ‘0’, <FS_NETWEIGHT>-MATERIAL , <FS_NETWEIGHT>-DESCRIPTION .

at NEW Material.
CLEAR HEADData.

HEADData-MATERIAL = <FS_NETWEIGHT>-MATERIAL.
HEADDATA-BASIC_VIEW = 'X'.
  • CLEAR MATERIALDESCRIPTION.
    REFRESH MATERIALDESCRIPTION.

MATERIALDESCRIPTION-LANGU = ‘ZH’.
MATERIALDESCRIPTION-MATL_DESC = <FS_NETWEIGHT>-DESCRIPTION.
append MATERIALDESCRIPTION.

MATERIALDESCRIPTION-LANGU = ‘EN’.
MATERIALDESCRIPTION-MATL_DESC = <FS_NETWEIGHT>-DESCRIPTION.
append MATERIALDESCRIPTION.

*RETURN.

  • BREAK-POINT.

CALL FUNCTION ‘BAPI_MATERIAL_SAVEDATA’
EXPORTING
HEADDATA = HEADDATA

  • CLIENTDATA                  =
    
  • CLIENTDATAX                 =
    
  • PLANTDATA                   =
    
  • PLANTDATAX                  =
    
  • FORECASTPARAMETERS          =
    
  • FORECASTPARAMETERSX         =
    
  • PLANNINGDATA                =
    
  • PLANNINGDATAX               =
    
  • STORAGELOCATIONDATA         =
    
  • STORAGELOCATIONDATAX        =
    
  • VALUATIONDATA               =
    
  • VALUATIONDATAX              =
    
  • WAREHOUSENUMBERDATA         =
    
  • WAREHOUSENUMBERDATAX        =
    
  • SALESDATA                   =
    
  • SALESDATAX                  =
    
  • STORAGETYPEDATA             =
    
  • STORAGETYPEDATAX            =
    
  • FLAG_ONLINE                 = ' '
    
  • FLAG_CAD_CALL               = ' '
    
  • NO_DEQUEUE                  = ' '
    
  • NO_ROLLBACK_WORK            = ' '
    
  • CLIENTDATACWM               =
    
  • CLIENTDATACWMX              =
    
  • VALUATIONDATACWM            =
    
  • VALUATIONDATACWMX           =
    

    IMPORTING
    RETURN = ls_return
    TABLES
    MATERIALDESCRIPTION = materialdescription[]

  • UNITSOFMEASURE              =
    
  • UNITSOFMEASUREX             =
    
  • INTERNATIONALARTNOS         =
    
  • MATERIALLONGTEXT            =
    
  • TAXCLASSIFICATIONS          =
    
  • RETURNMESSAGES              =
    
  • PRTDATA                     =
    
  • PRTDATAX                    =
    
  • EXTENSIONIN                 =
    
  • EXTENSIONINX                =
    
  • UNITSOFMEASURECWM           =
    
  • UNITSOFMEASURECWMX          =
    
  • SEGMRPGENERALDATA           =
    
  • SEGMRPGENERALDATAX          =
    
  • SEGMRPQUANTITYDATA          =
    
  • SEGMRPQUANTITYDATAX         =
    
  • SEGVALUATIONTYPE            =
    
  • SEGVALUATIONTYPEX           =
    
  • SEGSALESSTATUS              =
    
  • SEGSALESSTATUSX             =
    
  • SEGWEIGHTVOLUME             =
    
  • SEGWEIGHTVOLUMEX            =
    
  • NFMCHARGEWEIGHTS            =
    
  • NFMCHARGEWEIGHTSX           =
    
  • NFMSTRUCTURALWEIGHTS        =
    
  • NFMSTRUCTURALWEIGHTSX       =
          .
    
  • IF sy-subrc = 0.

  • CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’

  • EXPORTING
    
  •   WAIT          = 'X'
    

** IMPORTING
** RETURN =

  •          .
    
  • ENDIF.
    if ls_return-type = ‘A’ or ls_return-type = ‘E’.
    CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK’
  • IMPORTING
    
  •   RETURN        =
            .
    
    else.
    CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
    EXPORTING
    WAIT = abap_true " ‘X’
  • IMPORTING
    
  •   RETURN        =
            .
    
    ENDIF.

ENDAT.

ENDLOOP.

ENDFUNCTION.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值