关于付款条件ZTERM 的函数

函数：PR_WF_PAYMENT_BLOCK_CHECK
CALL FUNCTION 'FI_F4_ZTERM'

F061 支付的过程条件
FI_CHANGE_PAYMENT_CONDITIONS New Entry for Terms of Payment: Interpretation, Check
FI_FIND_PAYMENT_CONDITIONS Determine cash discount using ZTERM and document, posting, CPU, base d

FI_TERMS_OF_PAYMENT_CHECKING

 

 

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? -----------------------*

 

转载于:https://www.cnblogs.com/rainysblog/p/6911242.html