应收账款报表

*&---------------------------------------------------------------------*
*& Report ZFICO_035
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZFICO_035.
*&---------------------------------------------------------------------*
*& Report ZFICO_01
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
TYPE-POOLS: ALVT,SLIS.
TABLES: ACDOCA,KNVP,KNVV,T001,KNA1,t171t,tvv1t,tvkbt,P0002.

DATA: GS_FCAT TYPE LVC_S_FCAT,
      GT_FCAT TYPE LVC_T_FCAT,
      GS_LAYO TYPE LVC_S_LAYO,
      GV_POS  TYPE I.              "宏字段

TYPES: BEGIN OF GTY_FICO,         "定义结构体类型
  BELNR  TYPE ACDOCA-BELNR,
  Bukrs    TYPE ACDOCA-RBUKRS,    "公司代码
  BUTXT   TYPE T001-BUTXT,       "公司代码名称
  GJAHR   TYPE ACDOCA-GJAHR,     "会计年度
  POPER   TYPE ACDOCA-POPER,     "过账期间
  RACCT   TYPE ACDOCA-RACCT,     "会计科目号
  KUNNR   TYPE ACDOCA-KUNNR,     "客户编号
  NAME1   TYPE KNA1-NAME1,       "客户名称
  BUDAT   TYPE ACDOCA-BUDAT,
  DRCRK   TYPE ACDOCA-DRCRK,
  VKORG   TYPE KNVP-VKORG,       "销售组织
  VTWEG   TYPE KNVP-VTWEG,       "分销渠道
  SPART   TYPE KNVP-SPART,       "部门
  BZIRK   TYPE KNVV-BZIRK,       "开发大区
  bztxt   TYPE t171t-bztxt,      "开发大区描述
  KVGR1   TYPE KNVV-KVGR1,       "开发员
  bezei   TYPE tvv1t-bezei,      "开发员名称
  VKBUR    TYPE KNVV-VKBUR,       "物流大区
  bezei1  TYPE tvkbt-bezei,      "物流大区描述
  KUNN2    TYPE KNVP-KUNN2,       "物流员
  nachn   TYPE pA0002-nachn,      "物流员名称
  "汇总货币需要的两个字段，  TSL交易货币 HSL本位币
*  *KNVP-PARVW,
  TSL     TYPE ACDOCA-TSL ,
  HSL     TYPE ACDOCA-HSL ,
  PARVW  TYPE  KNVP-PARVW ,
  ZNCYSJ TYPE vbrp-kzwi5,"年初应收额
  ZNCYSB TYPE vbrp-kzwi5,"年初应收额
  ZYCYSJ TYPE vbrp-kzwi5,"月初应收额
  ZYCYSB TYPE vbrp-kzwi5,"月初应收额
  ZBYKPJ TYPE vbrp-kzwi5,"本月开票
  ZBYKPB TYPE vbrp-kzwi5,"本月开票
  ZBYHLJ TYPE vbrp-kzwi5,"本月回笼额
  ZBYHLB TYPE vbrp-kzwi5,"本月回笼额
  ZBNKPJ TYPE vbrp-kzwi5,"本年开票
  ZBNKPB TYPE vbrp-kzwi5,"本年开票
  ZBNHLJ TYPE vbrp-kzwi5,"本年回笼额
  ZBNHLB TYPE vbrp-kzwi5,"本年回笼额
  ZYSYEJ TYPE vbrp-kzwi5,"应收余额
  ZYSYEB TYPE vbrp-kzwi5,"应收余额
  ZDQJEJ TYPE vbrp-kzwi5,"到期金额
  ZDQJEB TYPE vbrp-kzwi5."到期金额
  TYPES END OF GTY_FICO.

DATA : GT_FICO   TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO1  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO2  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO3  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO4  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO5  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO6  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO7  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO8  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO9  TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO10 TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GT_FICO11 TYPE TABLE OF GTY_FICO WITH HEADER LINE ,
       GS_FICO   TYPE  GTY_FICO,
       GS_FICO1  TYPE  GTY_FICO,
       GS_FICO7  TYPE  GTY_FICO,
       GS_FICO2  TYPE  GTY_FICO,
       GS_FICO3  TYPE  GTY_FICO,
       GS_FICO10 TYPE  GTY_FICO,
       GS_FICO11 TYPE  GTY_FICO,
       GS_FICO12 TYPE  GTY_FICO.

FIELD-SYMBOLS : <FS_PP> TYPE GTY_FICO.

DEFINE ZM_FCAT.
  GV_POS            = GV_POS + 1.

  clear GS_FCAT.
    GS_FCAT-COL_POS     = GV_POS.
    GS_FCAT-FIELDNAME   = &1.
    GS_FCAT-COLTEXT     = &4.
    GS_FCAT-SCRTEXT_L   = &4.
    GS_FCAT-SCRTEXT_M   = &4.
    GS_FCAT-SCRTEXT_S   = &4.
    GS_FCAT-REF_TABLE   = &2.
    GS_FCAT-REF_FIELD   = &3.
  append GS_FCAT to GT_FCAT.
END-OF-DEFINITION.

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-H01.

*PARAMETERS : S_WERKS TYPE AUFK-WERKS OBLIGATORY.

SELECT-OPTIONS: S_RBUKRS FOR ACDOCA-RBUKRS Obligatory,