获取VA03销售订单抬头文本和行文本/READ_TEXT

最新推荐文章于 2024-09-12 13:26:14 发布

放弃幻想_

最新推荐文章于 2024-09-12 13:26:14 发布

阅读量327

点赞数

本文链接：https://blog.csdn.net/fqhx_116/article/details/131075666

版权

注意点:一定要加文本是否存在判断，不然会DUMP

SELECT SINGLE tdobject
FROM stxh
INTO @lv_tdobject
      WHERE tdobject = 'VBBP'
      AND tdname = @stxh_name
      AND tdid = '0001'
      AND tdspras = '1'.

"获取销售订单抬头文本
DATA: stxh_name TYPE tdobname.
DATA text LIKE STANDARD TABLE OF tline WITH HEADER LINE.

  "获取抬头长文本
  REFRESH text.
  CLEAR text.
  stxh_name = ls_h_text-vbeln.

  SELECT SINGLE tdobject
  FROM stxh
  INTO @DATA(lv_tdobject)
  WHERE tdobject = 'VBBK'
    AND tdname = @stxh_name
    AND tdid = '0001'
    AND tdspras = '1'.
  IF sy-subrc = 0.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        id                      = '0001'
        language                = '1'
        name                    = stxh_name
        object                  = 'VBBK'
      TABLES