Su Template de datos para la gestión de facturas por pagar

*&---------------------------------------------------------------------*
*& Report Z_PM_AP_EXTRACTION
*&---------------------------------------------------------------------*
*& This program extracts Accounts Payable invoice data for process mining.
*& It creates an event log based on key business activities.
*&---------------------------------------------------------------------*
REPORT z_pm_ap_extraction.

*&---------------------------------------------------------------------*
*& Global Data Declarations
*&---------------------------------------------------------------------*
TABLES: bkpf, bseg, lfa1.

TYPES:
  BEGIN OF ty_event_log,
    invoicenumber       TYPE belnr_d,
    activity            TYPE string,
    eventtime           TYPE string,
    processoruser       TYPE uname,
    vendorname          TYPE name1_gp,
    companycode         TYPE bukrs,
    invoicegrossamount  TYPE wrbtr,
    invoiceduedate      TYPE c, "char20
    paymentterms        TYPE char256,
    purchaseordernumber TYPE ebeln,
    paymentblockreason  TYPE char256,
    approver            TYPE uname,
  END OF ty_event_log.

DATA: gt_event_log TYPE TABLE OF ty_event_log.

TYPES:
  BEGIN OF ty_invoice_data,
    bukrs TYPE bkpf-bukrs,
    belnr TYPE bkpf-belnr,
    gjahr TYPE bkpf-gjahr,
    blart TYPE bkpf-blart,
    budat TYPE bkpf-budat,
    cpudt TYPE bkpf-cpudt,
    cputm TYPE bkpf-cputm,
    usnam TYPE bkpf-usnam,
    bstat TYPE bkpf-bstat,
    stblg TYPE bkpf-stblg,
    xblnr TYPE bkpf-xblnr,
    lifnr TYPE bseg-lifnr,
    buzei TYPE bseg-buzei,
    wrbtr TYPE bseg-wrbtr,
    zterm TYPE bseg-zterm,
    zlspr TYPE bseg-zlspr,
    netdt TYPE bseg-netdt,
    ebeln TYPE bseg-ebeln,
    lfbnr TYPE bseg-lfbnr,
    augbl TYPE bseg-augbl,
    augdt TYPE bseg-augdt,
    name1 TYPE lfa1-name1,
  END OF ty_invoice_data.

DATA: gt_invoice_data TYPE TABLE OF ty_invoice_data.

*&---------------------------------------------------------------------*
*& Selection Screen
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: s_budat FOR bkpf-budat OBLIGATORY,  " Posting Date
                    s_bukrs FOR bkpf-bukrs OBLIGATORY,  " Company Code
                    s_blart FOR bkpf-blart.             " Document Type
SELECTION-SCREEN END OF BLOCK b1.

PARAMETERS: p_file TYPE rlgrap-filename OBLIGATORY DEFAULT 'C:\temp\ap_event_log.csv'.

*&---------------------------------------------------------------------*
*& Main Program Logic
*&---------------------------------------------------------------------*
START-OF-SELECTION.

  " 1. Select base invoice data
  SELECT
    h~bukrs, h~belnr, h~gjahr, h~blart, h~budat, h~cpudt, h~cputm, h~usnam,
    h~bstat, h~stblg, h~xblnr, i~lifnr, i~buzei, i~wrbtr, i~zterm, i~zlspr,
    i~netdt, i~ebeln, i~lfbnr, i~augbl, i~augdt, v~name1
    INTO TABLE @gt_invoice_data
    FROM bkpf AS h
    INNER JOIN bseg AS i ON  h~bukrs = i~bukrs
                         AND h~belnr = i~belnr
                         AND h~gjahr = i~gjahr
    INNER JOIN lfa1 AS v ON i~lifnr = v~lifnr
    WHERE h~budat IN @s_budat
      AND h~bukrs IN @s_bukrs
      AND h~blart IN @s_blart
      AND i~koart = 'K'. " Vendor line items only

  CHECK gt_invoice_data IS NOT INITIAL.

  " 2. Process each invoice to generate events
  LOOP AT gt_invoice_data ASSIGNING FIELD-SYMBOL(<fs_invoice>).
    " Generate events for each invoice document/line item
    PERFORM generate_events USING <fs_invoice>.
  ENDLOOP.

  " 3. Generate events from change documents (payment blocks)
  PERFORM generate_change_log_events.

  " 4. Generate events from payment proposal run
  PERFORM generate_payment_proposal_events.

  " 5. Download the final event log
  PERFORM download_event_log.


*&---------------------------------------------------------------------*
*&      Form  GENERATE_EVENTS
*&---------------------------------------------------------------------*
FORM generate_events USING is_invoice TYPE ty_invoice_data.
  DATA: ls_event_log TYPE ty_event_log,
        lv_timestamp TYPE string.

  " Common attributes for all events of this invoice
  ls_event_log-invoicenumber      = is_invoice-belnr.
  ls_event_log-companycode        = is_invoice-bukrs.
  ls_event_log-vendorname         = is_invoice-name1.
  ls_event_log-invoicegrossamount = is_invoice-wrbtr.
  ls_event_log-paymentterms       = is_invoice-zterm.
  ls_event_log-purchaseordernumber= is_invoice-ebeln.

  " Format Due Date
  WRITE is_invoice-netdt TO ls_event_log-invoiceduedate DD/MM/YYYY.

  " Activity: Invoice Document Created
  CONCATENATE is_invoice-cpudt is_invoice-cputm INTO lv_timestamp.
  ls_event_log-activity     = 'Invoice Document Created'.
  ls_event_log-eventtime    = lv_timestamp.
  ls_event_log-processoruser= is_invoice-usnam.
  APPEND ls_event_log TO gt_event_log.

  " Activity: Invoice Parked
  IF is_invoice-bstat = 'V'.
    ls_event_log-activity     = 'Invoice Parked'.
    ls_event_log-eventtime    = lv_timestamp. " Parked at time of creation
    ls_event_log-processoruser= is_invoice-usnam.
    APPEND ls_event_log TO gt_event_log.
  ENDIF.

  " Activity: Invoice Posted
  IF is_invoice-bstat = space.
    CONCATENATE is_invoice-budat '000000' INTO lv_timestamp.
    ls_event_log-activity     = 'Invoice Posted'.
    ls_event_log-eventtime    = lv_timestamp.
    ls_event_log-processoruser= is_invoice-usnam.
    APPEND ls_event_log TO gt_event_log.
  ENDIF.

  " Activity: Purchase Order Matched
  IF is_invoice-ebeln IS NOT INITIAL.
    CONCATENATE is_invoice-cpudt is_invoice-cputm INTO lv_timestamp.
    ls_event_log-activity     = 'Purchase Order Matched'.
    ls_event_log-eventtime    = lv_timestamp.
    ls_event_log-processoruser= is_invoice-usnam.
    APPEND ls_event_log TO gt_event_log.
  ENDIF.

  " Activity: Goods Receipt Matched
  IF is_invoice-lfbnr IS NOT INITIAL.
    CONCATENATE is_invoice-cpudt is_invoice-cputm INTO lv_timestamp.
    ls_event_log-activity     = 'Goods Receipt Matched'.
    ls_event_log-eventtime    = lv_timestamp.
    ls_event_log-processoruser= is_invoice-usnam.
    APPEND ls_event_log TO gt_event_log.
  ENDIF.

  " Activity: Invoice Cleared By Payment
  IF is_invoice-augbl IS NOT INITIAL.
    CONCATENATE is_invoice-augdt '000000' INTO lv_timestamp.
    ls_event_log-activity     = 'Invoice Cleared By Payment'.
    ls_event_log-eventtime    = lv_timestamp.
    " Processor user for clearing is not in this structure, would require another SELECT
    ls_event_log-processoruser = ''.
    APPEND ls_event_log TO gt_event_log.
  ENDIF.

  " Activity: Invoice Reversed
  IF is_invoice-stblg IS NOT INITIAL.
    SELECT SINGLE budat INTO @DATA(lv_rev_date) FROM bkpf
      WHERE belnr = @is_invoice-stblg AND gjahr = @is_invoice-gjahr.
    IF sy-subrc = 0.
      CONCATENATE lv_rev_date '000000' INTO lv_timestamp.
      ls_event_log-activity     = 'Invoice Reversed'.
      ls_event_log-eventtime    = lv_timestamp.
      ls_event_log-processoruser= sy-uname.
      APPEND ls_event_log TO gt_event_log.
    ENDIF.
  ENDIF.

  " Activity: Due Date Passed Without Payment
  IF is_invoice-netdt < sy-datum AND is_invoice-augbl IS INITIAL.
    CONCATENATE is_invoice-netdt '000000' INTO lv_timestamp.
    ls_event_log-activity      = 'Due Date Passed Without Payment'.
    ls_event_log-eventtime     = lv_timestamp.
    ls_event_log-processoruser = 'SYSTEM'.
    APPEND ls_event_log TO gt_event_log.
  ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  GENERATE_CHANGE_LOG_EVENTS
