FLOW LOGIC
PROCESS BEFORE OUTPUT.
MODULE init.
PROCESS AFTER INPUT.
MODULE user_command_0100.
PROCESS ON VALUE-REQUEST.
FIELD carrier MODULE value_carrer.
FIELD connection MODULE value_connection.
MAIN PROGRAM.
REPORT z_basic_test.
TABLES: demof4help.
TYPES: BEGIN OF values,
carrid TYPE spfli-carrid,
connid TYPE spfli-connid,
END OF values.
DATA: carrier(3) TYPE c,
connection(4) TYPE c,
ok_code TYPE sy-ucomm.
DATA: progname TYPE sy-repid,
dynnum TYPE sy-dynnr,
dynpro_values TYPE TABLE OF dynpread,
field_value LIKE LINE OF dynpro_values,
values_tab TYPE TABLE OF values.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE ok_code.
WHEN 'CANCEL'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_CARRER INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE value_carrer INPUT.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname = 'DEMOF4HELP'
fieldname = 'CARRIER1'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'CARRIER'.
ENDMODULE. " VALUE_CARRER INPUT
*&---------------------------------------------------------------------*
*& Module VALUE_CONNECTION INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE value_connection INPUT.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = progname
dynumb = dynnum
translate_to_upper = 'X'
TABLES
dynpfields = dynpro_values.
READ TABLE dynpro_values INDEX 1 INTO field_value.
SELECT carrid connid
FROM spfli
INTO CORRESPONDING FIELDS OF TABLE values_tab
WHERE carrid = field_value-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CONNID'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'CONNECTION'
value_org = 'S'
TABLES
value_tab = values_tab.
ENDMODULE. " VALUE_CONNECTION INPUT
*&---------------------------------------------------------------------*
*& Module INIT OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE init OUTPUT.
progname = sy-repid.
dynnum = sy-dynnr.
CLEAR: field_value, dynpro_values.
field_value-fieldname = 'CARRIER'.
APPEND field_value TO dynpro_values.
ENDMODULE. " INIT OUTPUT
* e-abap님에 의해서 게시물 이동되었습니다 (2007-11-05 12:45)
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
62 | 해당 플랜트/저장위치/제품의 가용수량 체크 함수 | 꿀단지 | 2011.10.11 | 5020 |
61 | GR 정보(MIGO) 조회 펑션. | 우헤헤 | 2013.03.04 | 5073 |
60 | CRM에서 EXCEL UPLOAD시 기능구현 | GG | 2016.02.03 | 5176 |
» | SEARCH HELP FUNCTION 이용한 예제 [2] | 이종원 | 2007.04.06 | 5334 |
58 | 도메인 고정 값 read [2] | sapjoy | 2007.02.11 | 5375 |
57 | Currency 관련한 펑션 (DB 저장할때와 화면표시할때) [2] | 밤톨™ | 2008.03.05 | 5515 |
56 | 날짜 기준 WEEK 정보 확인 펑션. [1] | paran | 2013.05.31 | 5528 |
55 | object 사용 및 피사용 object 찾기 [1] | 머리를쓰자 | 2015.03.18 | 5595 |
54 | 문자열의 길이에 맞게 앞의 공백을 0으로 채워주는 함수 | 꿀단지 | 2011.10.11 | 5631 |
53 | 년, 개월, 일 계산 [9] | 첼시 | 2008.02.01 | 5728 |
52 | BAPI Function 검색 사이트 [10] | 홍성현 | 2007.08.08 | 5785 |
51 | function 날짜 정합성 점검 [5] | senk | 2007.04.20 | 5833 |
50 | PO Item 삭제 Function [2] | 양키 | 2012.08.08 | 5923 |
49 | OSS NOTE 찾는 Function [2] | magicsy69 | 2010.11.24 | 5939 |
48 | RFC [18] | 아밥퍼 | 2008.06.07 | 5982 |
47 | 파일명 분리, split filename [1] | sapjoy | 2013.05.02 | 6102 |
46 | Calling RFC Function Modules in ABAP [12] | SARA | 2007.04.25 | 6104 |
45 | FUNCTION 모음 [3] | 명신용 | 2007.04.03 | 6194 |
44 | R/3 접속자에게 메세지 보내기 [12] | sapjoy | 2006.12.05 | 6196 |
43 | SAP FUNCTION 기능 모음입니다. [15] | 민지아빠 | 2008.01.09 | 6236 |