ToB企服应用市场:ToB评测及商务社交产业平台

标题: 几个函数的使用例子：更新VBRK-XBLNR，IB01设备BOM创建，LI11N输入库存盘点 [打印本页]
作者: 渣渣兔    时间: 2022-12-29 19:11
标题: 几个函数的使用例子：更新VBRK-XBLNR，IB01设备BOM创建，LI11N输入库存盘点
最近用到一些函数，网上的相关资料不多，这里记录一下。
本文链接：https://www.cnblogs.com/hhelibeb/p/17012303.html
 
1，使用 RV_INVOICE_HEAD_MAINTAIN 更新VBRK-ZUNOR和VBRK-XBLNR等字段。

场景：金税发票接口需要更新发票相关字段，如VBRK-ZUNOR，VBRK-XBLNR和其它增强字段。
代码示例：
  1.   DATA:
  2.     xkomfk TYPE STANDARD TABLE OF komfk,
  3.     xkomv  TYPE STANDARD TABLE OF komv,
  4.     xthead TYPE STANDARD TABLE OF theadvb,
  5.     xvbfs  TYPE STANDARD TABLE OF vbfs,
  6.     xvbpa  TYPE STANDARD TABLE OF vbpavb,
  7.     xvbrk  TYPE STANDARD TABLE OF vbrkvb,
  8.     xvbrp  TYPE STANDARD TABLE OF vbrpvb,
  9.     xvbss  TYPE STANDARD TABLE OF vbss.
  11.   SELECT SINGLE * FROM vbrk
  12.     WHERE vbeln = @is_nvbrk-vbeln
  13.     INTO @ls_vbrk.
  15.   CALL FUNCTION 'RV_INVOICE_DOCUMENT_READ'
  16.     EXPORTING
  17.       konv_read    = 'X'
  18.       vbrk_i       = ls_vbrk
  19.     TABLES
  20.       xkomv        = xkomv
  21.       xvbpa        = xvbpa
  22.       xvbrk        = xvbrk
  23.       xvbrp        = xvbrp
  24.       xkomfk       = xkomfk
  25.       xvbfs        = xvbfs
  26.       xthead       = xthead
  27.       xvbss        = xvbss
  28.     EXCEPTIONS
  29.       no_authority = 1
  30.       OTHERS       = 2.
  31.   IF sy-subrc <> 0.
  32. * Implement suitable error handling here
  33.   ENDIF.
  35.   ls_vbrk-xblnr       = '123'.
  36.   ls_vbrk-zuonr       = '321'.
  38.   CALL FUNCTION 'RV_INVOICE_HEAD_MAINTAIN'
  39.     EXPORTING
  40.       vbrk_i = ls_vbrk
  41.     TABLES
  42.       xkomfk = xkomfk
  43.       xkomv  = xkomv
  44.       xthead = xthead
  45.       xvbfs  = xvbfs
  46.       xvbpa  = xvbpa
  47.       xvbrk  = xvbrk
  48.       xvbrp  = xvbrp
  49.       xvbss  = xvbss.
  50.   IF sy-subrc <> 0.
  51.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH
  52.     sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO DATA(lv_dummy).
  53.   ENDIF.
  55.   DATA: ls_vbsk TYPE vbsk.
  56.   ls_vbsk-mandt = sy-mandt.
  57.   ls_vbsk-ernam = ls_vbrk-ernam.
  58.   ls_vbsk-erdat = ls_vbrk-erdat.
  59.   ls_vbsk-uzeit = ls_vbrk-erzet.
  61.   CALL FUNCTION 'RV_INVOICE_DOCUMENT_ADD'
  62.     EXPORTING
  63.       vbsk_i = ls_vbsk
  64.     TABLES
  65.       xkomfk = xkomfk
  66.       xkomv  = xkomv
  67.       xthead = xthead
  68.       xvbfs  = xvbfs
  69.       xvbpa  = xvbpa
  70.       xvbrk  = xvbrk
  71.       xvbrp  = xvbrp
  72.       xvbss  = xvbss.
复制代码
2，用 CSAI_BOM_MAINTAIN 实现IB01设备BOM创建、IB02设备BOM修改

