FICO一些日期获取

"到期重排日期获取

Get the Baseline date Based on the New Payment Terms.
*Calculate Due Date based on the Baseline Date.
  call function 'FI_CHANGE_PAYMENT_CONDITIONS'   " #EC *
    exporting
      i_bldat    = bldat
      i_budat    = budat
      i_newzterm = newzterm
      i_newzfbdt = *rbkp_v-zfbdt-->base line date.
      i_newsklin = sklin
      i_oldzterm = oldzterm
      i_oldzfbdt = *rbkp_v-zfbdt
      i_oldsklin = sklin
    importing
      e_zfbdt    = duedate
      e_sklin    = sklin.
*  if sy-subrc eq 0.
  clear: faede.
  faede-shkzg = 'H'.
  faede-koart = 'K'.
  faede-zfbdt = *rbkp_v-zfbdt.
  faede-zbd1t = sklin-ztag1.
  faede-zbd2t = sklin-ztag2.
  faede-zbd3t = sklin-ztag3.
  faede-bldat = bldat.
  call function 'DETERMINE_DUE_DATE'        " #EC *
    exporting
      i_faede = faede
    importing
      e_faede = faede.
*    if sy-subrc eq 0.
  duedate = faede-netdt.

 

自动计算税金 CALCULATE_TAX_FROM_GROSSAMOUNT

DATA: lt_tax_info LIKE TABLE OF rtax1u15.
  DATA: ls_tax_info LIKE line OF lt_tax_info.
  
    REFRESH lt_tax_info[].
    CALL FUNCTION 'CALCULATE_TAX_FROM_GROSSAMOUNT'
      EXPORTING
        i_bukrs = '3006'
        i_mwskz = 'X2'  "税码
*       I_TXJCD = ' '
        i_waers = 'CNY'
        i_wrbtr = lv_wrbtr2 "金额
      TABLES
        t_mwdat = lt_tax_info.