SAP财务记帐凭证报表代码

最新推荐文章于 2024-06-09 16:06:06 发布
小啊曼
最新推荐文章于 2024-06-09 16:06:06 发布
阅读量535
点赞数 8
分类专栏： SAP-ABAP 文章标签： java 服务器前端
本文链接：https://blog.csdn.net/qq_32198063/article/details/135966176
版权
 *&-------------------------------------------------------------------- -
*&  Report  Z_FI_JZPZ
*&  记帐凭证
*&-------------------------------------------------------------------- -
*&  Author                     : PengGuangNan
*&  Create date                : 2002/12/01
*&  Program type               : REPORT
*&  Message class              :
*--------------------------------------------------------------------- -
*&  Modifications              :
*&  Date       | Programmer | change request |   Description
*&  2002/12/01 |PengGuangNan|                |   Initial  Implementation
*&-------------------------------------------------------------------- -
REPORT ZZDEMO3 MESSAGE-ID Z_M_JZPZ.

TABLES:BSEG,
       BKPF,
       VBSEGA,                    "资产凭证预制的凭证段
       VBSEGD,                    "客户凭证预制的凭证段
       VBSEGK,                    "供应商凭证预制的凭证段
       VBSEGS,                    "总帐凭证预制的凭证段
       VBSET,                     "税收凭证预制的凭证段
       T007A,                     "税收代码
       T030K,                     "确定税务科目
       SKAT,                      "总帐科目主记录（科目表：说明）
       CSKS,                      "成本中心主数据
       T001,                      "公司代码
       KNA1,                      "客户主文件的一般数据
       TFKBT,                     "功能范围的名称
       VBFA,                      "销售凭证流
       LIPS,                      "SD凭证 ： 交货： 项目数据
       VBAP,                      "销售凭证 ： 项目数据
       LFA1.                      "供应商主数据 (一般地区)

DATA:BEGIN OF ITAB_BKPF OCCURS 0,
       BELNR LIKE BSEG-BELNR,
       XBLNR LIKE LIPS-VBELN,
       PPNAM LIKE BKPF-PPNAM,
       BLART LIKE BKPF-BLART,          "凭证类型
       BKTXT LIKE BKPF-BKTXT,
       USNAM LIKE BKPF-USNAM,
       BUDAT LIKE BKPF-BUDAT,
       AWKEY LIKE BKPF-AWKEY,
     END OF ITAB_BKPF.

DATA:BEGIN OF ITAB_BSEG OCCURS 0,
       KOSTL LIKE BSEG-KOSTL,          "成本中心
       BELNR LIKE BSEG-BELNR,
       BUZEI LIKE BSEG-BUZEI,
       HKONT LIKE BSEG-HKONT,          "总帐科目
       SHKZG LIKE BSEG-SHKZG,          "借/贷标志
       DMBTR LIKE BSEG-DMBTR,          "按本位币计的金额
       SGTXT LIKE BSEG-SGTXT,          "项目文本
       KUNNR LIKE BSEG-KUNNR,          "购货方编号
       LIFNR LIKE BSEG-LIFNR,          "供应商或债权人帐户号
       FKBER LIKE BSEG-FKBER,          "功能范围
       MATNR LIKE BSEG-MATNR,          "物料号码
       MENGE LIKE BSEG-MENGE,          "数量
     END OF ITAB_BSEG.

DATA: BEGIN OF ITAB_VBSEGA OCCURS 0,
        KOSTL LIKE BSEG-KOSTL,          "成本中心
        BELNR LIKE BSEG-BELNR,          "财务凭证编号
        BUZEI LIKE VBSEGA-BUZEI,
        HKONT LIKE BSEG-HKONT,          "总帐科目
        SHKZG LIKE BSEG-SHKZG,          "借/贷标志
        DMBTR LIKE BSEG-DMBTR,          "按本位币计的金额
        SGTXT LIKE BSEG-SGTXT,          "项目文本
        KUNNR LIKE VBSEGA-VPTNR,        "合伙人帐户编号
        LIFNR LIKE BSEG-LIFNR,
        FKBER LIKE BSEG-FKBER,          "功能范围
      END OF ITAB_VBSEGA.

