ABAP 客户回款报表

最新推荐文章于 2024-02-19 16:50:45 发布

我命由我，截然不同

最新推荐文章于 2024-02-19 16:50:45 发布

阅读量1.4k

点赞数

本文链接：https://blog.youkuaiyun.com/J2724731264/article/details/103049999

版权

这是一个使用ABAP编写的程序，用于生成客户回款报表。程序通过查询BSEG、TVKOT、KNA1等表获取相关数据，包括客户名称、城市、回款金额等信息，并对数据进行筛选和处理，最终展示在ALV报表中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

&---------------------------------------------------------------------
*& 包含 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.<

最低0.47元/天解锁文章