SAP 采购订单 PO 批量读取相关信息

DATA:lt_dyn_sel  TYPE rsds_type.


DATA:lr_vbeln TYPE RANGE OF ekko-ebeln.

SELECT ebeln AS low,
       'I'   AS sign,
       'EQ'  AS option
UP TO 1000 ROWS
INTO CORRESPONDING FIELDS OF TABLE @lr_vbeln
FROM ekko
WHERE bstyp = 'F'.


CALL FUNCTION 'ME_MODIFY_DYNSEL'
  EXPORTING
    taname     = 'EKKO'
    finame     = 'EBELN'
  TABLES
    ti_selpars = lr_vbeln
  CHANGING
    c_dynsel   = lt_dyn_sel.

DATA lt_ekko TYPE STANDARD TABLE OF ekko.
DATA lt_ekpo TYPE STANDARD TABLE OF ekpo.
DATA lt_eket TYPE STANDARD TABLE OF eket.
DATA lt_ekbe TYPE STANDARD TABLE OF ekbe.

CALL FUNCTION 'ME_READ_EKKO_MULTIPLE'
  EXPORTING
    i_dynsel         = lt_dyn_sel
  TABLES
    te_ekko          = lt_ekko
    te_ekpo          = lt_ekpo
    te_eket          = lt_eket
    te_ekbe          = lt_ekbe
  EXCEPTIONS
    nothing_selected = 0.
IF sy-subrc IS INITIAL.

ENDIF.