订单抬头的操作

最新推荐文章于 2024-05-13 00:21:32 发布

lymkelly

最新推荐文章于 2024-05-13 00:21:32 发布

阅读量326

点赞数

文章标签： reference object archive table header function

本文链接：https://blog.csdn.net/lymkelly/article/details/5914514

版权

*关于抬头文本
data: ttab like tline occurs 0 with header line.

loop at itab.
***取抬头文本
    select single * from stxh where tdobject = 'EKKO'
                                 and tdname   = itab-ebeln
                                 and tdid = 'F01'.
    if sy-subrc = 0.
      call function 'READ_TEXT'
        exporting
          client                  = sy-mandt
          id                      = stxh-tdid
          language                = stxh-tdspras
          name                    = stxh-tdname
          object                  = stxh-tdobject
        tables
          lines                   = ttab
        exceptions
          id                      = 1
          language                = 2
          name                    = 3
          not_found               = 4
          object                  = 5
          reference_check         = 6
          wrong_access_to_archive = 7
          others                  = 8.
*     DESCRIBE TABLE TTAB LINES n. "取得行数
      loop at ttab .
*       READ TABLE TTAB INDEX 1.
*       ITAB-TLINE = TTAB-TDLINE .
        concatenate itab-text ttab-tdline into itab-text separated by
        ' ' .
      endloop .
      if itab-text+0(1) = ' ' . shift itab-text . endif .
      clear ttab .
      refresh ttab .
      modify itab.
    endif .