创建采购发票：要求跟销售发票一致。
FORM fr_miro CHANGING f_fs TYPE ty_out .

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_gross TYPE bapi_rmwwr.
DATA: lv_xsje TYPE bapi_rmwwr.

TYPES: BEGIN OF ty_ekpo,
ebeln TYPE ekko-ebeln,
bukrs TYPE ekko-bukrs,
waers TYPE ekko-waers,

       ebelp  TYPE ekpo-ebelp,netpr  TYPE ekpo-netpr,menge  TYPE ekpo-menge,meins  TYPE ekpo-meins,mblnr  TYPE mseg-mblnr,zeile  TYPE mseg-zeile,mjahr  TYPE mseg-mjahr,bwart  TYPE mseg-bwart,belnr  TYPE re_belnr,msg    TYPE string,            "销售发票retpo  TYPE ekpo-retpo,status TYPE c LENGTH 4,END OF ty_ekpo.

DATA: lt_ekpo TYPE TABLE OF ty_ekpo,
ls_ekpo TYPE ty_ekpo,
ls_ekpotmp TYPE ty_ekpo.

DATA:lt_vbeln TYPE TABLE OF ty_out WITH HEADER LINE.
DATA: lv_index TYPE i,
lv_mseg TYPE string.
DATA: l_vbeln TYPE vbeln,
l_lfpos TYPE lfpos.

DATA:xs_mwsbk TYPE vbrk-mwsbk,
xs_mwsbk_h TYPE vbrk-mwsbk.
DATA: lt_tax TYPE TABLE OF bapi_incinv_create_tax,
ls_tax TYPE bapi_incinv_create_tax.

"校验发票金额。20241029
"跑太快了取不到数
"400毫秒
DO 10000000 TIMES.
ENDDO.

DO 10000 TIMES.
SELECT SINGLE netwr , mwsbk INTO @DATA(l_xsje) FROM vbrk WHERE vbeln = @f_fs-vbeln_vf.
IF sy-subrc = 0.
EXIT.
ENDIF.
ENDDO.

lv_xsje = l_xsje-netwr + l_xsje-mwsbk.

CLEAR lt_ekpo.

SELECTa~ebelna~ebelpa~mblnra~mjahrc~bukrsc~waers

• b~netpr
  

  b~meins
  b~menge
  d~retpo

  INTO CORRESPONDING FIELDS OF TABLE lt_ekpo
  FROM ztsto_04 AS a
  LEFT JOIN ztsto_03 AS b ON a~vgbel = b~vgbel
  LEFT JOIN ekko AS c ON c~ebeln = a~ebeln
  LEFT JOIN ekpo AS d ON d~ebeln = a~ebeln AND d~ebelp = a~ebelp
  WHERE a~vbeln_d = f_fs-vbeln_d.

  CLEAR: l_lfpos, xs_mwsbk,lv_gross.
  LOOP AT lt_ekpo ASSIGNING FIELD-SYMBOL(<fs_fh>) .
  lv_index = lv_index + 1.
  l_lfpos = l_lfpos + 2.
  ls_itemdata-invoice_doc_item = lv_index.
  ls_itemdata-po_number = <fs_fh>-ebeln.
  ls_itemdata-po_item = <fs_fh>-ebelp.
  ls_itemdata-item_amount = <fs_fh>-menge * f_fs-kbetr.

  CALL FUNCTION 'ROUND'EXPORTINGdecimals      = 2input         = ls_itemdata-item_amountsign          = 'X'IMPORTINGoutput        = ls_itemdata-item_amountEXCEPTIONSinput_invalid = 1overflow      = 2type_invalid  = 3OTHERS        = 4.
  IF sy-subrc <> 0.
  

• Implement suitable error handling here
  ENDIF.

  ls_itemdata-quantity         = <fs_fh>-menge.
  ls_itemdata-po_unit          = <fs_fh>-meins..
  ls_itemdata-tax_code         = 'J2'.
  ls_itemdata-ref_doc          = <fs_fh>-mblnr."参考凭证项目
  ls_itemdata-ref_doc_year     = <fs_fh>-mjahr.
  ls_itemdata-ref_doc_it       = l_lfpos." 参考凭证项目
  APPEND ls_itemdata TO lt_itemdata."总税额
  xs_mwsbk          = xs_mwsbk  +  ls_itemdata-item_amount  * 13 / 100..AT END OF ebeln.
  

*&header
CLEAR: ls_headerdata.

    IF <fs_fh>-retpo = 'X'."退货ls_headerdata-invoice_ind  = ''.ls_headerdata-return_posting = 'H'.ELSE.ls_headerdata-invoice_ind  = 'X'.ENDIF.

