SAP-HANA/S4 ABAP / 供应商科目明细表（按科目号AND供应商合计 AT NEW，AT END OF 应用）

最新推荐文章于 2023-11-07 16:08:10 发布

Winter_sto

最新推荐文章于 2023-11-07 16:08:10 发布

阅读量1.4k

点赞数

分类专栏： ABAP 文章标签： SAP ABAP OPENSQL ERP FICO

本文链接：https://blog.csdn.net/wine_sto/article/details/100735078

版权

本文介绍了如何在SAP HANA或S4系统中使用ABAP编程，特别是通过OPENSQL查询语句，来实现供应商科目明细表的按科目号和供应商进行合计分析。内容涉及到ERP和FICO模块的应用。

摘要由CSDN通过智能技术生成

*&---------------------------------------------------------------------*
*& Report  A1
*&---------------------------------------------------------------------*
*& 事务代码：
*& 程序名称：加粗样式
*& 请 求 号：
*& 程序目的：供应商科目明细表
*& 创 建 人：Winter
*& 设计时间：2019-09-05加粗样式
*& 程序类型: ABAP/4 程序 ，报表
*& 输入文件:
*& 输出文件:
*& 描    述: 供应商科目明细表
*&---------------------------------------------------------------------*

REPORT A1.
TABLES:bkpf,acdoca,adrp.
DATA:BEGIN OF lt_acdoca OCCURS 0,
       racct  TYPE acdoca-racct,
       lifnr  TYPE acdoca-lifnr,
       rbukrs TYPE acdoca-rbukrs,

       gjahr  TYPE  acdoca-gjahr,
       poper  TYPE acdoca-poper,
       budat  TYPE acdoca-budat,
       bldat  TYPE acdoca-bldat,
       blart  TYPE acdoca-blart,
       belnr  TYPE acdoca-belnr,
       txt50  TYPE skat-txt50, " 科目编号描述

       name1  TYPE lfa1-name1,
       sgtxt  TYPE acdoca-sgtxt,
       augbl  TYPE acdoca-augbl,
*       zzsxbm TYPE acdoca-zzsxbm,
       hsl    TYPE acdoca-hsl,
       drcrk  TYPE acdoca-drcrk,
       rldnr  TYPE acdoca-rldnr,
     END OF lt_acdoca.

DATA:BEGIN OF lt_zqcye OCCURS 0,
       racct TYPE acdoca-racct,
       gjahr TYPE acdoca-gjahr,
       poper TYPE acdoca-poper,
       lifnr TYPE acdoca-lifnr,
       hsl   TYPE acdoca-hsl,
     END OF lt_zqcye.

DATA:BEGIN OF lt_zqcye1 OCCURS 0,
       racct TYPE acdoca-racct,
*       gjahr TYPE acdoca-gjahr,
*       poper TYPE acdoca-poper,
       lifnr TYPE acdoca-lifnr,
       hsl   TYPE acdoca-hsl,
     END OF lt_zqcye1.

DATA:BEGIN OF lt_zqcye2 OCCURS 0,
       racct TYPE acdoca-racct,
*       gjahr TYPE acdoca-gjahr,
*       poper TYPE acdoca-poper,
       lifnr TYPE acdoca-lifnr,
       hsl   TYPE acdoca-hsl,
     END OF lt_zqcye2.
TYPES:BEGIN OF ty_alv,

        rbukrs   TYPE acdoca-rbukrs,
        gjahr    TYPE  acdoca-gjahr,
        poper    TYPE acdoca-poper,
        budat    TYPE acdoca-budat,
        bldat    TYPE acdoca-bldat,
        blart    TYPE acdoca-blart,
        belnr    TYPE acdoca-belnr,
        racct    TYPE acdoca-racct,
*        racct  TYPE acdoca-racct, " 科目编号
        txt50    TYPE skat-txt50, " 科目编号描述
        sgtxt    TYPE acdoca-sgtxt,
        lifnr    TYPE acdoca-lifnr,
        name1    TYPE lfa1-name1,
        augbl    TYPE acdoca-augbl,
        zqcye    TYPE faglflext-hsl01,
        zjfye    TYPE acdoca-hsl,
        zdfye    TYPE acdoca-hsl,
        zqmye    TYPE faglflext-hsl01,
        drcrk    TYPE acdoca-drcrk,
        zjdmc(5) TYPE c,

      END OF ty_alv.
DATA:wa_alv TYPE ty_alv,
     it_alv TYPE TABLE OF ty_alv.
DATA:lv_hs1 TYPE acdoca-hsl,
     lv_hs2 TYPE acdoca-hsl.
RANGES: s_pope1 FOR acdoca-poper.
DATA lv_poper  TYPE acdoca-poper.
*----------------------------------------------------------------------*
*       ALV层级关系定义
*----------------------------------------------------------------------*
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_layout   TYPE slis_layout_alv,
      it_filter   TYPE slis_t_filter_alv,
      it_layout   TYPE slis_layout_alv.

DATA:it_sort  TYPE slis_t_sortinfo_alv. " 小计总计变量
DATA: ls_output  TYPE ssfcompop,
      ls_control TYPE ssfctrlop.

DATA: g_job_output_info TYPE ssfcrescl.

DATA: l_fmname TYPE rs38l_fnam.

DATA: option TYPE ssfcresop. "控制参数

DATA: g_error   TYPE sy-ucomm.  "定义接收系统指令的变量

*DATA: wcl_alv TYPE REF TO cl_gui_alv_grid.
DATA: cl_grid     TYPE REF TO       cl_gui_alv_grid.
DATA: cl_customer TYPE REF TO       cl_gui_custom_container.
DATA:wcl_container TYPE REF TO cl_gui_custom_container, "存放ALV的容器
     wcl_alv       TYPE REF TO cl_gui_alv_grid,                "ALV网格
     row_alv