FI--分期收款发出商品物料数据（仅供参考）

************************************************************************
* All Rights Reserved                                                  *
*----------------------------------------------------------------------*
* Program Name : ZFIR0039                                           *
* Program Title: 分期收款发出商品物料数据
* Created by   : DEV01                                                 *
* Created on   : 2006/08/02                                            *
* Version      : 1.0                                                   *
*----------------------------------------------------------------------*
* Function Description:                                                *
* 分期收款发出商品物料数据
*----------------------------------------------------------------------*
* Data Table List:                                                     *
* bkpf:
* bseg:
* mkpf:
* mseg:
* vbrk:
* vbap:
* konv:
*----------------------------------------------------------------------*
* Refrence Table List:                                                 *
*
*----------------------------------------------------------------------*
* Modification Log:                                                    *
* Date        Programmer     Correction Number                         *
*2006-08-10   dev01          增加控制零值是否显示控制参数
************************************************************************

report  zFIR0039 .
*----------------------------------------------------------------------*
* TABLES                                                               *
*----------------------------------------------------------------------*
tables: bkpf,
        bseg.
*----------------------------------------------------------------------*
* TYPES OR TYPE-POOLS                                                  *
*----------------------------------------------------------------------*
type-pools: slis.
*----------------------------------------------------------------------*
* INTERNAL TABLES AND WORK AREAS                                       *
*----------------------------------------------------------------------*
* 查询结果输出内表
data: gt_result like zfico0001 occurs 0 with header line.
*WL/WA凭证对应物料凭证查询结果
data: begin of gt_mkpf occurs 100,
          matnr  like vbrp-matnr,        "物料代号
          shkzg  like zfico0001-shkzg,   "借贷
          blart  like bkpf-blart,        "凭证类型
          hkont  like bseg-hkont,        "科目
          vbeln  like mkpf-mblnr,        "物料单号
          posnr  like mseg-zeile,        "行号
          belnr  like bkpf-belnr,        "会计凭证号
          fkart  like mseg-bwart,        "移动类型类型
          fkimg  like vbrp-fkimg,        "数量
          kwert  like konv-kwert,        "成本
          bualt  like mseg-bualt,
          dmbtr  like mseg-dmbtr,        "成本
        end of gt_mkpf.
data gt_mkpf_s like table of gt_mkpf.
*RV凭证对应发票查询结果
data: begin of gt_vbrk occurs 100,
          matnr  like vbrp-matnr,        "物料代号
          shkzg  like zfico0001-shkzg,   "借贷
          vbeln  like vbrk-vbeln,        "单号
          posnr  like vbrp-posnr,        "行号
          belnr  like bkpf-awkey,        "会计凭证号
          fkart  like vbrk-fkart,        "类型
          fkimg  like vbrp-fkimg,        "数量
          kwert  like konv-kwert,        "成本
        end of gt_vbrk.
data gt_vbrk_s like table of gt_vbrk.
*总表和明细表格式内表
data: gt_field type slis_t_fieldcat_alv,
      gt_sort       type slis_t_sortinfo_alv,
      gt_sortvbrk   type slis_t_sortinfo_alv,
      gt_fieldvbrk  type slis_t_fieldcat_alv,
      gt_sortmkpf   type slis_t_sortinfo_alv,
      gt_fieldmkpf  type slis_t_fieldcat_alv.
*----------------------------------------------------------------------*
* GLOBAL VARIABLES                                                     *
*----------------------------------------------------------------------*
data: g_repid like sy-repid,
      g_dynnum like sy-dynnr.
*定义查询屏幕
selection-screen begin of block s_1 with frame title text-001.
parameters: p_bukrs like bkpf-bukrs obligatory .    "公司代码
parameters: p_dates like sy-datum obligatory  default sy-datum."会计日期
parameters: p_datee like sy-datum obligatory  default sy-datum."会计日期
selection-screen end of block s_1.

selection-screen begin of block s_2 with frame title text-002.
parameters: p_wl as checkbox  default 'X'.   "是否检查WA
parameters: p_rv as checkbox  default 'X'.   "是否检查RV
selection-screen end of block s_2.

include zformatgridfield.
************************************************************************
* MAIN PROCESS                                                         *
************************************************************************

*----------------------------------------------------------------------*
* INITIALIZATION                                                       *
*----------------------------------------------------------------------*
initialization.
  g_repid = sy-repid.
  g_dynnum  = sy-dynnr.

*----------------------------------------------------------------------*
* AT SELECTION-SCREEN                                                  *
*----------------------------------------------------------------------*
at selection-screen.
  if p_dates+0(6) <> p_datee+0(6).
    message '日期必须为同个期间' type 'E'.
  endif.
*----------------------------------------------------------------------*
* START-OF-SELECTION                                                   *
*----------------------------------------------------------------------*
start-of-selection.
*----------------------------------------------------------------------*
* END-OF-SELECTION                                                     *
*----------------------------------------------------------------------*
end-of-selection.
*显示结果
  perform sub_select_data.
  perform sub_create_field_cat.
  perform sub_create_sort_cat.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program      = g_repid
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat             = gt_field[]
      it_sort                 = gt_sort[]
    tables
      t_outtab                = gt_result[].
************************************************************************
*&Form Name    : SUB_CREATE_FIELD_CAT
* Created by   : DEV01                                                 *
* Created on   : 2006/07/31                                            *
*----------------------------------------------------------------------*
* Function Description:                                                *
* 字段格式定义
*----------------------------------------------------------------------*
*参数说明               *
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
* Date        Programmer   Description          *
************************************************************************
form sub_create_field_cat.
  refresh  gt_field.
  perform sub_field_des using :
   '' '' 'BUKRS' '' 'X' '' '' '公司代码' '8' '' '' gt_field[],
   '' '' 'GJAHR' '' 'X' '' '' '会计年度' '8' '' '' gt_field[],
   '' '' 'MONAT' '' 'X' '' '' '会计期间' '8' '' '' gt_field[],
   '' '' 'BLART' '' 'X' '' '' '凭证类型' '8' '' '' gt_field[],
   '' '' 'HKONT' '' 'X' '' '' '会计科目' '10' '' '' gt_field[],
   '' '' 'SHKZG' '' 'X' '' '' '借贷' '4' '' '' gt_field[],
   '' '' 'MATNR' '' 'X' '' '' '物料代码' '18' '' '' gt_field[],
   '' '' 'FKIMG' '' '' '' 'X' '数量' '15' '' '' gt_field[],
   '' '' 'WRBTR' '' '' '' 'X' '成本' '15' '' '' gt_field[].
endform.                    " SUB_CREATE_FIELD_CAT
************************************************************************
*&Form Name    : SUB_CREATE_SORT_CAT
* Created by   : DEV01                                                 *
* Created on   : 2006/07/31                                            *
*----------------------------------------------------------------------*
* Function Description:                                                *
* 字段排序定义
*-----------------------------------------------------------------