SAP ABAP - Custom Report AR Sales Revenue

 

REPORT zsdr003.

INCLUDE zsdr003_01.
INCLUDE zsdr003_02.
INCLUDE zsdr003_03.

INITIALIZATION.
  PERFORM get_parameter.

START-OF-SELECTION.
  "Check Company Code Authorization
  AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
    ID 'BUKRS' FIELD p_bukrs
    ID 'ACTVT' FIELD '03'.
  IF sy-subrc = 0.
    PERFORM get_data.
  ELSE.
    str_msg = |No Authorization for company code { p_bukrs }|.
    MESSAGE str_msg TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.

END-OF-SELECTION.
  CLEAR i_layout.
  PERFORM f_layout_init USING i_layout.
  PERFORM f_eventtab_build USING i_events[].
  i_variant-report = sy-repid.
  PERFORM f_print_control.
  PERFORM f_build_header_list.
  PERFORM f_build_fieldcat.
  PERFORM f_print_alv.

Include ZSDR003_01.

*&---------------------------------------------------------------------*
*& Include          ZSDR003_01
*&---------------------------------------------------------------------*
TABLES : acdoca, vbrp, ekko, vbak, likp, vbrk, vbkd.

TYPES :
  BEGIN OF ty_blart,
    blart TYPE blart,
  END OF ty_blart,

  BEGIN OF ty_kschl,
    kschl TYPE kschl,
  END OF ty_kschl,

  BEGIN OF ty_f4inv,
    bstkd  TYPE bstkd,
    rbukrs TYPE bukrs,
    donum  TYPE vbeln_vl,
    kunnr  TYPE kunnr,
    kname  TYPE zkname,
  END OF ty_f4inv,

  BEGIN OF ty_f4cont,
    cntrt  TYPE zcntrt,
    rbukrs TYPE bukrs,
    donum  TYPE vbeln_vl,
    kunnr  TYPE kunnr,
    kname  TYPE zkname,
  END OF ty_f4cont,

  BEGIN OF ty_kna1,
    kunnr TYPE kna1-kunnr,
    name1 TYPE adrc-name1,
    name2 TYPE adrc-name2,
  END OF ty_kna1.

DATA :
  lt_blart  TYPE TABLE OF ty_blart,
  lt_kschl  TYPE TABLE OF ty_kschl,
  ls_blart  TYPE ty_blart,
  ls_kschl  TYPE ty_kschl,
  lt_kna1   TYPE TABLE OF ty_kna1,
  ls_kna1   TYPE ty_kna1,

  lt_f4inv  TYPE TABLE OF ty_f4inv,
  lt_f4cont TYPE TABLE OF ty_f4cont,
  ls_f4inv  TYPE ty_f4inv,
  ls_f4cont TYPE ty_f4cont.

DATA :
  lt_data   TYPE TABLE OF zsrsd003,
  ls_data   TYPE zsrsd003,
  lt_pgidoc TYPE TABLE OF zcds_sales_revenue02,
  ls_pgidoc TYPE zcds_sales_revenue02,
  lt_vbfa   TYPE TABLE OF vbfa,
  ls_vbfa   TYPE vbfa,
  ls_tax    TYPE zcds_tax_calculation,
  lt_rtab    LIKE ddshretval OCCURS 0 WITH HEADER LINE,
  ls_rtab    TYPE ddshretval.

DATA :
  v_contr TYPE char30,
  xkschl  TYPE kschl,
  str_msg TYPE string,
  indf4   TYPE char1.

DATA :
  l_id       TYPE  thead-tdid,
  l_language TYPE  thead-tdspras,
  l_name     TYPE  thead-tdname,
  l_object   TYPE  thead-tdobject,
  lt_lines   TYPE TABLE OF tline,
  ls_lines   TYPE tline.

*Common Mandatory and Non Mandatory ALV Variables
DATA:
  i_layout     TYPE slis_layout_alv,
  i_events     TYPE slis_t_event,
  i_fieldcat   TYPE slis_t_fieldcat_alv,
  i_print      TYPE slis_print_alv,
  i_list_top   TYPE slis_t_listheader,
  i_list_end   TYPE slis_t_listheader,
  i_sort       TYPE slis_t_sortinfo_alv,
  i_color      TYPE lvc_t_scol WITH HEADER LINE,
  wa_fieldcat  LIKE LINE OF i_fieldcat,
  i_variant    LIKE disvariant,
  i_selfield   TYPE slis_selfield,
  fcode        TYPE TABLE OF sy-ucomm,
  ok_code      TYPE sy-ucomm,
  data_count   TYPE i,
  header_count TYPE i,
  v_total      TYPE sy-pagno.


RANGES :
  s_kschl FOR xkschl.

*&---------------------------------------------------------------------*
*&  Constants
*&---------------------------------------------------------------------*
CONSTANTS:
  yes TYPE flag VALUE 'X',
  no  TYPE flag VALUE space.

