ABAP程式示例
REPORT ZRL003.
TABLES: EKKO.
**---Initial table ekko
TYPES: BEGIN OF STR_EKKO,
EBELN LIKE EKKO-EBELN,
BUKRS LIKE EKKO-BUKRS,
EKGRP LIKE EKKO-EKGRP,
END OF STR_EKKO.
DATA: WA_EKKO TYPE STR_EKKO,
IT_EKKO TYPE TABLE OF STR_EKKO.
**---Initial table ekpo
TYPES: BEGIN OF STR_EKPO,
EBELN LIKE EKPO-EBELN,
NETPR LIKE EKPO-NETPR,
END OF STR_EKPO.
DATA: WA_EKPO TYPE STR_EKPO,
IT_EKPO TYPE TABLE OF STR_EKPO.
**---selection screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:P_BUKRS LIKE EKKO-BUKRS OBLIGATORY DEFAULT '1000'.
SELECT-OPTIONS: S_EKGRP FOR EKKO-EKGRP.
SELECTION-SCREEN END OF BLOCK B1.
**---Start-of-selection
PERFORM GET_DATA.
**---End-of-selection
PERFORM DISPLAY_HEADER.
PERFORM DISPLAY_DATA.
**---at line-selection
AT LINE-SELECTION.
CHECK NOT WA_EKKO-EBELN IS INITIAL.
PERFORM SELECT_DATA.
PERFORM GET_MYDATA.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
* Get data from database
*----------------------------------------------------------------------*
FORM GET_DATA .
SELECT EBELN BUKRS EKGRP
INTO CORRESPONDING FIELDS OF TABLE IT_EKKO
FROM EKKO
WHERE BUKRS = P_BUKRS
AND EKGRP IN S_EKGRP.
ENDFORM. " get_data
*&---------------------------------------------------------------------*
*& Form display_data
*&---------------------------------------------------------------------*
* Display data
*----------------------------------------------------------------------*
FORM DISPLAY_DATA .
LOOP AT IT_EKKO INTO WA_EKKO.
**滑鼠變成手型
FORMAT HOTSPOT ON.
**格式化字型
FORMAT COLOR COL_KEY INTENSIFIED ON.
WRITE: AT /5 WA_EKKO-EBELN.
FORMAT RESET.
WRITE: AT 16 WA_EKKO-BUKRS,
21 WA_EKKO-EKGRP.
**Hide資料
HIDE: WA_EKKO-EBELN.
ENDLOOP.
ENDFORM. " display_data
*&---------------------------------------------------------------------*
*& Form display_header
*&---------------------------------------------------------------------*
* Display header
*----------------------------------------------------------------------*
FORM DISPLAY_HEADER .
WRITE: AT /5 '採購憑證號',
16 '工廠',
21 '採購組'.
ENDFORM. " display_header
*&---------------------------------------------------------------------*
*& Form select_data
*&---------------------------------------------------------------------*
* Select Data from database
*----------------------------------------------------------------------*
FORM SELECT_DATA .
SELECT EBELN NETPR
INTO CORRESPONDING FIELDS OF TABLE IT_EKPO
FROM EKPO
WHERE EBELN = WA_EKKO-EBELN.
ENDFORM. " select_data
*&---------------------------------------------------------------------*
*& Form get_mydata
*&---------------------------------------------------------------------*
* Display ekpo data
*----------------------------------------------------------------------*
FORM GET_MYDATA .
***---Write header
WRITE: AT /5 '採購憑證號',
AT 16 '採購憑證中的淨價格'.
LOOP AT IT_EKPO INTO WA_EKPO.
WRITE: AT /5 WA_EKPO-EBELN.
WRITE: AT 16 WA_EKPO-NETPR.
ENDLOOP.
ENDFORM. " get_mydata
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/8356764/viewspace-929062/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 如何使用 ABAP 程式消費 SAP ABAP OData 服務
- 排序程式碼示例排序
- RabbitMQ 程式碼示例MQ
- ABAP初學者如何系統地學習ABAP程式設計?程式設計
- SAP ABAP 程式之間的呼叫
- Java NIO 程式碼示例Java
- QRust(四)示例程式Rust
- java SPI 程式碼示例Java
- 如何使用ABAP程式碼反序列化JSON字串成ABAP結構JSON字串
- 在SAP雲平臺ABAP程式設計環境上編寫第一段ABAP程式程式設計
- 一些通過SAP ABAP程式碼審查得出的ABAP程式設計最佳實踐程式設計
- 視窗程式框架示例程式碼框架
- Kafka 1.0.0 d程式碼示例Kafka
- Java NIO程式設計示例Java程式設計
- 靜態代理程式碼示例
- ABAP面試題系列:寫一組會出現死鎖(Deadlock)的ABAP程式面試題
- ABAP程式碼分析工具 - 事務碼SQF
- 如何使用ABAP程式碼建立SAP Product CategoryGo
- 使用 Prometheus 監控 SAP ABAP 應用程式Prometheus
- 如何使用 ABAP 程式碼解析 XML 檔案XML
- SAP ABAP關鍵字語法圖和ABAP程式碼自動生成工具Code Composer
- MapReduce 程式設計模型 & WordCount 示例程式設計模型
- Windows守護程式簡單示例Windows
- RSA加密解密示例程式碼加密解密
- pytorch程式碼示例筆記 -- AutogradPyTorch筆記
- js程式碼與html程式碼分離示例JSHTML
- 如何用程式碼動態生成ABAP型別型別
- 使用ABAP程式碼生成二維碼(QR Code)
- SAP ABAP 平臺新的程式設計模型程式設計模型
- 零基礎快速學習 ABAP之一:ABAP 伺服器的架構和一個典型的 ABAP 程式結構介紹伺服器架構
- 介紹一款 ABAP 程式碼搜尋工具 RS_ABAP_SOURCE_SCAN 的使用方法
- 使用 ABAP 程式語言直接執行 ABAP 伺服器所在作業系統的 shell 命令伺服器作業系統
- 微信小程式圖片使用示例微信小程式
- sitemap 檔案填充示例程式碼
- Opencv及常用方法示例程式碼OpenCV
- Golang語言之gRPC程式設計示例GolangRPCC程式程式設計
- ABAP Netweaver體內的那些寄生式程式語言
- SAP官方釋出的ABAP程式設計規範程式設計
- 一個好用的SAP ABAP工作程式跟蹤工具