SD--提取订单的定价过程的各类折扣的报表样例

REPORT z_sales_discount.

TYPES: BEGIN OF s_all,
  vkorg TYPE vkorg,              "sales organization
  fkart TYPE fkart,              "billing type
  fkdat TYPE fkdat,              "billing date
b_vbeln TYPE vbeln_vf,           "billing document
  kunag TYPE kunag,              "sold-to party
  spart TYPE spart,              "division
  gsber TYPE gsber,              "business area
  bstnk TYPE bstnk,              "po munber
  aubel TYPE vbeln_va,           "sales document
  matnr TYPE matnr,              "material number
  kwert TYPE kwert,              "gross value
  kbetr TYPE kbetr,              "rate(condition amount or percentage)
  knumv TYPE knumv,              "number of document condition
  kposn TYPE kposn,              "condition item number
  kschl TYPE kscha,              "condition type
b_posnr TYPE posnr_vf,           "billing item
  waerk TYPE waerk,              "sd document currency
  kurrf TYPE kurrf,              "exchange rate_accntg
  name1 TYPE name1_gp,           "name 1
  kunnr TYPE name1,              "customer name 1
  arktx TYPE arktx,              "short text for sales order item
  fkimg TYPE fkimg,              "actual billed quantity
  vrkme TYPE vrkme,              "sales unit
  netwr TYPE netwr_fp,           "net value of the billing item in document currency
s_vbeln TYPE vbeln_va,           "sales document
  ra01_discount TYPE kbetr,      "ra01%discount
  ra01_dis_amt  TYPE kwert,      "ra01 discount amount
  ra00_discount TYPE kbetr,      "ra00%discount
  ra00_dis_amt  TYPE kwert,      "ra00 discount amount
s_kwmeng TYPE kwmeng,            "sales order total quantity
s_kwert  TYPE kwert,             "sales order total gross value
  END OF s_all.


TYPES: BEGIN OF s_konv,
  kwert TYPE kwert,              "gross value
  kbetr TYPE kbetr,              "rate(condition amount or percentage)
  knumv TYPE knumv,              "number of document condition
  kposn TYPE kposn,              "condition item number
  kschl TYPE kscha,              "condition type
  END OF s_konv.

TYPES: BEGIN OF s_kna1,
  name1 TYPE name1_gp,           "name 1
  kunnr TYPE name1,              "customer name 1
  kunag TYPE kunag,              "sold-to party
  END OF s_kna1.

TYPES: BEGIN OF s_vbap,
  kwmeng TYPE kwmeng,            "cumulative order quantity in sales units
  abgru  TYPE abgru_va,          "reason for rejection of quotations and sales orders
s_vbeln  TYPE vbeln_va,          "sales document
  END OF s_vbap.

TYPE-POOLS: slis.                      "ALV Declarations

TYPES: t_all TYPE STANDARD TABLE OF s_all,
       t_konv TYPE STANDARD TABLE OF s_konv,
       t_kna1 TYPE STANDARD TABLE OF s_kna1,
       t_vbap TYPE STANDARD TABLE OF s_vbap.

DATA: it_all TYPE t_all,
      it_konv TYPE t_konv,
      it_kna1 TYPE t_kna1,
      it_vbap TYPE t_vbap,
      it_total TYPE t_all,
      it_total_out TYPE t_all.

DATA: wa_all TYPE LINE OF t_all,
      wa_konv TYPE LINE OF t_konv,
      wa_kna1 TYPE LINE OF t_kna1,
      wa_vbap TYPE LINE OF t_vbap,
      wa_total TYPE LINE OF t_all,
      wa_total_out TYPE LINE OF t_all.

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_repid     LIKE sy-repid.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.

SELECT-OPTIONS: x_vkorg FOR wa_all-vkorg,                                "sales organization
                x_fkart FOR wa_all-fkart MATCHCODE OBJECT h_tvfk,        "billing type
                x_fkdat FOR wa_all-fkdat,                                "billing date
                x_vbeln FOR wa_all-b_vbeln MATCHCODE OBJECT f4_vbrk,     "billing document
                x_kunag FOR wa_all-kunag MATCHCODE OBJECT debi.          "sold-to party
SELECTION-SCREEN SKIP.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.

PARAMETERS x_check AS CHECKBOX.

