设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

[BDC] BDC录屏实现MIRO采购订单发票过账

Twilight发表于 2019-08-07 10:59Twilight 最后回复于 2019-08-07 10:59 [复制链接] 8216 0

采购订单发票过账SAP提供了标准BAPI：BAPI_INCOMINGINVOICE_POST，请参考MIRO过账采购订单发票BAPI_INCOMINGINVOICE_POST

为什么还使用BDC呢？为了在过账时填写参考、抬头文本等备注信息，录屏时注意公司代码，界面使用了SAP内存，所以录屏不一定会有公司代码弹框。

程序代码：
  1. FUNCTION zpufm023.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口：
  4. *"  IMPORTING
  5. *"     VALUE(I_BELNR) TYPE  RE_BELNR
  6. *"     VALUE(I_GJAHR) TYPE  GJAHR
  7. *"     VALUE(I_XBLNR) TYPE  XBLNR1 OPTIONAL
  8. *"     VALUE(I_BKTXT) TYPE  BKTXT OPTIONAL
  9. *"  EXPORTING
  10. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
  11. *"----------------------------------------------------------------------
  12.   DATA:lt_messtab TYPE TABLE OF bdcmsgcoll.
  13.   DATA:lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
  14.   DATA:ls_rbkp TYPE rbkp.

  16.   PERFORM frm_re_belnr_input CHANGING i_belnr.

  18.   SELECT SINGLE * INTO ls_rbkp FROM rbkp WHERE belnr = i_belnr AND gjahr = i_gjahr.
  19.   IF sy-subrc = 0.
  20.     IF ls_rbkp-rbstat = '5'.  "5  已过账
  21.       e_message-type    = 'S'.
  22.       e_message-message = 'PO预制发票已经过账！'.
  23.       EXIT.
  24.     ENDIF.
  25.   ELSE.
  26.     e_message-type    = 'E'.
  27.     e_message-message = 'PO预制发票不存在！'.
  28.     EXIT.
  29.   ENDIF.

  31.   SET PARAMETER ID 'BUK' FIELD ls_rbkp-bukrs.

  33. *MIRO 菜单-显示
  34.   PERFORM bdc_dynpro      USING 'SAPLMR1M' '6000'.
  35.   PERFORM bdc_field       USING 'BDC_OKCODE'
  36.                                 '/EMR3M'.
  37. *输入PO发票号码
  38.   PERFORM bdc_dynpro      USING 'SAPLMR1M' '6150'.
  39.   PERFORM bdc_field       USING 'BDC_OKCODE'
  40.                                 '/00'.
  41.   PERFORM bdc_field       USING 'RBKP-BELNR'
  42.                                 i_belnr.
  43.   PERFORM bdc_field       USING 'RBKP-GJAHR'
  44.                                 i_gjahr.
  45. *MIRO 菜单-修改
  46.   PERFORM bdc_dynpro      USING 'SAPLMR1M' '6000'.
  47.   PERFORM bdc_field       USING 'BDC_OKCODE'
  48.                                 '/EPPCH'.
  49. *参考单号
  50.   PERFORM bdc_dynpro      USING 'SAPLMR1M' '6000'.
  51.   PERFORM bdc_field       USING 'BDC_OKCODE'
  52.                                 '=HEADER_FI'.
  53.   IF i_xblnr IS NOT INITIAL.
  54.     PERFORM bdc_field       USING 'INVFO-XBLNR'
  55.                                   i_xblnr.
  56.   ENDIF.

  58. *抬头文本
  59.   PERFORM bdc_dynpro      USING 'SAPLMR1M' '6000'.
  60.   PERFORM bdc_field       USING 'BDC_OKCODE'
  61.                                 '=BU'.
  62.   IF i_bktxt IS NOT INITIAL.
  63.     PERFORM bdc_field       USING 'INVFO-BKTXT'
  64.                                   i_bktxt.
  65.   ENDIF.


  68.   PERFORM bdc_transaction TABLES lt_messtab
  69.                           USING  'MIRO'
  70.                                   'X' "CALL TRANSACTION 方式
  71.                                   'N'
  72.                                   'S'.
  73.   IF sy-subrc NE 0.
  74.     e_message-type    = 'E'.

  76.     CALL FUNCTION 'CONVERT_BDCMSGCOLL_TO_BAPIRET2'
  77.       TABLES
  78.         imt_bdcmsgcoll = lt_messtab
  79.         ext_return     = lt_return.
  80.     LOOP AT lt_return  WHERE type CA 'AEX'.
  81.       IF e_message-message IS INITIAL.
  82.         e_message-message   = lt_return-message.
  83.       ELSE.
  84.         CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  85.       ENDIF.
  86.     ENDLOOP.
  87.   ELSE.
  88.     e_message-type    = 'S'.
  89.     e_message-message = 'PO预制发票过账成功！'.
  90.   ENDIF.

  92. ENDFUNCTION.
  93. INCLUDE bdcrecxy .
