Schlagwort: vbfa

* Vorgängervertriebsbeleg
PARAMETERS: p_vbeln TYPE vbfa-vbelv DEFAULT '12345678'.

* Übergabestruktur
DATA(lv_vbco6) = VALUE vbco6( vbeln = p_vbeln
*                              posnr = '000010'
                            ).

* Rückgabetabelle
DATA: it_vbfa TYPE STANDARD TABLE OF vbfa WITH DEFAULT KEY.

* Liest Verkaufsbelegfluß von Verkaufsbeleg nach Lieferung und Faktura
* Tabellen: VBFA, VBUK
CALL FUNCTION 'RV_ORDER_FLOW_INFORMATION'
  EXPORTING
    comwa         = lv_vbco6
  TABLES
    vbfa_tab      = it_vbfa
  EXCEPTIONS
    no_vbfa       = 1
    no_vbuk_found = 2
    OTHERS        = 3.

* Datenausgabe
IF sy-subrc = 0.
* Tabelle mit Belegfluss anzeigen
*  cl_demo_output=>display( it_vbfa ).

* Dialogbaustein zur Anzeige des Belegflusses anzeigen
  CALL DIALOG 'RV_DOCUMENT_FLOW'
    EXPORTING
      vbco6 FROM lv_vbco6.
ENDIF.