DATA: BEGIN OF ITAB_VBSEGD OCCURS 0,
        KOSTL LIKE BSEG-KOSTL,          "
        BELNR LIKE BSEG-BELNR,          "财务凭证编号
        BUZEI LIKE VBSEGD-BUZEI,
        HKONT LIKE BSEG-HKONT,          "总帐科目
        SHKZG LIKE BSEG-SHKZG,          "借/贷标志
        DMBTR LIKE BSEG-DMBTR,          "按本位币计的金额
        SGTXT LIKE BSEG-SGTXT,          "项目文本
        KUNNR LIKE BSEG-KUNNR,          "购货方编号
        LIFNR LIKE BSEG-LIFNR,          "
        FKBER LIKE BSEG-FKBER,          "
      END OF ITAB_VBSEGD.

DATA: BEGIN OF ITAB_VBSEGK OCCURS 0,
        KOSTL LIKE BSEG-KOSTL,          "
        BELNR LIKE BSEG-BELNR,          "财务凭证编号
        BUZEI LIKE VBSEGK-BUZEI,
        HKONT LIKE BSEG-HKONT,          "总帐科目
        SHKZG LIKE BSEG-SHKZG,          "借/贷标志
        DMBTR LIKE BSEG-DMBTR,          "按本位币计的金额
        SGTXT LIKE BSEG-SGTXT,          "项目文本
        KUNNR LIKE BSEG-KUNNR,          "
        LIFNR LIKE BSEG-LIFNR,          "供应商或债权人帐户号
        FKBER LIKE BSEG-FKBER,          "
      END OF ITAB_VBSEGK.

DATA: BEGIN OF ITAB_VBSEGS OCCURS 0,
        KOSTL LIKE BSEG-KOSTL,          "成本中心
        BELNR LIKE BSEG-BELNR,          "财务凭证编号
        BUZEI LIKE VBSEGS-BUZEI,
        SAKNR LIKE VBSEGS-SAKNR,        "总帐科目编号
        SHKZG LIKE BSEG-SHKZG,          "借/贷标志
        DMBTR LIKE BSEG-DMBTR,          "按本位币计的金额
        SGTXT LIKE BSEG-SGTXT,          "项目文本
        KUNNR LIKE VBSEGS-VPTNR,        "合伙人帐户编号
        LIFNR LIKE BSEG-LIFNR,          "
        FKBER LIKE BSEG-FKBER,          "功能范围
      END OF ITAB_VBSEGS.

DATA: BEGIN OF ITAB_VBSET OCCURS 0,
       KOSTL LIKE BSEG-KOSTL,          "
       BELNR LIKE BSEG-BELNR,          "财务凭证编号
       BUZEI LIKE VBSET-BZKEY,
       HKONT LIKE BSEG-HKONT,          "总帐科目
       SHKZG LIKE BSEG-SHKZG,          "借/贷标志
       DMBTR LIKE BSEG-DMBTR,          "
       SGTXT LIKE BSEG-SGTXT,          "
       KUNNR LIKE BSEG-KUNNR,          "
       LIFNR LIKE BSEG-LIFNR,          "
       FKBER LIKE BSEG-FKBER,          "
       MATNR LIKE BSEG-MATNR,          "
       MENGE LIKE BSEG-MENGE,          "
       MWSKZ LIKE VBSET-MWSKZ,         "税务代码
      END OF ITAB_VBSET.

DATA: BEGIN OF ITAB_T007A OCCURS 0,
        KALSM LIKE T007A-KALSM,         "过程(定价，输出控制，帐户确定，
        MWSKZ LIKE T007A-MWSKZ,         "税务代码
        MWART LIKE T007A-MWART,         "税收类型
      END OF ITAB_T007A.

DATA: BEGIN OF ITAB_T030K OCCURS 0,
        KTOPL LIKE T030K-KTOPL,         "会计科目表
        KTOSL LIKE T030K-KTOSL,         "事务码
        KONTS LIKE T030K-KONTS,         "总帐科目编号
      END OF ITAB_T030K.

DATA: BEGIN OF ITAB_CSKS OCCURS 0,
        KOSTL LIKE CSKS-KOSTL,          "成本中心
        FUNC_AREA LIKE CSKS-FUNC_AREA,  "功能范围
      END OF ITAB_CSKS.