SELECT-OPTIONS: x_spart FOR wa_all-spart,                                "division
                x_gsber FOR wa_all-gsber MATCHCODE OBJECT h_tgsb,        "business area
                x_matnr FOR wa_all-matnr,                                "material
                x_bstnk FOR wa_all-bstnk,                                "po munber
                x_aubel FOR wa_all-aubel.                                "sales document

SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b1.

START-OF-SELECTION.
  PERFORM data_select.
  PERFORM data_processing.

END-OF-SELECTION.
  PERFORM data_display.

*&---------------------------------------------------------------------*
*&      Form  data_select
*&---------------------------------------------------------------------*
*       perform data selecting
*----------------------------------------------------------------------*
FORM data_select.
  PERFORM select_from_vbrk_vbrp_vbak.
  PERFORM select_from_konv.
  PERFORM select_from_kna1.
  PERFORM select_from_vbap.
ENDFORM.                    "data_select

*&---------------------------------------------------------------------*
*&      Form  data_processing
*&---------------------------------------------------------------------*
*       perform data processing
*----------------------------------------------------------------------*
FORM data_processing.
  PERFORM get_gross_dis_amt.
  PERFORM get_total_gross.
  PERFORM get_total.
ENDFORM.                    "data_processing

*&---------------------------------------------------------------------*
*&      Form  data_display
*&---------------------------------------------------------------------*
*       perform data displaying
*----------------------------------------------------------------------*
FORM data_display.
  IF x_check = 'X'.
    PERFORM build_fieldcatalog.
    PERFORM display_alv_report USING it_all.
  ELSE.
    PERFORM build_fieldcatalog.
    PERFORM display_alv_report USING it_total_out.
  ENDIF.
ENDFORM.                    "data_display

*&---------------------------------------------------------------------*
*&      Form  select_from_vbrk_vbrp_vbak
*&---------------------------------------------------------------------*
*       1~select data from table vbrk/vbrp/vbak into it_all.
*       2~when billing type is 's1',add negative to net value
*----------------------------------------------------------------------*
FORM select_from_vbrk_vbrp_vbak.
  SELECT vbrk~vkorg
         vbrk~fkart
         vbrk~fkdat
         vbrk~vbeln AS b_vbeln
         vbrk~kunag
         vbrp~spart
         vbrp~matnr
         vbrp~gsber
         vbrp~aubel
         vbak~bstnk
         vbrk~knumv
         vbrp~posnr AS b_posnr
         vbrk~waerk
         vbrk~kurrf
         vbrp~matnr
         vbrp~arktx
         vbrp~fkimg
         vbrp~vrkme
         vbrp~netwr

    INTO CORRESPONDING FIELDS OF TABLE it_all
    FROM vbrp
    JOIN vbak ON vbak~vbeln = vbrp~aubel
    JOIN vbrk ON vbrk~vbeln = vbrp~vbeln
    WHERE vbrk~vkorg IN x_vkorg
    AND   vbrk~vkorg NOT IN ('4802','4803') "Sale Organization
    AND   vbrk~fkart IN x_fkart
    AND   vbrk~fkart NOT IN ('ZMF8','ZPF8')
    AND   vbrk~fkdat IN x_fkdat
    AND   vbrk~vbeln IN x_vbeln
    AND   vbrk~kunag IN x_kunag
    AND   vbrp~spart IN x_spart
    AND   vbrp~matnr IN x_matnr
    AND   vbrp~gsber IN x_gsber
    AND   vbrp~aubel IN x_aubel.

  SORT it_all BY b_vbeln kunag.

  IF sy-subrc <> 0.
    MESSAGE i001(zjenni_msg).
  ENDIF.

  LOOP AT it_all INTO wa_all.
    IF wa_all-fkart = 'S1'.
      wa_all-netwr = -1 * wa_all-netwr.
      MODIFY it_all FROM wa_all TRANSPORTING netwr.
    ENDIF.
  ENDLOOP.
  CLEAR wa_all.

ENDFORM.                    "select_from_vbrk_vbrp_vbak

