|
- LOOP AT IT_DETAIL.
- UPDATE ZPP060A SET ZTZLX = IT_DETAIL-ZTZLX
- WHERE WERKS = IT_DETAIL-WERKS AND MATNR = IT_DETAIL-MATNR .
- IF SY-SUBRC <> 0.
- ET_RETURN-TYPE = 'E'.
- CONCATENATE '更新失败,错误在' IT_DETAIL-MATNR '/' IT_DETAIL-ZTZLX '/' IT_DETAIL-ZTZMC INTO ET_RETURN-MESSAGE.
- APPEND ET_RETURN.
- " ROLLBACK WORK. ''写在此处没有回滚的效果!
- g_rollbackwork = 'Y'."回滚标识
- EXIT.
- ENDIF.
- CLEAR IT_DETAIL.
- ENDLOOP.
- if g_rollbackwork eq 'Y'."
- ROLLBACK WORK.
- end if."没在系统测试,如果不可以,估计得再更新为原来的旧数据了
复制代码 |
|