ABAP DIALOG開發基本技術參考(主程式)

最新推荐文章于 2024-03-13 10:42:58 发布

twty5210

最新推荐文章于 2024-03-13 10:42:58 发布

阅读量3.1k

点赞数

文章标签： dialog table 2010

本文链接：https://blog.csdn.net/twty5210/article/details/6067322

版权

本文档提供了一个ABAP对话程序ZRMM079的详细代码，包括预付款和发票数据的获取、供应商信息、货币、税码等数据处理。通过选择屏幕进行数据过滤，并展示处理结果。

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

*&---------------------------------------------------------------------*
*& Report  ZRMM079
*&
*&---------------------------------------------------------------------*
*& Author              : CHUNG NAM INTERNATIONAL CO.,LTD. DREEXU
*& Creation Date       : 04.12.2010
*& Program Type        : Executable Programs
*& Logical DB          : [Nil]
*& Text Elements
*&   (Titles&Headers)  : [Nil]
*&   (Selection Texts) : [Nil]
*&   (Text symbols)    : [Nil]
*& GUI Status          : [Nil] OR [Standard]
*& Variants            : [Nil] OR Variant
*& Message Class       : [Nil]
*& Description         :
*&
*&---------------------------------------------------------------------*
*& Modifications       :
*& ID   Date        Programmer   Description
*&
*&---------------------------------------------------------------------*

REPORT  ZRMM079.

TABLES: T001, EKKO, LFA1, LFBK, BNKA, BKPF, BSEG, RBKP, RSEG.

DATA: BEGIN OF IT_RESULT OCCURS 0,
             ZPRI  TYPE C LENGTH 1,    "print
             PBUTT TYPE lvc_t_styl,   "PUSHBUTTON
             CLIBT TYPE C LENGTH 10,  "PUSHBUTTON LABEL
             BELNR LIKE BKPF-BELNR,
             WAERS LIKE BKPF-WAERS,
             VNAME TYPE C LENGTH 120,    "供應商名
             SDATE LIKE BKPF-BLDAT,      "申請日期
             BANKC TYPE C LENGTH 101,    "開帳銀行
             BANKN LIKE LFBK-BANKN,      "銀行帳號
             PAYMK TYPE C LENGTH 180,    "付款具體內容
             WRBTR LIKE BSEG-WRBTR,      "金額
             TEXT1 LIKE T007S-TEXT1,     "發票種類
             ACCWY TYPE C LENGTH 20,     "結算方式
             PAYWY TYPE C LENGTH 20,     "付款方式
             INVCO TYPE C LENGTH 30,     "發票編號
             BLDAT LIKE RBKP-BLDAT,      "發票日期
             PAYDT LIKE RBKP-BLDAT,      "要求付款日期
             PAYC1 TYPE C LENGTH 100,    "付款說明1
             PAYC2 TYPE C LENGTH 100,    "付款說明2
        END OF IT_RESULT.

DATA: BEGIN OF IT_WAERS OCCURS 0,
             BELNR LIKE BKPF-BELNR,
             WAERS LIKE BKPF-WAERS,
         END OF IT_WAERS.
DATA: BEGIN OF IT_BKPF OCCURS 0,
             BELNR LIKE BKPF-BELNR,
             LIFNR LIKE BSEG-LIFNR,
             WRBTR LIKE BSEG-WRBTR,
        END OF IT_BKPF.
DATA: BEGIN OF IT_RBKP OCCURS 0,
             BELNR LIKE RBKP-BELNR,
             WAERS LIKE BKPF-WAERS,
             LIFNR LIKE RBKP-LIFNR,
             WRBTR LIKE RBKP-RMWWR,
             MWSKZ LIKE RBKP-MWSKZ1,
             XBLNR LIKE RBKP-XBLNR,
             BLDAT LIKE RBKP-BLDAT,
         END OF IT_RBKP.
DATA: BEGIN OF IT_LIFNR OCCURS 0,
             LIFNR LIKE LFA1-LIFNR,
             NAME1 LIKE LFA1-NAME1,
             NAME2 LIKE LFA1-NAME2,
             NAME3 LIKE LFA1-NAME3,
             NAME4 LIKE LFA1-NAME4,
        END OF IT_LIFNR.
DATA: BEGIN OF IT_BANK OCCURS 0,
             LIFNR LIKE LFBK-LIFNR,
             BANKN LIKE LFBK-BANKN,