*&---------------------------------------------------------------------*
*&      Form  select_from_konv
*&---------------------------------------------------------------------*
*       select data from table konv into it_konv
*----------------------------------------------------------------------*
FORM select_from_konv.

  IF it_all[] IS NOT INITIAL.

    SELECT kwert
           kbetr
           knumv
           kposn
           kschl
      FROM konv
      INTO CORRESPONDING FIELDS OF TABLE it_konv
      FOR ALL ENTRIES IN it_all
      WHERE knumv = it_all-knumv
      AND   kposn = it_all-b_posnr
      AND   kschl IN ('PR00','RA00','RA01').
  ENDIF.
  SORT it_konv BY knumv kposn.

  IF sy-subrc <> 0.
    MESSAGE i001(zjenni_msg).
  ENDIF.

ENDFORM.                    "select_from_konv

*&---------------------------------------------------------------------*
*&      Form  select_from_kna1
*&---------------------------------------------------------------------*
*       select data from table kna1 into it_all
*----------------------------------------------------------------------*
FORM select_from_kna1.
  IF it_all[] IS NOT INITIAL.

    SELECT name1
           kunnr
      FROM kna1
      INTO CORRESPONDING FIELDS OF TABLE it_kna1
      FOR ALL ENTRIES IN it_all
      WHERE kunnr = it_all-kunag.
  ENDIF.
  SORT it_kna1 BY kunnr.

  IF sy-subrc <> 0.
    MESSAGE i001(zjenni_msg).
  ENDIF.

  LOOP AT it_all INTO wa_all.
    READ TABLE it_kna1 INTO wa_kna1
    WITH KEY kunnr = wa_all-kunag BINARY SEARCH.
    wa_all-name1 = wa_kna1-name1.
    MODIFY it_all  FROM wa_all TRANSPORTING name1.
  ENDLOOP.
  CLEAR wa_all.

ENDFORM.                    "select_from_kna1

*&---------------------------------------------------------------------*
*&      Form  select_from_vbap
*&---------------------------------------------------------------------*
*       1~select data from table vbap
*       2~get sales order total quantity
*----------------------------------------------------------------------*
FORM select_from_vbap.
  DATA: it_temp TYPE t_vbap,
        wa_temp TYPE LINE OF t_vbap.

  IF it_all[] IS NOT INITIAL.
    SELECT kwmeng
           abgru
           posnr
           vbeln AS s_vbeln
      FROM vbap
      INTO CORRESPONDING FIELDS OF TABLE it_vbap
      FOR ALL ENTRIES IN it_all
      WHERE vbeln = it_all-aubel
      AND   posnr = it_all-b_posnr
      AND   abgru = ''.
  ENDIF.
  SORT it_vbap BY kwmeng.

  IF sy-subrc <> 0.
    MESSAGE i001(zjenni_msg).
  ENDIF.

  LOOP AT it_vbap INTO wa_vbap.
    COLLECT wa_vbap INTO it_temp.
  ENDLOOP.
  CLEAR wa_vbap.

  LOOP AT it_all INTO wa_all.
    READ TABLE it_temp INTO wa_temp
    WITH KEY s_vbeln = wa_all-aubel BINARY SEARCH.
    wa_all-s_kwmeng = wa_temp-kwmeng.
    MODIFY it_all  FROM wa_all TRANSPORTING s_kwmeng.
  ENDLOOP.
  CLEAR wa_all.

ENDFORM.                    "select_from_vbap

*&---------------------------------------------------------------------*
*&      Form  get_gross_dis_amt
*&---------------------------------------------------------------------*
*       get particular gross value, discount,discount amount
*----------------------------------------------------------------------*
FORM get_gross_dis_amt.
  DATA: it_temp TYPE t_konv,
        wa_temp TYPE LINE OF t_konv.

  LOOP AT it_all INTO wa_all.
    READ TABLE it_konv INTO wa_konv
    WITH KEY knumv = wa_all-knumv
             kposn = wa_all-b_posnr
             BINARY SEARCH.

    IF wa_konv-kschl = 'PR00'.
      wa_all-kwert = wa_konv-kwert.
      MODIFY it_all FROM wa_all TRANSPORTING kwert.
    ENDIF.

    IF wa_konv-kschl = 'RA01'.
      wa_all-ra01_discount = wa_konv-kbetr / 10.
      wa_all-ra01_dis_amt = wa_konv-kwert.
      MODIFY it_all FROM wa_all TRANSPORTING ra01_discount.
      MODIFY it_all FROM wa_all TRANSPORTING ra01_dis_amt.
    ENDIF.

    IF wa_konv-kschl = 'RA00'.
      wa_all-ra01_discount = wa_konv-kbetr / 10.
      wa_all-ra01_dis_amt = wa_konv-kwert.
      MODIFY it_all FROM wa_all TRANSPORTING ra00_discount.
      MODIFY it_all FROM wa_all TRANSPORTING ra00_dis_amt.
    ENDIF.
    CLEAR wa_konv.

  ENDLOOP.
  CLEAR wa_all.

