DATA: BEGIN OF f4hlp OCCURS 1.
INCLUDE STRUCTURE dynpread.
DATA: END OF f4hlp.

DATA: zah_korrp LIKE t043k-kmres, " Korresp. zum Diffgr.
zah_sknto LIKE bseg-sknto, " Skonto bei Zahlung
zah_sknt2 LIKE bseg-sknt2, " Skonto bei Zahlung
zah_sknt3 LIKE bseg-sknt3, " Skonto bei Zahlung
zah_wskto LIKE bseg-wskto, " Skonto bei Zahlung
zterm LIKE bseg-zterm. " Hilfsfeld f. Zahl.bed

**& FI_F4_ZTERM
CALL FUNCTION ‘FI_F4_ZTERM‘
EXPORTING
I_KOART = CHAR(1)
I_ZTERM = BSEG-ZTERM
I_XSHOW = f4hlp-fieldinp
IMPORTING
E_ZTERM = ZTERM.
IF NOT ZTERM IS INITIAL.
BSEG-ZTERM = ZTERM.
ENDIF.

**更多代码
*------- BSEG-ZTERM Eingabe- oder Anzeigefeld? -----------------------*
* LOOP AT SCREEN.
* CHECK SCREEN-NAME = ‘BSEG-ZTERM‘.
* IF SCREEN-INPUT = ‘1‘.
* XSHOW = SPACE.
* ELSE.
* XSHOW = ‘X‘.
* ENDIF.
* EXIT.
* ENDLOOP.

*------- Eingabewert für generische Suche besorgen ---------------------
PERFORM DYNP_VALUES_READ USING ‘BSEG-ZTERM‘ F4RC.
IF F4RC = 0.
READ TABLE F4HLP INDEX 1.
BSEG-ZTERM = F4HLP-FIELDVALUE.
ENDIF.
* check if dynpro field is currently in change or display mode.
translate f4hlp-fieldinp using ‘ XX ‘.
CALL FUNCTION ‘FI_F4_ZTERM‘
EXPORTING
I_KOART = CHAR(1)
I_ZTERM = BSEG-ZTERM
I_XSHOW = f4hlp-fieldinp
IMPORTING
E_ZTERM = ZTERM.
IF NOT ZTERM IS INITIAL.
BSEG-ZTERM = ZTERM.
ENDIF.

*------- BSEG-ZTERM Eingabe- oder Anzeigefeld? -----------------------*