sap中利用bapi(BAPI_PO_RELEASE/BAPI_PO_RESET_RELEASE)审批或取消采购订单审批
来源:互联网 发布:java高级编程 jdk6版 编辑:程序博客网 时间:2024/04/27 19:49
data: gt_t16fs TYPE STANDARD TABLE OF t16fs, "批准策略
"定义采购订单对应的审批信息
BEGIN OF gt_ekko OCCURS 0,
ebeln LIKE ekko-ebeln, "采购订单编号
frggr LIKE ekko-frggr, "审批组
frgsx LIKE ekko-frgsx, "审批策略
frgzu LIKE ekko-frgzu, "版本状态
bsart LIKE ekko-bsart, "采购凭证类型
ekorg LIKE ekko-ekorg, "采购组织
END OF gt_ekko.
*&———————————————————————*
*& Form get_Approval_strategy
*&———————————————————————*
* 取采购订单对应的审批组和审批策略
* 再根据审批组和审批管理取每级对应的审批组
*———————————————————————-*
FORM get_approval_strategy.
"取采购订单对应审批组
SELECT ebeln "采购订单
frggr "审批组
frgsx "审批策略
frgzu "版本状态
bsart "采购凭证类型
ekorg "采购组织
INTO TABLE gt_ekko
FROM ekko
WHERE ebeln = l_ebeln.
"根据审批组取对应批准策略
SELECT *
INTO TABLE gt_t16fs
FROM t16fs
FOR ALL ENTRIES IN gt_ekko
WHERE frggr = gt_ekko-frggr "审批组
AND frgsx = gt_ekko-frgsx. "审批策略
ENDFORM. "get_Approval_strategy
*&———————————————————————*
*& Form PROCESS_po
*&———————————————————————*
* 处理采购订单,包括取消审批和审批
*———————————————————————-*
* –>VALUE(FV_APPROVE) 处理标识,N:表示取消审批, Y:表示审批通过
*———————————————————————-*
FORM process_po USING value(fv_approve).
DATA: l_level TYPE n, "当前订单已审批通过级别数
l_last_char TYPE n, "当前订单最后审批通过级别
l_pre_field TYPE string VALUE 'FRGC', "所有审批组对应字段相同部分
l_fieldname TYPE string. "由l_pre_field + l_last_char组成对应审批组字段
FIELD-SYMBOLS: <fs_field> TYPE t16fs-frgc1. "当前审批组值
CLEAR: l_level,
l_last_char,
l_fieldname.
READ TABLE gt_ekko ASSIGNING <fs_ekko> WITH KEY ebeln = w_poheader-po_number.
IF sy-subrc EQ 0 AND <fs_ekko>-frgzu IS NOT INITIAL.
"根据采购订单的审批组、审批策略取对应的审批组
READ TABLE gt_t16fs ASSIGNING <fs_t16fs> WITH KEY frggr = <fs_ekko>-frggr
frgsx = <fs_ekko>-frgsx.
"计算审批通过级数
l_level = STRLEN( <fs_ekko>-frgzu ).
"取消采购订单,只取消第一级审批就可以,不需要逐级取消审批,如果逐级取消审批后造成采购订单被锁定错误
IF fv_approve = 'N'.
"组成字段名
CONCATENATE l_pre_field '1' INTO l_fieldname.
"通过指针获取批准代码
ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_t16fs> TO <fs_field>.
PERFORM approve_po USING <fs_ekko>-ebeln 'N' <fs_field>.
ENDIF.
"批准采购订单,由前往后逐级审批
IF fv_approve = 'Y'.
DO l_level TIMES.
l_last_char = sy-index.
CONCATENATE l_pre_field l_last_char INTO l_fieldname.
ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_t16fs> TO <fs_field>.
PERFORM approve_po USING <fs_ekko>-ebeln 'Y' <fs_field>.
ENDDO.
ENDIF.
ENDIF.
ENDFORM. "PROCESS_po
*&———————————————————————*
*& Form approve_po
*&———————————————————————*
* 审批或取消采购订单审批
*———————————————————————-*
* –>VALUE(FV_EBELN) 采购订单编号
* –>VALUE(FV_APPROVE) 审批状态
* –>VALUE(FV_REL_COD) 审批代码
*———————————————————————-*
FORM approve_po USING value(fv_ebeln)
value(fv_approve)
value(fv_rel_cod).
CALL FUNCTION 'Z_MM_APPROVE_PO'
EXPORTING
purchaseorder = fv_ebeln
approve = fv_approve
rel_cod = fv_rel_cod.
IF sy-subrc EQ 0.
WAIT UP TO 1 SECONDS.
ENDIF.
ENDFORM. "approve_po
FUNCTION z_mm_approve_po.
*"———————————————————————-
*"*"Update function module:
*"
*"*"Local interface:
*" IMPORTING
*" VALUE(PURCHASEORDER) TYPE BAPIMMPARA-PO_NUMBER
*" VALUE(APPROVE) TYPE CHAR1
*" VALUE(REL_COD) TYPE BAPIMMPARA-PO_REL_COD
*"———————————————————————-
IF approve = 'Y'.
CALL FUNCTION 'BAPI_PO_RELEASE'
EXPORTING
purchaseorder = purchaseorder
po_rel_code = rel_cod
* USE_EXCEPTIONS = 'X'
* NO_COMMIT = ' '
* IMPORTING
* REL_STATUS_NEW =
* REL_INDICATOR_NEW =
* RET_CODE =
* TABLES
* RETURN = return
EXCEPTIONS
authority_check_fail = 1
document_not_found = 2
enqueue_fail = 3
prerequisite_fail = 4
release_already_posted = 5
responsibility_fail = 6
OTHERS = 7
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ELSEIF approve = 'N'.
CALL FUNCTION 'BAPI_PO_RESET_RELEASE'
EXPORTING
purchaseorder = purchaseorder
po_rel_code = rel_cod
* USE_EXCEPTIONS = 'X'
* IMPORTING
* REL_STATUS_NEW =
* REL_INDICATOR_NEW =
* TABLES
* RETURN = return
EXCEPTIONS
authority_check_fail = 1
document_not_found = 2
enqueue_fail = 3
prerequisite_fail = 4
release_already_posted = 5
responsibility_fail = 6
no_release_already = 7
no_new_release_indicator = 8
OTHERS = 9
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDFUNCTION.
- sap中利用bapi(BAPI_PO_RELEASE/BAPI_PO_RESET_RELEASE)审批或取消采购订单审批
- 采购订单审批/取消审批程序(BAPI_PO_RESET_RELEASE、BAPI_PO_RELEASE)
- 采购订单审批BAPI ---BAPI_PO_RELEASE
- 采购订单审批BAPI ---BAPI_PO_RELEASE
- BAPI_PO_RESET_RELEASE---取消采购订单审批
- 调用BAPI审批/取消审批采购订单
- SAP 采购订单打印完后不可以取消审批
- SAP 采购订单打印完后不可以取消审批
- SAP 采购订单打印完后不可以取消审批
- 采购订单审批BAPI ---BAPI_PO…
- 采购订单自动审批
- SAP 采购订单四级审批流程配置
- 多级审批采购订单,按倒序逐级取消审批需做增强
- SAP 采购订单PO基于采购金额的审批策略配置
- 采购订单的审批制作完整版
- 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)
- webpack3.0案例(一)-- webpack初体验
- Docker安装mysql
- homography, essential and fundamental matrix
- 系统内核参数有问题导致postgresql数据库无法启动
- PHP实现文件上传与下载
- sap中利用bapi(BAPI_PO_RELEASE/BAPI_PO_RESET_RELEASE)审批或取消采购订单审批
- python&django 常见问题及解决方法(转)
- Genymotion 下载镜像速度慢的解决办法
- Android 使用android-support-multidex解决Dex超出方法数的限制问题,让你的应用不再爆棚
- TCP连接常见问题
- 快上车,Axure rp 8系 验证码,亲测可用.
- Akka(38): Http:Entityof ByteString-数据传输基础
- 科技和法律:"换头术"背后我们应该思考什么?
- 这几个争做数据圈清流的公众号,你都知道吗?