当前位置：首页 > news >正文

SAP FICO模具材料付款清单

news 2025/11/13 14:50:59

一、报表逻辑

二、报表界面

三、报表代码

*&---------------------------------------------------------------------*
*& 程序名： ZRPFI_023
*& 创建者(公司)/日期：
*& 程序描述：
*& 1.模具材料付款清单
*&---------------------------------------------------------------------*
*& 版本/修改者(公司)/日期//修改描述
*&
*&---------------------------------------------------------------------*
REPORT zrpfi_023 MESSAGE-ID 00.

************************************************************************
* INCLUDES
************************************************************************
INCLUDE zrpfi_023_top.
INCLUDE zrpfi_023_scr.
INCLUDE zrpfi_023_f01.

************************************************************************
* INITIALIZATION
************************************************************************
INITIALIZATION.

************************************************************************
* AT SELECTION-SCREEN on value-request
************************************************************************

************************************************************************
* AT SELECTION-SCREEN
************************************************************************
AT SELECTION-SCREEN.
  "权限检查
  DATA: lv_message TYPE string.
  AUTHORITY-CHECK OBJECT 'F_BKPF_BUK'
             ID 'BUKRS' FIELD p_bukrs.
  IF sy-subrc <> 0.
    lv_message = '没有' && p_bukrs && '公司代码权限！'.
    MESSAGE lv_message TYPE 'E'.
  ENDIF.

************************************************************************
* START-OF-SELECTION
************************************************************************
START-OF-SELECTION.
*--- Main process
  PERFORM frm_get_data.
  PERFORM frm_build_fieldcat.
  PERFORM frm_display_data.

*&---------------------------------------------------------------------*
*& 包含               ZRPFI_023_TOP
*&---------------------------------------------------------------------*
TABLES: bsik,acdoca.

TYPES: BEGIN OF ty_alv,
         bukrs    TYPE bsik-bukrs,        "公司代码
         gjahr    TYPE bsik-gjahr,        "年度
         lifnr    TYPE bsik-lifnr,        "供应商
         mc_name1 TYPE but000-mc_name1,   "供应商名称
         belnr    TYPE bsik-belnr,        "会计凭证编号
         zfbdt    TYPE bsik-zfbdt,        "付款起算日
         zterm    TYPE bsik-zterm,        "付款条件
         netdt    TYPE acdoca-netdt,      "应付到期日
         zuonr    TYPE bsik-zuonr,        "对账单号
         belnr_f  TYPE rbkp-belnr,        "发票凭证编号
         ebeln    TYPE rseg-ebeln,        "采购订单
         menge    TYPE rseg-menge,        "采购订单货币
&n