您的采购到付款(Purchase to Pay)-发票处理数据模板

REPORT Z_PM_INVOICE_EXTRACT.

*&---------------------------------------------------------------------*
*& Tables for Selection Screen
*&---------------------------------------------------------------------*
TABLES: BKPF, RBKP.

*&---------------------------------------------------------------------*
*& Data Declarations
*&---------------------------------------------------------------------*
TYPES: BEGIN OF ty_event_log,
         InvoiceNumber       TYPE belnr_v,
         Activity            TYPE string,
         EventTime           TYPE timestamp,
         UserName            TYPE uname,
         VendorNumber        TYPE lifnr,
         PurchaseOrderNumber TYPE ebeln,
         InvoiceAmount       TYPE wrbtr,
         PostingDate         TYPE budat,
         PaymentDueDate      TYPE faedt,
         PaymentBlockReason  TYPE rstgr,
         ClearingDate        TYPE augdt,
       END OF ty_event_log.

DATA: gt_event_log TYPE TABLE OF ty_event_log,
      gs_event_log TYPE ty_event_log.

DATA: lt_bkpf TYPE TABLE OF bkpf,
      ls_bkpf TYPE bkpf,
      lt_bseg TYPE TABLE OF bseg,
      ls_bseg TYPE bseg.

DATA: lt_rbkp TYPE TABLE OF rbkp,
      ls_rbkp TYPE rbkp.

*&---------------------------------------------------------------------*
*& Selection Screen
*&---------------------------------------------------------------------*
SELECT-OPTIONS: s_bukrs FOR bkpf-bukrs OBLIGATORY,
                s_gjahr FOR bkpf-gjahr OBLIGATORY,
                s_budat FOR bkpf-budat.
PARAMETERS: p_fpath TYPE string OBLIGATORY DEFAULT '/usr/sap/tmp/invoice_events.csv'.

*&---------------------------------------------------------------------*
*& Start of Program Logic
*&---------------------------------------------------------------------*
START-OF-SELECTION.

  " Select FI Invoices (e.g., Doc Type KR)
  SELECT * FROM bkpf INTO TABLE lt_bkpf
    WHERE bukrs IN s_bukrs
      AND gjahr IN s_gjahr
      AND budat IN s_budat
      AND blart = 'KR'.

  " Select MM Invoices
  SELECT * FROM rbkp INTO TABLE lt_rbkp
    WHERE bukrs IN s_bukrs
      AND gjahr IN s_gjahr
      AND budat IN s_budat.

* --- Process FI Invoices ---
  LOOP AT lt_bkpf INTO ls_bkpf.
    CLEAR gs_event_log.
    gs_event_log-InvoiceNumber = ls_bkpf-belnr.
    gs_event_log-PostingDate = ls_bkpf-budat.

    SELECT SINGLE * FROM bseg INTO ls_bseg
      WHERE bukrs = ls_bkpf-bukrs
        AND belnr = ls_bkpf-belnr
        AND gjahr = ls_bkpf-gjahr
        AND koart = 'K'. " Vendor Line Item
    IF sy-subrc = 0.
      gs_event_log-VendorNumber = ls_bseg-lifnr.
      gs_event_log-InvoiceAmount = ls_bseg-wrbtr.
      gs_event_log-ClearingDate = ls_bseg-augdt.
      " Calculate Due Date
      CALL FUNCTION 'DETERMINE_DUE_DATE'
        EXPORTING
          i_bseg = ls_bseg
        IMPORTING
          e_faedt = gs_event_log-PaymentDueDate.
    ENDIF.

    " Activity: Invoice Data Captured
    gs_event_log-Activity = 'Invoice Data Captured'.
    CONVERT DATE ls_bkpf-cpudt TIME ls_bkpf-cputm INTO TIME STAMP gs_event_log-EventTime TIME ZONE sy-zonlo.
    gs_event_log-UserName = ls_bkpf-usnam.
    APPEND gs_event_log TO gt_event_log.

    " Activity: Invoice Parked (if BSTAT = 'V')
    IF ls_bkpf-bstat = 'V'.
      gs_event_log-Activity = 'Invoice Parked'.
      APPEND gs_event_log TO gt_event_log.
    ENDIF.

    " Activity: Invoice Posted
    gs_event_log-Activity = 'Invoice Posted'.
    CONVERT DATE ls_bkpf-budat TIME ls_bkpf-cputm INTO TIME STAMP gs_event_log-EventTime TIME ZONE sy-zonlo.
    gs_event_log-UserName = ls_bkpf-usnam.
    APPEND gs_event_log TO gt_event_log.

    " Activity: Invoice Cleared
    IF ls_bseg-augbl IS NOT INITIAL.
      gs_event_log-Activity = 'Invoice Cleared'.
      CONVERT DATE ls_bseg-augdt INTO TIME STAMP gs_event_log-EventTime TIME ZONE sy-zonlo.
      gs_event_log-UserName = ls_bseg-usnam_cl.
      APPEND gs_event_log TO gt_event_log.
    ENDIF.

    " Activity: Invoice Becomes Overdue
    IF gs_event_log-PaymentDueDate IS NOT INITIAL AND gs_event_log-PaymentDueDate < sy-datum AND ls_bseg-augbl IS INITIAL.
      gs_event_log-Activity = 'Invoice Becomes Overdue'.
      CONVERT DATE gs_event_log-PaymentDueDate INTO TIME STAMP gs_event_log-EventTime TIME ZONE sy-zonlo.
      gs_event_log-UserName = 'SYSTEM'.
      APPEND gs_event_log TO gt_event_log.
    ENDIF.

    " Activity: Invoice Reversed
    IF ls_bkpf-stblg IS NOT INITIAL.
      DATA: ls_rev_bkpf TYPE bkpf.
      SELECT SINGLE budat, usnam FROM bkpf INTO ls_rev_bkpf
        WHERE belnr = ls_bkpf-stblg AND bukrs = ls_bkpf-bukrs AND gjahr = ls_bkpf-gjahr.
      IF sy-subrc = 0.
        gs_event_log-Activity = 'Invoice Reversed'.
        CONVERT DATE ls_rev_bkpf-budat INTO TIME STAMP gs_event_log-EventTime TIME ZONE sy-zonlo.
        gs_event_log-UserName = ls_rev_bkpf-usnam.
        APPEND gs_event_log TO gt_event_log.
      ENDIF.
    ENDIF.

  ENDLOOP.