CONSTANTS :
  c_form_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
  c_form_before_line TYPE slis_formname VALUE 'BEFORE_LINE_OUTPUT'.

CONSTANTS:
  c_vrsio(3) VALUE '000'.

CONSTANTS: c_x VALUE 'X'.
CONSTANTS: n_s VALUE ' '.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

  PARAMETERS :
    p_bukrs TYPE bukrs OBLIGATORY.

  SELECT-OPTIONS:
    s_budat FOR acdoca-budat,
    s_kunnr FOR acdoca-kunnr,
    s_vbeln FOR likp-vbeln,
    s_bilnm FOR vbrk-vbeln,
    s_awref FOR vbkd-bstkd,
    s_contr FOR v_contr NO INTERVALS.

  SELECTION-SCREEN SKIP.
  PARAMETERS p_check AS CHECKBOX USER-COMMAND uc1.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.

  PARAMETERS :
    p_gjahr TYPE gjahr DEFAULT sy-datum(4) MODIF ID sc1.

  SELECT-OPTIONS:
    s_belnr FOR acdoca-belnr MODIF ID sc1.

SELECTION-SCREEN END OF BLOCK b2.


AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'SC1' AND p_check EQ 'X'.
      screen-active = 1.
      MODIFY SCREEN.
    ELSEIF screen-group1 = 'SC1' AND p_check NE 'X'.
      screen-active = 0.
      MODIFY SCREEN.
    ENDIF.

    IF p_bukrs IS INITIAL AND screen-name CS 'P_CHECK'.
      screen-active = 0.
      MODIFY SCREEN.
    ELSEIF p_bukrs IS NOT INITIAL AND screen-name CS 'P_CHECK'.
      screen-active = 1.
      MODIFY SCREEN.
    ENDIF.

  ENDLOOP.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_awref-low .
  CLEAR indf4.
  PERFORM f4_for_inv. "

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_awref-high .
  indf4 = 'X'.
  PERFORM f4_for_inv.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_contr-low .
  CLEAR indf4.
  PERFORM f4_for_contract.

FORM f4_for_inv.
  IF p_bukrs IS INITIAL.
    MESSAGE 'Select company code' TYPE 'S' DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.
  REFRESH : lt_rtab, lt_f4inv.
  CLEAR lt_rtab.

  SELECT * FROM zcds_sales_revenue
    INTO CORRESPONDING FIELDS OF TABLE @lt_f4inv
    FOR ALL ENTRIES IN @lt_blart
      WHERE rbukrs = @p_bukrs AND bstkd <> ''
      AND blart = @lt_blart-blart AND budat IN @s_budat.

  SORT lt_f4inv BY rbukrs kunnr donum bstkd.
  DELETE ADJACENT DUPLICATES FROM lt_f4inv COMPARING rbukrs kunnr donum bstkd.

  CLEAR ls_f4inv.
  LOOP AT lt_f4inv INTO ls_f4inv.
    SELECT SINGLE adrc~name1 FROM adrc INNER JOIN kna1
      ON adrc~addrnumber = kna1~adrnr
      INTO ls_f4inv-kname WHERE kna1~kunnr = ls_f4inv-kunnr.

    MODIFY lt_f4inv FROM ls_f4inv TRANSPORTING kname
      WHERE kunnr = ls_f4inv-kunnr.
    CLEAR ls_f4inv.
  ENDLOOP.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'BSTKD'
      value_org       = 'S'
*     multiple_choice = 'X'
    TABLES
      value_tab       = lt_f4inv
      return_tab      = lt_rtab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF indf4 <> 'X'.
    s_awref-low  = lt_rtab-fieldval.
  ELSE.
    s_awref-high = lt_rtab-fieldval.
  ENDIF.
  CLEAR indf4.
ENDFORM.

