预制发票付款到期日取值

BIGFG

已于 2024-06-27 10:51:44 修改

阅读量658

点赞数 1

分类专栏： ABAP SAP 文章标签：小程序

于 2022-07-07 21:33:25 首次发布

本文链接：https://blog.csdn.net/BingWFx_li/article/details/125666663

版权

ABAP 同时被 2 个专栏收录

4 篇文章 0 订阅

订阅专栏

SAP

3 篇文章 0 订阅

订阅专栏

MIR7调试找到如下代码：使用ZTERM来确定预制发票的基本日期确定现金折扣

      IF bseg-zterm NE space.
        IF bseg-zfbdt LE ‘00000000’.                           "#EC PORTABLE
          CALL FUNCTION 'FI_FIND_PAYMENT_CONDITIONS'
            EXPORTING
              i_zterm            = bseg-zterm “收付条件代码
              i_bldat            = bkpf-bldat  ”凭证日期
              i_budat            = bkpf-budat  “过账日期
              i_cpudt            = sy-datum
            IMPORTING
              e_t052             = t052
              e_zfbdt            = bseg-zfbdt  ”基准日期
              e_sklin            = sklin2
            EXCEPTIONS
              terms_incorrect    = 1
              terms_not_found    = 2
              no_day_limit_found = 3
              OTHERS             = 4.
          CASE sy-subrc.
            WHEN 1.
              MESSAGE e158.
            WHEN 2.
              MESSAGE e100 WITH 'T052' bseg-zterm.
            WHEN 3.
              IF bseg-zfbdt LE null8.                     "#EC PORTABLE
                MESSAGE e220.
              ELSE.
                MESSAGE e024 WITH bseg-zterm bseg-zfbdt+6(2).
              ENDIF.
            WHEN 4.
          ENDCASE.

endif .

endif .

第二步：
    bseg-zbd1t = sklin2-ztag1.
    bseg-zbd2t = sklin2-ztag2.
    bseg-zbd3t = sklin2-ztag3.
    bseg-zbd1p = sklin2-zprz1.
    bseg-zbd2p = sklin2-zprz2.
    

    faede-shkzg = bseg-shkzg.
    faede-koart = koart. “t052-koart 科目类型 
    faede-zfbdt = bseg-zfbdt.
    faede-zbd1t = bseg-zbd1t.
    faede-zbd2t = bseg-zbd2t.
    faede-zbd3t = bseg-zbd3t.
    faede-rebzg = bseg-rebzg.
    faede-rebzt = bseg-rebzt.
    faede-bldat = bkpf-bldat.
    CALL FUNCTION 'DETERMINE_DUE_DATE'
      EXPORTING
        i_faede = faede
      IMPORTING
        e_faede = faede
      EXCEPTIONS
        OTHERS  = 1.

 invfo-netdt = faede-netdt.  ”到期日