*&---------------------------------------------------------------------*
FORM generate_change_log_events.
  TYPES: BEGIN OF ty_cdpos,
           objectid TYPE cdpos-objectid,
           changenr TYPE cdpos-changenr,
           fname    TYPE cdpos-fname,
           value_new TYPE cdpos-value_new,
           value_old TYPE cdpos-value_old,
         END OF ty_cdpos.

  DATA: lt_cdpos TYPE TABLE OF ty_cdpos,
        lt_cdhdr TYPE TABLE OF cdhdr.

  DATA: ls_event_log TYPE ty_event_log.

  DATA(lt_invoice_range) = VALUE range_belnr_d( FOR wa IN gt_invoice_data ( sign = 'I' option = 'EQ' low = wa-belnr ) ).
  CHECK lt_invoice_range IS NOT INITIAL.

  SELECT objectclas, objectid, changenr, username, udate, utime
    FROM cdhdr
    INTO TABLE @lt_cdhdr
    FOR ALL ENTRIES IN @gt_invoice_data
    WHERE objectclas = 'BELEG'
      AND objectid   = @gt_invoice_data-objectid.
  CHECK sy-subrc = 0.

  SELECT objectid, changenr, fname, value_new, value_old
    FROM cdpos
    INTO TABLE @lt_cdpos
    FOR ALL ENTRIES IN @lt_cdhdr
    WHERE changenr = @lt_cdhdr-changenr
      AND objectid = @lt_cdhdr-objectid
      AND tabname  = 'BSEG'
      AND fname    = 'ZLSPR'.
  CHECK sy-subrc = 0.

  LOOP AT lt_cdpos ASSIGNING FIELD-SYMBOL(<fs_cdpos>).
    READ TABLE lt_cdhdr ASSIGNING FIELD-SYMBOL(<fs_cdhdr>) WITH KEY changenr = <fs_cdpos>-changenr.
    IF sy-subrc <> 0. CONTINUE. ENDIF.

    " Find corresponding invoice data
    DATA(lv_belnr) = <fs_cdhdr>-objectid+10(10).
    READ TABLE gt_invoice_data ASSIGNING FIELD-SYMBOL(<fs_invoice>) WITH KEY belnr = lv_belnr.
    IF sy-subrc <> 0. CONTINUE. ENDIF.

    " Populate common event data
    ls_event_log-invoicenumber       = <fs_invoice>-belnr.
    ls_event_log-companycode         = <fs_invoice>-bukrs.
    ls_event_log-vendorname          = <fs_invoice>-name1.
    ls_event_log-invoicegrossamount  = <fs_invoice>-wrbtr.
    ls_event_log-purchaseordernumber = <fs_invoice>-ebeln.
    ls_event_log-processoruser       = <fs_cdhdr>-username.

    CONCATENATE <fs_cdhdr>-udate <fs_cdhdr>-utime INTO ls_event_log-eventtime.

    " Activity: Payment Block Set
    IF <fs_cdpos>-value_new IS NOT INITIAL.
      ls_event_log-activity           = 'Payment Block Set'.
      ls_event_log-paymentblockreason = <fs_cdpos>-value_new.
      APPEND ls_event_log TO gt_event_log.
    ENDIF.

    " Activity: Payment Block Removed
    IF <fs_cdpos>-value_new IS INITIAL AND <fs_cdpos>-value_old IS NOT INITIAL.
      ls_event_log-activity           = 'Payment Block Removed'.
      ls_event_log-paymentblockreason = <fs_cdpos>-value_old.
      APPEND ls_event_log TO gt_event_log.

      " INFERRED Activity: Invoice Approved
      " Assumption: Removing a specific block (e.g., 'A' for Approval) means approval.
      IF <fs_cdpos>-value_old = '[Your Approval Block Reason]'. " E.g., 'A'
        ls_event_log-activity           = 'Invoice Approved'.
        ls_event_log-approver           = <fs_cdhdr>-username.
        APPEND ls_event_log TO gt_event_log.
      ENDIF.
    ENDIF.

    " INFERRED Activity: Invoice Routed For Approval
    " Assumption: Setting a specific block (e.g., 'A' for Approval) means routed for approval.
    IF <fs_cdpos>-value_new = '[Your Approval Block Reason]'. " E.g., 'A'
      ls_event_log-activity           = 'Invoice Routed For Approval'.
      ls_event_log-approver           = ''.
      APPEND ls_event_log TO gt_event_log.
    ENDIF.

  ENDLOOP.
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  GENERATE_PAYMENT_PROPOSAL_EVENTS
*&---------------------------------------------------------------------*
FORM generate_payment_proposal_events.
  DATA: lt_regup TYPE TABLE OF regup,
        ls_reguh TYPE reguh.
  DATA: ls_event_log TYPE ty_event_log.

  SELECT * FROM regup INTO TABLE @lt_regup
    FOR ALL ENTRIES IN @gt_invoice_data
    WHERE bukrs = @gt_invoice_data-bukrs
      AND belnr = @gt_invoice_data-belnr
      AND gjahr = @gt_invoice_data-gjahr.
  CHECK sy-subrc = 0.

  LOOP AT lt_regup ASSIGNING FIELD-SYMBOL(<fs_regup>).
    READ TABLE gt_invoice_data ASSIGNING FIELD-SYMBOL(<fs_invoice>) WITH KEY belnr = <fs_regup>-belnr.
    IF sy-subrc <> 0. CONTINUE. ENDIF.

    SELECT SINGLE * FROM reguh INTO @ls_reguh
      WHERE rundat = @<fs_regup>-rundat AND runid = @<fs_regup>-runid.
    IF sy-subrc <> 0. CONTINUE. ENDIF.

    ls_event_log-invoicenumber      = <fs_invoice>-belnr.
    ls_event_log-companycode        = <fs_invoice>-bukrs.
    ls_event_log-vendorname         = <fs_invoice>-name1.
    ls_event_log-invoicegrossamount = <fs_invoice>-wrbtr.
    ls_event_log-processoruser      = ls_reguh-usnam.
    ls_event_log-activity           = 'Payment Proposal Created'.

    CONCATENATE ls_reguh-rundat '000000' INTO ls_event_log-eventtime.
    APPEND ls_event_log TO gt_event_log.
  ENDLOOP.
