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程式示例4
- ABAP程式示例3
- ABAP中文示例1
- ABAP中文示例2
- ABAP程式Hello World
- 如何使用 ABAP 程式消費 SAP ABAP OData 服務
- BDC程式示例C程式
- ABAP 程式比對(Compare)
- ABAP初學者如何系統地學習ABAP程式設計?程式設計
- SAP ABAP 程式之間的呼叫
- RabbitMQ 程式碼示例MQ
- lisp 程式碼示例Lisp
- 排序程式碼示例排序
- 在SAP雲平臺ABAP程式設計環境上編寫第一段ABAP程式程式設計
- 一些通過SAP ABAP程式碼審查得出的ABAP程式設計最佳實踐程式設計
- ABAP的程式碼規範標準
- 如何使用ABAP程式碼反序列化JSON字串成ABAP結構JSON字串
- Java NIO 程式碼示例Java
- ALVALV程式示例
- java SPI 程式碼示例Java
- ABAP面試題系列:寫一組會出現死鎖(Deadlock)的ABAP程式面試題
- 視窗程式框架示例程式碼框架
- ABAP程式碼分析工具 - 事務碼SQF
- 如何使用ABAP程式碼建立SAP Product CategoryGo
- 如何使用 ABAP 程式碼解析 XML 檔案XML
- 使用 Prometheus 監控 SAP ABAP 應用程式Prometheus
- [原]解除ABAP程式編輯鎖的方法
- 利用abap寫程式寄email給客戶AI
- ABAP 動態程式設計-FIELD-SYMBOLS程式設計Symbol
- ABAP動態程式設計-DESCRIBE FIELD程式設計
- 備份ABAP程式碼 (分模組儲存)
- [轉載]ABAP中查詢程式碼的標準程式
- Kafka 1.0.0 d程式碼示例Kafka
- 靜態代理程式碼示例
- xargs 的示例程式碼.
- java 管道流程式碼示例Java
- 螢幕控制示例程式
- Java NIO程式設計示例Java程式設計