FORM f4_for_contract.
  IF p_bukrs IS INITIAL.
    MESSAGE 'Select company code' TYPE 'S' DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.
  REFRESH : lt_rtab, lt_f4cont.
  CLEAR lt_rtab.

  SELECT * FROM zcds_sales_revenue
    INTO CORRESPONDING FIELDS OF TABLE @lt_f4cont
    FOR ALL ENTRIES IN @lt_blart
      WHERE rbukrs = @p_bukrs AND blart = @lt_blart-blart
      AND donum <> '' AND budat IN @s_budat.

  SORT lt_f4cont BY rbukrs kunnr donum.
  DELETE ADJACENT DUPLICATES FROM lt_f4cont COMPARING rbukrs kunnr donum.

  CLEAR ls_f4cont.
  LOOP AT lt_f4cont INTO ls_f4cont.
    SELECT SINGLE adrc~name1 FROM adrc INNER JOIN kna1
      ON adrc~addrnumber = kna1~adrnr
      INTO ls_f4cont-kname WHERE kna1~kunnr = ls_f4cont-kunnr.

    MODIFY lt_f4cont FROM ls_f4cont TRANSPORTING kname
      WHERE kunnr = ls_f4cont-kunnr.

    CLEAR : l_id, l_name.
    l_id       = 'ZD01'.
    l_object   = 'VBBK'.
    l_name     = ls_f4cont-donum.
    l_language = sy-langu.

    REFRESH lt_lines.
    CALL FUNCTION 'READ_TEXT'
      EXPORTING
        id                      = l_id
        language                = l_language
        name                    = l_name
        object                  = l_object
      TABLES
        lines                   = lt_lines
      EXCEPTIONS
        id                      = 1
        language                = 2
        name                    = 3
        not_found               = 4
        object                  = 5
        reference_check         = 6
        wrong_access_to_archive = 7
        OTHERS                  = 8.

    CLEAR : ls_lines, ls_f4cont-cntrt.
    READ TABLE lt_lines INTO ls_lines INDEX 1.
    ls_f4cont-cntrt = ls_lines-tdline.

    MODIFY lt_f4cont FROM ls_f4cont TRANSPORTING cntrt
      WHERE donum = ls_f4cont-donum.

    CLEAR ls_f4cont.
  ENDLOOP.

  DELETE lt_f4cont WHERE cntrt IS INITIAL.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'CNTRT'
      value_org       = 'S'
*     multiple_choice = 'X'
    TABLES
      value_tab       = lt_f4cont
      return_tab      = lt_rtab
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF indf4 <> 'X'.
    s_contr-low  = lt_rtab-fieldval.
  ELSE.
    s_contr-high = lt_rtab-fieldval.
  ENDIF.
  CLEAR indf4.
ENDFORM.

Include ZSDR003_02.

*&---------------------------------------------------------------------*
*& Include          ZSDR003_02
*&---------------------------------------------------------------------*
FORM get_parameter.
  SELECT * FROM zcadt_parameters INTO TABLE @DATA(lt_params)
        WHERE program_name = 'R_SALES_REVENUE'.

  REFRESH : lt_blart, lt_kschl, s_kschl.
  LOOP AT lt_params INTO DATA(ls_params).
    IF ls_params-variable_name = 'BLART'.
      CLEAR ls_blart.
      ls_blart-blart = ls_params-zlow.
      APPEND ls_blart TO lt_blart.
    ELSEIF ls_params-variable_name = 'KSCHL'.
      CLEAR s_kschl.
      s_kschl-sign   = 'I'.
      s_kschl-option = 'EQ'.
      s_kschl-low    = ls_params-zlow.
      APPEND s_kschl TO s_kschl[].
    ENDIF.
    CLEAR ls_params.
  ENDLOOP.
ENDFORM.

FORM get_data.
  DATA ls_condt TYPE prcd_elements.

  REFRESH lt_data.

  SELECT * FROM zcadt_parameters INTO TABLE @DATA(lt_params)
      WHERE program_name = 'R_SALES_REVENUE'.

  REFRESH : lt_blart, lt_kschl, s_kschl.
  LOOP AT lt_params INTO DATA(ls_params).
    IF ls_params-variable_name = 'BLART'.
      CLEAR ls_blart.
      ls_blart-blart = ls_params-zlow.
      APPEND ls_blart TO lt_blart.
    ELSEIF ls_params-variable_name = 'KSCHL'.
      CLEAR s_kschl.
      s_kschl-sign   = 'I'.
      s_kschl-option = 'EQ'.
      s_kschl-low    = ls_params-zlow.
      APPEND s_kschl TO s_kschl[].
    ENDIF.
    CLEAR ls_params.
  ENDLOOP.

  CHECK lt_blart IS NOT INITIAL.

  IF p_check EQ 'X' AND s_belnr[] IS NOT INITIAL.
    IF p_gjahr IS INITIAL.
      MESSAGE 'Input Fiscal Year' TYPE 'S' DISPLAY LIKE 'E'.
      EXIT.
    ENDIF.
    SELECT * FROM zcds_sales_revenue INTO CORRESPONDING FIELDS OF TABLE @lt_data
      FOR ALL ENTRIES IN @lt_blart
      WHERE rbukrs = @p_bukrs AND kunnr IN @s_kunnr AND donum IN @s_vbeln
        AND bstkd IN @s_awref AND blart = @lt_blart-blart AND bilnm IN @s_bilnm
        AND belnr IN @s_belnr AND gjahr = @p_gjahr AND budat IN @s_budat.
  ELSE.
    SELECT * FROM zcds_sales_revenue INTO CORRESPONDING FIELDS OF TABLE @lt_data
      FOR ALL ENTRIES IN @lt_blart
      WHERE rbukrs = @p_bukrs AND kunnr IN @s_kunnr AND donum IN @s_vbeln
        AND bstnk IN @s_awref AND blart = @lt_blart-blart AND bilnm IN @s_bilnm
        AND budat IN @s_budat.
  ENDIF.

  IF lt_data IS NOT INITIAL.
    SELECT * FROM zcds_tax_calculation INTO TABLE @DATA(lt_tax)
      FOR ALL ENTRIES IN
        @lt_data WHERE mwskz = @lt_data-mwskz AND aland = 'ID'.

    REFRESH lt_pgidoc.
    SELECT * FROM zcds_sales_revenue02 INTO TABLE @lt_pgidoc
      FOR ALL ENTRIES IN @lt_data
        WHERE vbeln_im = @lt_data-donum
         AND ( vbelp_im = @lt_data-vgpos OR uecha = @lt_data-vgpos ).

    "Ambil Condition Type PPN
    IF s_kschl[] IS NOT INITIAL.
      SELECT * FROM prcd_elements INTO TABLE @DATA(lt_condt)
        FOR ALL ENTRIES IN @lt_data
          WHERE knumv = @lt_data-knumv AND kschl IN @s_kschl.
    ENDIF.

    REFRESH lt_kna1.
    SELECT kna1~kunnr adrc~name1 adrc~name2 FROM kna1 INNER JOIN adrc
      ON kna1~adrnr = adrc~addrnumber
      INTO TABLE lt_kna1
      FOR ALL ENTRIES IN lt_data
        WHERE kna1~kunnr = lt_data-kunnr.

    SORT lt_kna1 BY kunnr.
    SORT lt_pgidoc BY vbeln_im vbelp_im uecha.

    CLEAR ls_data.
    LOOP AT lt_data INTO ls_data.