ENDFORM.

*&---------------------------------------------------------------------*
*&      Form  DOWNLOAD_EVENT_LOG
*&---------------------------------------------------------------------*
FORM download_event_log.
  DATA: lt_final_output TYPE TABLE OF string,
        l_header        TYPE string.

  SORT gt_event_log BY invoicenumber eventtime.

  " Create Header
  l_header = `"InvoiceNumber","Activity","EventTime","ProcessorUser","VendorName","CompanyCode","InvoiceGrossAmount","InvoiceDueDate","PaymentTerms","PurchaseOrderNumber","PaymentBlockReason","Approver"`.
  APPEND l_header TO lt_final_output.

  " Create Data Rows
  LOOP AT gt_event_log ASSIGNING FIELD-SYMBOL(<fs_log>).
    DATA(l_line) = |"{ <fs_log>-invoicenumber }","{
                     <fs_log>-activity }","{
                     <fs_log>-eventtime }","{
                     <fs_log>-processoruser }","{
                     <fs_log>-vendorname }","{
                     <fs_log>-companycode }","{
                     <fs_log>-invoicegrossamount }","{
                     <fs_log>-invoiceduedate }","{
                     <fs_log>-paymentterms }","{
                     <fs_log>-purchaseordernumber }","{
                     <fs_log>-paymentblockreason }","{
                     <fs_log>-approver }"|.
    APPEND l_line TO lt_final_output.
  ENDLOOP.

  " Download file to presentation server
  cl_gui_frontend_services=>gui_download(
    EXPORTING
      filename = p_file
      filetype = 'ASC'
    CHANGING
      data_tab = lt_final_output
    EXCEPTIONS
      OTHERS   = 4 ).

  IF sy-subrc <> 0.
    MESSAGE 'File download failed.' TYPE 'E'.
  ELSE.
    MESSAGE |File '{ p_file }' downloaded successfully.| TYPE 'I'.
  ENDIF.
ENDFORM.

WITH BaseInvoices AS (
  SELECT
    BKPF.MANDT,
    BKPF.BUKRS,
    BKPF.BELNR,
    BKPF.GJAHR,
    CONCAT(CONCAT(CONCAT(BKPF.BUKRS, '-'), BKPF.BELNR), BKPF.GJAHR) AS InvoiceNumber,
    BKPF.CPUDT AS CreationDate,
    BKPF.CPUTM AS CreationTime,
    BKPF.USNAM AS CreatorUser,
    BKPF.BSTAT AS DocStatus,
    BKPF.STBLG AS ReversalDoc,
    BKPF.STGRD AS ReversalDate
  FROM BKPF
  WHERE
    BKPF.BUKRS IN ('{CompanyCodes}') -- E.g., '1000', '2000'
    AND BKPF.BLART IN ('{DocTypes}') -- E.g., 'KR', 'RE'
    AND BKPF.CPUDT BETWEEN '{StartDate}' AND '{EndDate}' -- E.g., '20230101' AND '20231231'
),
InvoiceVendorLines AS (
  SELECT
    BSEG.MANDT, BSEG.BUKRS, BSEG.BELNR, BSEG.GJAHR,
    MAX(BSEG.LIFNR) AS VendorNumber,
    MAX(BSEG.ZFBDT) AS DueDate,
    MAX(BSEG.ZTERM) AS PaymentTerms,
    MAX(BSEG.ZLSPR) AS PaymentBlockReason,
    SUM(CASE WHEN BSEG.SHKZG = 'S' THEN BSEG.WRBTR ELSE -BSEG.WRBTR END) AS InvoiceGrossAmount,
    MAX(BSEG.EBELN) AS PurchaseOrderNumber,
    MAX(BSEG.AUGDT) AS ClearingDate,
    MAX(AUGBL) AS ClearingDoc
  FROM BSEG
  INNER JOIN BaseInvoices ON BSEG.MANDT = BaseInvoices.MANDT
    AND BSEG.BUKRS = BaseInvoices.BUKRS
    AND BSEG.BELNR = BaseInvoices.BELNR
    AND BSEG.GJAHR = BaseInvoices.GJAHR
  WHERE BSEG.KOART = 'K' -- Filter for Vendor line items
  GROUP BY BSEG.MANDT, BSEG.BUKRS, BSEG.BELNR, BSEG.GJAHR
)
-- 1. Invoice Document Created
SELECT
  bi.InvoiceNumber AS "InvoiceNumber",
  'Invoice Document Created' AS "Activity",
  TO_TIMESTAMP(CONCAT(bi.CreationDate, bi.CreationTime), 'YYYYMMDDHH24MISS') AS "EventTime",
  bi.CreatorUser AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR

UNION ALL

-- 2. Invoice Parked
SELECT
  bi.InvoiceNumber,
  'Invoice Parked' AS "Activity",
  TO_TIMESTAMP(CONCAT(bi.CreationDate, bi.CreationTime), 'YYYYMMDDHH24MISS') AS "EventTime",
  bi.CreatorUser AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE bi.DocStatus = 'V'

UNION ALL

-- 3. Purchase Order Matched & 4. Goods Receipt Matched (Inferred at creation)
SELECT
  bi.InvoiceNumber,
  CASE WHEN ivl.PurchaseOrderNumber IS NOT NULL THEN 'Purchase Order Matched' ELSE 'Goods Receipt Matched' END AS "Activity",
  TO_TIMESTAMP(CONCAT(bi.CreationDate, bi.CreationTime), 'YYYYMMDDHH24MISS') AS "EventTime",
  bi.CreatorUser AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE ivl.PurchaseOrderNumber IS NOT NULL -- Simplified logic: If PO exists, we assume match for both.

UNION ALL

-- 5. Payment Block Set & 6. Invoice Routed For Approval (Proxy) & 8. Payment Block Removed
SELECT
  bi.InvoiceNumber,
  CASE 
    WHEN pos.VALUE_OLD = ' ' AND pos.VALUE_NEW != ' ' AND pos.VALUE_NEW = 'A' THEN 'Invoice Routed For Approval'
    WHEN pos.VALUE_OLD = ' ' AND pos.VALUE_NEW != ' ' THEN 'Payment Block Set'
    ELSE 'Payment Block Removed' 
  END AS "Activity",
  TO_TIMESTAMP(CONCAT(hdr.UDATE, hdr.UTIME), 'YYYYMMDDHH24MISS') AS "EventTime",
  hdr.USERNAME AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  pos.VALUE_NEW AS "PaymentBlockReason",
  NULL AS "Approver"
