ABAP 客户回款报表

&---------------------------------------------------------------------
*& 包含 ZFIR014_TOP
&---------------------------------------------------------------------

"全局定义变量
" BSEG-H_BLDAT TVKOT-VTEXT BSEG-HKONT KNA1-NAME1 KNA1-NAME1 KNA1-NAME1 KNA1-ORT01
" BSEG-PSWSL BSEG-H_BLART BSEG-BELNR BKPF-STBLG BSEG-AUGBL BSEG-PSWBT BSEG-DMBTR SKAT-TXT50

TYPE-POOLS:slis.
TABLES:bseg,tvkot,kna1,knb1,bkpf,skat,knvv,knvp.

TYPES:BEGIN OF ty_output,
sel,
all_name TYPE kna1-name1, "全称
name01 TYPE kna1-name1, "业务员1
name02 TYPE kna1-name1, "业务员2
ort01 TYPE kna1-ort01, "城市

    h_bldat   TYPE bseg-h_bldat,  "凭证日期
    kunnr     TYPE bseg-kunnr,    "客户编码
    kunnr6     TYPE kunnr,    "客户编码
    kunn2     TYPE kunn2,    "客户编码
    kunn3     TYPE kunn2,    "客户编码
    pswsl     TYPE bseg-pswsl,    "币种
    h_blart   TYPE bseg-h_blart,  "会计凭证类型
    belnr     TYPE bseg-belnr,    "会计凭证编码
    belnr02   TYPE bseg-belnr,    "会计凭证编码
    hkont02   TYPE bseg-hkont,    "会计凭证编码
    belnr_b   TYPE bkpf-belnr,    "会计凭证编码
    buzei     TYPE bseg-buzei,    "会计凭证行项目
    augbl     TYPE bseg-augbl,    "清账凭证号
    pswbt     TYPE bseg-pswbt,    "回款金额（原币）
    hkjeyb    TYPE bseg-dmbtr,    "回款金额（原币）
    dmbtr     TYPE bseg-dmbtr,    "回款金额（本位币）
    hkjebb    TYPE bseg-dmbtr,    "回款金额（本位币）

•    hkont    TYPE bseg-hkont,    "总分类帐帐目
    hkont(10) TYPE c,    "总分类帐帐目
    saknr     TYPE bseg-saknr,    "总帐科目
    bschl     TYPE bseg-bschl,    "过账码
    shkzg     TYPE bseg-shkzg,    "借方/贷方标识
  
    awkey     TYPE bseg-awkey,    "总帐科目
    bukrs     TYPE bseg-bukrs,    "公司代码
    bukrs_b   TYPE bkpf-bukrs,    "公司代码
    gjahr     TYPE bseg-gjahr,    "财年
    h_monat   TYPE bseg-h_monat,  "月份
    gjahr_b   TYPE bkpf-gjahr,    "财年
  
    zpes1     TYPE kunn2,
    zpes2     TYPE kunn2,
    zpes3     TYPE kunn2,
    zpes4     TYPE kunn2,
  
    zns1      TYPE char20,
    zns2      TYPE char20,
    zns3      TYPE char20,
    zns4      TYPE char20,
  
    vgbel     LIKE lips-vgbel,  "参考凭证
  
    kunnr_v   TYPE knvv-kunnr,
    vkorg_v   TYPE knvv-vkorg,
    vtweg_v   TYPE knvv-vtweg,
    spart_v   TYPE knvv-spart,
    vtext     TYPE tvkot-vtext,   "销售组织描述
    ztxt2     TYPE char20,
    stblg     TYPE bkpf-stblg,    "冲销关于
    txt50     TYPE skat-txt50,    "银行科目
    vtweg     TYPE knvv-vtweg,    "分销渠道
    spart     TYPE knvv-spart,    "分布 产品组
  END  OF ty_output.
  

DATA:gt_out TYPE STANDARD TABLE OF ty_output.
DATA:gt_alv_out TYPE TABLE OF ty_output.

TYPES:BEGIN OF typ_kunnr,

•    kunnr TYPE kunnr,
    kunnr TYPE bseg-kunnr,
  END OF typ_kunnr.
  

*DATA:gt_kunnr TYPE STANDARD TABLE OF typ_kunnr.

TYPES:BEGIN OF typ_knvp,
kunnr TYPE kunnr,
vkorg TYPE vkorg,
vtweg TYPE vtweg,
spart TYPE spart,
parvw TYPE parvw,
kunn2 TYPE kunn2,
kunn3 TYPE kunn2,
END OF typ_knvp.
DATA:gt_knvp TYPE STANDARD TABLE OF typ_knvp.

TYPES:BEGIN OF typ_knvv,
kunnr TYPE kunnr,
vkorg TYPE vkorg,
vtweg TYPE vtweg,
spart TYPE spart,
END OF typ_knvv.
DATA:gt_knvv TYPE STANDARD TABLE OF typ_knvv.

TYPES:BEGIN OF ty_bseg,
belnr TYPE bsid-belnr, "会计凭证号
pswbt TYPE bsid-pswbt, "回款金额（原币）
hkjeyb TYPE bsid-dmbtr, "回款金额（原币）
END OF ty_bseg.
DATA: lt_bseg TYPE TABLE OF ty_bseg.

DATA: gt_output TYPE TABLE OF ty_output.
DATA: wa_out TYPE STANDARD TABLE OF ty_output WITH HEADER LINE.

DATA:ls_fieldcat TYPE slis_fieldcat_alv,
gt_sort TYPE slis_t_sortinfo_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv.
DATA gt_ex TYPE slis_t_extab.

DEFINE read_text.
CLE