IDCNAR 应收账款账龄报表--账龄逻辑优化（付款起算日期）

账龄计算逻辑行项目这里的付款起算日期 和 选择屏幕的日期 的差值修改付款起算日期–隐式增强包含文件RFIDCN_AR_AGING_SUBROUTINEformficn_collect_dataformficn_due_calculation这里的READ会覆盖掉自定义逻辑获取的日期这里需要判断下问题bug查看行项目明细的时候发现源码并没有清空历史记录而是一直在汇总展示DATA:lv_nums TYPE i. FUNCTION z_get_original_aging_date. *---------------------------------------------------------------------- **本地接口 *IMPORTING * VALUE(IV_BELNR) TYPE BELNR_D OPTIONAL *VALUE(IV_BUKRS)TYPE BUKRS OPTIONAL * VALUE(IV_KUNNR) TYPE KUNNR OPTIONAL *VALUE(IV_GJAHR)TYPE GJAHR OPTIONAL * VALUE(IV_DIRECTION) TYPE CHAR1 OPTIONAL *EXPORTING * VALUE(EV_BASE_DATE) TYPE DATUM *VALUE(EV_FOUND)TYPE FLAG *---------------------------------------------------------------------- CLEAR: ev_base_date, ev_found, lv_nums. PERFORM find_original_date USING iv_belnr iv_bukrs iv_kunnr iv_gjahr iv_direction CHANGING ev_base_date ev_found. ENDFUNCTION. *---------------------------------------------------------------------* *Form FIND_ORIGINAL_DATE *---------------------------------------------------------------------* FORM find_original_date USING belnr bukrs kunnr gjahr direction CHANGING zfbdt found. lv_numslv_nums 1. SELECT belnr, blart, zfbdt, bukrs, kunnr, gjahr FROM bsad WHERE augblbelnr * AND gjahrgjahr AND kunnrkunnr AND bukrsbukrs AND shkzgdirection INTO TABLE DATA(lt_bsad). SORT lt_bsad BY zfbdt DESCENDING. LOOP AT lt_bsad INTO DATA(ls_bsad)WHERE blartAB.EXIT. ENDLOOP. IF sy-subrc0. zfbdtls_bsad-zfbdt. foundabap_true. ELSE. DELETE lt_bsad WHERE belnrbelnr. CLEAR ls_bsad. LOOP AT lt_bsad INTO ls_bsad WHERE blartAB.EXIT. ENDLOOP. IF sy-subrc0. IF lv_nums6. * zfbdtls_bsad-zfbdt. foundabap_false. RETURN. ENDIF. CLEAR: lt_bsad, lt_bsad[]. PERFORM find_original_date USING ls_bsad-belnr ls_bsad-bukrs ls_bsad-kunnr ls_bsad-gjahr direction CHANGING zfbdt found. ENDIF. ENDIF. ENDFORM.