FROM CDHDR hdr
JOIN CDPOS pos ON hdr.MANDANT = pos.MANDANT AND hdr.OBJECTCLAS = pos.OBJECTCLAS AND hdr.OBJECTID = pos.OBJECTID AND hdr.CHANGENR = pos.CHANGENR
JOIN BaseInvoices bi ON hdr.MANDANT = bi.MANDT AND hdr.OBJECTID = CONCAT(bi.BUKRS, bi.BELNR, bi.GJAHR)
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE hdr.OBJECTCLAS = 'BELEG' AND pos.TABNAME = 'BSEG' AND pos.FNAME = 'ZLSPR' AND pos.VALUE_NEW != pos.VALUE_OLD

UNION ALL

-- 7. Invoice Approved (Proxy by removal of 'A' block)
SELECT
  bi.InvoiceNumber,
  'Invoice Approved' AS "Activity",
  TO_TIMESTAMP(CONCAT(hdr.UDATE, hdr.UTIME), 'YYYYMMDDHH24MISS') AS "EventTime",
  hdr.USERNAME AS "ProcessorUser", -- This user is the approver
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  pos.VALUE_NEW AS "PaymentBlockReason",
  hdr.USERNAME AS "Approver"
FROM CDHDR hdr
JOIN CDPOS pos ON hdr.MANDANT = pos.MANDANT AND hdr.OBJECTCLAS = pos.OBJECTCLAS AND hdr.OBJECTID = pos.OBJECTID AND hdr.CHANGENR = pos.CHANGENR
JOIN BaseInvoices bi ON hdr.MANDANT = bi.MANDT AND hdr.OBJECTID = CONCAT(bi.BUKRS, bi.BELNR, bi.GJAHR)
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE hdr.OBJECTCLAS = 'BELEG' AND pos.TABNAME = 'BSEG' AND pos.FNAME = 'ZLSPR' AND pos.VALUE_OLD = 'A' AND pos.VALUE_NEW = ' '

UNION ALL

-- 9. Invoice Posted
SELECT
  bi.InvoiceNumber,
  'Invoice Posted' AS "Activity",
  CASE -- If posted from parked, use change date. If posted directly, use creation date.
    WHEN chg.EventTime IS NOT NULL THEN chg.EventTime
    ELSE TO_TIMESTAMP(CONCAT(bi.CreationDate, bi.CreationTime), 'YYYYMMDDHH24MISS')
  END AS "EventTime",
  CASE
    WHEN chg.USERNAME IS NOT NULL THEN chg.USERNAME
    ELSE bi.CreatorUser
  END AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
LEFT JOIN (
    SELECT hdr.MANDANT, hdr.OBJECTID, hdr.USERNAME, TO_TIMESTAMP(CONCAT(hdr.UDATE, hdr.UTIME), 'YYYYMMDDHH24MISS') AS EventTime
    FROM CDHDR hdr JOIN CDPOS pos ON hdr.CHANGENR = pos.CHANGENR AND hdr.OBJECTID = pos.OBJECTID
    WHERE hdr.OBJECTCLAS = 'BELEG' AND pos.TABNAME = 'BKPF' AND pos.FNAME = 'BSTAT' AND pos.VALUE_OLD = 'V' AND pos.VALUE_NEW = ' '
) chg ON bi.MANDT = chg.MANDANT AND CONCAT(bi.BUKRS, bi.BELNR, bi.GJAHR) = chg.OBJECTID
WHERE bi.DocStatus != 'V' -- Only include documents that are currently posted

UNION ALL

-- 10. Due Date Passed Without Payment
SELECT
  bi.InvoiceNumber,
  'Due Date Passed Without Payment' AS "Activity",
  TO_TIMESTAMP(ivl.DueDate, 'YYYYMMDD') AS "EventTime",
  'System' AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE ivl.ClearingDoc IS NULL AND ivl.DueDate < CURRENT_DATE

UNION ALL

-- 11. Payment Proposal Created
SELECT DISTINCT
  bi.InvoiceNumber,
  'Payment Proposal Created' AS "Activity",
  TO_TIMESTAMP(CONCAT(reguh.LAUFD, '000000'), 'YYYYMMDDHH24MISS') AS "EventTime", -- Time is not available in REGUH
  reguh.USNAM AS "ProcessorUser",
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
JOIN REGUP ON ivl.MANDT = REGUP.MANDT AND ivl.BUKRS = REGUP.BUKRS AND ivl.BELNR = REGUP.BELNR AND ivl.GJAHR = REGUP.GJAHR
JOIN REGUH ON REGUP.MANDT = REGUH.MANDT AND REGUP.LAUFD = REGUH.LAUFD AND REGUP.LAUFI = REGUH.LAUFI AND REGUP.XVORL = REGUH.XVORL AND REGUP.ZBUKR = REGUH.ZBUKR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR

UNION ALL

-- 12. Invoice Cleared By Payment
SELECT
  bi.InvoiceNumber,
  'Invoice Cleared By Payment' AS "Activity",
  TO_TIMESTAMP(ivl.ClearingDate, 'YYYYMMDD') AS "EventTime",
  NULL AS "ProcessorUser", -- Clearing user is not on the vendor line
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  ivl.PaymentBlockReason AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE ivl.ClearingDoc IS NOT NULL

UNION ALL

-- 13. Invoice Reversed
SELECT
  bi.InvoiceNumber,
  'Invoice Reversed' AS "Activity",
  TO_TIMESTAMP(bi.ReversalDate, 'YYYYMMDD') AS "EventTime",
  NULL AS "ProcessorUser", -- Reversal user not in BKPF, would require another join
  vend.Name1 AS "VendorName",
  bi.BUKRS AS "CompanyCode",
  ivl.InvoiceGrossAmount AS "InvoiceGrossAmount",
  ivl.DueDate AS "InvoiceDueDate",
  ivl.PaymentTerms AS "PaymentTerms",
  ivl.PurchaseOrderNumber AS "PurchaseOrderNumber",
  NULL AS "PaymentBlockReason",
  NULL AS "Approver"
FROM BaseInvoices bi
JOIN InvoiceVendorLines ivl ON bi.MANDT = ivl.MANDT AND bi.BUKRS = ivl.BUKRS AND bi.BELNR = ivl.BELNR AND bi.GJAHR = ivl.GJAHR
LEFT JOIN LFA1 vend ON ivl.MANDT = vend.MANDT AND ivl.VendorNumber = vend.LIFNR
WHERE bi.ReversalDoc IS NOT NULL;

import pandas as pd
from pyrfc import Connection
from datetime import datetime

class=class="hl-string">"hl-comment"># --- 1. SETTINGS & PARAMETERS ---

class=class="hl-string">"hl-comment"># SAP Connection Details (replace with your system's details)
sap_conn_params = {
    class="hl-string">"user": class="hl-string">"[SAP_USER]",
    class="hl-string">"passwd": class="hl-string">"[SAP_PASSWORD]",
    class="hl-string">"ashost": class="hl-string">"[SAP_HOST]",
    class="hl-string">"sysnr": class="hl-string">"[SYSTEM_NUMBER]",
    class="hl-string">"client": class="hl-string">"[CLIENT]"
}