*      READ TABLE s_contr[] INTO s_contr with key

      CLEAR ls_kna1.
      READ TABLE lt_kna1 INTO ls_kna1 WITH KEY kunnr = ls_data-kunnr BINARY SEARCH.
      CONCATENATE ls_kna1-name1 ls_kna1-name2 INTO ls_data-kname SEPARATED BY space.

      READ TABLE lt_condt
        WITH KEY knumv = ls_data-knumv kposn = ls_data-posnr TRANSPORTING NO FIELDS.
      IF sy-subrc = 0.
        CLEAR ls_condt.
        LOOP AT lt_condt INTO ls_condt WHERE knumv = ls_data-knumv AND kposn = ls_data-posnr.
          IF ls_condt-krech = 'A'.
            ls_data-txhsl = ls_data-txhsl + ( ls_data-hsl * ( ls_condt-kbetr / 100 ) ).
            ls_data-txwsl = ls_data-txwsl + ( ls_data-wsl * ( ls_condt-kbetr / 100 ) ).
            ls_data-txvsl = ls_data-txvsl + ( ls_data-vsl * ( ls_condt-kbetr / 100 ) ).
          ENDIF.
          CLEAR ls_condt.
        ENDLOOP.
      ENDIF.


      CLEAR ls_pgidoc.
      READ TABLE lt_pgidoc INTO ls_pgidoc WITH KEY vbeln_im = ls_data-donum vbelp_im = ls_data-vgpos BINARY SEARCH.
      IF ls_pgidoc IS INITIAL.
        READ TABLE lt_pgidoc WITH KEY vbeln_im = ls_data-donum uecha = ls_data-vgpos BINARY SEARCH TRANSPORTING NO FIELDS.
        IF sy-subrc = 0.
          CLEAR ls_pgidoc.
          LOOP AT lt_pgidoc INTO ls_pgidoc WHERE vbeln_im = ls_data-donum AND uecha = ls_data-vgpos.
            ls_data-cogsval     = ls_data-cogsval + ls_pgidoc-wsl.
            ls_data-cogsact     = ls_pgidoc-racct.
            ls_data-cogsactname = ls_pgidoc-txt50.
            CLEAR ls_pgidoc.
          ENDLOOP.
        ENDIF.
      ELSE.
        ls_data-cogsact     = ls_pgidoc-racct.
        ls_data-cogsactname = ls_pgidoc-txt50.
        ls_data-cogsval     = ls_pgidoc-wsl.
      ENDIF.

      IF ls_data-donum IS NOT INITIAL.
        "Ambil Nomor Contract
        CLEAR : l_id, l_name.
        l_id       = 'ZD01'.
        l_object   = 'VBBK'.
        l_name     = ls_data-donum.
        l_language = sy-langu.

        REFRESH lt_lines.
        CALL FUNCTION 'READ_TEXT'
          EXPORTING
            id                      = l_id
            language                = l_language
            name                    = l_name
            object                  = l_object
          TABLES
            lines                   = lt_lines
          EXCEPTIONS
            id                      = 1
            language                = 2
            name                    = 3
            not_found               = 4
            object                  = 5
            reference_check         = 6
            wrong_access_to_archive = 7
            OTHERS                  = 8.

        CLEAR ls_lines.
        READ TABLE lt_lines INTO ls_lines INDEX 1.
        ls_data-cntrt = ls_lines-tdline.
      ENDIF.

      IF ls_data-blart <> 'RV'.
        CLEAR : ls_data-bilnm, ls_tax.
        READ TABLE lt_tax INTO ls_tax WITH KEY mwskz = ls_data-mwskz.

        ls_data-txhsl = ls_data-hsl * ( ( ls_tax-kbetr / 10 ) / 100 ).
        ls_data-txwsl = ls_data-wsl * ( ( ls_tax-kbetr / 10 ) / 100 ).
        ls_data-txvsl = ls_data-vsl * ( ( ls_tax-kbetr / 10 ) / 100 ).
      ENDIF.

      MODIFY lt_data FROM ls_data TRANSPORTING kname WHERE kunnr = ls_data-kunnr.
      MODIFY lt_data FROM ls_data TRANSPORTING txhsl txwsl txvsl cogsact cogsactname cogsval cntrt bilnm
        WHERE rbukrs = ls_data-rbukrs AND belnr = ls_data-belnr
        AND gjahr = ls_data-gjahr AND buzei = ls_data-buzei.
      CLEAR ls_data.
    ENDLOOP.

    DELETE lt_data WHERE cntrt NOT IN s_contr.

    SORT lt_data BY blart rbukrs belnr gjahr bilnm posnr.
  ENDIF.

