Code: Alles auswählen.
DATA ls_shlp TYPE shlp_descr.
DATA lt_retval TYPE STANDARD TABLE OF ddshretval.
CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
EXPORTING
shlpname = 'ZMC_ARTIKELPASS'
shlptype = 'SH'
IMPORTING
shlp = ls_shlp.
CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
EXPORTING
shlp = ls_shlp
TABLES
return_values = lt_retval.
Code: Alles auswählen.
LOOP AT TF4_SHLP-INTERFACE ASSIGNING <F4_INTERFACE>.
CASE <F4_INTERFACE>-SHLPFIELD.
WHEN 'VKORG'.
<F4_INTERFACE>-VALUE = '1000'.
WHEN 'KUNNR'.
<F4_INTERFACE>-VALFIELD = 'KUNNR'.
<F4_INTERFACE>-VALTABNAME = 'KNA1'.
ENDCASE.
ENDLOOP.
oder so ähnlich...:-)
Code: Alles auswählen.
field-symbols <F4_INTERFACE> type shlp_descr-interface.
Wie ist das Feldsymbol zu definieren?Der Zeilentyp der Tabelle "LS_SHLP-INTERFACE" ist nicht kompatibel zum
Typ des Feldsymbols "<F4_INTERFACE>".
Code: Alles auswählen.
DATA ls_shlp TYPE shlp_descr.
DATA lt_retval TYPE STANDARD TABLE OF ddshretval.
field-symbols <F4_INTERFACE> type DDSHIFACES.
LOOP AT ls_SHLP-INTERFACE ASSIGNING <F4_INTERFACE>.
CASE <F4_INTERFACE>-SHLPFIELD.
WHEN 'MATNR'.
<F4_INTERFACE>-VALFIELD = 'MATNR'.
<F4_INTERFACE>-VALTABNAME = 'Z001_ARTIKELPASS'.
ENDCASE.
ENDLOOP.
CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
EXPORTING
shlpname = 'ZMC_ARTIKELPASS'
shlptype = 'SH'
IMPORTING
shlp = ls_shlp.
CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
EXPORTING
shlp = ls_shlp
TABLES
return_values = lt_retval.
Code: Alles auswählen.
DATA ls_shlp TYPE shlp_descr.
DATA lt_retval TYPE STANDARD TABLE OF ddshretval.
field-symbols <F4_INTERFACE> like line of ls_shlp-interface.
CALL FUNCTION 'F4IF_GET_SHLP_DESCR'
EXPORTING
shlpname = 'ZMC_ARTIKELPASS'
shlptype = 'SH'
IMPORTING
shlp = ls_shlp.
LOOP AT ls_SHLP-INTERFACE ASSIGNING <F4_INTERFACE>.
CASE <F4_INTERFACE>-SHLPFIELD.
WHEN 'MATNR'.
<F4_INTERFACE>-VALFIELD = 'MATNR'.
<F4_INTERFACE>-VALTABNAME = 'Z001_ARTIKELPASS'.
ENDCASE.
ENDLOOP.
CALL FUNCTION 'F4IF_START_VALUE_REQUEST'
EXPORTING
shlp = ls_shlp
TABLES
return_values = lt_retval.