复制代码

分析的好有道理，但是最后测试发现dump：CNTL_ERROR异常，SAP给出解释：
  1. miro is an enjoy transaction, so it will fail in background, though it runs in foreground. so try to use BAPI inplace of it.
复制代码

替代方案：
  1. FUNCTION zpufm020.
  2. *"----------------------------------------------------------------------
  3. *"*"本地接口：
  4. *"  IMPORTING
  5. *"     VALUE(I_BELNR) TYPE  RE_BELNR
  6. *"     VALUE(I_GJAHR) TYPE  GJAHR
  7. *"     VALUE(I_XBLNR) TYPE  XBLNR1 OPTIONAL
  8. *"     VALUE(I_BKTXT) TYPE  BKTXT OPTIONAL
  9. *"  EXPORTING
  10. *"     VALUE(E_MESSAGE) TYPE  ZOTS001
  11. *"----------------------------------------------------------------------
  12.   DATA:lt_return TYPE TABLE OF bapiret2 WITH HEADER LINE.
  13.   DATA:ls_headerdata_change  TYPE bapi_incinv_chng_header.
  14.   DATA:ls_headerdata_changex TYPE bapi_incinv_chng_headerx.
  15.   DATA:ls_rbkp  TYPE rbkp.

  17.   PERFORM frm_re_belnr_input CHANGING i_belnr.

  19.   SELECT SINGLE * INTO ls_rbkp FROM rbkp WHERE belnr = i_belnr AND gjahr = i_gjahr.
  20.   IF sy-subrc = 0.
  21.     IF ls_rbkp-rbstat = '5'.  "5  已过账
  22.       e_message-type    = 'S'.
  23.       e_message-message = 'PO预制发票已经过账！'.
  24.       EXIT.
  25.     ENDIF.
  26.   ELSE.
  27.     e_message-type    = 'E'.
  28.     e_message-message = 'PO预制发票不存在！'.
  29.     EXIT.
  30.   ENDIF.

  32. *-->BAPI_INCOMINGINVOICE_CHANGE
  33.   ls_headerdata_change-ref_doc_no = '00100653'.
  34.   ls_headerdata_change-header_txt = '确认发票自动生成的过账凭证'.

  36.   ls_headerdata_changex-ref_doc_no = 'X'.
  37.   ls_headerdata_changex-header_txt = 'X'.

  39.   CALL FUNCTION 'BAPI_INCOMINGINVOICE_CHANGE'
  40.     EXPORTING
  41.       invoicedocnumber   = i_belnr
  42.       fiscalyear         = i_gjahr
  43.       headerdata_change  = ls_headerdata_change
  44.       headerdata_changex = ls_headerdata_changex
  45.     TABLES
  46.       return             = lt_return.

  48.   LOOP AT lt_return WHERE type CA 'AEX'.
  49.     IF e_message-message IS INITIAL.
  50.       e_message-message   = lt_return-message.
  51.     ELSE.
  52.       CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  53.     ENDIF.
  54.   ENDLOOP.
  55.   IF sy-subrc = 0.
  56.     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  57.     e_message-type   = 'E'.
  58.     EXIT.
  59.   ELSE.
  60.     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  61.       EXPORTING
  62.         wait = 'X'.
  63. *-->BAPI_INCOMINGINVOICE_POST
  64.     CLEAR:lt_return[].
  65.     CALL FUNCTION 'BAPI_INCOMINGINVOICE_POST'
  66.       EXPORTING
  67.         invoicedocnumber = i_belnr
  68.         fiscalyear       = i_gjahr
  69.       TABLES
  70.         return           = lt_return.

  72.     LOOP AT lt_return WHERE type CA 'AEX'.
  73.       IF e_message-message IS INITIAL.
  74.         e_message-message   = lt_return-message.
  75.       ELSE.
  76.         CONCATENATE e_message-message lt_return-message INTO e_message-message SEPARATED BY '/'.
  77.       ENDIF.
  78.     ENDLOOP.
  79.     IF sy-subrc = 0.
  80.       CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  81.       e_message-type   = 'E'.
  82.       EXIT.
  83.     ELSE.
  84.       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  85.         EXPORTING
  86.           wait = 'X'.
  87.       e_message-type    = 'S'.
  88.       e_message-message = 'PO预制发票过账成功！'.
  89.     ENDIF.
  90.   ENDIF.

  92. ENDFUNCTION.
  93. FORM frm_re_belnr_input CHANGING pc_belnr TYPE re_belnr.

  95.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  96.     EXPORTING
  97.       input  = pc_belnr
  98.     IMPORTING
  99.       output = pc_belnr.

  101. ENDFORM.
复制代码
MIRO, 采购发票

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 839 主题
  2. 964 帖子
  3. 10792 积分
收听TA 发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-4-16 16:02 , Processed in 0.040912 second(s), 8 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.4

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表