AT LINE-SELECTION 用法(点击进入对应的事物代码)

最新推荐文章于 2023-07-21 09:13:03 发布

转载最新推荐文章于 2023-07-21 09:13:03 发布 · 436 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/HARU/p/10905589.html

本文介绍了一个名为Z_TEST的ABAP报告代码示例，详细展示了如何使用ABAP进行数据处理和屏幕输出。代码中包含了数据类型定义、数据操作及屏幕输出的完整流程，适用于希望深入了解ABAP编程的读者。

部署运行你感兴趣的模型镜像

*&---------------------------------------------------------------------*
*& Report  Z_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z_TEST.

   TYPES: BEGIN OF ty_a,
    werks1       LIKE crhd-werks,
    arbpl1       LIKE crhd-arbpl,
   END OF ty_a,
   tt_a TYPE TABLE OF ty_a.

   DATA:
     ls_a TYPE ty_a,
     lt_a TYPE TABLE OF ty_a.
  DATA:
    werks       LIKE crhd-werks,
    arbpl       LIKE crhd-arbpl,
    t_werks     LIKE crhd-werks,
    t_arbpl     LIKE crhd-arbpl,
    save_curow0 LIKE sy-curow.

    t_werks = 'CZ18'.
    t_arbpl = '0031'.

    ls_a-werks1 = 'CZ18'.
    ls_a-arbpl1 = '0031'.
    APPEND ls_a to  lt_a.

    ls_a-werks1 = 'CZ18'.
    ls_a-arbpl1 = '0010'.
    APPEND ls_a to  lt_a.

AT LINE-SELECTION.
    save_curow0 = sy-curow.
  IF save_curow0 GE 3.
    READ LINE sy-lilli INDEX 0 FIELD VALUE t_werks INTO werks
                                           t_arbpl INTO arbpl.
  CHECK werks NE space.
  CHECK arbpl NE space.

  SET PARAMETER ID 'WRK' FIELD werks.
  SET PARAMETER ID 'AGR' FIELD arbpl.
  CALL TRANSACTION 'CR03' AND SKIP FIRST SCREEN.
 ENDIF.

  HIDE: werks ,arbpl.

TOP-OF-PAGE.

WRITE:/02(50) text-103.
SKIP.

  WRITE:  /01(01) sy-vline,
           02(14) text-109 COLOR COL_HEADING,
           16(01) sy-vline,
           17(20) text-110 COLOR COL_HEADING,
           36(01) sy-vline,
           37(40) text-112 COLOR COL_HEADING,
           77(01) sy-vline.

END-OF-SELECTION.

  LOOP AT lt_a INTO ls_a.
       t_werks = ls_a-werks1.
       t_arbpl = ls_a-arbpl1.

    write: /01(01) sy-vline,
           02(14) t_werks COLOR COL_KEY,
           16(14) t_arbpl COLOR COL_KEY.

    clear:
    t_werks,
    t_arbpl,
    ls_a.

  ENDLOOP.

转载于:https://www.cnblogs.com/HARU/p/10905589.html

您可能感兴趣的与本文相关的镜像

AutoGPT

AI应用

AutoGPT于2023年3月30日由游戏公司Significant Gravitas Ltd.的创始人Toran Bruce Richards发布,AutoGPT是一个AI agent（智能体），也是开源的应用程序，结合了GPT-4和GPT-3.5技术，给定自然语言的目标，它将尝试通过将其分解成子任务，并在自动循环中使用互联网和其他工具来实现这一目标