ZBlog学习笔记

  FIELD-SYMBOLS <FT_DATA> TYPE ANY TABLE.

  CL_SALV_BS_RUNTIME_INFO=>SET( EXPORTING DISPLAY = ABAP_FALSE
        METADATA = ABAP_FALSE
      DATA = ABAP_TRUE ).

  SUBMIT ZFIR018
        WITH S_VBELN = I_VBELN
        WITH P_BUDAT = SY-DATUM
        WITH P_MOD1 = ''
        WITH P_MOD2 = 'X'
        AND RETURN.
  TRY.
      CL_SALV_BS_RUNTIME_INFO=>GET_DATA_REF( IMPORTING R_DATA = DATA(LT_DATA) ).
      ASSIGN LT_DATA->* TO <FT_DATA>.
    CATCH CX_SALV_BS_SC_RUNTIME_INFO.
  ENDTRY.

  CL_SALV_BS_RUNTIME_INFO=>CLEAR_ALL( ).

  IF <FT_DATA> IS NOT INITIAL.
    LOOP AT <FT_DATA> ASSIGNING FIELD-SYMBOL(<FS_DATA>).
*      计算累计销售额
      ASSIGN COMPONENT 'DMBTR' OF STRUCTURE <FS_DATA> TO FIELD-SYMBOL(<F_DMBTR>).
      E_ZZLEIJISALE = E_ZZLEIJISALE + <F_DMBTR>.
*      计算逾期金额
      ASSIGN COMPONENT 'SEGMENT_WS' OF STRUCTURE <FS_DATA> TO FIELD-SYMBOL(<F_SEGMENT_WS>).
      ASSIGN COMPONENT 'SEGMENT_WDQ' OF STRUCTURE <FS_DATA> TO FIELD-SYMBOL(<F_SEGMENT_WDQ>).
      E_ZZYQYS = E_ZZYQYS + <F_SEGMENT_WS> - <F_SEGMENT_WDQ>.
    ENDLOOP.
  ENDIF.