ENDFORM.                    "get_gross_dis_amt

*&---------------------------------------------------------------------*
*&      Form  get_total_gross
*&---------------------------------------------------------------------*
*       1~get total gross value
*       2~when billing type is 's1',add negative to gross value and total gross
*----------------------------------------------------------------------*
FORM get_total_gross.
  DATA: it_temp TYPE t_konv,
        wa_temp TYPE LINE OF t_konv,
        it_konv_temp TYPE t_konv,
        wa_konv_temp TYPE LINE OF t_konv.

  IF it_all[] IS NOT INITIAL.
    SELECT kwert
           knumv
           kschl
      FROM konv
      INTO CORRESPONDING FIELDS OF TABLE it_konv_temp
      FOR ALL ENTRIES IN it_all
      WHERE knumv = it_all-knumv
      AND   kschl = 'PR00'.
  ENDIF.

  LOOP AT it_konv_temp INTO wa_konv_temp.
    COLLECT wa_konv_temp INTO it_temp.
  ENDLOOP.
  CLEAR wa_konv_temp.

  LOOP AT it_temp INTO wa_temp.
*    write: at / wa_temp-kwert,
*                '@'.
  ENDLOOP.

  LOOP AT it_all INTO wa_all.
    READ TABLE it_temp INTO wa_temp
    WITH KEY knumv = wa_all-knumv
    BINARY SEARCH.
    wa_all-s_kwert = wa_temp-kwert.
    MODIFY it_all  FROM wa_all TRANSPORTING s_kwert.
  ENDLOOP.
  CLEAR wa_all.

  LOOP AT it_all INTO wa_all.
    IF wa_all-fkart = 'S1'.
      wa_all-kwert = -1 * wa_all-kwert.
      wa_all-s_kwert = -1 * wa_all-s_kwert.
      MODIFY it_all FROM wa_all TRANSPORTING kwert s_kwert.
    ENDIF.
  ENDLOOP.
  CLEAR wa_all.

ENDFORM.                    "get_total_gross

*&---------------------------------------------------------------------*
*&      Form  get_total
*&---------------------------------------------------------------------*
*       get all the total value into it_total_out
*----------------------------------------------------------------------*
FORM get_total.
  DATA: it_total_temp TYPE t_all,
        wa_total_temp TYPE LINE OF t_all.

  LOOP AT it_all INTO wa_all.
    wa_total_temp-b_vbeln = wa_all-b_vbeln.
    wa_total_temp-fkart = wa_all-fkart.
    wa_total_temp-vkorg = wa_all-vkorg.
    wa_total_temp-kunag = wa_all-kunag.
    wa_total_temp-name1 = wa_all-name1.
    wa_total_temp-fkdat = wa_all-fkdat.
    wa_total_temp-fkimg = wa_all-fkimg.
    wa_total_temp-ra01_discount = wa_all-ra01_discount.
    wa_total_temp-ra00_discount = wa_all-ra00_discount.
    wa_total_temp-netwr = wa_all-netwr.
    wa_total_temp-vrkme = wa_all-vrkme.
    wa_total_temp-waerk = wa_all-waerk.
    APPEND wa_total_temp TO it_total.
  ENDLOOP.
  CLEAR wa_all.

  LOOP AT it_total INTO wa_total.
    COLLECT wa_total INTO it_total_out.
  ENDLOOP.
  CLEAR wa_total.

  LOOP AT it_total_out INTO wa_total_out.
    READ TABLE it_all INTO wa_all
    WITH KEY b_vbeln = wa_total_out-b_vbeln BINARY SEARCH.
    wa_total_out-kurrf = wa_all-kurrf.
    wa_total_out-kwert = wa_all-s_kwert.
    MODIFY it_total_out FROM wa_total_out TRANSPORTING kurrf kwert netwr.
  ENDLOOP.
  CLEAR wa_total_out.