class=class="hl-string">"hl-comment"># Extraction Parameters
company_codes = [class="hl-string">'[YOUR_COMPANY_CODE_1]', class="hl-string">'[YOUR_COMPANY_CODE_2]']
date_range = {
    class="hl-string">"start_date": class="hl-string">"20230101", class=class="hl-string">"hl-comment"># YYYYMMDD
    class="hl-string">"end_date": class="hl-string">"20231231"    class=class="hl-string">"hl-comment"># YYYYMMDD
}

class=class="hl-string">"hl-comment"># --- 2. HELPER FUNCTION TO READ SAP TABLE ---
def read_sap_table(conn, table_name, fields=[], options=[], row_count=0):
    class="hl-string">"""Reads an SAP table using RFC_READ_TABLE and returns a pandas DataFrame."""
    try:
        result = conn.call(class="hl-string">'RFC_READ_TABLE',
                             QUERY_TABLE=table_name,
                             DELIMITER=class="hl-string">'|',
                             FIELDS=fields,
                             OPTIONS=options,
                             ROWCOUNT=row_count)
        
        data = result[class="hl-string">'DATA']
        if not data:
            return pd.DataFrame(columns=[f[class="hl-string">'FIELDNAME'] for f in result[class="hl-string">'FIELDS']])

        df = pd.DataFrame([row[class="hl-string">'WA'].split(class="hl-string">'|') for row in data])
        df.columns = [f[class="hl-string">'FIELDNAME'] for f in result[class="hl-string">'FIELDS']]
        return df
    except Exception as e:
        print(fclass="hl-string">"Error reading table {table_name}: {e}")
        return pd.DataFrame(columns=[f[class="hl-string">'FIELDNAME'] for f in fields])

class=class="hl-string">"hl-comment"># --- 3. DATA EXTRACTION ---
print(class="hl-string">"Starting SAP data extraction...")