ENDFORM.

Include ZSDR003_03.

*&---------------------------------------------------------------------*
*& Include          ZSDR003_03
*&---------------------------------------------------------------------*
FORM f_layout_init USING p_layout TYPE slis_layout_alv.
*&---------------------------------------------------------------------*
*   Global settings for ALV worksheet, Change according to needs
*&---------------------------------------------------------------------*
*  p_layout-detail_popup       = yes.
*  p_layout-numc_sum           = yes.
  p_layout-colwidth_optimize  = yes.
*  p_layout-zebra              = no.
*  p_layout-get_selinfos        = yes.
*  p_layout-coltab_fieldname   = 'COLINFO'.
  p_layout-subtotals_text     = 'SubTotal'.
  p_layout-totals_text        = 'Total'.
*  p_layout-info_fieldname     = 'ROWCOLOR'.
  p_layout-box_fieldname      = 'RBUKRS'.

ENDFORM. " f_layout_init

FORM f_eventtab_build USING p_events TYPE slis_t_event.
*&---------------------------------------------------------------------*
  DATA:
    ls_event TYPE slis_alv_event.

  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = p_events.

**  IF rcry EQ ' ' AND rgrd EQ 'X'.
  READ TABLE p_events WITH KEY name = slis_ev_top_of_page INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_top_of_page TO: ls_event-form, ls_event-name.
    APPEND ls_event TO p_events.
  ENDIF.
**  ENDIF.

  READ TABLE p_events WITH KEY name = slis_ev_end_of_page INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_end_of_page TO: ls_event-form, ls_event-name.
    APPEND ls_event TO p_events.
  ENDIF.

*/..........
*  READ TABLE p_events WITH KEY name = slis_ev_end_of_list INTO ls_event.
*  IF sy-subrc = 0.
*    MOVE slis_ev_end_of_list TO: ls_event-form, ls_event-name.
*    APPEND ls_event TO p_events.
*  ENDIF.
*/.........

  READ TABLE p_events WITH KEY name = slis_ev_top_of_list INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_top_of_list TO: ls_event-form, ls_event-name.
    APPEND ls_event TO p_events.
  ENDIF.

*/...................
  READ TABLE p_events WITH KEY name = slis_ev_pf_status_set INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_pf_status_set TO: ls_event-form, ls_event-name.
    APPEND ls_event TO p_events.
  ENDIF.
*/..............

  READ TABLE p_events WITH KEY name = slis_ev_user_command INTO ls_event.
  IF sy-subrc = 0.
    MOVE slis_ev_user_command TO: ls_event-form, ls_event-name.
    APPEND ls_event TO p_events.
  ENDIF.

ENDFORM. " f_eventtab_build

*&---------------------------------------------------------------------*
FORM f_print_control.
*&---------------------------------------------------------------------*
  i_print-no_print_selinfos      = yes.
  i_print-no_print_listinfos     = yes.
  i_print-reserve_lines          = 0.
  i_print-no_change_print_params = yes.
ENDFORM. " f_print_control

*&---------------------------------------------------------------------*
FORM f_build_header_list.
*&---------------------------------------------------------------------*
  DATA: lwa_list_top LIKE LINE OF i_list_top,
        lv_text      LIKE sy-title,
        gs_line      TYPE slis_listheader,
        vtime        TYPE char12,
        vtitle       TYPE char50,
        vtitle1      TYPE char50,
        vtgl1        TYPE char10,
        vtgl2        TYPE char10,
        zmonth       TYPE char30,
        zagedas      TYPE char50,
        zpctr        TYPE char50,
        zperner      TYPE char50,
        vbukrs       TYPE char70.

  SELECT SINGLE adrc~name1 INTO vtitle
   FROM adrc
   INNER JOIN t001 ON adrc~addrnumber EQ t001~adrnr
   WHERE t001~bukrs = p_bukrs.

  CONCATENATE   p_bukrs '-' vtitle
  INTO vbukrs
  SEPARATED BY ' '.

  CLEAR lwa_list_top.
  lwa_list_top-typ = 'H'.
  lwa_list_top-key = no. "'Company Code '.
  lwa_list_top-info = vtitle.
