SAP ABAP 当标准BAPI或事务无法指定用户名执行的处理办法 ...

@
目录

• 需求
  
• 一、远程调用RFC的方式
  
  
  
  • 
    
    
    
    • 1.SM59配置
      
    • 2.指定用户需要满足以下条件
      
    • 3.创建远程RFC
      
    
    
  
  
• 二、创建SE38程序 通过调用后台作业的方式指定用户名执行
  
• 总结
  

需求

有时我们会面对某一标准事务或bapi需要以特定账户执行，以财务的过账、冲销举例，过账时可以在header中填写用户名指定创建人，这里不做阐述。
如果面对BAPI_ACC_DOCUMENT_REV_POST这样用于冲销且没有指定用户名字段的BAPI，但又需要冲销到指定用户名下，有以下方法
1.远程调用RFC的方式
2.创建SE38程序 通过调用后台作业的方式指定用户名执行
一、远程调用RFC的方式

1.SM59配置

新建ABAP类型连接

指定client和用户名

注意系统是否为Unicode

连接测试通过即可

2.指定用户需要满足以下条件

①.未被锁定
②.有S_RFCACL和S_RFC权限
3.创建远程RFC

BAPI调用成功后需要在当前luw中调用commit。

1. FUNCTION zbapi_acc_document_rev_post.
2. *"----------------------------------------------------------------------
3. *"*"本地接口：
4. *"  IMPORTING
5. *"     VALUE(REVERSAL) LIKE  BAPIACREV STRUCTURE  BAPIACREV
6. *"     VALUE(BUS_ACT) LIKE  BAPIACHE09-BUS_ACT
7. *"  EXPORTING
8. *"     VALUE(OBJ_TYPE) LIKE  BAPIACREV-OBJ_TYPE
9. *"     VALUE(OBJ_KEY) LIKE  BAPIACREV-OBJ_KEY
10. *"     VALUE(OBJ_SYS) LIKE  BAPIACREV-OBJ_SYS
11. *"  TABLES
12. *"      RETURN STRUCTURE  BAPIRET2
13. *"----------------------------------------------------------------------
15.   DATA:lv_error TYPE char1.
17.   CALL FUNCTION 'BAPI_ACC_DOCUMENT_REV_POST'
18.     EXPORTING
19.       reversal = reversal
20.       bus_act  = bus_act
21.     IMPORTING
22.       obj_type = obj_type
23.       obj_key  = obj_key
24.       obj_sys  = obj_sys
25.     TABLES
26.       return   = return.
28.   LOOP AT return[] INTO DATA(ls_return) WHERE type EQ 'E'.
29.     lv_error = 'X'.
30.     EXIT.
31.   ENDLOOP.
33.   IF lv_error IS NOT INITIAL.
34.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
35. *     IMPORTING
36. *       RETURN        =
37.       .
38.   ELSE.
39.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
40.       EXPORTING
41.         wait = 'X'
42. *       IMPORTING
43. *       RETURN        =
44.       .
45.   ENDIF.
47. ENDFUNCTION.

复制代码

实现代码：

1. *首先判断destination是否存在
2. CALL FUNCTION 'CAT_CHECK_RFC_DESTINATION'
3.     EXPORTING
4.       rfcdestination = 'ZDEST_FOR_TEST'
5.     IMPORTING
6.       msgv1          = lv_msg1
7.       msgv2          = lv_msg2
8.       rfc_subrc      = lv_subrc.
11.       CALL FUNCTION 'OWN_LOGICAL_SYSTEM_GET'
12.         IMPORTING
13.           own_logical_system = lv_system.
14.       ls_reversal-obj_type   = 'BKPFF'.
15.       ls_reversal-obj_key    = ls_bkpf-awkey.
16.       ls_reversal-obj_key_r  = ls_bkpf-awkey.
17.       ls_reversal-comp_code  = ls_bkpf-bukrs.
18.       ls_reversal-obj_sys = lv_system .
19.       ls_reversal-pstng_date = gs_date-zcxdate.
21.       CALL FUNCTION 'ZBAPI_ACC_DOCUMENT_REV_POST'  "  使用带commit远程rfc
22.         DESTINATION 'ZDEST_FOR_XGF'   " 使用HELPDESK冲销
23.         EXPORTING
24.           reversal = ls_reversal
25.           bus_act  = 'RFBU'
26.         IMPORTING
27.           obj_key  = lv_obj_key
28.         TABLES
29.           return   = lt_return.
30.       READ TABLE lt_return INTO ls_return WITH KEY type = 'E'.
31.       IF sy-subrc = 0.
32.         READ TABLE lt_return INTO ls_return_id WITH KEY number = 361 id = 'F5'.""已被冲销
33.         IF sy-subrc = 0.
34.           MESSAGE '凭证号:' && ls_bkpf-awkey && '已冲销' TYPE 'E'.
35.         ELSE.
36.           ROLLBACK WORK.
37.           cv_status = 'E'.
38.           MESSAGE '凭证冲销失败，凭证号:' && ls_bkpf-awkey TYPE 'E'.
39.           RETURN.
40.         ENDIF.
41.       ELSE.
42.         cv_status = 'S'.
43.       ENDIF.

复制代码

二、创建SE38程序 通过调用后台作业的方式指定用户名执行

submit后跟用户名，程序内代码这里就自己补充啦
代码如下（示例）：

1. *      安排作业  立即执行
2.       CALL FUNCTION 'JOB_OPEN'
3.         EXPORTING
4.           jobname          = lv_name
5.         IMPORTING
6.           jobcount         = lv_number
7.         EXCEPTIONS
8.           cant_create_job  = 1
9.           invalid_job_data = 2
10.           jobname_missing  = 3.
11.       IF sy-subrc EQ 0.
13.         SUBMIT zreport WITH SELECTION-TABLE lt_seltab
14.           USER lv_user AND RETURN
15.           VIA JOB lv_name NUMBER lv_number.
17.         IF sy-subrc EQ 0.
19.           CALL FUNCTION 'JOB_CLOSE'
20.             EXPORTING
21.               jobcount  = lv_number
22.               jobname   = lv_name
23.               strtimmed = 'X'.  "立即开始
24.               
25.         ENDIF.

复制代码

总结

以上

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！