* --- NOTE: The logic for MM invoices (from lt_rbkp) would be similar, joining RBKP with RSEG.
* --- NOTE: The logic for Payment Blocks and Workflow events requires reading change documents (CDHDR/CDPOS)
* --- or custom workflow tables. Below is a conceptual example for payment blocks.

* --- Conceptual Example for 'Payment Block Set' / 'Released' using Change Docs
*   DATA: lt_cdhdr TYPE TABLE OF cdhdr, ls_cdhdr TYPE cdhdr,
*         lt_cdpos TYPE TABLE OF cdpos, ls_cdpos TYPE cdpos.
*   SELECT * FROM cdhdr INTO TABLE lt_cdhdr
*     WHERE objectclas = 'BELEG' AND objectid IN (SELECT belnr FROM bkpf WHERE ...).
*   LOOP AT lt_cdhdr.
*     SELECT * FROM cdpos INTO TABLE lt_cdpos
*       WHERE changenr = ls_cdhdr-changenr AND tabname = 'BSEG' AND fname = 'ZLSPR'.
*     LOOP AT lt_cdpos.
*       "... logic to create 'Payment Block Set' (if VALUE_NEW is not blank)
*       "... or 'Payment Block Released' (if VALUE_NEW is blank) events.
*     ENDLOOP.
*   ENDLOOP.

* --- Conceptual Example for Workflow events ('Sent For Approval', 'Approved', 'Rejected')
* --- This part MUST be customized based on your specific workflow implementation (e.g., OpenText VIM, SAP WF).
* --- You would query the relevant workflow tables or status change tables here.

*&---------------------------------------------------------------------*
*& Write to File
*&---------------------------------------------------------------------*
END-OF-SELECTION.
  DATA: lv_string TYPE string,
        lv_header TYPE string.

  " Create Header
  lv_header = 'InvoiceNumber;Activity;EventTime;UserName;VendorNumber;PurchaseOrderNumber;InvoiceAmount;PostingDate;PaymentDueDate;PaymentBlockReason;ClearingDate'.

  OPEN DATASET p_fpath FOR OUTPUT IN TEXT MODE ENCODING UTF-8.
  IF sy-subrc = 0.
    TRANSFER lv_header TO p_fpath.
    LOOP AT gt_event_log INTO gs_event_log.
      CONCATENATE gs_event_log-InvoiceNumber
                  gs_event_log-Activity
                  gs_event_log-EventTime
                  gs_event_log-UserName
                  gs_event_log-VendorNumber
                  gs_event_log-PurchaseOrderNumber
                  gs_event_log-InvoiceAmount
                  gs_event_log-PostingDate
                  gs_event_log-PaymentDueDate
                  gs_event_log-PaymentBlockReason
                  gs_event_log-ClearingDate
      INTO lv_string SEPARATED BY ';'.
      TRANSFER lv_string TO p_fpath.
    ENDLOOP.
    CLOSE DATASET p_fpath.
  ELSE.
    MESSAGE 'Error opening file.' TYPE 'E'.
  ENDIF.