*  lwa_list_top-info = vbukrs.
  APPEND lwa_list_top TO i_list_top.

*  vtitle = 'Aging Payables '.
  vtitle = 'AR Sales Revenue List '.

  CLEAR lwa_list_top.
  lwa_list_top-typ = 'H'.
  lwa_list_top-key = no.
  lwa_list_top-info = vtitle. "sy-title.
  APPEND lwa_list_top TO i_list_top.

  DATA irows TYPE i.
  DESCRIBE TABLE lt_data LINES irows.

  CLEAR zagedas.
  zagedas = irows.
  CONDENSE zagedas.
  CONCATENATE ':' zagedas 'Rows' INTO zagedas SEPARATED BY ' '.
  CLEAR lwa_list_top.
  lwa_list_top-typ = 'S'.
  lwa_list_top-key = 'Total Data '.
  lwa_list_top-info = zagedas.
  APPEND lwa_list_top TO i_list_top.

  DATA tamp TYPE string.
  CLEAR tamp.
ENDFORM. " f_build_header_list

FORM f_build_sort.
*&---------------------------------------------------------------------*
*   ini untuk pengurutan record
*----------------------------------------------------------------------*
  DATA: l_sort TYPE slis_sortinfo_alv.

  DEFINE def_sort.
    CLEAR l_sort.
*Sort position
    l_sort-spos      = &1.
    l_sort-fieldname = &2.
    l_sort-subtot    = &3.
*    l_sort-up        = &4.

