SAP与OA系统集成-OA 获取物料信息

最新推荐文章于 2024-05-15 16:08:31 发布

小啊曼

最新推荐文章于 2024-05-15 16:08:31 发布

阅读量632

点赞数 13

分类专栏： SAP-ABAP 文章标签：运维

本文链接：https://blog.csdn.net/qq_32198063/article/details/135965968

版权

SAP-ABAP 专栏收录该内容

27 篇文章 2 订阅

订阅专栏

2.2.1  初始化选择日期,默认为当天

  IF S_DATE IS INITIAL OR S_DATE = '00000000'.
    S_DATE = SY-DATUM.
  ENDIF.

  IF E_DATE IS INITIAL OR E_DATE = '00000000'.
    E_DATE = S_DATE.
  ENDIF.



2.2.2 "获取物料增强字段数据

  SELECT VKORG VTWEG MA~MATNR  MA~MEINS AS VRKME
    LAEDA ZZDCXL ZZDCRL AS ZDCRL ZZDCDY
    ZZDCYS ZZDCZR ZZDCDM ZZTZBH ZZDLZ ZZXLZ ZZDXXH ZZLDYS
    ZZDXCS ZZXTDY AS ZXTDY ZZAZFS ZZGNXH ZZHWXH
    INTO CORRESPONDING FIELDS OF TABLE T_ITEM
    FROM MARA AS MA INNER JOIN MVKE AS MV
    ON MA~MATNR = MV~MATNR
    WHERE ( ERSDA >= S_DATE
    AND ERSDA <= E_DATE )
    OR ( LAEDA >= S_DATE
    AND LAEDA <= E_DATE ).



2.2.3"获取物料描述

  IF LINES( T_ITEM ) <> 0.
    SELECT MATNR MAKTX
      INTO CORRESPONDING FIELDS OF TABLE LT_MAKT
      FROM MAKT
      FOR ALL ENTRIES IN T_ITEM
      WHERE MATNR = T_ITEM-MATNR
      AND SPRAS = SY-LANGU.

    SORT LT_MAKT BY MATNR.
  ENDIF.




2.2.4"整合数据


  LOOP AT T_ITEM.
    CLEAR:LT_MAKT.
    READ TABLE LT_MAKT WITH KEY MATNR = T_ITEM-MATNR BINARY SEARCH.
    T_ITEM-MAKTX  = LT_MAKT-MAKTX.

    REPLACE ALL OCCURRENCES OF 'V' IN T_ITEM-ZXTDY WITH SPACE.
    CONDENSE T_ITEM-ZXTDY.

    CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
      EXPORTING
        INPUT  = T_ITEM-MATNR
      IMPORTING
        OUTPUT = T_ITEM-MATNR.

    TRY  .
        T_ITEM-ZZXTDY = T_ITEM-ZXTDY.
      CATCH CX_SY_CONVERSION_NO_NUMBER.

    ENDTRY.

    TRY  .
        T_ITEM-ZZDCRL = T_ITEM-ZDCRL.
      CATCH CX_SY_CONVERSION_NO_NUMBER.

    ENDTRY.


    MODIFY T_ITEM.
    CLEAR:T_ITEM.
  ENDLOOP.