场景：批量上传维护设备BOM
下面的代码可以用于创建和新增设备BOM，但不能删除已有设备BOM。如要删除已有设备BOM，需设置t_stpob中的删除标记。
  1.   DATA: ecsin         LIKE  csin,
  2.         estkob        LIKE  stkob,
  3.         estzub        LIKE  stzub,
  4.         emastb        LIKE  mastb,
  5.         items         TYPE sgt_t_bom_comp,
  6.         t_stpob       TYPE tt_stpo.
  7.   DATA: fl_warning LIKE  capiflag-flwarning.
  9.     ecsin-stlty = 'E' . "设备
  10.     ecsin-stlan = lr_data->stlan .
  11.     ecsin-datuv = sy-datum.
  13.     ecsin-werks = lr_data->werks.
  14.     ecsin-equnr = lr_data->equnr1.
  16.     CALL FUNCTION 'CSAI_BOM_READ'
  17.       EXPORTING
  18.         ecsin      = ecsin         
  19.       IMPORTING
  20.         fl_warning = fl_warning
  21.       TABLES
  22.         t_stpob    = t_stpob      
  23.       EXCEPTIONS
  24.         error      = 1
  25.         OTHERS     = 2.
  26.      
  27.     t_stpob = VALUE #( BASE t_stpob
  28.         ( posnr = lv_posnr postp = lr_data->postp idnrk = lr_data->idnrk menge = lr_data->menge )
  29.       ).
  31.     CALL FUNCTION 'CSAI_BOM_MAINTAIN'
  32.       EXPORTING
  33.         fl_bom_create      = 'X'
  34.         ecsin              = ecsin         
  35.         estkob             = estkob
  36.         estzub             = estzub
  37.         fl_commit_and_wait = 'X'
  38.       IMPORTING
  39.         fl_warning         = fl_warning
  40.       TABLES
  41.         t_stpob            = t_stpob
  42.       EXCEPTIONS
  43.         error              = 1
  44.         OTHERS             = 2.
复制代码
3，使用 L_INV_COUNT_EXT 实现LI11N输入库存盘点。

上传盘点数据，程序实现LI01N, LI11N, LI20, LI21盘点过账功能。
其中LI01N, LI20, LI21可以用BDC实现，LI11N通过函数实现。
数据来自表LQUA，需要注意如果数量为0，则要设置零库存标识。
  1. DATA: lt_linv TYPE STANDARD TABLE OF e1linvx.
  2. DATA: ls_linv TYPE e1linvx.
  4. ls_linv-lgnum = '120'.
  5. ls_linv-lqnum = '752'.
  6. ls_linv-lgort = 'B021'.
  7. ls_linv-ivnum = '0000000030'.  "LI01N生成的盘点记录
  8. ls_linv-idatu = sy-datum.
  9. ls_linv-wdatu = sy-datum.
  10. ls_linv-lgpla = 'B05-123'.
  11. ls_linv-plpos = '1'.
  12. ls_linv-lgtyp = 'B05'.
  13. ls_linv-matnr = '000000000020000214'.
  14. ls_linv-werks = '1000'.
  15. ls_linv-charg = '212922123'.
  16. ls_linv-lsonr = '12345'.
  17. ls_linv-letyp = 'IP'.
  18. ls_linv-menga = 2.
  19. ls_linv-lenum = '12345'.
  21. ls_linv-altme = 'BOT'.
  22. IF ls_linv-menga = 0.
  23.   ls_linv-kznul = 'X'.
  24. ENDIF.
  25. INSERT ls_linv INTO TABLE lt_linv.
  27. CALL FUNCTION 'L_INV_COUNT_EXT'
  28.   EXPORTING
  29.     i_check_only                 = i_check_only
  30.     i_commit                     = 'X'
  31.   TABLES
  32.     s_linv                       = lt_linv
  33.   EXCEPTIONS
  34.     either_quantity_or_empty_bin = 1
  35.     ivnum_not_found              = 2
  36.     check_problem                = 3
  37.     no_count_allowed             = 4
  38.     l_inv_read                   = 5
  39.     bin_not_in_ivnum             = 6
  40.     counts_not_updated           = 7
  41.     lock_error                   = 8.
复制代码
 
需要注意这三个功能涉及的函数都是未发布状态，如果有其它已发布函数可以实现相同功能，请优先考虑已发布函数。
 

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



欢迎光临 ToB企服应用市场:ToB评测及商务社交产业平台 (https://dis.qidao123.com/) Powered by Discuz! X3.4