| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | ||||
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 30 | 31 |
- Java
- oracle
- 도커
- Mac
- 머신러닝
- IT
- sap mm
- ABAP
- 오라클
- db
- SAP ABAP
- 자바
- 자바스크립트
- 유럽여행
- node.js
- Programming
- Python
- nodejs
- 딥러닝
- 파이썬
- SAP ERP
- Oracle DB
- JavaScript
- 영어
- 비지니스영어
- Spring Framework
- 오라클 디비
- 노드
- docker
- SAP
- Today
- Total
JIHYUN JEONG
[SAP ABAP] Tabstrip 본문
*&---------------------------------------------------------------------*
*& 모듈풀 SAPMZTABSTRIP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
include sapmztabstrip_top . " global Data
include sapmztabstrip_o01 . " PBO-Modules
include sapmztabstrip_i01 . " PAI-Modules
include sapmztabstrip_f01 . " FORM-Routines
ㅁ TOP
*&---------------------------------------------------------------------*
*& Include SAPMZTABSTRIP_TOP 모듈풀 SAPMZTABSTRIP
*&
*&---------------------------------------------------------------------*
program sapmztabstrip.
tables : scarr, spfli.
controls: my_tabstrip type tabstrip.
data: ok_code type sy-ucomm.
data: dynnr type sy-dynnr.
ㅁ PBO
*&---------------------------------------------------------------------*
*& Include SAPMZTABSTRIP_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module GET_SCARR OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module get_scarr output.
select single * into scarr from scarr where carrid = spfli-carrid.
endmodule. " GET_SCARR OUTPUT
*&---------------------------------------------------------------------*
*& Module GET_SPFLI OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module get_spfli output.
select single * into spfli from spfli where carrid = spfli-carrid and connid = spfli-connid.
endmodule. " GET_SPFLI OUTPUT
*&---------------------------------------------------------------------*
*& Module SET_DYNNR OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module set_dynnr output.
case my_tabstrip-activetab.
when 'TAB1'.
dynnr = '0201'.
when 'TAB2'.
dynnr = '0202'.
when others.
dynnr = '0201'.
my_tabstrip-activetab = 'TAB1'.
endcase.
endmodule. " SET_DYNNR OUTPUT
ㅁ PAI
*&---------------------------------------------------------------------*
*& Include SAPMZTABSTRIP_I01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.
case ok_code.
when 'DISP'.
leave to screen 0200.
when others.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0200 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0200 input.
my_tabstrip-activetab = ok_code.
endmodule. " USER_COMMAND_0200 INPUT
'SAP ERP System > ABAP 실습' 카테고리의 다른 글
| [SAP ABAP] 클래스(Class) 생성 및 구현 2, 생성자 (0) | 2013.05.27 |
|---|---|
| [SAP ABAP] 클래스(Class) 생성 및 구현 (0) | 2013.05.27 |
| [SAP ABAP] ALV (Abap List Viewer) (0) | 2013.04.28 |
| [SAP ABAP] Submit / Call transaction / Submit and return / Leave to trans (0) | 2013.04.28 |
| [SAP ABAP] Report Program (0) | 2013.04.28 |