with Connection(**sap_conn_params) as conn:
    class=class="hl-string">"hl-comment"># Define filters
    company_code_filter = class="hl-string">" OR ".join([fclass="hl-string">"BUKRS = '{cc}'" for cc in company_codes])
    date_filter = fclass="hl-string">"CPUDT >= '{date_range['start_date']}' AND CPUDT <= '{date_range['end_date']}'"
    bkpf_filter = [fclass="hl-string">"({company_code_filter}) AND ({date_filter})"]

    class=class="hl-string">"hl-comment"># Extract main tables
    df_bkpf = read_sap_table(conn, class="hl-string">'BKPF', fields=[class="hl-string">'MANDT', class="hl-string">'BUKRS', class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BLART', class="hl-string">'BUDAT', class="hl-string">'CPUDT', class="hl-string">'CPUTM', class="hl-string">'USNAM', class="hl-string">'TCODE', class="hl-string">'STBLG', class="hl-string">'BSTAT'], options=bkpf_filter)
    df_bkpf[class="hl-string">'AWKEY'] = df_bkpf[class="hl-string">'BELNR'] + df_bkpf[class="hl-string">'GJAHR']
    df_bkpf[class="hl-string">'OBJECTKEY'] = df_bkpf[class="hl-string">'MANDT'] + df_bkpf[class="hl-string">'BUKRS'] + df_bkpf[class="hl-string">'BELNR'] + df_bkpf[class="hl-string">'GJAHR']
    doc_keys = df_bkpf[[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS']].drop_duplicates().to_dict(class="hl-string">'records')
    bseg_filter = class="hl-string">" OR ".join([fclass="hl-string">"(BELNR = '{k['BELNR']}' AND GJAHR = '{k['GJAHR']}' AND BUKRS = '{k['BUKRS']}')" for k in doc_keys])
    df_bseg = read_sap_table(conn, class="hl-string">'BSEG', fields=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS', class="hl-string">'BUZEI', class="hl-string">'LIFNR', class="hl-string">'ZFBDT', class="hl-string">'ZTERM', class="hl-string">'ZLSPR', class="hl-string">'WRBTR'])

    class=class="hl-string">"hl-comment"># Extract more tables based on findings
    rseg_filter = [fclass="hl-string">"BELNR IN ({','.join(df_bkpf['BELNR'].unique())}) AND GJAHR IN ({','.join(df_bkpf['GJAHR'].unique())})"]
    df_rseg = read_sap_table(conn, class="hl-string">'RSEG', fields=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'EBELN', class="hl-string">'EBELP', class="hl-string">'LFBNR'])
    
    vendor_numbers = df_bseg[class="hl-string">'LIFNR'].dropna().unique()
    lfa1_filter = [fclass="hl-string">"LIFNR IN ({','.join(vendor_numbers)})"]
    df_lfa1 = read_sap_table(conn, class="hl-string">'LFA1', fields=[class="hl-string">'LIFNR', class="hl-string">'NAME1'])

    class=class="hl-string">"hl-comment"># Change Documents (CDHDR/CDPOS) for Payment Blocks
    cdhdr_filter = [fclass="hl-string">"OBJECTCLAS = 'BELEGV' AND OBJECTID IN ({','.join(df_bkpf['OBJECTKEY'].unique())}) AND TCODE = 'FB02'"]
    df_cdhdr = read_sap_table(conn, class="hl-string">'CDHDR', fields=[class="hl-string">'OBJECTCLAS', class="hl-string">'OBJECTID', class="hl-string">'CHANGENR', class="hl-string">'USERNAME', class="hl-string">'UDATE', class="hl-string">'UTIME'])
    cdpos_filter = [fclass="hl-string">"OBJECTCLAS = 'BELEGV' AND FNAME = 'ZLSPR' AND TABNAME = 'BSEG' AND CHANGENR IN ({','.join(df_cdhdr['CHANGENR'].unique())})"]
    df_cdpos = read_sap_table(conn, class="hl-string">'CDPOS', fields=[class="hl-string">'CHANGENR', class="hl-string">'TABKEY', class="hl-string">'FNAME', class="hl-string">'VALUE_NEW', class="hl-string">'VALUE_OLD'])
    
    class=class="hl-string">"hl-comment"># Cleared Items
    bsak_filter = class="hl-string">" OR ".join([fclass="hl-string">"(BELNR = '{k['BELNR']}' AND GJAHR = '{k['GJAHR']}' AND BUKRS = '{k['BUKRS']}')" for k in doc_keys])
    df_bsak = read_sap_table(conn, class="hl-string">'BSAK', fields=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS', class="hl-string">'AUGDT', class="hl-string">'AUGBL'])

    class=class="hl-string">"hl-comment"># Payment Proposal
    regup_filter = class="hl-string">" OR ".join([fclass="hl-string">"(VBLNR = '{k['BELNR']}' AND GJAHR = '{k['GJAHR']}' AND BUKRS = '{k['BUKRS']}')" for k in doc_keys])
    df_regup = read_sap_table(conn, class="hl-string">'REGUP', fields=[class="hl-string">'LAUFD', class="hl-string">'LAUFI', class="hl-string">'VBLNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS'])
    reguh_filter = [fclass="hl-string">"LAUFD IN ({','.join(df_regup['LAUFD'].unique())}) AND LAUFI IN ({','.join(df_regup['LAUFI'].unique())})"]
    df_reguh = read_sap_table(conn, class="hl-string">'REGUH', fields=[class="hl-string">'LAUFD', class="hl-string">'LAUFI', class="hl-string">'VBLNR'])


print(class="hl-string">"Extraction complete. Starting data transformation...")

class=class="hl-string">"hl-comment"># --- 4. DATA TRANSFORMATION & JOINING ---
class=class="hl-string">"hl-comment"># Merge core invoice data
df_inv = pd.merge(df_bkpf, df_bseg.loc[df_bseg[class="hl-string">'LIFNR'].notna()], on=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS'])
df_inv = pd.merge(df_inv, df_lfa1, on=class="hl-string">'LIFNR', how=class="hl-string">'left')
df_inv = pd.merge(df_inv, df_rseg, on=[class="hl-string">'BELNR', class="hl-string">'GJAHR'], how=class="hl-string">'left')

class=class="hl-string">"hl-comment"># --- 5. EVENT LOG CREATION ---
all_events = []

class=class="hl-string">"hl-comment"># Invoice Document Created
df_created = df_inv.copy()
df_created[class="hl-string">'Activity'] = class="hl-string">'Invoice Document Created'
df_created[class="hl-string">'EventTime'] = pd.to_datetime(df_created[class="hl-string">'CPUDT'] + df_created[class="hl-string">'CPUTM'], format=class="hl-string">'%Y%m%d%H%M%S')
all_events.append(df_created)

class=class="hl-string">"hl-comment"># Invoice Parked
df_parked = df_inv[df_inv[class="hl-string">'BSTAT'] == class="hl-string">'V'].copy()
df_parked[class="hl-string">'Activity'] = class="hl-string">'Invoice Parked'
df_parked[class="hl-string">'EventTime'] = pd.to_datetime(df_parked[class="hl-string">'CPUDT'] + df_parked[class="hl-string">'CPUTM'], format=class="hl-string">'%Y%m%d%H%M%S')
all_events.append(df_parked)

class=class="hl-string">"hl-comment"># Purchase Order Matched
df_po_match = df_inv[df_inv[class="hl-string">'EBELN'].notna()].copy()
df_po_match[class="hl-string">'Activity'] = class="hl-string">'Purchase Order Matched'
df_po_match[class="hl-string">'EventTime'] = pd.to_datetime(df_po_match[class="hl-string">'CPUDT'] + df_po_match[class="hl-string">'CPUTM'], format=class="hl-string">'%Y%m%d%H%M%S')
all_events.append(df_po_match)

class=class="hl-string">"hl-comment"># Goods Receipt Matched
df_gr_match = df_inv[df_inv[class="hl-string">'LFBNR'].notna()].copy()
df_gr_match[class="hl-string">'Activity'] = class="hl-string">'Goods Receipt Matched'
df_gr_match[class="hl-string">'EventTime'] = pd.to_datetime(df_gr_match[class="hl-string">'CPUDT'] + df_gr_match[class="hl-string">'CPUTM'], format=class="hl-string">'%Y%m%d%H%M%S')
all_events.append(df_gr_match)

class=class="hl-string">"hl-comment"># Payment Block Set & Removed (from change logs)
if not df_cdhdr.empty and not df_cdpos.empty:
    df_changes = pd.merge(df_cdhdr, df_cdpos, on=class="hl-string">'CHANGENR')
    df_changes[class="hl-string">'BELNR'] = df_changes[class="hl-string">'OBJECTID'].str[7:17]
    df_changes[class="hl-string">'GJAHR'] = df_changes[class="hl-string">'OBJECTID'].str[17:21]
    df_changes[class="hl-string">'BUKRS'] = df_changes[class="hl-string">'OBJECTID'].str[3:7]
    df_changes = pd.merge(df_changes, df_inv[[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS']].drop_duplicates(), on=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS'])
    
    df_block_set = df_changes[df_changes[class="hl-string">'VALUE_NEW'].str.strip() != class="hl-string">''].copy()
    df_block_set[class="hl-string">'Activity'] = class="hl-string">'Payment Block Set'
    df_block_set[class="hl-string">'EventTime'] = pd.to_datetime(df_block_set[class="hl-string">'UDATE'] + df_block_set[class="hl-string">'UTIME'], format=class="hl-string">'%Y%m%d%H%M%S')
    df_block_set.rename(columns={class="hl-string">'VALUE_NEW': class="hl-string">'PaymentBlockReason', class="hl-string">'USERNAME': class="hl-string">'ProcessorUser'}, inplace=True)
    all_events.append(df_block_set)

    df_block_removed = df_changes[df_changes[class="hl-string">'VALUE_OLD'].str.strip() != class="hl-string">''].copy()
    df_block_removed[class="hl-string">'Activity'] = class="hl-string">'Payment Block Removed'
    df_block_removed[class="hl-string">'EventTime'] = pd.to_datetime(df_block_removed[class="hl-string">'UDATE'] + df_block_removed[class="hl-string">'UTIME'], format=class="hl-string">'%Y%m%d%H%M%S')
    df_block_removed.rename(columns={class="hl-string">'VALUE_OLD': class="hl-string">'PaymentBlockReason', class="hl-string">'USERNAME': class="hl-string">'ProcessorUser'}, inplace=True)
    all_events.append(df_block_removed)

    class=class="hl-string">"hl-comment"># Invoice Routed For Approval & Approved (inferred from blocks)
    class=class="hl-string">"hl-comment"># Assumption: A specific block reason, e.g., class="hl-string">'A', signifies approval workflow.
    df_routed = df_block_set[df_block_set[class="hl-string">'PaymentBlockReason'].str.strip() == class="hl-string">'[A]'].copy()
    df_routed[class="hl-string">'Activity'] = class="hl-string">'Invoice Routed For Approval'
    all_events.append(df_routed)

    df_approved = df_block_removed[df_block_removed[class="hl-string">'PaymentBlockReason'].str.strip() == class="hl-string">'[A]'].copy()
    df_approved[class="hl-string">'Activity'] = class="hl-string">'Invoice Approved'
    df_approved[class="hl-string">'Approver'] = df_approved[class="hl-string">'ProcessorUser']
    all_events.append(df_approved)

class=class="hl-string">"hl-comment"># Invoice Posted
df_posted = df_inv[df_inv[class="hl-string">'BSTAT'] != class="hl-string">'V'].copy()
df_posted[class="hl-string">'Activity'] = class="hl-string">'Invoice Posted'
df_posted[class="hl-string">'EventTime'] = pd.to_datetime(df_posted[class="hl-string">'BUDAT'], format=class="hl-string">'%Y%m%d')
all_events.append(df_posted)

class=class="hl-string">"hl-comment"># Invoice Cleared By Payment
if not df_bsak.empty:
    df_cleared = pd.merge(df_inv, df_bsak[df_bsak[class="hl-string">'AUGDT'] != class="hl-string">'00000000'], on=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS'])
    df_cleared[class="hl-string">'Activity'] = class="hl-string">'Invoice Cleared By Payment'
    df_cleared[class="hl-string">'EventTime'] = pd.to_datetime(df_cleared[class="hl-string">'AUGDT'], format=class="hl-string">'%Y%m%d')
    all_events.append(df_cleared)

class=class="hl-string">"hl-comment"># Invoice Reversed
df_reversed = df_inv[df_inv[class="hl-string">'STBLG'].notna() & (df_inv[class="hl-string">'STBLG'] != class="hl-string">'')].copy()
if not df_reversed.empty:
    reversal_docs = pd.merge(df_reversed, df_bkpf[[class="hl-string">'BELNR', class="hl-string">'BUDAT']], left_on=class="hl-string">'STBLG', right_on=class="hl-string">'BELNR', suffixes=(class="hl-string">'', class="hl-string">'_rev'))
    reversal_docs[class="hl-string">'Activity'] = class="hl-string">'Invoice Reversed'
    reversal_docs[class="hl-string">'EventTime'] = pd.to_datetime(reversal_docs[class="hl-string">'BUDAT_rev'], format=class="hl-string">'%Y%m%d')
    all_events.append(reversal_docs)

class=class="hl-string">"hl-comment"># Payment Proposal Created
if not df_regup.empty and not df_reguh.empty:
    df_proposal = pd.merge(df_regup, df_reguh, on=[class="hl-string">'LAUFD', class="hl-string">'LAUFI'])
    df_proposal = pd.merge(df_proposal, df_inv, left_on=[class="hl-string">'VBLNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS'], right_on=[class="hl-string">'BELNR', class="hl-string">'GJAHR', class="hl-string">'BUKRS'])
    df_proposal[class="hl-string">'Activity'] = class="hl-string">'Payment Proposal Created'
    df_proposal[class="hl-string">'EventTime'] = pd.to_datetime(df_proposal[class="hl-string">'LAUFD'], format=class="hl-string">'%Y%m%d')
    all_events.append(df_proposal)

class=class="hl-string">"hl-comment"># Due Date Passed Without Payment (Calculated)
if not df_bsak.empty:
    cleared_keys = df_bsak[class="hl-string">'BELNR'] + df_bsak[class="hl-string">'GJAHR'] + df_bsak[class="hl-string">'BUKRS']
    df_open = df_inv[~(df_inv[class="hl-string">'BELNR'] + df_inv[class="hl-string">'GJAHR'] + df_inv[class="hl-string">'BUKRS']).isin(cleared_keys)].copy()
    df_open[class="hl-string">'DueDate'] = pd.to_datetime(df_open[class="hl-string">'ZFBDT'], format=class="hl-string">'%Y%m%d', errors=class="hl-string">'coerce')
    df_overdue = df_open[(df_open[class="hl-string">'DueDate'] < datetime.now()) & (df_open[class="hl-string">'DueDate'].notna())].copy()
    if not df_overdue.empty:
        df_overdue[class="hl-string">'Activity'] = class="hl-string">'Due Date Passed Without Payment'
        df_overdue[class="hl-string">'EventTime'] = df_overdue[class="hl-string">'DueDate']
        all_events.append(df_overdue)

class=class="hl-string">"hl-comment"># --- 6. FINAL ASSEMBLY & EXPORT ---
print(class="hl-string">"Assembling final event log...")

df_event_log = pd.concat(all_events, ignore_index=True, sort=False)

class=class="hl-string">"hl-comment"># Rename and select columns
column_mapping = {
    class="hl-string">'BELNR': class="hl-string">'InvoiceNumber',
    class="hl-string">'USNAM': class="hl-string">'ProcessorUser',
    class="hl-string">'NAME1': class="hl-string">'VendorName',
    class="hl-string">'BUKRS': class="hl-string">'CompanyCode',
    class="hl-string">'WRBTR': class="hl-string">'InvoiceGrossAmount',
    class="hl-string">'ZFBDT': class="hl-string">'InvoiceDueDate',
    class="hl-string">'ZTERM': class="hl-string">'PaymentTerms',
    class="hl-string">'EBELN': class="hl-string">'PurchaseOrderNumber',
    class="hl-string">'ZLSPR': class="hl-string">'PaymentBlockReason'
}
df_event_log.rename(columns=column_mapping, inplace=True)

class=class="hl-string">"hl-comment"># Ensure required columns exist
final_cols = [
    class="hl-string">'InvoiceNumber', class="hl-string">'Activity', class="hl-string">'EventTime', class="hl-string">'ProcessorUser', class="hl-string">'VendorName', 
    class="hl-string">'CompanyCode', class="hl-string">'InvoiceGrossAmount', class="hl-string">'InvoiceDueDate', class="hl-string">'PaymentTerms', 
    class="hl-string">'PurchaseOrderNumber', class="hl-string">'PaymentBlockReason', class="hl-string">'Approver'
]

for col in final_cols:
    if col not in df_event_log.columns:
        df_event_log[col] = None

df_final = df_event_log[final_cols].sort_values(by=[class="hl-string">'InvoiceNumber', class="hl-string">'EventTime']).reset_index(drop=True)

class=class="hl-string">"hl-comment"># Export to CSV
df_final.to_csv(class="hl-string">'sap_ap_event_log.csv', index=False)
print(fclass="hl-string">"Event log created successfully with {len(df_final)} events.")

-- This is a logical representation of the ETL configuration.
-- Each 'SELECT' block represents a separate data stream for an activity,
-- which are then combined using a UNION ALL transformation in the ETL tool.

-- Base Data Source: A join of BKPF, BSEG, LFA1, RBKP, RSEG
-- Let's call this joined view 'INVOICE_DETAILS'

-- 1. Invoice Document Created
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, -- Case ID
    'Invoice Document Created' AS Activity,
    TO_TIMESTAMP(B.CPUDT, B.CPUTM) AS EventTime,
    B.USNAM AS ProcessorUser,
    L.NAME1 AS VendorName,
    B.BUKRS AS CompanyCode,
    B.WAERS AS Currency,
    (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, 
    S1.ZFBDT AS InvoiceDueDate, -- Due date from first line item
    S1.ZTERM AS PaymentTerms,
    S1.EBELN AS PurchaseOrderNumber,
    S1.ZLSPR AS PaymentBlockReason,
    '[Workflow Approver]' AS Approver
FROM BKPF AS B
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K' -- First vendor line item
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND B.CPUDT BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 2. Invoice Parked
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber,
    'Invoice Parked' AS Activity,
    TO_TIMESTAMP(B.CPUDT, B.CPUTM) AS EventTime,
    B.USNAM AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM BKPF AS B
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE B.BSTAT = 'V' AND B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND B.CPUDT BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 3. Purchase Order Matched
SELECT DISTINCT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber,
    'Purchase Order Matched' AS Activity, 
    TO_TIMESTAMP(B.CPUDT, B.CPUTM) AS EventTime, 
    B.USNAM AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM BKPF AS B
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE S1.EBELN IS NOT NULL AND B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND B.CPUDT BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 4. Goods Receipt Matched
SELECT DISTINCT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber,
    'Goods Receipt Matched' AS Activity, 
    TO_TIMESTAMP(B.CPUDT, B.CPUTM) AS EventTime, 
    B.USNAM AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM BKPF AS B
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN RSEG AS R ON S1.BELNR = R.BELNR AND S1.GJAHR = R.GJAHR
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE R.LFBNR IS NOT NULL AND B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND B.CPUDT BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 5. Payment Block Set
SELECT
    CONCAT(SUBSTRING(H.OBJECTID, 1, 4), SUBSTRING(H.OBJECTID, 5, 10), SUBSTRING(H.OBJECTID, 15, 4)) AS InvoiceNumber,
    'Payment Block Set' AS Activity,
    TO_TIMESTAMP(H.UDATE, H.UTIME) AS EventTime,
    H.USERNAME AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, P.VALUE_NEW AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM CDHDR H
JOIN CDPOS P ON H.CHANGENR = P.CHANGENR
JOIN BKPF B ON SUBSTRING(H.OBJECTID, 5, 10) = B.BELNR AND SUBSTRING(H.OBJECTID, 1, 4) = B.BUKRS AND SUBSTRING(H.OBJECTID, 15, 4) = B.GJAHR
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE H.OBJECTCLAS = 'BELEG' AND P.TABNAME = 'BSEG' AND P.FNAME = 'ZLSPR' AND P.VALUE_NEW <> ''
AND B.BUKRS = '[YourCompanyCode]' AND H.UDATE BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 6. Invoice Routed For Approval (Inferred from specific block)
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Invoice Routed For Approval' AS Activity, TO_TIMESTAMP(H.UDATE, H.UTIME) AS EventTime, H.USERNAME AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, P.VALUE_NEW AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM CDHDR H JOIN CDPOS P ON H.CHANGENR = P.CHANGENR JOIN BKPF B ON SUBSTRING(H.OBJECTID, 5, 10) = B.BELNR AND SUBSTRING(H.OBJECTID, 1, 4) = B.BUKRS AND SUBSTRING(H.OBJECTID, 15, 4) = B.GJAHR JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K' JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE H.OBJECTCLAS = 'BELEG' AND P.TABNAME = 'BSEG' AND P.FNAME = 'ZLSPR' AND P.VALUE_NEW = '[ApprovalBlockReasonCode]'
AND B.BUKRS = '[YourCompanyCode]' AND H.UDATE BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 7. Invoice Approved (Inferred from removal of specific block)
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Invoice Approved' AS Activity, TO_TIMESTAMP(H.UDATE, H.UTIME) AS EventTime, H.USERNAME AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, '' AS PaymentBlockReason, H.USERNAME AS Approver
FROM CDHDR H JOIN CDPOS P ON H.CHANGENR = P.CHANGENR JOIN BKPF B ON SUBSTRING(H.OBJECTID, 5, 10) = B.BELNR AND SUBSTRING(H.OBJECTID, 1, 4) = B.BUKRS AND SUBSTRING(H.OBJECTID, 15, 4) = B.GJAHR JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K' JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE H.OBJECTCLAS = 'BELEG' AND P.TABNAME = 'BSEG' AND P.FNAME = 'ZLSPR' AND P.VALUE_OLD = '[ApprovalBlockReasonCode]' AND P.VALUE_NEW = ''
AND B.BUKRS = '[YourCompanyCode]' AND H.UDATE BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 8. Payment Block Removed
SELECT
    CONCAT(SUBSTRING(H.OBJECTID, 1, 4), SUBSTRING(H.OBJECTID, 5, 10), SUBSTRING(H.OBJECTID, 15, 4)) AS InvoiceNumber, 'Payment Block Removed' AS Activity, TO_TIMESTAMP(H.UDATE, H.UTIME) AS EventTime, H.USERNAME AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, '' AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM CDHDR H JOIN CDPOS P ON H.CHANGENR = P.CHANGENR JOIN BKPF B ON SUBSTRING(H.OBJECTID, 5, 10) = B.BELNR AND SUBSTRING(H.OBJECTID, 1, 4) = B.BUKRS AND SUBSTRING(H.OBJECTID, 15, 4) = B.GJAHR JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K' JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE H.OBJECTCLAS = 'BELEG' AND P.TABNAME = 'BSEG' AND P.FNAME = 'ZLSPR' AND P.VALUE_NEW = '' AND P.VALUE_OLD <> ''
AND B.BUKRS = '[YourCompanyCode]' AND H.UDATE BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 9. Invoice Posted (Change from Parked to Posted)
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Invoice Posted' AS Activity, TO_TIMESTAMP(H.UDATE, H.UTIME) AS EventTime, H.USERNAME AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM CDHDR H JOIN CDPOS P ON H.CHANGENR = P.CHANGENR JOIN BKPF B ON SUBSTRING(H.OBJECTID, 5, 10) = B.BELNR AND SUBSTRING(H.OBJECTID, 1, 4) = B.BUKRS AND SUBSTRING(H.OBJECTID, 15, 4) = B.GJAHR JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K' JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE H.OBJECTCLAS = 'BELEG' AND P.TABNAME = 'BKPF' AND P.FNAME = 'BSTAT' AND P.VALUE_OLD = 'V' AND P.VALUE_NEW = ''
AND B.BUKRS = '[YourCompanyCode]' AND H.UDATE BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 10. Due Date Passed Without Payment (Calculated)
SELECT 
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Due Date Passed Without Payment' AS Activity, TO_TIMESTAMP(S1.ZFBDT) AS EventTime, 'SYSTEM' AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM BKPF AS B JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K' JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE S1.AUGBL IS NULL AND S1.ZFBDT < CURRENT_DATE
AND B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND B.CPUDT BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 11. Payment Proposal Created
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Payment Proposal Created' AS Activity, TO_TIMESTAMP(H.LAUFD) AS EventTime, H.USNAM AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM REGUH H
JOIN REGUP P ON H.LAUFD = P.LAUFD AND H.LAUFI = P.LAUFI AND H.XVORL = P.XVORL
JOIN BKPF B ON P.BUKRS = B.BUKRS AND P.BELNR = B.BELNR AND P.GJAHR = B.GJAHR
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE B.BUKRS = '[YourCompanyCode]' AND H.LAUFD BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 12. Invoice Cleared By Payment
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Invoice Cleared By Payment' AS Activity, TO_TIMESTAMP(S1.AUGDT) AS EventTime, B.USNAM AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, '' AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM BKPF AS B
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE S1.AUGBL IS NOT NULL
AND B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND S1.AUGDT BETWEEN '[StartDate]' AND '[EndDate]'

UNION ALL

-- 13. Invoice Reversed
SELECT
    CONCAT(B.BUKRS, B.BELNR, B.GJAHR) AS InvoiceNumber, 'Invoice Reversed' AS Activity, TO_TIMESTAMP(B.STODT) AS EventTime, B.USNAM_REV AS ProcessorUser, L.NAME1 AS VendorName, B.BUKRS AS CompanyCode, B.WAERS AS Currency, (SELECT SUM(WRBTR) FROM BSEG S WHERE S.BELNR = B.BELNR AND S.GJAHR = B.GJAHR AND S.BUKRS = B.BUKRS) AS InvoiceGrossAmount, S1.ZFBDT AS InvoiceDueDate, S1.ZTERM AS PaymentTerms, S1.EBELN AS PurchaseOrderNumber, S1.ZLSPR AS PaymentBlockReason, '[Workflow Approver]' AS Approver
FROM BKPF AS B
JOIN BSEG AS S1 ON B.BELNR = S1.BELNR AND B.GJAHR = S1.GJAHR AND B.BUKRS = S1.BUKRS AND S1.KOART = 'K'
JOIN LFA1 AS L ON B.LIFNR = L.LIFNR
WHERE B.STBLG IS NOT NULL
AND B.BLART IN ('KR', 'RE') AND B.BUKRS = '[YourCompanyCode]' AND B.STODT BETWEEN '[StartDate]' AND '[EndDate]'