Bapi读AFE 代码里面含 有读取状态的代码

FUNCTION Z02FI_SUN_INF_AFE .
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(I_ZZAFE) TYPE  BSEG-ZZAFE
*"     REFERENCE(I_ZZBUKRS) LIKE  Z02FITSSDOC_H-ZZBUKRS
*"     REFERENCE(I_ZZGJAHR) LIKE  Z02FITSSDOC_H-ZZGJAHR
*"     REFERENCE(I_ZZBELNR) LIKE  Z02FITSSDOC_H-ZZBELNR
*"     REFERENCE(I_ZZBUZEI) TYPE  BUZEI OPTIONAL
*"     VALUE(I_FUNDCTR) TYPE  CHAR100 DEFAULT 'petrochinahalfaya'
*"  TABLES
*"      ZZMSGT STRUCTURE  ZZMSGT
*"----------------------------------------------------------------------

   DATA LS_Z02FITSSAFE  TYPE Z02FITSSAFE .
   DATA L_OBJNR  LIKE JEST -OBJNR .
   DATA L_LINE  LIKE BSVX -STTXT .
   DATA LS_PRPS  TYPE PRPS .
   DATA L_UP  LIKE PRHI - UP .

   DATA L_MSG  LIKE Z02FITSSLOG -ZZMSG .
   DATA LS_ZZMSGT  TYPE ZZMSGT .

   DATA BEGIN  OF LT_BPEG  OCCURS  0 ,
    BELNR  LIKE BPEG -BELNR ,
    WTGES  LIKE BPEG -WTGES ,
     END  OF LT_BPEG .

   CLEAR :LS_Z02FITSSAFE ,L_OBJNR ,L_LINE ,LS_PRPS ,LT_BPEG ,LT_BPEG[] ,L_UP .

   SELECT  SINGLE FROM PRPS  INTO LS_PRPS  WHERE POSID  I_ZZAFE .

  LS_Z02FITSSAFE -ZZAFE  I_ZZAFE .
  LS_Z02FITSSAFE -ZZFUNDCTR  I_FUNDCTR .
  LS_Z02FITSSAFE -ZZAFE_DESP  =  LS_Z02FITSSAFE -ZZAFE_NAME  LS_PRPS -POST1 .

   SELECT  SINGLE  UP  INTO L_UP  FROM PRHI  WHERE POSNR  LS_PRPS -PSPNR .
   IF L_UP  IS  NOT  INITIAL .
    LS_Z02FITSSAFE -ZZAFE_PARENT  L_UP .
   ENDIF .

  L_OBJNR  LS_PRPS -OBJNR .

   CALL  FUNCTION  'STATUS_TEXT_EDIT'
     EXPORTING
       CLIENT            SY -MANDT
      OBJNR             L_OBJNR
      SPRAS             SY -LANGU
      BYPASS_BUFFER     'X'
     IMPORTING
       LINE              L_LINE
     EXCEPTIONS
      OBJECT_NOT_FOUND  1
       OTHERS            2 .
   IF SY -SUBRC  EQ  0 .
     IF L_LINE  CS  'CLSD' .
      LS_Z02FITSSAFE -ZZAFE_STATUS  'Y' .
     ELSE .
      LS_Z02FITSSAFE -ZZAFE_STATUS  'N' .
     ENDIF .
   ENDIF .

   SELECT BELNR WTGES  INTO  TABLE  LT_BPEG
     FROM BPEG
     WHERE OBJNR  =  LS_PRPS -OBJNR
     AND WRTTP  '41' .

   SORT LT_BPEG  ASCENDING  BY BELNR .

   LOOP  AT LT_BPEG  .
     CASE SY -TABIX .
       WHEN  1 .
        LS_Z02FITSSAFE -ZZAFE_AMT_ORI  LT_BPEG -WTGES .
       WHEN  2 .
        LS_Z02FITSSAFE -ZZAFE_AMT_ADJ1  LT_BPEG -WTGES .
       WHEN  3 .
        LS_Z02FITSSAFE -ZZAFE_AMT_ADJ2  LT_BPEG -WTGES .
       WHEN  4 .
        LS_Z02FITSSAFE -ZZAFE_AMT_ADJ3  LT_BPEG -WTGES .
       WHEN  5 .
        LS_Z02FITSSAFE -ZZAFE_AMT_ADJ4  LT_BPEG -WTGES .
       WHEN  OTHERS .
        LS_Z02FITSSAFE -ZZAFE_AMT_ADJ5  LS_Z02FITSSAFE -ZZAFE_AMT_ADJ5 + LT_BPEG -WTGES .
     ENDCASE .
   ENDLOOP .

  LS_Z02FITSSAFE -ZZAFE_MAX  '0.1' .

   MODIFY Z02FITSSAFE  FROM LS_Z02FITSSAFE .
   IF SY -SUBRC  EQ  0 .
     COMMIT  WORK .
    LS_ZZMSGT -ZZMSGTYPE  'S' .
     CONCATENATE  'The AFE information' I_ZZAFE  ' was synchronized successfully'  INTO LS_ZZMSGT -ZZMSG  SEPARATED  BY SPACE .
     APPEND LS_ZZMSGT  TO ZZMSGT .
   ELSE .
     ROLLBACK  WORK .
   ENDIF .



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

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

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值