DATA:BEGIN OF ITAB_SKAT OCCURS 0,
        SAKNR LIKE SKAT-SAKNR,
        TXT20 LIKE SKAT-TXT20,
     END OF ITAB_SKAT.

DATA: BEGIN OF ITAB_KNA1 OCCURS 0,
        KUNNR LIKE KNA1-KUNNR,
        NAME1 LIKE KNA1-NAME1,
      END OF ITAB_KNA1.
DATA: BEGIN OF ITAB_LFA1 OCCURS 0,
        LIFNR LIKE LFA1-LIFNR,
        NAME1 LIKE LFA1-NAME1,
      END OF ITAB_LFA1.

DATA: BEGIN OF ITAB_VBFA OCCURS 0,
        VBELV LIKE VBFA-VBELV,                    "先前的销售和分销凭证
        VBELN LIKE VBFA-VBELN,                    "后续销售和分销凭证
        ERDAT LIKE VBFA-ERDAT,
      END OF ITAB_VBFA.

DATA: BEGIN OF ITAB_LIPS OCCURS 0,
        VBELN LIKE LIPS-VBELN,                    "交货
*        MATNR LIKE LIPS-MATNR,                    "物料号码
*        LFIMG LIKE LIPS-LFIMG,        "实际已交货量（按销售单位）
        VGBEL LIKE LIPS-VGBEL,        "参考单据的单据编号
      END OF ITAB_LIPS.

DATA: BEGIN OF ITAB_VBAP OCCURS 0,
        VBELN LIKE VBAP-VBELN,        "销售凭证
        MATNR LIKE VBAP-MATNR,        "物料号码
        KWMENG LIKE VBAP-KWMENG,      "以销售单位表示的累计订购数量
      END OF ITAB_VBAP.

DATA: BEGIN OF ITAB_TFKBT OCCURS 0,
        FKBER LIKE TFKBT-FKBER,                    "功能范围
        FKBTX LIKE TFKBT-FKBTX,                    "功能范围的名称
        SPRAS LIKE TFKBT-SPRAS,                    "语言代码
      END OF ITAB_TFKBT.

DATA: BEGIN OF STR_REFER,
        REFER1(1) TYPE C,
        REFER2(1) TYPE C,
        REFER3(1) TYPE C,
        REFER4(1) TYPE C,
        REFER5(1) TYPE C,
        REFER6(1) TYPE C,
        REFER7(1) TYPE C,
        REFER8(1) TYPE C,
        REFER9(1) TYPE C,
        REFER10(1) TYPE C,
        REFER11(1) TYPE C,
        REFER12(1) TYPE C,
        REFER13(1) TYPE C,
        REFER14(1) TYPE C,
        REFER15(1) TYPE C,
        REFER16(1) TYPE C,
      END OF STR_REFER.

DATA: BEGIN OF ITAB_OBZN OCCURS 0,
        HKONT LIKE BSEG-HKONT,
        FKBER LIKE BSEG-FKBER,
        KOSTL LIKE BSEG-KOSTL,
      END OF ITAB_OBZN.

DATA: TMPNAME1 LIKE KNA1-NAME1,
      TMPNAME2 LIKE LFA1-NAME1,
      TMPNAME3(6) TYPE C,
      TMPNAME4(6) TYPE C.

DATA:MEMO(40) TYPE C,
     ACCOUNT(100)  TYPE C,
     CREDIT(18)   TYPE C,
     DEBIT(18)    TYPE C,
     ACCTNAME(100) TYPE C,
     CREDIT_TOTAL(13) TYPE C,
     DEBIT_TOTAL(13) TYPE C,
     CUSER LIKE BKPF-USNAM,
     WUSER LIKE BKPF-USNAM,
     COMP LIKE T001-BUTXT,
     WK_DEBIT LIKE GLT0-HSL01,
     WK_CREDIT LIKE GLT0-HSL01,
     DOCUMENTTYPE LIKE BKPF-BLART,
     DOCUMENT     LIKE BKPF-BELNR,
     SUSER         LIKE ADRP-NAME_FIRST,
     USER         LIKE ADRP-NAME_FIRST,
     YUSER         LIKE ADRP-NAME_FIRST,