•  ls_headerdata-invoice_ind  = 'X'.ls_headerdata-doc_date     = sy-datum.ls_headerdata-pstng_date   = sy-datum.ls_headerdata-comp_code    = <fs_fh>-bukrs..ls_headerdata-currency     = <fs_fh>-waers.IF ls_headerdata-comp_code = '2000'.ls_headerdata-bus_area     = '2080'.ELSE.ls_headerdata-bus_area     = '2200'.ENDIF.ls_headerdata-bline_date = sy-datum.  "基准日期ls_headerdata-deliv_posting = 'S'.ls_headerdata-pmnttrms     = '0001'.
  

*ls_headerdata-item_text = ‘text’.

    "税CALL FUNCTION 'ROUND'EXPORTINGdecimals      = 2input         = xs_mwsbksign          = 'X'IMPORTINGoutput        = xs_mwsbkEXCEPTIONSinput_invalid = 1overflow      = 2type_invalid  = 3OTHERS        = 4.IF sy-subrc <> 0.

• Implement suitable error handling here
  ENDIF.

    "税ls_tax-tax_code   =  'J2'.ls_tax-tax_amount =  xs_mwsbk. ".APPEND  ls_tax TO lt_tax.CLEAR   ls_tax."校验税额  采购总税   -   销售税IF xs_mwsbk - l_xsje-mwsbk > 0."税LOOP AT lt_tax ASSIGNING FIELD-SYMBOL(<tax>).<tax>-tax_amount = <tax>-tax_amount - ( xs_mwsbk - l_xsje-mwsbk ).ENDLOOP."金额READ TABLE lt_itemdata  ASSIGNING FIELD-SYMBOL(<lt_data>) INDEX 1.<lt_data>-item_amount = <lt_data>-item_amount + ( xs_mwsbk - l_xsje-mwsbk ).ELSEIF  xs_mwsbk - l_xsje-mwsbk < 0."税LOOP AT lt_tax ASSIGNING FIELD-SYMBOL(<tax2>).<tax2>-tax_amount = <tax2>-tax_amount + ( xs_mwsbk - l_xsje-mwsbk ).ENDLOOP."金额READ TABLE lt_itemdata  ASSIGNING FIELD-SYMBOL(<lt_data2>) INDEX 1.<lt_data2>-item_amount = <lt_data2>-item_amount - ( xs_mwsbk - l_xsje-mwsbk ).ENDIF.ls_headerdata-calc_tax_ind  = ''.   "自动税
  

•    ls_headerdata-gross_amount  = l_xsje-mwsbk.ls_headerdata-gross_amount = lv_xsje.ls_headerdata-ref_doc_no = '123'."参考要啥CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'EXPORTINGheaderdata       = ls_headerdataIMPORTINGinvoicedocnumber = lv_invoicedocnumberTABLEStaxdata          = lt_taxitemdata         = lt_itemdatareturn           = lt_return.IF lv_invoicedocnumber IS NOT INITIAL .CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGwait = 'X'.
  

•    <fs_fh>-msg    = '采购开票完成'.
  

•    <fs_fh>-status = icon_green_light.f_fs-msg =  '开票完成'.f_fs-status =  icon_green_light.CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGinput  = lv_invoicedocnumberIMPORTINGoutput = l_vbeln.f_fs-belnr = l_vbeln.UPDATE ztsto_04 SET vbeln_vf = f_fs-vbeln_vf  kbetr = f_fs-kbetr   belnr = f_fs-belnr  s_msg = f_fs-msg  s_status = f_fs-statusWHERE vbeln_d = f_fs-vbeln_d.IF  sy-subrc = 0.COMMIT WORK.ENDIF.ELSE.CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'
  

•     IMPORTING
  

•       RETURN        =.f_fs-msg    = '开票失败'.f_fs-status = icon_red_light.LOOP AT lt_return INTO ls_return WHERE type = 'E' OR type = 'A' OR type = 'X'.f_fs-msg = f_fs-msg && ',' && ls_return-message.ENDLOOP."失败冲销掉销售发票20241021。。。PERFORM f_xsfpcx CHANGING f_fs.ENDIF.CLEAR:ls_ekpo,lv_gross,lt_itemdata,lv_index,lt_tax,xs_mwsbk.
  ENDAT.
  CLEAR:ls_ekpo,ls_itemdata,ls_ekpotmp.
  

  ENDLOOP.

ENDFORM.