读取批次特性

对，就是哥

已于 2024-09-06 10:32:25 修改

阅读量86

点赞数

分类专栏： MM 文章标签：运维运维开发

于 2024-09-05 14:47:20 首次发布

本文链接：https://blog.csdn.net/twins622/article/details/141930858

版权

MM 专栏收录该内容

15 篇文章 0 订阅

订阅专栏

FUNCTION zmm_get_ausp.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(I_MATNR) TYPE  MATNR
*"     VALUE(I_WERKS) TYPE  WERKS_D
*"     VALUE(I_CHARG) TYPE  CHARG_D
*"  TABLES
*"      IT_CHARS STRUCTURE  ZSTMM002
*"      ET_VALUES STRUCTURE  ZSTMM003
*"----------------------------------------------------------------------

*  CHECK it_chars[] IS NOT INITIAL.
  DATA l_objek TYPE inob-objek.
  DATA l_date TYPE d.
  DATA l_i TYPE i.
  DATA l_c(15).
  DATA l_quan TYPE menge_d.

  LOOP AT it_chars.
    CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'
      EXPORTING
        input  = it_chars-atnam
      IMPORTING
        output = it_chars-atinn.
    MODIFY it_chars.
  ENDLOOP.

  SELECT atinn,atfor INTO TABLE @DATA(lt_cabn) FROM cabn
    FOR ALL ENTRIES IN @it_chars
    WHERE atinn = @it_chars-atinn.

  SELECT SINGLE matnr, werks, charg INTO @DATA(ls_key) FROM mcha
    WHERE matnr = @i_matnr
    AND   werks = @i_werks
    AND   charg = @i_charg.

  l_objek = ls_key.

  SELECT SINGLE cuobj INTO @DATA(l_cuobj) FROM inob WHERE objek = @l_objek.
  SELECT * INTO TABLE @DATA(lt_ausp) FROM ausp
     WHERE objek = @l_cuobj.

  LOOP AT lt_ausp INTO DATA(ls_ausp).
    READ TABLE lt_cabn INTO DATA(ls_cabn) WITH KEY atinn = ls_ausp-atinn.
    IF sy-subrc = 0.
      MOVE ls_ausp-atinn TO et_values-atinn.
      CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'
        EXPORTING
          input  = et_values-atinn
        IMPORTING
          output = et_values-atnam.

      CASE ls_cabn-atfor.
        WHEN 'DATE'.
          MOVE ls_ausp-atflv TO l_i.
          MOVE l_i TO  ls_ausp-atwrt.
          CONDENSE ls_ausp-atwrt NO-GAPS.
          et_values-atwrt = ls_ausp-atwrt.
        WHEN 'CHAR'.
          et_values-atwrt = ls_ausp-atwrt.
          CONDENSE ls_ausp-atwrt.
        WHEN 'NUM'.
          MOVE ls_ausp-atflv TO l_quan.
          MOVE l_quan TO  ls_ausp-atwrt.
          CONDENSE ls_ausp-atwrt NO-GAPS.
          et_values-atwrt = ls_ausp-atwrt.
        WHEN OTHERS.
      ENDCASE.
      APPEND et_values.
      CLEAR  et_values.
    ENDIF.
  ENDLOOP.

ENDFUNCTION.