ENDFORM.                    "get_total

*&---------------------------------------------------------------------*
*&      Form  build_fieldcatalog
*&---------------------------------------------------------------------*
*       form fieldcatalog for both items and totals
*----------------------------------------------------------------------*
FORM build_fieldcatalog.

  DATA count TYPE i VALUE 1.

  fieldcatalog-fieldname   = 'B_VBELN'.
  fieldcatalog-seltext_l   = 'Billing Document'(001).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'FKART'.
  fieldcatalog-seltext_l   = 'Billing Type'(003).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'VKORG'.
  fieldcatalog-seltext_l   = 'Sales Org'(002).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'KUNAG'.
  fieldcatalog-seltext_l   = 'Sold-to Party'(005).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'NAME1'.
  fieldcatalog-seltext_l   = 'Name'(011).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'FKDAT'.
  fieldcatalog-seltext_l   = 'Billing date'(004).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'SPART'.
  fieldcatalog-seltext_l   = 'Division'(006).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'MATNR'.
  fieldcatalog-seltext_l   = 'Material No'(008).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'ARKTX'.
  fieldcatalog-seltext_l   = 'Material Description'(012).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'FKIMG'.
  fieldcatalog-seltext_l   = 'Billing Qty'(013).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'VRKME'.
  fieldcatalog-seltext_l   = 'Sales Unit'(014).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'KURRF'.
  fieldcatalog-seltext_l   = 'Exchange rate-accntg'(015).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'KWERT'.
  fieldcatalog-seltext_l   = 'Gross Value'(016).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'WAERK'.
  fieldcatalog-seltext_l   = 'Currency'(017).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'RA01_DISCOUNT'.
  fieldcatalog-seltext_l   = 'RA01%Discount'(018).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = ''.
  fieldcatalog-seltext_l   = ''.
  fieldcatalog-edit_mask   = '%'.
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'RA01_DIS_AMT'.
  fieldcatalog-seltext_l   = 'RA01 Discount Amount'(019).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'WAERK'.
  fieldcatalog-seltext_l   = 'Currency'(017).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   =  'RA00_DISCOUNT'.
  fieldcatalog-seltext_l   =  'RA00%Discount'(020).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = ''.
  fieldcatalog-seltext_l   = ''.
  fieldcatalog-edit_mask   = '%'.
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'RA00_DIS_AMT'.
  fieldcatalog-seltext_l   = 'RA00 Discount Amount'(021).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   =  'WAERK'.
  fieldcatalog-seltext_l   =  'Currency'(017).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'NETWR'.
  fieldcatalog-seltext_l   = 'Net Value'(022).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   =  'WAERK'.
  fieldcatalog-seltext_l   =  'Currency'(017).
  fieldcatalog-col_pos     = count.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
  count = count + 1.

  fieldcatalog-fieldname   = 'GSBER'.
  fieldcatalog-seltext_l   = 'Business Area'(007).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'BSTNK'.
  fieldcatalog-seltext_l   = 'PO Number'(009).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'AUBEL'.
  fieldcatalog-seltext_l   = 'Sales Document'(010).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   =  'S_KWMENG'.
  fieldcatalog-seltext_l   =  'Sales Order Total Quantity'(023).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'S_KWERT'.
  fieldcatalog-seltext_l   = 'Sales Order Total Gross Value'(024).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   =  'WAERK'.
  fieldcatalog-seltext_l   =  'Currency'(017).
  fieldcatalog-col_pos     = count.
  IF x_check <> 'X'.
    fieldcatalog-no_out      =  'X'.
    count = count + 1.
  ENDIF.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

ENDFORM.                    " BUILD_FIELDCATALOG

*&---------------------------------------------------------------------*
*&      Form  display_alv_report
*&---------------------------------------------------------------------*
*       form alv display
*----------------------------------------------------------------------*
*      --&gtFT_OUTPUT  text
*----------------------------------------------------------------------*
FORM display_alv_report USING ft_output TYPE STANDARD TABLE.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = gd_repid
      it_fieldcat        = fieldcatalog[]
      i_save             = 'X'
    TABLES
      t_outtab           = ft_output
    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.                    " DISPLAY_ALV_REPORT

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/15232446/viewspace-538133/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/15232446/viewspace-538133/