sap弹出确认框

DATA: lv_answer.

READ TABLE gt_reslt02 INDEX 1 INTO gwa_reslt02.

IF gwa_reslt02-status = '2' AND gwa_head02-numbr IS NOT INITIAL

AND gwa_head02-statu = '9'.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

text_question = '由于接收失败，确认要重置状态？'

text_button_1 = '是'

text_button_2 = '否'

IMPORTING

answer = lv_answer

* TABLES

* PARAMETER =

EXCEPTIONS

text_not_found = 1

OTHERS = 2.

CHECK lv_answer = 1.

UPDATE zfit_01202 SET status = '1'

WHERE numbr = gwa_head02-numbr.

IF sy-subrc = 0.

MESSAGE i001(zfi) WITH '状态恢复成功！' .

LEAVE PROGRAM.

ENDIF.

ELSE.

MESSAGE i001(zfi) WITH '状态不对，不能重置！' .

ENDIF.