ABAP自定义F4并且标题也自定义

待我称王封你为后i 2023-06-23 13:24 4阅读 0赞

首先上图![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L1Byb2dyYW1tZXJfRnVRaWFuZw_size_16_color_FFFFFF_t_70][]

大概就是这个样子。。。。。em  em  em  em  em  emmmmm......

上代码走起~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

\*&---------------------------------------------------------------------\*  
\*& REPORT  Z001\_FQ\_2                                                   \*  
\*&                                                                     \*  
\*&--------F4 自定义标题栏目  -------------------------------------------------------------\*  
\*&                                                                     \*  
\*&                                                                     \*  
\*&---------------------------------------------------------------------\*  
  
REPORT  Z001\_FQ\_2                               .  
  
TABLES: T001L.  
  
  
PARAMETERS:S\_WERKS  LIKE T001L-WERKS.  
AT SELECTION-SCREEN ON VALUE-REQUEST FOR S\_WERKS.  
  PERFORM F4\_WERKS.  
  
\*&---------------------------------------------------------------------\*  
\*& Form F4\_WERKS  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
FORM F4\_WERKS .  
  
  TYPES: BEGIN OF TY\_F4,  
           WERKS TYPE T001L-WERKS,  
           LGOBE TYPE T001L-LGOBE,  
           LGORT TYPE T001L-LGORT,  
         END OF TY\_F4.  
  
  DATA:LT\_RETURN    TYPE HRRETURN\_TAB,  
       LS\_RETURN    TYPE DDSHRETVAL,  
       LS\_FIELD\_TAB TYPE DFIES,  
       LT\_FIELD\_TAB LIKE TABLE OF  LS\_FIELD\_TAB.  
  
  DATA: LT\_WERKS TYPE STANDARD TABLE OF TY\_F4.  
  
  SELECT WERKS LGOBE LGORT  
    FROM T001L  
    INTO TABLE LT\_WERKS.  
  IF SY-SUBRC <> 0.  
    RETURN.  
  ENDIF.  
  
  CLEAR: LS\_FIELD\_TAB.  
  PERFORM GET\_FIELDINFO  
          USING 'T001L' 'WERKS'  
          CHANGING LS\_FIELD\_TAB.  
  
  LS\_FIELD\_TAB-POSITION = **1**.  
**  LS\_FIELD\_TAB-OFFSET = 0.**  
  LS\_FIELD\_TAB-REPTEXT   =  
  LS\_FIELD\_TAB-SCRTEXT\_S =  
  LS\_FIELD\_TAB-SCRTEXT\_M =  
  LS\_FIELD\_TAB-SCRTEXT\_L = '字段1'.  
  APPEND LS\_FIELD\_TAB TO LT\_FIELD\_TAB.  
  
  CLEAR: LS\_FIELD\_TAB.  
  PERFORM GET\_FIELDINFO  
          USING 'T001L' 'LGOBE'  
          CHANGING LS\_FIELD\_TAB.  
  
  LS\_FIELD\_TAB-POSITION = **2**.  
 ** LS\_FIELD\_TAB-OFFSET** = **4.    "与前面字段的 INTLEN 长度一样累计  0+4**  
  LS\_FIELD\_TAB-REPTEXT   =  
  LS\_FIELD\_TAB-SCRTEXT\_S =  
  LS\_FIELD\_TAB-SCRTEXT\_M =  
  LS\_FIELD\_TAB-SCRTEXT\_L = '字段2'.  
  APPEND LS\_FIELD\_TAB TO LT\_FIELD\_TAB.  
  
  CLEAR: LS\_FIELD\_TAB.  
  PERFORM GET\_FIELDINFO  
          USING 'T001L' 'LGORT'  
          CHANGING LS\_FIELD\_TAB.  
  
  LS\_FIELD\_TAB-POSITION = **3**.  
**  LS\_FIELD\_TAB-OFFSET **= **20.    "与前面字段的 INTLEN 长度一样累计 0+4+16**  
  LS\_FIELD\_TAB-REPTEXT   =  
  LS\_FIELD\_TAB-SCRTEXT\_S =  
  LS\_FIELD\_TAB-SCRTEXT\_M =  
  LS\_FIELD\_TAB-SCRTEXT\_L = '字段3'.  
  APPEND LS\_FIELD\_TAB TO LT\_FIELD\_TAB.  
  
  SORT LT\_WERKS.  
  
  CALL FUNCTION 'F4IF\_INT\_TABLE\_VALUE\_REQUEST'  
    EXPORTING  
      RETFIELD        = 'WERKS'  
      DYNPPROG        = SY-REPID  
      DYNPNR          = SY-DYNNR  
      VALUE\_ORG       = 'S'  
      DYNPROFIELD      = 'WERKS'  
\*     CALLBACK\_PROGRAM = SY-REPID  
\*     CALLBACK\_FORM   = ''  
    TABLES  
      VALUE\_TAB       = LT\_WERKS\[\]  
      RETURN\_TAB      = LT\_RETURN  
      FIELD\_TAB       = LT\_FIELD\_TAB  
    EXCEPTIONS  
      PARAMETER\_ERROR = 1  
      NO\_VALUES\_FOUND = 2  
      OTHERS          = 3.  
  IF SY-SUBRC <> 0.  
    CLEAR:LT\_RETURN.  
  ENDIF.  
  
ENDFORM.  
\*---------------------------------------------------------------------\*  
\*       Form GET\_FIELDINFO  
\*---------------------------------------------------------------------\*  
FORM GET\_FIELDINFO USING U\_TABNAME  
                          U\_FIELDNAME  
                 CHANGING CS\_FIELD\_TAB.  
  
  CALL FUNCTION 'DDIF\_FIELDINFO\_GET'  
    EXPORTING  
      TABNAME        = U\_TABNAME  
      FIELDNAME      = U\_FIELDNAME  
      LFIELDNAME     = U\_FIELDNAME  
    IMPORTING  
      DFIES\_WA       = CS\_FIELD\_TAB  
    EXCEPTIONS  
      NOT\_FOUND      = 1  
      INTERNAL\_ERROR = 2  
      OTHERS         = 3.  
  IF SY-SUBRC <> 0.  
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO  
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  
  ENDIF.  
  
ENDFORM. " GET\_FIELDINFO

***重点！！！！！ LS\_FIELD\_TAB-OFFSET 这个 字段后面的参数就是你前面字段长度累加！！！！！***

***比如第一个字段长度为 4 那么第二就写 4  比如第三个字段 为 10  那么第三个就写  14  。 这块如果实在不会算 你就取一个估计数值然后慢慢计算 看与实际数据差几个 就剪掉几位（或加上几位）。***

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L1Byb2dyYW1tZXJfRnVRaWFuZw_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20191219160310583.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L1Byb2dyYW1tZXJfRnVRaWFuZw==,size_16,color_FFFFFF,t_70