Hello!
This FM
is a very useful one. But it doesn't provide
any entries in the tables. They are just empty
when I call it as below shown:
These tables are totaly empty, what is wrong ?
VBDKL
VBDPL
VBPLK
VBPLP
VBPLS
Regards
Ilhan
*Prog
data: COMWA type VBCO3,
VBPLA type VBPLA,
VBDKL type VBDKL occurs 0 with header line,
VBDPL type VBDPL occurs 0 with header line,
VBPLK type VBPLK occurs 0 with header line,
VBPLP type VBPLP occurs 0 with header line,
VBPLS type VBPLS occurs 0 with header line.
data gv_vbeln type vttp-vbeln.
data gv_venum type vepo-venum.
select single vbeln from vttp into gv_vbeln
where TKNUM = gw_vttk-tknum.
select single venum from vepo into gv_venum
where VBELN = gv_vbeln.
COMWA-VENUM = gv_venum.
COMWA-MANDT = sy-mandt.
COMWA-SPRAS = sy-langu.
COMWA-TKNUM = gw_vttk-tknum.
VBPLP-VENUM = gv_venum.
append VBPLP.
CALL FUNCTION 'SD_DELIVERY_VIEW'
EXPORTING
COMWA = COMWA
* AUFTRAG_NICHT_LESEN = ' '
* EXPORTDATEN_NICHT_LESEN = ' '
* GEFAHRGUT_NICHT_LESEN = ' '
* EDI = ' '
IMPORTING
VBPLA_WA = VBPLA
TABLES
VBDKL_TAB = VBDKL
VBDPL_TAB = VBDPL
VBPLK_TAB = VBPLK
VBPLP_TAB = VBPLP
VBPLS_TAB = VBPLS
* EXCEPTIONS
* OBJECT_NOT_FOUND = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Bluesky