*Sort by ascending
    l_sort-up        = yes.   """"""""""""""""""""""" kalo mau merubah desc digan dengan no

*Separate Line between Group
    l_sort-group     = 'UL'.
    APPEND l_sort TO i_sort.
  END-OF-DEFINITION.

*  def_sort '01' 'BUKRS' yes.
*  def_sort '02' 'LIFNR' yes.

ENDFORM. "f_build_sort

*&--------------------------------------------------------------------*
FORM f_print_alv.
*&--------------------------------------------------------------------*
*  data:
*    i_save value 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
*     i_callback_program      = gs_extract1-report
      i_callback_program      = sy-repid
*     i_callback_pf_status_set = 'PF_STATUS_SET'
      i_callback_user_command = 'USER_COMMAND'
      is_layout               = i_layout
      it_fieldcat             = i_fieldcat
      i_save                  = 'A'
      is_variant              = i_variant
      it_events               = i_events[]
      it_sort                 = i_sort
      is_print                = i_print
      i_html_height_top       = 25
    TABLES
      t_outtab                = lt_data
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM. "

FORM f_build_fieldcat.
  PERFORM :
        append_fieldcat USING 'BLART'    'Trans Type' 'CHAR' '' '' '12' '' 'X' 'LT_DATA',
        append_fieldcat USING 'AUART'    'Doc Type' 'CHAR' '' '' '12' '' 'X' 'LT_DATA',
        append_fieldcat USING 'BELNR'    'DocNum' 'CHAR' '' '' '10' '' 'X' 'LT_DATA',
        append_fieldcat USING 'GJAHR'    'DocYear' 'NUMC' '' '' '10' '' 'X' 'LT_DATA',
        append_fieldcat USING 'SONUM'    'Sales Order'  'CHAR' '' '' '10' '' 'X' 'LT_DATA',
        append_fieldcat USING 'DONUM'    'Delivery'  'CHAR' '' '' '10' '' 'X' 'LT_DATA',
        append_fieldcat USING 'BILNM'    'Billing Number' 'CHAR' '' '' '10' '' 'X' 'LT_DATA',
        append_fieldcat USING 'BSTKD'    'Inv No'  'CHAR' '' '' '35' '' '' 'LT_DATA',
        append_fieldcat USING 'CNTRT'    'Contract'  'CHAR' '' '' '20' '' '' 'LT_DATA',
*        append_fieldcat USING 'LDLNO'    'List DelNo' 'CHAR' '' '' '60' '' '' 'LT_DATA',
        append_fieldcat USING 'KUNNR'    'Card Code' 'CHAR' '' '' '10' '' '' 'LT_DATA',
        append_fieldcat USING 'KNAME'    'Card Name' 'CHAR' '' '' '80' '' '' 'LT_DATA',
        append_fieldcat USING 'BLDAT'    'Doc. Date' 'DATS' '' '' '10' '' '' 'LT_DATA',
        append_fieldcat USING 'MATNR'    'Item Code' 'CHAR' '' '' '40' '' '' 'LT_DATA',
        append_fieldcat USING 'MAKTX'    'Description' 'CHAR' '' '' '40' '' '' 'LT_DATA',
        append_fieldcat USING 'RACCT'    'Account' 'CHAR' '' '' '40' '' '' 'LT_DATA',
        append_fieldcat USING 'TXT50'    'Account Name' 'CHAR' '' '' '40' '' '' 'LT_DATA',
        append_fieldcat USING 'RWCUR'    'Document Currency' 'CUKY' '' '' '40' '' '' 'LT_DATA',
        append_fieldcat USING 'MSL'      'Quantity' 'QUAN' 'RUNIT' '' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'RUNIT'    'Unit' 'UNIT' '' '' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'HSL'      'AR Value'     'CURR' '' 'RHCUR' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'TXHSL'    'Tax Value'    'CURR' '' 'RHCUR' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'WSL'      'AR Value FC'  'CURR' '' 'RWCUR' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'TXWSL'    'Tax Value FC' 'CURR' '' 'RWCUR' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'VSL'      'AR Value SC'  'CURR' '' 'RVCUR' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'TXVSL'    'Tax Value SC' 'CURR' '' 'RVCUR' '20' '' '' 'LT_DATA',
*        append_fieldcat USING 'DONUM'    'Delivery'  'CHAR' '' '' '10' '' '' 'LT_DATA',
        append_fieldcat USING 'COGSACT'    'COGS Account' 'CHAR' '' '' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'COGSACTNAME'    'COGS Account Name' 'CHAR' '' '' '20' '' '' 'LT_DATA',
        append_fieldcat USING 'COGSVAL'    'COGS Value' 'CURR' '' 'RWCUR' '20' '' '' 'LT_DATA'.

*        append_fieldcat USING 'MATNR'    'Item Code' 'CURR' '' 'PSWSL' '30' '' '' 'LT_DATA',
ENDFORM.

FORM append_fieldcat USING p_fname p_fdesc p_dtype p_qfield p_cfield p_olen p_sum p_key p_tabname.
*  wa_fieldcat TO i_fieldcat
  DATA irows TYPE i.
  CLEAR irows.
  DESCRIBE TABLE i_fieldcat LINES irows.
  irows = irows + 1.
  CLEAR wa_fieldcat.
  wa_fieldcat-col_pos    = irows.
  wa_fieldcat-key        = p_key.
  wa_fieldcat-fieldname  = p_fname.
  wa_fieldcat-seltext_l  = p_fdesc.
  wa_fieldcat-seltext_m  = p_fdesc.
  wa_fieldcat-seltext_s  = p_fdesc.
  wa_fieldcat-datatype   = p_dtype.
  wa_fieldcat-qfieldname = p_qfield.
  wa_fieldcat-cfieldname = p_cfield.
  wa_fieldcat-outputlen  = p_olen.
  wa_fieldcat-do_sum     = p_sum.
  wa_fieldcat-tabname    = p_tabname.
  IF p_fname = 'KUNNR'.
    wa_fieldcat-ref_tabname = 'KNA1'.
  ENDIF.

  IF p_fname = 'RUNIT'.
*    wa_fieldcat-ref_tabname = 'T006'.
    wa_fieldcat-edit_mask = '==CUNIT'.
  ENDIF.

  IF p_fname = 'BELNR' OR p_fname = 'BILNM' OR p_fname = 'DONUM' OR p_fname = 'SONUM'.
    wa_fieldcat-hotspot = 'X'.
  ENDIF.

  IF p_fname = 'MSL' OR p_fname CS 'HSL' OR p_fname CS 'WSL'
     OR p_fname CS 'OSL' OR p_fname CS 'VSL' OR p_fname = 'COGSVAL'.
    wa_fieldcat-do_sum = 'X'.
  ENDIF.

  IF p_fname = 'BLART'.
    wa_fieldcat-ref_tabname = 'BKPF'.
*    wa_fieldcat-tabname     = 'BSEG'.
  ENDIF.

  IF p_fname = 'RBUKRS'.
    wa_fieldcat-no_out = 'X'.
  ENDIF.

  APPEND wa_fieldcat TO i_fieldcat.
ENDFORM.

*&---------------------------------------------------------------------*
FORM top_of_page.                                           "#EC CALLED
*&---------------------------------------------------------------------*
  DATA: lflg_grid TYPE c,
        lv_text   LIKE sy-title.
  IMPORT lflg_grid FROM MEMORY ID 'ALV_GRID_TOP_OF_PAGE'.
  IF lflg_grid = yes.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
        i_logo             = 'LOGO_IRNC'   "'ENJOYSAP_LOGO'
        it_list_commentary = i_list_top.
*              I_END_OF_LIST_GRID = i_list_end.
  ELSE.
    PERFORM f_print_header USING TEXT-100 lv_text space.
  ENDIF.
ENDFORM. "TOP_OF_PAGE

*&---------------------------------------------------------------------*
FORM pf_status_set USING rt_extab TYPE slis_t_extab.
*&---------------------------------------------------------------------*
  DESCRIBE TABLE rt_extab. "Avoid Extended Check Warning
  SET PF-STATUS 'ZRV_PF_STAT'.
*  SET PF-STATUS 'STANDARD_FULLSCREEN'.
*  SET TITLEBAR  'TITLEALV'.
ENDFORM. "PF_STATUS_SET

*&---------------------------------------------------------------------*
FORM user_command USING r_ucomm
                        i_selfield LIKE i_selfield.
*&---------------------------------------------------------------------*
  DATA: t_answer TYPE char1.

  CLEAR ok_code.
  ok_code = r_ucomm.
  CLEAR sy-ucomm.

  CASE r_ucomm.
    WHEN '&IC1'.
      IF i_selfield-fieldname = 'BELNR'.
        CLEAR ls_data.
        READ TABLE lt_data INTO ls_data INDEX i_selfield-tabindex.
        IF ls_data-belnr IS NOT INITIAL.
          SET PARAMETER ID 'BLN' FIELD ls_data-belnr.
          SET PARAMETER ID 'BUK' FIELD p_bukrs.
*          SET PARAMETER ID 'BUK' FIELD ls_data-rbukrs.
          SET PARAMETER ID 'GJR' FIELD ls_data-gjahr.
          CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
        ENDIF.
      ELSEIF i_selfield-fieldname = 'BILNM'.
        CLEAR ls_data.
        READ TABLE lt_data INTO ls_data INDEX i_selfield-tabindex.
        IF ls_data-bilnm IS NOT INITIAL.
          SET PARAMETER ID 'VF' FIELD ls_data-bilnm.
          CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.
        ENDIF.
      ELSEIF i_selfield-fieldname = 'DONUM'.
        CLEAR ls_data.
        READ TABLE lt_data INTO ls_data INDEX i_selfield-tabindex.
        IF ls_data-donum IS NOT INITIAL.
          SET PARAMETER ID 'VL' FIELD ls_data-donum.
          CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
        ENDIF.
      ELSEIF i_selfield-fieldname = 'SONUM'.
        CLEAR ls_data.
        READ TABLE lt_data INTO ls_data INDEX i_selfield-tabindex.
        IF ls_data-sonum IS NOT INITIAL.
          SET PARAMETER ID 'AUN' FIELD ls_data-sonum.
          CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
        ENDIF.

      ENDIF.
  ENDCASE.

ENDFORM. "user_command

*&---------------------------------------------------------------------*
FORM end_of_page.                                           "#EC CALLED
*&---------------------------------------------------------------------*
  DATA: l_pos(3)   TYPE n VALUE 0, l_foot(30) VALUE '*** END OF PAGE ***'.
  l_pos = ( sy-linsz / 2 ) - ( strlen( l_foot ) / 2 ).
  ULINE.
  WRITE: /, AT l_pos l_foot.
ENDFORM. "END_OF_PAGE

*&---------------------------------------------------------------------*
FORM end_of_list.                                           "#EC CALLED
*&---------------------------------------------------------------------*
  DATA: lv_page_count(3).
  DATA: l_pos(3)   TYPE n VALUE 0, l_foot(30) VALUE '*** END OF REPORT ***'.
  l_pos = ( sy-linsz / 2 ) - ( strlen( l_foot ) / 2 ).
  ULINE.
  WRITE: /, AT l_pos l_foot.
  CHECK sy-ucomm EQ '&RNT'.
  v_total = sy-pagno.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'ENJOYSAP_LOGO'
      i_end_of_list_grid = i_list_end.
ENDFORM. "END_OF_LIST

*&---------------------------------------------------------------------*
FORM f_print_header USING p_title1 LIKE sy-title
                          p_title2 LIKE sy-title
                          p_title3 LIKE sy-title.
*&---------------------------------------------------------------------*
  DATA : v_temp_str TYPE string,
         v_tgl1     TYPE string,
         v_tgl2     TYPE string.

  DATA: l_post1 TYPE i, l_post2 TYPE i, l_post3 TYPE i, l_post4 TYPE i, l_posin TYPE i.

  l_post1 = ( sy-linsz / 2 ) - ( strlen( p_title1 ) / 2 ).
  l_posin = sy-linsz - 35.

  WRITE : / 'PT XX'.
  WRITE AT  l_posin 'Date :'.
  WRITE     sy-datum.

  l_post4 = ( sy-linsz / 2 ) - ( strlen( v_temp_str ) / 2 ) - 6.
  WRITE /.
  WRITE AT: l_posin 'Reporting date  :'.

  WRITE:  / 'UserID  :', sy-uname.
  WRITE /.
  WRITE AT  l_posin 'Page :'.

  IF v_total IS NOT INITIAL.
    WRITE : AT l_posin sy-pagno NO-ZERO, 'of', (3) v_total.
  ELSE.
    WRITE (3) sy-pagno NO-ZERO.
  ENDIF.
ENDFORM. "f_print_header

dd

Custom structure