SAP ABAP 打开新会话新窗口的方法

最新推荐文章于 2024-11-26 18:58:37 发布

SAPmatinal

最新推荐文章于 2024-11-26 18:58:37 发布

阅读量799

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP技术文章标签：开发语言大数据服务器运维

本文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/129793836

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

本文展示了两种在ABAP中调用SAP事务代码VA03的方法。第一种方法使用CALLFUNCTIONCC_CALL_TRANSACTION_NEW_TASK，设置参数并跳过初始屏幕。第二种方法通过ABAP4_CALL_TRANSACTION函数调用，同样指定事务代码和跳过屏幕选项。这两种方法都会在新的任务或窗口中打开VA03交易。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法一：

WRITE 'This is the main ABAP program'.
DATA :
  LV_SKIP(1)  TYPE C VALUE 'X',
  LV_VBELN    LIKE VBAK-VBELN VALUE '20000190',
  L_ST_PARAM  TYPE TPARA,
  L_IT_PARAMS TYPE TABLE OF TPARA.
CLEAR L_ST_PARAM.
CLEAR L_IT_PARAMS[].
L_ST_PARAM-PARAMID = 'AUN'.
L_ST_PARAM-PARTEXT = LV_VBELN.
APPEND L_ST_PARAM TO L_IT_PARAMS.
CALL FUNCTION 'CC_CALL_TRANSACTION_NEW_TASK'
  STARTING NEW TASK 'VA03'
  DESTINATION 'NONE'
  EXPORTING
    TRANSACTION           = 'VA03'
    SKIP_FIRST_SCREEN     = 'X'
  TABLES
    PARAMTAB              = L_IT_PARAMS
  EXCEPTIONS
    COMMUNICATION_FAILURE = 97
    SYSTEM_FAILURE        = 98
    OTHERS                = 99.
IF SY-SUBRC = 0.
  " Success
ELSEIF SY-SUBRC = 97.
  " Communication Failure
  EXIT.
ELSEIF SY-SUBRC = 98.
  " System Failure
  EXIT.
ELSE.
  EXIT.
ENDIF.

方法二：

WRITE 'This is the main ABAP report calling the SAP Transaction VA03 in a new session or in a new window'.
DATA :    WA_SPA   TYPE RFC_SPAGPA,
          ITAB_SPA TYPE TABLE OF RFC_SPAGPA.
WA_SPA-PARID = 'AUN'.
WA_SPA-PARVAL = '20000190'.
APPEND WA_SPA TO ITAB_SPA.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
  STARTING NEW TASK 'VA03'
  DESTINATION 'NONE'
  EXPORTING
    TCODE                 = 'VA03'
    SKIP_SCREEN           = 'X'
  TABLES
    SPAGPA_TAB            = ITAB_SPA
  EXCEPTIONS
    COMMUNICATION_FAILURE = 1
    SYSTEM_FAILURE        = 2.
IF SY-SUBRC <> 0.
  " ERROR
ENDIF.