zoukankan      html  css  js  c++  java
  • 关于付款条件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? -----------------------*
  • 相关阅读:
    004.Docker镜像管理
    001.Heartbeat简介
    005.Docker存储管理
    006.Docker网络管理
    012.Docker仓库管理
    013.Docker私有仓库多Harbor同步部署
    007.基于Docker的Etcd分布式部署
    008.Docker Flannel+Etcd分布式网络部署
    009.Docker Compose部署及基础使用
    002.Open-Falcon Server部署及Agent监控
  • 原文地址:https://www.cnblogs.com/rainysblog/p/6911242.html
Copyright © 2011-2022 走看看