AFTER_REFRESH

form AFTER_REFRESH.

  data: LR_COLLECT00   type ref to DATA
      , LR_COLLECT01   type ref to DATA
      , LR_COLLECT02   type ref to DATA
      , LR_COLLECT03   type ref to DATA
      , LR_COLLECT04   type ref to DATA
      , LR_COLLECT05   type ref to DATA
      , LR_COLLECT06   type ref to DATA
      , LR_COLLECT07   type ref to DATA
      , LR_COLLECT08   type ref to DATA
      , LR_COLLECT09   type ref to DATA
      , LV_REFRESH     type FLAG_X
      , LV_ZSUM        type WKVXXX
      , LV_ZWAGGDIV    type WKVXXX
      , LV_ZLOKODIV    type WKVXXX
      .

  field-symbols: <LFS_TAB>  type any table
               , <LFS_LINE> type TY_DATA
               .

  GO_ALVGRID->GET_SUBTOTALS(
    importing
      EP_COLLECT00   = LR_COLLECT00
      EP_COLLECT01   = LR_COLLECT01
     EP_COLLECT02   = LR_COLLECT02
*     ep_collect03   = lr_collect03
*     ep_collect04   = lr_collect04
*     ep_collect05   = lr_collect05
*     ep_collect06   = lr_collect06
*     ep_collect07   = lr_collect07
*     ep_collect08   = lr_collect08
*     ep_collect09   = lr_collect09
    ).

  assign LR_COLLECT00->* to <LFS_TAB>.
  if <LFS_TAB> is assigned.
    loop at <LFS_TAB> assigning <LFS_LINE>.
      try .
          LV_ZSUM = <LFS_LINE>-WTGBTR  / <LFS_LINE>-MBGBTR.
          if <LFS_LINE>-ZSUM <> LV_ZSUM.
            LV_REFRESH = 'X'.
            <LFS_LINE>-ZSUM = LV_ZSUM.
          endif.


        catch CX_SY_ZERODIVIDE.
      endtry.
    endloop.
  endif.

  assign LR_COLLECT01->* to <LFS_TAB>.
  if <LFS_TAB> is assigned.
    loop at <LFS_TAB> assigning <LFS_LINE>.
      try .
          LV_ZSUM = <LFS_LINE>-WTGBTR  / <LFS_LINE>-MBGBTR.
          if <LFS_LINE>-ZSUM <> LV_ZSUM.
            LV_REFRESH = 'X'.
            <LFS_LINE>-ZSUM = LV_ZSUM.
          endif.
                    LV_ZWAGGDIV = <LFS_LINE>-ZWAGGONS / <LFS_LINE>-MBGBTR.
          if <LFS_LINE>-ZWAGGONS <> LV_ZWAGGDIV.
            LV_REFRESH = 'X'.
            <LFS_LINE>-ZWAGGONPT = LV_ZWAGGDIV.
            endif.
        catch CX_SY_ZERODIVIDE.
      endtry.
    endloop.
  endif.
*

  assign LR_COLLECT02->* to <LFS_TAB>.
  if <LFS_TAB> is assigned.
    loop at <LFS_TAB> assigning <LFS_LINE>.
      try .
          LV_ZSUM = <LFS_LINE>-WTGBTR  / <LFS_LINE>-MBGBTR.
          if <LFS_LINE>-ZSUM <> LV_ZSUM.
            LV_REFRESH = 'X'.
            <LFS_LINE>-ZSUM = LV_ZSUM.
          endif.
        catch CX_SY_ZERODIVIDE.
      endtry.
    endloop.
  endif.


  if LV_REFRESH is not initial.
    call method GO_ALVGRID->REFRESH_TABLE_DISPLAY( I_SOFT_REFRESH = 'X' ).
  endif.

endform.                    " AFTER_REFRESH                "