SAP 销售订单抬头文本放到sale视图

最新推荐文章于 2024-02-06 08:42:08 发布

gavin_gxh

最新推荐文章于 2024-02-06 08:42:08 发布

阅读量576

点赞数 1

分类专栏： SD ABAP 文章标签：其他经验分享

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/122543646

版权

ABAP 同时被 2 个专栏收录

256 篇文章 19 订阅

订阅专栏

62 篇文章 3 订阅

订阅专栏

目标如上

实际实现如下：

实现过程：

新增屏幕2100

模块池程序

***INCLUDE MV45ATZZ .

************************************************************************
*                                                                      *
* This include is reserved for user modifications                      *
*                                                                      *
* Additional data definitions                                          *
*                                                                      *
* The name of additional data definitions should begin with 'ZZ'.      *
*                                                                      *
************************************************************************


* DATA: ZZFIELD(8) TYPE C.

*{   INSERT         SB1K950858                                        1
* 20140527 B.H
DATA: ZZ_KUNNR     TYPE KUNNR .

DATA : BEGIN OF ZZ_CHECK_VBAP OCCURS 0 ,
          POSNR TYPE POSNR  ,
       END OF ZZ_CHECK_VBAP .
data:ZZ_TXTHEAD type THEAD-TDID VALUE '0001',
ZZ_TXTHEADSPRAS TYPE makt-spras VALUE 1,
     ZZ_TXTHEADTEXT(250) TYPE C.
*data: SPHEADCTX TYPE REF TO cl_gui_easy_splitter_container.
*}   INSERT

*{   INSERT         DEVK919358                                        2
*&---------------------------------------------------------------------*
*&      Module  STATUS_2100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_2100 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
  DATA: STR_NAME LIKE THEAD-TDNAME.
  DATA VAR_NOTE(250) TYPE C.
  DATA: ITAB_TLINE LIKE TABLE OF TLINE WITH HEADER LINE.
  DATA: LSPRAS TYPE makt-spras VALUE 1.
  DATA: LSPTXT TYPE T002T-SPTXT.
  SELECT SINGLE TDSPRAS  INTO LSPRAS
    FROM STXH WHERE TDOBJECT = 'VBBK' AND TDNAME = STR_NAME AND TDID = '0001'.
  IF LSPRAS IS INITIAL.
    LSPRAS  = SY-LANGU.
  ENDIF.
  clear ZZ_TXTHEADTEXT.
  SELECT SINGLE SPTXT INTO LSPTXT FROM T002T
    WHERE SPRSL = LSPRAS AND SPRAS = SY-LANGU.

  ZZ_TXTHEADSPRAS = LSPRAS.
  STR_NAME  = VBAK-VBELN.

  CALL FUNCTION 'READ_TEXT'
  EXPORTING
    ID                      = '0001'
    LANGUAGE                =  lspras
    OBJECT                  = 'VBBK'
    NAME                    = STR_NAME
  TABLES
    LINES                   = ITAB_TLINE
  EXCEPTIONS
    ID                      = 1
    LANGUAGE                = 2
    NAME                    = 3
    NOT_FOUND               = 4
    OBJECT                  = 5
    REFERENCE_CHECK         = 6
    WRONG_ACCESS_TO_ARCHIVE = 7
  OTHERS                  = 8.

  LOOP AT ITAB_TLINE.
    VAR_NOTE = ITAB_TLINE-TDLINE.
    ZZ_TXTHEADTEXT = ZZ_TXTHEADTEXT && VAR_NOTE.
  ENDLOOP.
*  SPHEADCTX  = ZZ_TXTHEADTEXT.
ENDMODULE.                 " STATUS_2100  OUTPUT

*}   INSERT