ABAP 获取订单状态的两个函数 STATUS_TEXT_EDIT 和 STATUS_READ 的简单介绍

本文介绍了在SAP系统中使用STATUS_READ和STATUS_TEXT_EDIT函数获取订单状态的方法。STATUS_READ通过订单对象号从JEST表中读取状态,而STATUS_TEXT_EDIT则直接返回前台可见的状态描述。

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

 在SAP中对于如何获取订单的状态,提供了至少两个函数(我自己知道的),分别是 STATUS_READ 和  STATUS_TEXT_EDIT。下面简单介绍这两个函数
1.STATUS_READ  改函数的实现原理大概是通过订单的对象好(OR+订单号) 到JEST中取出字段STAT INACT.
JEST表中STAT是一串从字面看不出意思的字符,可以根据STAT到表TJ02T中找到具体的描述。
下面是具体用法
DATA:objnr TYPE aufk-objnr.

objnr 'OR000000100014'.
DATA:t_status TYPE TABLE OF jstat WITH HEADER LINE.
"结果存放在STATUS表中
CALL FUNCTION 'STATUS_READ'
  EXPORTING
    client           sy-mandt
    objnr            objnr
  TABLES
    status           t_status
  EXCEPTIONS
    object_not_found 1
    OTHERS           2.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT t_status.
  IF t_status 'I0046'.
    WRITE:'订单已关闭'.
    EXIT.
  ENDIF.
ENDLOOP.

2.STATUS_TEXT_EDIT 改函数读取的结果是将订单状态拼接到一个字符串中,而且这个字符串是在前台订单上看到的状态,比较直接,这样做的结果就可能由于状态较多导致长度过长,在某些情况下取的数据可能不准。
下面是一段代码
DATA:line TYPE bsvx-sttxt.
CALL FUNCTION 'STATUS_TEXT_EDIT'
  EXPORTING
    client sy-mandt
    objnr  objnr
    spras  sy-langu
  IMPORTING
    line   line
  EXCEPTIONS
    object_not_found        1
    OTHERS       "
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

SEARCH line FOR 'CLSD'.
IF sy-subrc 0.
  WRITE:'订单已关闭'.
ENDIF.
REPORT zfind_edit_update. TABLES: zmard_copy. DATA: ok_code LIKE sy-ucomm, save_ok LIKE sy-ucomm, g_container TYPE scrfname VALUE ‘ALV_CONTAINER’, g_grid TYPE REF TO cl_gui_alv_grid, g_custom_container TYPE REF TO cl_gui_custom_container, gs_layout TYPE lvc_s_layo, gt_outtab TYPE TABLE OF zmard_copy, gt_original TYPE TABLE OF zmard_copy, " 存储原始数据用于比较 lv_modified TYPE abap_bool. " 标记是否有修改 CALL SCREEN 100 STARTING AT 1 1. MODULE pbo OUTPUT. SET PF-STATUS ‘MAIN100’. SET TITLEBAR ‘MAIN100’. IF g_custom_container IS INITIAL. CREATE OBJECT g_custom_container EXPORTING container_name = g_container. CREATE OBJECT g_grid EXPORTING i_parent = g_custom_container. gs_layout-edit = 'X'. SELECT * FROM zmard_copy INTO TABLE gt_outtab UP TO 1000 ROWS. " 保存原始数据用于后续比较 gt_original = gt_outtab. CALL METHOD g_grid->set_table_for_first_display EXPORTING i_structure_name = 'zmard_copy' is_layout = gs_layout CHANGING it_outtab = gt_outtab. CALL METHOD g_grid->set_ready_for_input EXPORTING i_ready_for_input = 1. ENDIF. ENDMODULE. MODULE pai INPUT. save_ok = ok_code. CLEAR ok_code. CASE save_ok. WHEN ‘EXIT’. PERFORM exit_program. WHEN ‘SWITCH’. PERFORM switch_edit_mode. WHEN ‘SAVE’. " 保存按钮处理 PERFORM save_data. WHEN OTHERS. " 处理其他事件 ENDCASE. ENDMODULE. FORM exit_program. LEAVE PROGRAM. ENDFORM. ---------------------------------------------------------------------- FORM switch_edit_mode. IF g_grid->is_ready_for_input( ) EQ 0. CALL METHOD g_grid->set_ready_for_input EXPORTING i_ready_for_input = 1. ELSE. CALL METHOD g_grid->set_ready_for_input EXPORTING i_ready_for_input = 0. ENDIF. ENDFORM. ---------------------------------------------------------------------- 保存数据的子过程(兼容版本) ---------------------------------------------------------------------- FORM save_data. DATA: gs_outtab TYPE zmard_copy, gs_original TYPE zmard_copy, lv_lines TYPE i. " 从ALV控件获取最新数据到内表 CALL METHOD g_grid->check_changed_data. " 检查是否有数据被修改 lv_modified = abap_false. LOOP AT gt_outtab INTO gs_outtab. READ TABLE gt_original INTO gs_original INDEX sy-tabix. IF gs_outtab <> gs_original. lv_modified = abap_true. EXIT. " 找到第一个修改就退出 ENDIF. ENDLOOP. IF lv_modified = abap_true. " 更新数据库 UPDATE zmard_copy FROM TABLE gt_outtab. IF sy-subrc = 0. COMMIT WORK. " 更新原始数据缓存 gt_original = gt_outtab. MESSAGE ‘数据已成功保存’ TYPE ‘S’. ELSE. ROLLBACK WORK. MESSAGE ‘数据保存失败’ TYPE ‘E’. ENDIF. ELSE. MESSAGE ‘没有数据被修改’ TYPE ‘I’. ENDIF. ENDFORM. 基于以上代码,增加如下要求,默认状态下禁止编辑,编辑状态下只有lgpbe可以编辑,其他字段(mandt,matnr,werks,lgort)均为主键始终为不可编辑状态
最新发布
08-06
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值