SAP采购发票税额总额非自动计算。TAX不写行号

创建采购发票：要求跟销售发票一致。
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.

SELECT
 a~ebeln
 a~ebelp
 a~mblnr
 a~mjahr

 c~bukrs
 c~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'
    EXPORTING
      decimals      = 2
      input         = ls_itemdata-item_amount
      sign          = 'X'
    IMPORTING
      output        = ls_itemdata-item_amount
    EXCEPTIONS
      input_invalid = 1
      overflow      = 2
      type_invalid  = 3
      OTHERS        = 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'
      EXPORTING
        decimals      = 2
        input         = xs_mwsbk
        sign          = 'X'
      IMPORTING
        output        = xs_mwsbk
      EXCEPTIONS
        input_invalid = 1
        overflow      = 2
        type_invalid  = 3
        OTHERS        = 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'
      EXPORTING
        headerdata       = ls_headerdata
      IMPORTING
        invoicedocnumber = lv_invoicedocnumber
      TABLES
        taxdata          = lt_tax
        itemdata         = lt_itemdata
        return           = lt_return.
  
    IF lv_invoicedocnumber IS NOT INITIAL .
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = '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'
        EXPORTING
          input  = lv_invoicedocnumber
        IMPORTING
          output = 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-status
       WHERE 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.