ABAP自用代码

最新推荐文章于 2023-09-19 12:23:53 发布

赵奕升

最新推荐文章于 2023-09-19 12:23:53 发布

阅读量226

点赞数

文章标签：开发语言

本文链接：https://blog.csdn.net/itzhaoyisheng/article/details/131199808

版权

这篇博客展示了如何在ABAP中实现文件选择对话框，用户可以选择路径保存文件和上传文件。代码包括了使用CL_GUI_FRONTEND_SERVICES进行文件对话框调用，以及从选择的文件中读取数据到内部表。

摘要由CSDN通过智能技术生成

&---------------------------------------------------------------------
*& Report
&---------------------------------------------------------------------
*&
&---------------------------------------------------------------------
REPORT

DATA GT_VBAP TYPE STANDARD TABLE OF VBAP.
DATA GT_VBAP_UP TYPE STANDARD TABLE OF VBAP.
DATA GS_VBELN TYPE VBAP-VBELN.
DATA:
VG_FILENAME TYPE STRING,
VG_PATH TYPE STRING,
VG_FULLPATH TYPE STRING.

DATA:
VG_STRING TYPE XSTRING,
TBL_FILETABLE TYPE FILETABLE,
WG_FILETABLE TYPE FILE_TABLE,
VG_RC TYPE I.

CONSTANTS
CNS_M01 TYPE CHAR3 VALUE ‘M01’.

CONSTANTS
CNS_M02 TYPE CHAR3 VALUE ‘M02’.

SELECT-OPTIONS:
S_VBELN FOR GS_VBELN.

PARAMETERS:
P_RA1 TYPE C RADIOBUTTON GROUP R1 DEFAULT ‘X’,
P_PATH TYPE STRING MODIF ID M01.

PARAMETERS:
P_RA2 TYPE C RADIOBUTTON GROUP R1,
P_UP TYPE STRING MODIF ID M02.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
CASE SCREEN-GROUP1.
WHEN CNS_M01.
IF P_RA1 IS INITIAL.
SCREEN-INPUT = 0.
CLEAR: P_PATH.
ENDIF.
WHEN CNS_M02.
IF P_RA2 IS INITIAL.
SCREEN-INPUT = 0.
CLEAR : P_UP.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PATH.

CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG

EXPORTING
WINDOW_TITLE =
DEFAULT_EXTENSION =
DEFAULT_FILE_NAME =
WITH_ENCODING =
FILE_FILTER =
INITIAL_DIRECTORY =
PROMPT_ON_OVERWRITE = ‘X’
CHANGING
FILENAME = VG_FILENAME
PATH = VG_PATH
FULLPATH = VG_FULLPATH