SAP VAT Tax Code ABAP SELECT Generator

REPORT zvat_by_tax_code.

DATA: lv_bukrs TYPE bukrs VALUE '1000',
      lv_kalsm TYPE kalsm_d VALUE 'TAXZA',
      lv_mwskz TYPE mwskz VALUE 'V1',
      lv_from  TYPE budat VALUE '20260901',
      lv_to    TYPE budat VALUE '20260930',
      lv_spras TYPE spras VALUE 'E'.

" Tax code descriptions for the procedure
SELECT kalsm, mwskz, text1
  FROM t007s
  WHERE spras = @lv_spras
    AND kalsm = @lv_kalsm
  INTO TABLE @DATA(lt_codes).

" Tax lines posted in the period for the chosen tax code
SELECT bset~bukrs, bset~belnr, bset~gjahr, bset~buzei,
       bset~mwskz, bset~shkzg, bset~hwbas, bset~hwste,
       bkpf~budat, bkpf~blart
  FROM bset
  INNER JOIN bkpf
    ON  bkpf~bukrs = bset~bukrs
    AND bkpf~belnr = bset~belnr
    AND bkpf~gjahr = bset~gjahr
  WHERE bset~bukrs = @lv_bukrs
    AND bset~mwskz = @lv_mwskz
    AND bkpf~budat BETWEEN @lv_from AND @lv_to
  ORDER BY bkpf~budat, bset~belnr
  INTO TABLE @DATA(lt_vat).

" Summary of base and tax amount by tax code in the period
SELECT bset~mwskz,
       SUM( bset~hwbas ) AS base_amount,
       SUM( bset~hwste ) AS tax_amount
  FROM bset
  INNER JOIN bkpf
    ON  bkpf~bukrs = bset~bukrs
    AND bkpf~belnr = bset~belnr
    AND bkpf~gjahr = bset~gjahr
  WHERE bset~bukrs = @lv_bukrs
    AND bkpf~budat BETWEEN @lv_from AND @lv_to
  GROUP BY bset~mwskz
  ORDER BY bset~mwskz
  INTO TABLE @DATA(lt_totals).

cl_demo_output=>display( lt_totals ).