美文网首页
取001的特征

取001的特征

作者: SmalltalkVoice | 来源:发表于2023-01-30 11:32 被阅读0次
    REPORT zhello.
    
    DATA:outtab001 TYPE TABLE OF zsfms_getpctx WITH HEADER LINE,
         it_matnr  TYPE TABLE OF ccvx_matnr WITH HEADER LINE,
         it_atnam  TYPE TABLE OF tctrw WITH HEADER LINE.
    
    it_matnr-matnr = 'E0201203832'.
    APPEND it_matnr.
    SORT it_matnr BY matnr.
    REFRESH:outtab001,it_atnam.
    PERFORM get001 TABLES it_matnr.
    SORT outtab001 BY matnr atnam.
    
    
    BREAK-POINT.
    
    FORM get001 TABLES t_matnr STRUCTURE ccvx_matnr.
      DATA:BEGIN OF it_objek OCCURS 0,
             objek TYPE kssk-objek,
           END OF it_objek.
      CLEAR:it_objek[],outtab001[].
      DELETE t_matnr WHERE matnr IS INITIAL.
      CHECK t_matnr[] IS NOT INITIAL.
      SORT t_matnr BY matnr.
      LOOP AT t_matnr.
        CLEAR:it_objek.
        it_objek-objek = t_matnr-matnr.
        COLLECT it_objek.
      ENDLOOP.
    *取001的特征
      SELECT ksml~clint,
             ksml~posnr,
             ksml~adzhl,
             ksml~klart,
             ksml~imerk AS atinn,
             cabn~atnam ,
             cabn~atfor ,
             cabn~anzst ,
             cabn~anzdz ,
             kssk~objek AS matnr
        INTO TABLE @DATA(it_ksml)
        FROM ksml INNER JOIN cabn ON ksml~imerk = cabn~atinn
                  INNER JOIN kssk ON ksml~clint = kssk~clint
                                 AND kssk~klart = '001'
      FOR ALL ENTRIES IN @it_objek
      WHERE kssk~objek = @it_objek-objek.
      IF sy-subrc EQ 0.
        SORT it_ksml BY klart matnr atinn.
        SELECT *
          INTO TABLE @DATA(lt_ausp)
          FROM ausp
          FOR ALL ENTRIES IN @it_ksml
          WHERE klart = @it_ksml-klart
        AND   objek = @it_ksml-matnr
        AND   atinn = @it_ksml-atinn.
        SORT it_ksml BY matnr atinn.
        LOOP AT lt_ausp INTO DATA(lw_ausp). 
          CLEAR:outtab001,it_atnam.
          IF lw_ausp-atwrt IS INITIAL.
            CONTINUE.
          ENDIF.
          outtab001-matnr = lw_ausp-objek.
          READ TABLE it_ksml INTO DATA(wa_ksml) WITH KEY matnr = lw_ausp-objek
                                                         atinn = lw_ausp-atinn
                                                         BINARY SEARCH.
          IF sy-subrc EQ 0.
            outtab001-atnam = wa_ksml-atnam.
            outtab001-atwrt = lw_ausp-atwrt.
            APPEND outtab001.
            it_atnam-atnam = outtab001-atnam."汇总,后续取描述
            COLLECT it_atnam.
          ENDIF.
        ENDLOOP.
      ENDIF.
    ENDFORM.
    

    相关文章

      网友评论

          本文标题:取001的特征

          本文链接:https://www.haomeiwen.com/subject/bjlgqdtx.html