DEMO:MIRO对采购订单进行发票校验BAPI_INCOMINGINVOICE_CREATE_SAP刘梦_新浪博客

DEMO:MIRO对采购订单进行发票校验BAPI_INCOMINGINVOICE_CREATE
report  zlm_miro.

parameters p_ebeln type ekko-ebeln.

data: ls_headerdata       like bapi_incinv_create_header,
        lt_itemdata         like table of bapi_incinv_create_item,
        ls_itemdata         like bapi_incinv_create_item,
        lt_return           like table of bapiret2,
        ls_return           like bapiret2,
        lv_invoicedocnumber like bapi_incinv_fld-inv_doc_no.
data: lv_item             type  rblgp.
data: lv_gross            type  bapi_rmwwr.


data:ls_ekko type ekko.
data:ls_ekpo type ekpo.
data:ls_mseg type mseg.

select single * from ekko into ls_ekko where ebeln = p_ebeln.
select single * from ekpo into ls_ekpo where ebeln = p_ebeln.
select single * from mseg into ls_mseg where ebeln = p_ebeln and mjahr = '2018'.

ls_itemdata-invoice_doc_item = 1.
ls_itemdata-po_number        = p_ebeln.
ls_itemdata-po_item          = 10.
ls_itemdata-item_amount      = ls_ekpo-netwr.
ls_itemdata-quantity         = ls_ekpo-menge.
ls_itemdata-po_unit          = ls_ekpo-meins..
ls_itemdata-tax_code         = 'J8'.
ls_itemdata-ref_doc          = ls_mseg-mblnr."参考凭证项目
ls_itemdata-ref_doc_year     = ls_mseg-mjahr.
ls_itemdata-ref_doc_it       = ls_mseg-zeile." 参考凭证项目



append ls_itemdata to lt_itemdata.

lv_gross = lv_gross   ls_ekpo-netwr   ls_ekpo-netwr  * 16 / 100.

*&header
clear: ls_headerdata.
ls_headerdata-invoice_ind  = 'X'.
ls_headerdata-doc_date     = sy-datum.
ls_headerdata-pstng_date   = sy-datum.
ls_headerdata-comp_code    = ls_ekko-bukrs..
ls_headerdata-currency     = ls_ekko-waers.
ls_headerdata-calc_tax_ind = 'X'.
ls_headerdata-pmnttrms     = '0001'.
ls_headerdata-item_text    = 'text'.


ls_headerdata-gross_amount = lv_gross.
ls_headerdata-ref_doc_no = 'S600'.
ls_headerdata-alloc_nmbr = 'S600'.


call function 'BAPI_INCOMINGINVOICE_CREATE'
  exporting
    headerdata       = ls_headerdata
  importing
    invoicedocnumber = lv_invoicedocnumber
  tables
    itemdata         = lt_itemdata
    return           = lt_return.

if lv_invoicedocnumber is not initial .
  write lv_invoicedocnumber.

  commit work and wait.
endif.

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值