采购订单审批BAPI ---BAPI_PO_RELEASE
来源:互联网 发布:excel表格内换行 mac 编辑:程序博客网 时间:2024/03/28 18:30
REPORT z_release_po.DATA gc_frggr LIKE ekko-frggr. "Release Group
DATA gc_frgsx LIKE ekko-frgsx. "Release Strategy
DATA gc_frgke LIKE ekko-frgke. "Release Status.
DATA ret_code LIKE sy-subrc.
DATA msg(255) TYPE c.
DATA: gt_t16fs LIKE t16fs OCCURS 0 WITH HEADER LINE.
DATA: gc_new_status LIKE bapimmpara-rel_status.
DATA: gc_indicator_new LIKE bapimmpara-po_rel_ind.
DATA: gt_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA: gc_no_commit LIKE bapimmpara-selection.
DATA: et_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF it_po_rel_code OCCURS 0,
rel_code TYPE frgco,
END OF it_po_rel_code.
SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE title.
PARAMETERS:po_num LIKE ekko-ebeln,"采购订单号
rel_code TYPE frgco."审批代码
SELECTION-SCREEN END OF BLOCK block.
SELECT SINGLE ekko~frgke INTO gc_frgke FROM ekko WHERE ekko~ebeln = po_num.
IF gc_frgke = '1'.
ret_code = -1.
CONCATENATE: po_num '已经通过审核' INTO msg.
* EXIT.
ELSE.
SELECT SINGLE ekko~frggr ekko~frgsx INTO (gc_frggr,gc_frgsx) FROM ekko WHERE ekko~ebeln = po_num.
IF ( gc_frggr IS NOT INITIAL ) AND ( gc_frgsx IS NOT INITIAL ).
REFRESH gt_t16fs.
CLEAR gt_t16fs.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_t16fs FROM t16fs WHERE t16fs~frggr = gc_frggr AND t16fs~frgsx = gc_frgsx.
ELSE.
ret_code = -1.
msg ='未找到对应审批策略,请检查输入'.
EXIT.
ENDIF.
IF rel_code IS NOT INITIAL.
CLEAR gc_new_status.
CLEAR gc_indicator_new.
CALL FUNCTION 'BAPI_PO_RELEASE'
EXPORTING
purchaseorder = po_num
po_rel_code = rel_code
use_exceptions = 'X'
* no_commit =
IMPORTING
rel_status_new = gc_new_status
rel_indicator_new = gc_indicator_new
* ret_code =
TABLES
return = gt_log.
.
IF sy-subrc = 0.
et_log-type = 'S'.
CONCATENATE: '采购订单通过审核码' rel_code '的审核成功!' '返回采购订单审批状态为:' gc_new_status ' 审批标识为:'
gc_indicator_new INTO et_log-message.
APPEND et_log.
IF NOT gt_log[] IS INITIAL.
et_log-type = gt_log-type.
et_log-message = gt_log-message.
APPEND et_log.
ENDIF.
ENDIF.
ELSE.
ret_code = -1.
msg = '未找到对应审批策略,请检查输入'.
EXIT.
ENDIF.
IF et_log[] IS NOT INITIAL.
READ TABLE et_log WITH KEY type = 'E'.
IF sy-subrc = 0.
msg = 'po审核存在错误,请查看错误日志'.
ret_code = -1.
EXIT.
ELSE.
msg = 'PO已审核成功,请查看日志'.
ret_code = 0.
ENDIF.
ENDIF.
ENDIF.
WRITE:msg.
0 0
- 采购订单审批BAPI ---BAPI_PO_RELEASE
- 采购订单审批BAPI ---BAPI_PO_RELEASE
- sap中利用bapi(BAPI_PO_RELEASE/BAPI_PO_RESET_RELEASE)审批或取消采购订单审批
- 采购订单审批/取消审批程序(BAPI_PO_RESET_RELEASE、BAPI_PO_RELEASE)
- 调用BAPI审批/取消审批采购订单
- 采购订单审批BAPI ---BAPI_PO…
- 采购订单自动审批
- BAPI_PO_RESET_RELEASE---取消采购订单审批
- 采购订单的审批制作完整版
- abap对采购订单强制置为”交货已完成“状态(BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE)
- abap对采购订单强制置为”交货已完成“状态(BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE)
- abap对采购订单强制置为”交货已完成“状态(BAPI_PO_CHANGE、BAPI_PO_RELEASE、BAPI_PO_RESET_RELEASE)
- 撤销审批有收货的采购订单,并修改采购订单
- SAP 采购订单四级审批流程配置
- 采购订单审批状态及关闭状态快码查询
- SAP 采购订单打印完后不可以取消审批
- Oracle EBS Interface/API(3)--采购订单审批
- SAP 采购订单打印完后不可以取消审批
- 如何根据事物代码查找相应BAPI
- Ring3 下 API Inline Hook 优化方案探索与实现
- jsp include中文乱码问题解决方案
- 制作手机静态页面
- 关于iOS和OS X废弃的API你需要知道的一切
- 采购订单审批BAPI ---BAPI_PO_RELEASE
- copypng emitted errors but did not return a nonzero exit code to错误
- JavaScript arguments 对象
- SAP 增强开发
- 将ISO8859-1字符串转成GB2312编码
- mvn assembly:single打包报错:Error reading assemblies: No assembly descriptors found.
- 微信下载app(转载)
- 第一次使用Android Studio时你应该知道的一切配置(二):新建一个属于自己的工程并安装Genymotion模拟器
- hibernate联合主键生成机制(annotation方式)