DATA: lt_confirmations TYPE TABLE OF bapi_network_conf_add,
ls_confirmations TYPE bapi_network_conf_add,
lt_return TYPE TABLE OF bapiret2,
lt_message_table TYPE TABLE OF bapi_conf_return.
ls_confirmations-activity = ''. "操作/活动编号
ls_confirmations-exec_start_date = '' . "实际处理开始日期
ls_confirmations-exec_fin_date = ''. "实际处理结束日期
ls_confirmations-postg_date = ''. "确认日期
ls_confirmations-procss_deg = '' . "完成百分比
APPEND ls_confirmations TO lt_confirmations.
CALL FUNCTION 'BAPI_NETWORK_CONF_ADD'
EXPORTING
number = ls_zpsafvv-znet
IMPORTING
return = ls_return
TABLES
i_confirmations = lt_confirmations
e_message_table = lt_message_table.
IF ls_return-type = 'E' OR ls_return-type = 'A'.
"--->bapi报错,
ROLLBACK WORK.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
INTO lv_message
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
COMMIT WORK.
ELSE.
LOOP AT lt_message_table INTO DATA(ls_message_line) WHERE type = 'A' OR type = 'E'.
"--->行项目数据报错
ROLLBACK WORK.
"错误消息,记录日志
EXIT.
ENDLOOP.
"---->行项目数据无报错,成功
IF sy-subrc <> 0.
”返回成功消息
ENDIF.
ENDIF.