SAP SD Document Flow Table (VBFA) ABAP Generator

REPORT zsd_document_flow.

* Document flow for 0000012345 (category C), follow-ons JMRNO
* VBTYP: C order, J delivery, M invoice, N invoice cancellation,
*        O credit memo, R goods movement, H returns, T returns delivery

TYPES: BEGIN OF ty_flow,
         vbelv   TYPE vbfa-vbelv,
         posnv   TYPE vbfa-posnv,
         vbeln   TYPE vbfa-vbeln,
         posnn   TYPE vbfa-posnn,
         vbtyp_n TYPE vbfa-vbtyp_n,
         vbtyp_v TYPE vbfa-vbtyp_v,
         rfmng   TYPE vbfa-rfmng,
         meins   TYPE vbfa-meins,
         erdat   TYPE vbfa-erdat,
       END OF ty_flow.

DATA: gt_flow  TYPE STANDARD TABLE OF ty_flow,
      gt_deliv TYPE STANDARD TABLE OF ty_flow,
      gs_flow  TYPE ty_flow,
      gr_vbtyp TYPE RANGE OF vbfa-vbtyp_n,
      gs_vbtyp LIKE LINE OF gr_vbtyp,
      gv_cats  TYPE c LENGTH 20,
      gv_len   TYPE i,
      gv_off   TYPE i,
      gs_vbuk  TYPE vbuk,
      gt_vbup  TYPE STANDARD TABLE OF vbup,
      gs_vbup  TYPE vbup.

PARAMETERS: p_vbeln TYPE vbfa-vbelv   DEFAULT '0000012345' OBLIGATORY,
            p_vbtyp TYPE vbfa-vbtyp_v DEFAULT 'C' OBLIGATORY.

START-OF-SELECTION.

  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = p_vbeln
    IMPORTING
      output = p_vbeln.

* Build a range of follow-on categories from the letters
  gv_cats = 'JMRNO'.
  gv_len = strlen( gv_cats ).
  DO gv_len TIMES.
    gv_off = sy-index - 1.
    CLEAR gs_vbtyp.
    gs_vbtyp-sign   = 'I'.
    gs_vbtyp-option = 'EQ'.
    gs_vbtyp-low    = gv_cats+gv_off(1).
    APPEND gs_vbtyp TO gr_vbtyp.
  ENDDO.

* Level 1: direct successors of the start document (uses the VBELV key)
  SELECT vbelv posnv vbeln posnn vbtyp_n vbtyp_v rfmng meins erdat
    FROM vbfa
    INTO TABLE gt_flow
    WHERE vbelv   = p_vbeln
      AND vbtyp_v = p_vbtyp
      AND vbtyp_n IN gr_vbtyp.

* Level 2: successors of each delivery (invoices, goods movements)
  SELECT vbelv posnv vbeln posnn vbtyp_n vbtyp_v rfmng meins erdat
    FROM vbfa
    INTO TABLE gt_deliv
    WHERE vbelv   = p_vbeln
      AND vbtyp_v = p_vbtyp
      AND vbtyp_n = 'J'.
  SORT gt_deliv BY vbeln.
  DELETE ADJACENT DUPLICATES FROM gt_deliv COMPARING vbeln.

  IF gt_deliv IS NOT INITIAL.
    SELECT vbelv posnv vbeln posnn vbtyp_n vbtyp_v rfmng meins erdat
      FROM vbfa
      APPENDING TABLE gt_flow
      FOR ALL ENTRIES IN gt_deliv
      WHERE vbelv   = gt_deliv-vbeln
        AND vbtyp_v = 'J'
        AND vbtyp_n IN gr_vbtyp.
  ENDIF.

  SORT gt_flow BY vbelv posnv vbeln posnn vbtyp_n.
  DELETE ADJACENT DUPLICATES FROM gt_flow
    COMPARING vbelv posnv vbeln posnn vbtyp_n.

  SELECT SINGLE * FROM vbuk INTO gs_vbuk WHERE vbeln = p_vbeln.
  SELECT * FROM vbup INTO TABLE gt_vbup WHERE vbeln = p_vbeln.

* Status values: space not relevant, A not processed,
*                B partially processed, C completely processed
  WRITE: / 'GBSTK', gs_vbuk-gbstk, 'LFSTK', gs_vbuk-lfstk,
           'FKSTK', gs_vbuk-fkstk, 'WBSTK', gs_vbuk-wbstk,
           'CMGST', gs_vbuk-cmgst.
  LOOP AT gt_vbup INTO gs_vbup.
    WRITE: / gs_vbup-posnr, 'LFSTA', gs_vbup-lfsta,
             'FKSTA', gs_vbup-fksta, 'GBSTA', gs_vbup-gbsta,
             'ABSTA', gs_vbup-absta.
  ENDLOOP.
  ULINE.
  LOOP AT gt_flow INTO gs_flow.
    WRITE: / gs_flow-vbelv, gs_flow-posnv, gs_flow-vbtyp_v, '->',
             gs_flow-vbeln, gs_flow-posnn, gs_flow-vbtyp_n,
             gs_flow-rfmng UNIT gs_flow-meins, gs_flow-meins,
             gs_flow-erdat.
  ENDLOOP.

* Same information as the VA03 document flow screen, all levels.
  DATA: gs_comwa TYPE vbco6,
        gt_vbfa  TYPE STANDARD TABLE OF vbfa.

  gs_comwa-vbeln = p_vbeln.
  CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
    EXPORTING
      comwa         = gs_comwa
      nachfolger    = 'X'
      n_stufen      = '50'
      vorgaenger    = ' '
    TABLES
      vbfa_tab      = gt_vbfa
    EXCEPTIONS
      no_vbfa       = 1
      no_vbuk_found = 2
      OTHERS        = 3.