matinal：ABAP 根据批次特性获取描述快速开始

最新推荐文章于 2025-07-17 11:40:28 发布

SAPmatinal

最新推荐文章于 2025-07-17 11:40:28 发布

阅读量137

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP技术文章标签： java 前端 javascript 开发语言

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/131607777

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

该代码段是SAPABAP程序的一部分，涉及数据类型定义ty_inob和gt_inob，以及数据库查询操作。它从表inob和ausp中通过JOIN操作获取数据，并进行排序。同时，调用了函数CONVERSION_EXIT_ATINN_INPUT进行数据转换，以及VB_BATCH_2_CLASS_OBJECT将批次信息转化为类对象。在循环中处理最佳状态表(bestand)，并更新特定字段。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

TYPES:BEGIN OF ty_inob,
        matnr TYPE mara-matnr,
        charg TYPE mchb-charg,
        objek TYPE inob-objek,
        cuobj TYPE inob-cuobj,
      END OF ty_inob.

DATA:gt_inob TYPE TABLE OF ty_inob,
gs_inob TYPE ty_inob.

DATA:lv_objek TYPE ausp-objek.
DATA:lv_zxx TYPE ausp-atinn.

WITH +data AS ( SELECT objek FROM @gt_inob AS lt_data )  ##DB_FEATURE_MODE[ITABS_IN_FROM_CLAUSE]  ##ITAB_KEY_IN_SELECT
  SELECT
    inob~objek,
    ausp~atinn,
    ausp~atwrt
*    ausp~atflv
    FROM inob
    INNER JOIN +data ON +data~objek =  inob~objek
    INNER JOIN ausp ON inob~cuobj = ausp~objek
    WHERE obtab = 'MCH1'
    INTO TABLE @DATA(lt_ausp).
      SORT lt_ausp BY objek atinn.

"XX
      CALL FUNCTION 'CONVERSION_EXIT_ATINN_INPUT'
        EXPORTING
          input  = 'XX'
        IMPORTING
          output = lv_xx.

  LOOP AT bestand ASSIGNING FIELD-SYMBOL(<line>).
      IF <line>-charg IS NOT INITIAL AND xmchb IS NOT INITIAL.
        CALL FUNCTION 'VB_BATCH_2_CLASS_OBJECT'
          EXPORTING
            i_matnr = <line>-matnr
            i_charg = <line>-charg
          IMPORTING
            e_objek = lv_objek.
        READ TABLE lt_ausp INTO DATA(ls_ausp) WITH KEY objek = lv_objek
                                                             atinn = lv_zxx BINARY SEARCH.
        IF sy-subrc = 0.
          <line>-zxx = ls_ausp-atwrt.
        ENDIF.

endloop.