ALV Report-Two

SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S20 { font-style: italic; color: #7B7BC0; } .L1S31 { font-style: italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } REPORT   ZWZ_03.

TABLES  : vbak, vbap.
******************
*        KUAGV, "售达方一些资料
*        VBKD.   "表 采购订单编号
*
*DATA : wa_01 type STANDARD TABLE OF vbap,
*       wa_02 LIKE LINE OF wa_01.

DATA : BEGIN  OF  wa_03 OCCURS  0 ,
      vbeln LIKE  vbap-vbeln,
      posnr LIKE  vbap-posnv,
      audat LIKE  vbak-audat,
      matnr LIKE  vbap-matnr,
      kunnr LIKE  vbak-kunnr,
      netpr LIKE  vbap-netpr,
      arktx LIKE  vbap-arktx,
      kwmeng LIKE  vbap-kwmeng,
      month(2 ) TYPE  c ,
  END  OF  wa_03.
*DATA  wa_03 TYPE wa_03.
*-----------------------------------------------------------------------
*ALV层级关系定义
*-----------------------------------------------------------------------
"$ Region This block for ALV display
TYPE -POOLS: SLIS.
DATA : gt_fieldcatalog      TYPE  lvc_t_fcat.
DATA : gw_fieldcatalog      TYPE  lvc_s_fcat.
*定义存储下拉列表的数据
DATA :      gt_ddval             TYPE  lvc_t_drop.
DATA :      gw_ddval             TYPE  lvc_s_drop.

DATA :      gt_events            TYPE  slis_t_event.
DATA :      gw_events            TYPE  slis_alv_event.
DATA :      g_repid              TYPE  sy-repid VALUE  sy-repid.
"$ Endregion This block for ALV display

SELECTION-SCREEN  BEGIN  OF  BLOCK  BLK01 WITH  FRAME  TITLE  TEXT -001 .
SELECT -OPTIONS : S_vbeln for  vbak-vbeln .
SELECT -OPTIONS : s_vkorg for  vbak-vkorg .
SELECT -OPTIONS : s_vkbur for  vbak-vkbur .
SELECT -OPTIONS : s_audat for  vbak-audat .
SELECT -OPTIONS : s_aufnr for  vbak-aufnr .
SELECTION-SCREEN  END  OF  BLOCK  BLK01.
*WRITE:/ s_vbeln.

*----------------------------------------------------------------------
*预定义用于ALV加入字段
*----------------------------------------------------------------------
DEFINE  ADD_FIELD.
  CLEAR  gw_fieldcatalog.
  gw_fieldcatalog-fieldname = &1 .
  gw_fieldcatalog-coltext   = &2 .
*  if &1 = 'AUFNR'.
*    gw_fieldcatalog-REF_TABLE  = 'AFKO'.
*    gw_fieldcatalog-REF_FIELD  = 'AUFNR'.
*  endif.
  APPEND  gw_fieldcatalog TO  gt_fieldcatalog.
END -OF -DEFINITION .




*-----------------------------------------------------------------------
* 主执行程序
*-----------------------------------------------------------------------
START-OF -SELECTION.

*追加ALV字段
  PERFORM  ALV_FIELD_HEAD.
*选择数据
  PERFORM  GET_DATA.
*显示ALV
  PERFORM  CALL_ALV_SHOW.
*---------------------------------------------------------------------*
*      Form  GET_DATA
*---------------------------------------------------------------------*
FORM  GET_DATA .


SELECT  vb~vbeln vb~posnr vk~kunnr vk~audat vb~matnr vb~arktx  vb~netpr vb~kwmeng into  CORRESPONDING FIELDS  OF  TABLE  wa_03
  FROM
   vbap AS  vb INNER JOIN  vbak AS  vk ON  vb~vbeln = vk~vbeln
  WHERE  vb~vbeln IN  s_vbeln     "销售凭证
     AND  vk~vkorg IN  s_vkorg    "销售组织
     AND  vk~vkbur IN  s_vkbur   "销售部门
     AND  vk~audat IN  s_audat   "销售日期
     AND  vk~vdatu is  NOT  NULL
     AND  vk~aufnr in  s_aufnr.

  LOOP  AT  wa_03.
      "SELECT SINGLE kunnr INTO wa_03 FROM KUAGV .
        MOVE  wa_03-audat+4 (2 ) to  wa_03-month.
        modify  wa_03.
   ENDLOOP .
ENDFORM .                    "GET_DATA
*---------------------------------------------------------------------*
*      Form  ALV_OUTPUT
*---------------------------------------------------------------------*
FORM  ALV_FIELD_HEAD.

  ADD_FIELD 'VBELN'  '销售凭证' .
  ADD_FIELD 'POSNR'  '销售凭证项目' .
  ADD_FIELD 'AUDAT'  '销售订单日期' .
  ADD_FIELD 'MATNR'   '物料' .
  ADD_FIELD 'NETPR'  '价钱' .
  ADD_FIELD 'KUNNR'  '售达方' .
  ADD_FIELD 'MONTH'  '月份' .
  ADD_FIELD 'ARKTX'  '物料描述' .
  ADD_FIELD 'KWMENG'  '数量' .

ENDFORM .                    " ALV_OUTPUT
*---------------------------------------------------------------------*
*  FORM CALL_ALV_SHOW.
*---------------------------------------------------------------------*
FORM  CALL_ALV_SHOW.
  CALL  FUNCTION  'REUSE_ALV_GRID_DISPLAY_LVC'        "  ALV Function Ｍodule
    EXPORTING
      i_callback_program      = g_repid
      it_fieldcat_lvc         = gt_fieldcatalog
      I_CALLBACK_USER_COMMAND = 'PROCESS_USER_COMMAND'
      it_events               = gt_events
    TABLES
      t_outtab                = wa_03.
ENDFORM .                    " ALV_OUTPUT