First Commit
This commit is contained in:
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DATA>
|
||||
<MASTER_LANGUAGE>3</MASTER_LANGUAGE>
|
||||
<STARTING_FOLDER>/src/</STARTING_FOLDER>
|
||||
<FOLDER_LOGIC>PREFIX</FOLDER_LOGIC>
|
||||
</DATA>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DEVC" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DEVC>
|
||||
<CTEXT>공통코드관리</CTEXT>
|
||||
</DEVC>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,30 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DD04V>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<DOMNAME>CHAR30LOW</DOMNAME>
|
||||
<HEADLEN>21</HEADLEN>
|
||||
<SCRLEN1>04</SCRLEN1>
|
||||
<SCRLEN2>16</SCRLEN2>
|
||||
<SCRLEN3>21</SCRLEN3>
|
||||
<DTELMASTER>E</DTELMASTER>
|
||||
<REFKIND>D</REFKIND>
|
||||
</DD04V>
|
||||
<I18N_LANGS>
|
||||
<LANGU>E</LANGU>
|
||||
</I18N_LANGS>
|
||||
<DD04_TEXTS>
|
||||
<item>
|
||||
<DDLANGUAGE>E</DDLANGUAGE>
|
||||
<DDTEXT>Code Management Field</DDTEXT>
|
||||
<REPTEXT>Code Management Field</REPTEXT>
|
||||
<SCRTEXT_S>Code</SCRTEXT_S>
|
||||
<SCRTEXT_M>Code Magt. Field</SCRTEXT_M>
|
||||
<SCRTEXT_L>Code Management Field</SCRTEXT_L>
|
||||
</item>
|
||||
</DD04_TEXTS>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,30 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DD04V>
|
||||
<ROLLNAME>ZCME_MD_DESC</ROLLNAME>
|
||||
<DOMNAME>CHAR50LOW</DOMNAME>
|
||||
<HEADLEN>18</HEADLEN>
|
||||
<SCRLEN1>08</SCRLEN1>
|
||||
<SCRLEN2>18</SCRLEN2>
|
||||
<SCRLEN3>18</SCRLEN3>
|
||||
<DTELMASTER>E</DTELMASTER>
|
||||
<REFKIND>D</REFKIND>
|
||||
</DD04V>
|
||||
<I18N_LANGS>
|
||||
<LANGU>E</LANGU>
|
||||
</I18N_LANGS>
|
||||
<DD04_TEXTS>
|
||||
<item>
|
||||
<DDLANGUAGE>E</DDLANGUAGE>
|
||||
<DDTEXT>Module Description</DDTEXT>
|
||||
<REPTEXT>Module Description</REPTEXT>
|
||||
<SCRTEXT_S>MD Desc.</SCRTEXT_S>
|
||||
<SCRTEXT_M>Module Description</SCRTEXT_M>
|
||||
<SCRTEXT_L>Module Description</SCRTEXT_L>
|
||||
</item>
|
||||
</DD04_TEXTS>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,41 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_SHLP" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DD30V>
|
||||
<SHLPNAME>ZCMH_ZMODULE</SHLPNAME>
|
||||
<DDLANGUAGE>3</DDLANGUAGE>
|
||||
<DDTEXT>Module</DDTEXT>
|
||||
<ISSIMPLE>X</ISSIMPLE>
|
||||
<SELMETHOD>ZCMT0003</SELMETHOD>
|
||||
<SELMTYPE>T</SELMTYPE>
|
||||
<DIALOGTYPE>D</DIALOGTYPE>
|
||||
<FUZZY_SIMILARITY>0.8</FUZZY_SIMILARITY>
|
||||
</DD30V>
|
||||
<DD32P_TABLE>
|
||||
<DD32P>
|
||||
<SHLPNAME>ZCMH_ZMODULE</SHLPNAME>
|
||||
<FIELDNAME>ZMODULE</FIELDNAME>
|
||||
<FLPOSITION>0001</FLPOSITION>
|
||||
<ROLLNAME>ZCME_MODULE</ROLLNAME>
|
||||
<SHLPINPUT>X</SHLPINPUT>
|
||||
<SHLPOUTPUT>X</SHLPOUTPUT>
|
||||
<SHLPSELPOS>01</SHLPSELPOS>
|
||||
<SHLPLISPOS>01</SHLPLISPOS>
|
||||
<SCRLEN3>06</SCRLEN3>
|
||||
</DD32P>
|
||||
<DD32P>
|
||||
<SHLPNAME>ZCMH_ZMODULE</SHLPNAME>
|
||||
<FIELDNAME>ZMD_DESC</FIELDNAME>
|
||||
<FLPOSITION>0002</FLPOSITION>
|
||||
<ROLLNAME>ZCME_MD_DESC</ROLLNAME>
|
||||
<SHLPOUTPUT>X</SHLPOUTPUT>
|
||||
<SHLPSELPOS>02</SHLPSELPOS>
|
||||
<SHLPLISPOS>02</SHLPLISPOS>
|
||||
<ROLLCHANGE>X</ROLLCHANGE>
|
||||
<SCRLEN3>18</SCRLEN3>
|
||||
</DD32P>
|
||||
</DD32P_TABLE>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,63 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& 프로그램 ID : ZCMR0001
|
||||
*& 프로그램 명 : [CM] Common Code Management
|
||||
*& 생성일 : 2025.05.20
|
||||
*& 생성자 : ZENABAP04
|
||||
*& 프로그램 설명 : Common Code Management
|
||||
*&---------------------------------------------------------------------*
|
||||
* Modification Log
|
||||
*----------------------------------------------------------------------*
|
||||
* Tag Date Author Description
|
||||
*----------------------------------------------------------------------*
|
||||
* N 2025.05.20 Initial Release
|
||||
*----------------------------------------------------------------------*
|
||||
*& 변경번호 : #1(CTS No) 변경자 : XXX 변경일자 : YYYY..MM.DD
|
||||
*& 변경내용 : 간단한 설명,(상세내용은 변경부분에 주석처리)
|
||||
*&---------------------------------------------------------------------*
|
||||
REPORT zcmr0001 MESSAGE-ID zcmm01.
|
||||
|
||||
INCLUDE zcmr0001c01. "ALV Class
|
||||
INCLUDE zcmr0001top. "Top Include
|
||||
INCLUDE zcmr0001s01. "Screen
|
||||
INCLUDE zcmr0001pbo. "PBO-Modules
|
||||
INCLUDE zcmr0001pai. "PAI-Modules
|
||||
INCLUDE zcmr0001f01. "Business FORM Routine
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* AT SELECTION-SCREEN
|
||||
*----------------------------------------------------------------------*
|
||||
*AT SELECTION-SCREEN OUTPUT.
|
||||
* PERFORM modify_screen.
|
||||
|
||||
|
||||
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_class-low.
|
||||
PERFORM select_class USING s_module-low gv_f4_class.
|
||||
s_class-low = gv_f4_class.
|
||||
|
||||
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_class-high.
|
||||
PERFORM select_class USING s_module-low gv_f4_class.
|
||||
s_class-high = gv_f4_class.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* START-OF-SELECTION
|
||||
*----------------------------------------------------------------------*
|
||||
START-OF-SELECTION.
|
||||
CHECK gv_error <> 'X'.
|
||||
PERFORM get_module_text.
|
||||
PERFORM get_class_data.
|
||||
PERFORM get_detail_data.
|
||||
PERFORM make_data.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* END-OF-SELECTION
|
||||
*----------------------------------------------------------------------*
|
||||
END-OF-SELECTION.
|
||||
CLEAR gv_total.
|
||||
DESCRIBE TABLE gt_class LINES gv_total.
|
||||
IF gv_total >= 0.
|
||||
CALL SCREEN 100.
|
||||
|
||||
ELSE.
|
||||
MESSAGE s003 DISPLAY LIKE 'E'.
|
||||
EXIT.
|
||||
ENDIF.
|
||||
@@ -0,0 +1,571 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001</NAME>
|
||||
<SUBC>1</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<FIXPT>X</FIXPT>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<DYNPROS>
|
||||
<item>
|
||||
<HEADER>
|
||||
<PROGRAM>ZCMR0001</PROGRAM>
|
||||
<SCREEN>0100</SCREEN>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TYPE>N</TYPE>
|
||||
<NEXTSCREEN>0100</NEXTSCREEN>
|
||||
<LINES>027</LINES>
|
||||
<COLUMNS>120</COLUMNS>
|
||||
</HEADER>
|
||||
<CONTAINERS>
|
||||
<RPY_DYCATT>
|
||||
<TYPE>SCREEN</TYPE>
|
||||
<NAME>SCREEN</NAME>
|
||||
</RPY_DYCATT>
|
||||
</CONTAINERS>
|
||||
<FIELDS>
|
||||
<RPY_DYFATC>
|
||||
<CONT_TYPE>SCREEN</CONT_TYPE>
|
||||
<CONT_NAME>SCREEN</CONT_NAME>
|
||||
<TYPE>OKCODE</TYPE>
|
||||
<NAME>GV_OKCODE</NAME>
|
||||
<TEXT>____________________</TEXT>
|
||||
<LENGTH>020</LENGTH>
|
||||
<VISLENGTH>020</VISLENGTH>
|
||||
<HEIGHT>001</HEIGHT>
|
||||
<FORMAT>CHAR</FORMAT>
|
||||
<INPUT_FLD>X</INPUT_FLD>
|
||||
</RPY_DYFATC>
|
||||
</FIELDS>
|
||||
<FLOW_LOGIC>
|
||||
<RPY_DYFLOW>
|
||||
<LINE>PROCESS BEFORE OUTPUT.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE STATUS_0100.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE CREATE_ALV_0100.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW/>
|
||||
<RPY_DYFLOW>
|
||||
<LINE>PROCESS AFTER INPUT.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE EXIT AT EXIT-COMMAND.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE USER_COMMAND_0100.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW/>
|
||||
</FLOW_LOGIC>
|
||||
</item>
|
||||
<item>
|
||||
<HEADER>
|
||||
<PROGRAM>ZCMR0001</PROGRAM>
|
||||
<SCREEN>0110</SCREEN>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TYPE>M</TYPE>
|
||||
<NEXTSCREEN>0110</NEXTSCREEN>
|
||||
<LINES>027</LINES>
|
||||
<COLUMNS>121</COLUMNS>
|
||||
</HEADER>
|
||||
<CONTAINERS>
|
||||
<RPY_DYCATT>
|
||||
<TYPE>SCREEN</TYPE>
|
||||
<NAME>SCREEN</NAME>
|
||||
</RPY_DYCATT>
|
||||
</CONTAINERS>
|
||||
<FIELDS>
|
||||
<RPY_DYFATC>
|
||||
<CONT_TYPE>SCREEN</CONT_TYPE>
|
||||
<CONT_NAME>SCREEN</CONT_NAME>
|
||||
<TYPE>TEXT</TYPE>
|
||||
<NAME>%#AUTOTEXT001</NAME>
|
||||
<TEXT>Language</TEXT>
|
||||
<LINE>001</LINE>
|
||||
<COLUMN>002</COLUMN>
|
||||
<LENGTH>008</LENGTH>
|
||||
<VISLENGTH>008</VISLENGTH>
|
||||
<HEIGHT>001</HEIGHT>
|
||||
<FORMAT>CHAR</FORMAT>
|
||||
<REQU_ENTRY>N</REQU_ENTRY>
|
||||
<LABELLEFT>X</LABELLEFT>
|
||||
</RPY_DYFATC>
|
||||
<RPY_DYFATC>
|
||||
<CONT_TYPE>SCREEN</CONT_TYPE>
|
||||
<CONT_NAME>SCREEN</CONT_NAME>
|
||||
<TYPE>TEMPLATE</TYPE>
|
||||
<NAME>GV_LANGU</NAME>
|
||||
<TEXT>__</TEXT>
|
||||
<LINE>001</LINE>
|
||||
<COLUMN>011</COLUMN>
|
||||
<LENGTH>002</LENGTH>
|
||||
<VISLENGTH>002</VISLENGTH>
|
||||
<HEIGHT>001</HEIGHT>
|
||||
<FORMAT>CHAR</FORMAT>
|
||||
<CONV_EXIT>ISOLA</CONV_EXIT>
|
||||
<INPUT_FLD>X</INPUT_FLD>
|
||||
<OUTPUT_FLD>X</OUTPUT_FLD>
|
||||
<MATCHCODE>H_T002</MATCHCODE>
|
||||
</RPY_DYFATC>
|
||||
<RPY_DYFATC>
|
||||
<CONT_TYPE>SCREEN</CONT_TYPE>
|
||||
<CONT_NAME>SCREEN</CONT_NAME>
|
||||
<TYPE>OKCODE</TYPE>
|
||||
<NAME>GV_OKCODE</NAME>
|
||||
<TEXT>____________________</TEXT>
|
||||
<LENGTH>020</LENGTH>
|
||||
<VISLENGTH>020</VISLENGTH>
|
||||
<HEIGHT>001</HEIGHT>
|
||||
<FORMAT>CHAR</FORMAT>
|
||||
<INPUT_FLD>X</INPUT_FLD>
|
||||
</RPY_DYFATC>
|
||||
</FIELDS>
|
||||
<FLOW_LOGIC>
|
||||
<RPY_DYFLOW>
|
||||
<LINE>PROCESS BEFORE OUTPUT.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE status_0110.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE>*</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE>PROCESS AFTER INPUT.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE exit_0110 AT EXIT-COMMAND.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
<RPY_DYFLOW>
|
||||
<LINE> MODULE user_command_0110.</LINE>
|
||||
</RPY_DYFLOW>
|
||||
</FLOW_LOGIC>
|
||||
</item>
|
||||
</DYNPROS>
|
||||
<CUA>
|
||||
<ADM>
|
||||
<ACTCODE>000001</ACTCODE>
|
||||
<PFKCODE>000002</PFKCODE>
|
||||
</ADM>
|
||||
<STA>
|
||||
<RSMPE_STAT>
|
||||
<CODE>0100</CODE>
|
||||
<MODAL>D</MODAL>
|
||||
<ACTCODE>000001</ACTCODE>
|
||||
<PFKCODE>000001</PFKCODE>
|
||||
<BUTCODE>0001</BUTCODE>
|
||||
<INT_NOTE>zcmr0001</INT_NOTE>
|
||||
</RSMPE_STAT>
|
||||
<RSMPE_STAT>
|
||||
<CODE>0110</CODE>
|
||||
<MODAL>P</MODAL>
|
||||
<PFKCODE>000002</PFKCODE>
|
||||
<BUTCODE>0001</BUTCODE>
|
||||
<INT_NOTE>공통 코드 관리</INT_NOTE>
|
||||
</RSMPE_STAT>
|
||||
</STA>
|
||||
<FUN>
|
||||
<RSMPE_FUNT>
|
||||
<CODE>BACK</CODE>
|
||||
<TEXTNO>001</TEXTNO>
|
||||
<TYPE>E</TYPE>
|
||||
<TEXT_TYPE>S</TEXT_TYPE>
|
||||
<FUN_TEXT>뒤로</FUN_TEXT>
|
||||
</RSMPE_FUNT>
|
||||
<RSMPE_FUNT>
|
||||
<CODE>CANC</CODE>
|
||||
<TEXTNO>001</TEXTNO>
|
||||
<TYPE>E</TYPE>
|
||||
<TEXT_TYPE>S</TEXT_TYPE>
|
||||
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
|
||||
<ICON_ID>@0W@</ICON_ID>
|
||||
<FUN_TEXT>취소</FUN_TEXT>
|
||||
</RSMPE_FUNT>
|
||||
<RSMPE_FUNT>
|
||||
<CODE>CANCEL</CODE>
|
||||
<TEXTNO>001</TEXTNO>
|
||||
<TEXT_TYPE>S</TEXT_TYPE>
|
||||
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
|
||||
<ICON_ID>@0W@</ICON_ID>
|
||||
<FUN_TEXT>Exit</FUN_TEXT>
|
||||
<ICON_TEXT>Exit</ICON_TEXT>
|
||||
<INFO_TEXT>Exit</INFO_TEXT>
|
||||
</RSMPE_FUNT>
|
||||
<RSMPE_FUNT>
|
||||
<CODE>COPY</CODE>
|
||||
<TEXTNO>001</TEXTNO>
|
||||
<TEXT_TYPE>S</TEXT_TYPE>
|
||||
<TEXT_NAME>ICON_CREATE_COPY</TEXT_NAME>
|
||||
<ICON_ID>@EZ@</ICON_ID>
|
||||
<FUN_TEXT>추가 언어적용</FUN_TEXT>
|
||||
<ICON_TEXT>추가 언어적용</ICON_TEXT>
|
||||
<INFO_TEXT>추가 언어적용</INFO_TEXT>
|
||||
</RSMPE_FUNT>
|
||||
<RSMPE_FUNT>
|
||||
<CODE>EXIT</CODE>
|
||||
<TEXTNO>001</TEXTNO>
|
||||
<TYPE>E</TYPE>
|
||||
<TEXT_TYPE>S</TEXT_TYPE>
|
||||
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
|
||||
<ICON_ID>@0W@</ICON_ID>
|
||||
<FUN_TEXT>나가기</FUN_TEXT>
|
||||
<ICON_TEXT>Exit</ICON_TEXT>
|
||||
<INFO_TEXT>Exit</INFO_TEXT>
|
||||
</RSMPE_FUNT>
|
||||
<RSMPE_FUNT>
|
||||
<CODE>OKAY</CODE>
|
||||
<TEXTNO>001</TEXTNO>
|
||||
<TEXT_TYPE>S</TEXT_TYPE>
|
||||
<TEXT_NAME>ICON_OKAY</TEXT_NAME>
|
||||
<ICON_ID>@0V@</ICON_ID>
|
||||
<FUN_TEXT>Okay</FUN_TEXT>
|
||||
<ICON_TEXT>Okay</ICON_TEXT>
|
||||
<INFO_TEXT>Okay</INFO_TEXT>
|
||||
</RSMPE_FUNT>
|
||||
</FUN>
|
||||
<BUT>
|
||||
<RSMPE_BUT>
|
||||
<PFK_CODE>000001</PFK_CODE>
|
||||
<CODE>0001</CODE>
|
||||
<NO>01</NO>
|
||||
<PFNO>08</PFNO>
|
||||
</RSMPE_BUT>
|
||||
<RSMPE_BUT>
|
||||
<PFK_CODE>000002</PFK_CODE>
|
||||
<CODE>0001</CODE>
|
||||
<NO>01</NO>
|
||||
<PFNO>00</PFNO>
|
||||
</RSMPE_BUT>
|
||||
<RSMPE_BUT>
|
||||
<PFK_CODE>000002</PFK_CODE>
|
||||
<CODE>0001</CODE>
|
||||
<NO>02</NO>
|
||||
<PFNO>12</PFNO>
|
||||
</RSMPE_BUT>
|
||||
</BUT>
|
||||
<PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000001</CODE>
|
||||
<PFNO>03</PFNO>
|
||||
<FUNCODE>BACK</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000001</CODE>
|
||||
<PFNO>08</PFNO>
|
||||
<FUNCODE>COPY</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000001</CODE>
|
||||
<PFNO>12</PFNO>
|
||||
<FUNCODE>CANC</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000001</CODE>
|
||||
<PFNO>15</PFNO>
|
||||
<FUNCODE>EXIT</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000002</CODE>
|
||||
<PFNO>00</PFNO>
|
||||
<FUNCODE>OKAY</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000002</CODE>
|
||||
<PFNO>02</PFNO>
|
||||
<FUNCODE>CANCEL</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
<RSMPE_PFK>
|
||||
<CODE>000002</CODE>
|
||||
<PFNO>12</PFNO>
|
||||
<FUNCODE>CANCEL</FUNCODE>
|
||||
<FUNNO>001</FUNNO>
|
||||
</RSMPE_PFK>
|
||||
</PFK>
|
||||
<SET>
|
||||
<RSMPE_STAF>
|
||||
<STATUS>0100</STATUS>
|
||||
<FUNCTION>BACK</FUNCTION>
|
||||
</RSMPE_STAF>
|
||||
<RSMPE_STAF>
|
||||
<STATUS>0100</STATUS>
|
||||
<FUNCTION>CANC</FUNCTION>
|
||||
</RSMPE_STAF>
|
||||
<RSMPE_STAF>
|
||||
<STATUS>0100</STATUS>
|
||||
<FUNCTION>COPY</FUNCTION>
|
||||
</RSMPE_STAF>
|
||||
<RSMPE_STAF>
|
||||
<STATUS>0100</STATUS>
|
||||
<FUNCTION>EXIT</FUNCTION>
|
||||
</RSMPE_STAF>
|
||||
<RSMPE_STAF>
|
||||
<STATUS>0110</STATUS>
|
||||
<FUNCTION>CANCEL</FUNCTION>
|
||||
</RSMPE_STAF>
|
||||
<RSMPE_STAF>
|
||||
<STATUS>0110</STATUS>
|
||||
<FUNCTION>OKAY</FUNCTION>
|
||||
</RSMPE_STAF>
|
||||
</SET>
|
||||
<DOC>
|
||||
<RSMPE_ATRT>
|
||||
<OBJ_TYPE>A</OBJ_TYPE>
|
||||
<OBJ_CODE>000001</OBJ_CODE>
|
||||
<MODAL>D</MODAL>
|
||||
<INT_NOTE>공통 코드 관리공통 코드 관리</INT_NOTE>
|
||||
</RSMPE_ATRT>
|
||||
<RSMPE_ATRT>
|
||||
<OBJ_TYPE>P</OBJ_TYPE>
|
||||
<OBJ_CODE>000001</OBJ_CODE>
|
||||
<MODAL>D</MODAL>
|
||||
<INT_NOTE>공통 코드 관리</INT_NOTE>
|
||||
</RSMPE_ATRT>
|
||||
<RSMPE_ATRT>
|
||||
<OBJ_TYPE>B</OBJ_TYPE>
|
||||
<OBJ_CODE>000001</OBJ_CODE>
|
||||
<SUB_CODE>0001</SUB_CODE>
|
||||
<MODAL>D</MODAL>
|
||||
<INT_NOTE>공통 코드 관리</INT_NOTE>
|
||||
</RSMPE_ATRT>
|
||||
<RSMPE_ATRT>
|
||||
<OBJ_TYPE>P</OBJ_TYPE>
|
||||
<OBJ_CODE>000002</OBJ_CODE>
|
||||
<MODAL>P</MODAL>
|
||||
<INT_NOTE>Language</INT_NOTE>
|
||||
</RSMPE_ATRT>
|
||||
<RSMPE_ATRT>
|
||||
<OBJ_TYPE>B</OBJ_TYPE>
|
||||
<OBJ_CODE>000002</OBJ_CODE>
|
||||
<SUB_CODE>0001</SUB_CODE>
|
||||
<MODAL>P</MODAL>
|
||||
<INT_NOTE>Language</INT_NOTE>
|
||||
</RSMPE_ATRT>
|
||||
</DOC>
|
||||
</CUA>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>B01</KEY>
|
||||
<ENTRY>Conditions</ENTRY>
|
||||
<LENGTH>20</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E01</KEY>
|
||||
<ENTRY>Not found data.</ENTRY>
|
||||
<LENGTH>18</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E02</KEY>
|
||||
<ENTRY>Select at least one line</ENTRY>
|
||||
<LENGTH>48</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E03</KEY>
|
||||
<ENTRY>Error to save</ENTRY>
|
||||
<LENGTH>23</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E04</KEY>
|
||||
<ENTRY>Exist Duplicated Key</ENTRY>
|
||||
<LENGTH>40</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E05</KEY>
|
||||
<ENTRY>Key Field is Blank</ENTRY>
|
||||
<LENGTH>28</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E06</KEY>
|
||||
<ENTRY>Invalid Language !</ENTRY>
|
||||
<LENGTH>28</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>E07</KEY>
|
||||
<ENTRY>Selected Language is same with Logon Language !</ENTRY>
|
||||
<LENGTH>94</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F01</KEY>
|
||||
<ENTRY>Class</ENTRY>
|
||||
<LENGTH>15</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F02</KEY>
|
||||
<ENTRY>Class Name</ENTRY>
|
||||
<LENGTH>20</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F03</KEY>
|
||||
<ENTRY>Sort Key</ENTRY>
|
||||
<LENGTH>18</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F04</KEY>
|
||||
<ENTRY>Changed by</ENTRY>
|
||||
<LENGTH>20</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F05</KEY>
|
||||
<ENTRY>Changed on</ENTRY>
|
||||
<LENGTH>20</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F06</KEY>
|
||||
<ENTRY>Changed at</ENTRY>
|
||||
<LENGTH>20</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>F07</KEY>
|
||||
<ENTRY>Using Program</ENTRY>
|
||||
<LENGTH>23</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>Q01</KEY>
|
||||
<ENTRY>Delete Selected Data</ENTRY>
|
||||
<LENGTH>40</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>Q02</KEY>
|
||||
<ENTRY>Save Data</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>Q03</KEY>
|
||||
<ENTRY>Additional adjust for Other Language ?</ENTRY>
|
||||
<LENGTH>76</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>S01</KEY>
|
||||
<ENTRY>Save Complete</ENTRY>
|
||||
<LENGTH>23</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T01</KEY>
|
||||
<ENTRY>Code</ENTRY>
|
||||
<LENGTH>14</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T02</KEY>
|
||||
<ENTRY>Field</ENTRY>
|
||||
<LENGTH>15</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T04</KEY>
|
||||
<ENTRY>Add Row</ENTRY>
|
||||
<LENGTH>17</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T05</KEY>
|
||||
<ENTRY>Del. Row</ENTRY>
|
||||
<LENGTH>18</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T06</KEY>
|
||||
<ENTRY>Delete Complete</ENTRY>
|
||||
<LENGTH>25</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T07</KEY>
|
||||
<ENTRY>Yes</ENTRY>
|
||||
<LENGTH>13</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T08</KEY>
|
||||
<ENTRY>No</ENTRY>
|
||||
<LENGTH>12</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T09</KEY>
|
||||
<ENTRY>Success :</ENTRY>
|
||||
<LENGTH>10</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T10</KEY>
|
||||
<ENTRY>, Fail :</ENTRY>
|
||||
<LENGTH>10</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T11</KEY>
|
||||
<ENTRY>Confirm</ENTRY>
|
||||
<LENGTH>17</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T12</KEY>
|
||||
<ENTRY>Refresh</ENTRY>
|
||||
<LENGTH>17</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T13</KEY>
|
||||
<ENTRY>Save</ENTRY>
|
||||
<LENGTH>14</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>I</ID>
|
||||
<KEY>T14</KEY>
|
||||
<ENTRY>Additional Language</ENTRY>
|
||||
<LENGTH>30</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Common Code Management</ENTRY>
|
||||
<LENGTH>22</LENGTH>
|
||||
</item>
|
||||
<item>
|
||||
<ID>S</ID>
|
||||
<KEY>S_CLASS</KEY>
|
||||
<ENTRY>.</ENTRY>
|
||||
<LENGTH>9</LENGTH>
|
||||
<SPLIT>D</SPLIT>
|
||||
</item>
|
||||
<item>
|
||||
<ID>S</ID>
|
||||
<KEY>S_MODULE</KEY>
|
||||
<ENTRY>.</ENTRY>
|
||||
<LENGTH>9</LENGTH>
|
||||
<SPLIT>D</SPLIT>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,109 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0001C01
|
||||
*&---------------------------------------------------------------------*
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& LCL_EVEN_RECEIVER DEFINITION.
|
||||
*&---------------------------------------------------------------------*
|
||||
CLASS LCL_EVENT_RECEIVER DEFINITION.
|
||||
PUBLIC SECTION.
|
||||
METHODS :
|
||||
HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
|
||||
IMPORTING ER_DATA_CHANGED
|
||||
E_ONF4_AFTER,
|
||||
|
||||
HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_UCOMM,
|
||||
|
||||
HANDLE_TOOLBAR FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_OBJECT
|
||||
E_INTERACTIVE,
|
||||
|
||||
HANDLE_MENU_BUTTON FOR EVENT MENU_BUTTON OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_OBJECT
|
||||
E_UCOMM,
|
||||
|
||||
HANDLE_ONF4 FOR EVENT ONF4 OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_FIELDNAME
|
||||
E_FIELDVALUE
|
||||
ES_ROW_NO
|
||||
ER_EVENT_DATA
|
||||
ET_BAD_CELLS
|
||||
E_DISPLAY,
|
||||
|
||||
HANDLE_DATA_CHANGED_FINISHED
|
||||
FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_MODIFIED
|
||||
ET_GOOD_CELLS,
|
||||
|
||||
HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_ROW
|
||||
E_COLUMN
|
||||
ES_ROW_NO,
|
||||
|
||||
HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_ROW_ID
|
||||
E_COLUMN_ID
|
||||
ES_ROW_NO,
|
||||
|
||||
HANDLE_TOP_OF_PAGE FOR EVENT TOP_OF_PAGE OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_DYNDOC_ID.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
ENDCLASS. "LCL_EVENT_RECEIVER
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& LCL_EVENT_RECEIVER IMPLEMENTATION
|
||||
*&---------------------------------------------------------------------*
|
||||
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
|
||||
METHOD HANDLE_DATA_CHANGED.
|
||||
PERFORM ALV_DATA_CHANGED USING ER_DATA_CHANGED
|
||||
E_ONF4_AFTER.
|
||||
ENDMETHOD. "HANDLE_DATA_CHANGED
|
||||
|
||||
METHOD HANDLE_USER_COMMAND.
|
||||
PERFORM ALV_USER_COMMAND USING E_UCOMM.
|
||||
ENDMETHOD. "HANDLE_USER_COMMAND
|
||||
|
||||
METHOD HANDLE_TOOLBAR.
|
||||
PERFORM ALV_EVENT_TOOLBAR USING E_OBJECT
|
||||
E_INTERACTIVE.
|
||||
ENDMETHOD. "HANDLE_TOOLBAR
|
||||
|
||||
METHOD HANDLE_MENU_BUTTON.
|
||||
* PERFORM alv_menu_button USING e_object
|
||||
* e_ucomm.
|
||||
ENDMETHOD. "HANDLE_MENU_BUTTON
|
||||
|
||||
METHOD HANDLE_ONF4.
|
||||
ER_EVENT_DATA->M_EVENT_HANDLED = 'x'.
|
||||
* PERFORM alv_onf4 USING e_fieldname
|
||||
* e_fieldvalue
|
||||
* es_row_no
|
||||
* er_event_data
|
||||
* et_bad_cells
|
||||
* e_display.
|
||||
ENDMETHOD. "HANDLE_ONF4
|
||||
|
||||
METHOD HANDLE_DATA_CHANGED_FINISHED.
|
||||
PERFORM ALV_DATA_CHANGED_FINISHED TABLES ET_GOOD_CELLS USING E_MODIFIED.
|
||||
ENDMETHOD. "HANDLE_CHANGED_FINISHED
|
||||
|
||||
METHOD HANDLE_DOUBLE_CLICK.
|
||||
PERFORM ALV_DOUBLE_CLICK USING E_ROW
|
||||
E_COLUMN
|
||||
ES_ROW_NO.
|
||||
ENDMETHOD. "HANDLE_DOUBLE_CLICK
|
||||
|
||||
METHOD HANDLE_HOTSPOT_CLICK.
|
||||
PERFORM ALV_HOTSPOT_CLICK USING E_ROW_ID
|
||||
E_COLUMN_ID
|
||||
ES_ROW_NO.
|
||||
ENDMETHOD. "HANDLE_HOTSPOT_CLICK
|
||||
|
||||
METHOD HANDLE_TOP_OF_PAGE.
|
||||
* PERFORM top_of_page USING e_dyndoc_id.
|
||||
ENDMETHOD. "HANDLE_TOP_OF_PAGE
|
||||
|
||||
ENDCLASS. "LCL_EVENT_RECEIVER
|
||||
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001C01</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0001C01</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001F01</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0001F01</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,90 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0001PAI
|
||||
*&---------------------------------------------------------------------*
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module EXIT INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE exit INPUT.
|
||||
|
||||
CHECK gv_okcode = 'EXIT'.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module USER_COMMAND_0100 INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE user_command_0100 INPUT.
|
||||
|
||||
DATA lv_ans.
|
||||
|
||||
CLEAR gv_saveok.
|
||||
gv_saveok = gv_okcode.
|
||||
CLEAR gv_okcode.
|
||||
|
||||
CASE gv_saveok.
|
||||
WHEN 'BACK' OR 'CANC'.
|
||||
LEAVE TO SCREEN 0.
|
||||
|
||||
WHEN 'SAVE'.
|
||||
* 툴바 대체 요청 2020.03.30
|
||||
* . 삭제 확인 Popup
|
||||
* PERFORM popup_to_confirm USING TEXT-t11
|
||||
* TEXT-q02
|
||||
* TEXT-t07
|
||||
* TEXT-t08
|
||||
* space
|
||||
* CHANGING lv_ans.
|
||||
* IF lv_ans = '1'.
|
||||
* PERFORM make_save_data.
|
||||
* ENDIF.
|
||||
ENDCASE.
|
||||
|
||||
cl_gui_cfw=>dispatch( ).
|
||||
|
||||
ENDMODULE.
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module USER_COMMAND_0110 INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE user_command_0110 INPUT.
|
||||
|
||||
CLEAR gv_saveok.
|
||||
gv_saveok = gv_okcode.
|
||||
CLEAR gv_okcode.
|
||||
|
||||
CASE gv_saveok.
|
||||
WHEN 'OKAY'.
|
||||
SELECT SINGLE spras
|
||||
INTO gv_langu
|
||||
FROM t002
|
||||
WHERE spras = gv_langu.
|
||||
IF sy-subrc = 0.
|
||||
PERFORM ADD_ADJUST_TABLE.
|
||||
LEAVE TO SCREEN 0.
|
||||
ELSE.
|
||||
IF gv_langu IS INITIAL.
|
||||
MESSAGE i000 WITH TEXT-e05.
|
||||
ELSE.
|
||||
MESSAGE i000 WITH TEXT-e06.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
WHEN OTHERS.
|
||||
LEAVE TO SCREEN 0.
|
||||
ENDCASE.
|
||||
|
||||
ENDMODULE.
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module EXIT_0110 INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE exit_0110 INPUT.
|
||||
|
||||
LEAVE TO SCREEN 0.
|
||||
|
||||
ENDMODULE.
|
||||
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001PAI</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0001PAI</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,44 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0001PBO
|
||||
*&---------------------------------------------------------------------*
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module STATUS_0100 OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE STATUS_0100 OUTPUT.
|
||||
|
||||
SET PF-STATUS '0100'.
|
||||
SET TITLEBAR '0100' WITH GV_MODULE_DESC.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module CREATE_ALV_0100 OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE CREATE_ALV_0100 OUTPUT.
|
||||
|
||||
IF G_DOCKING_CONTAINER IS INITIAL.
|
||||
PERFORM CREATE_GRID.
|
||||
PERFORM SET_FCAT_CLASS.
|
||||
PERFORM SET_FCAT_DETAIL.
|
||||
PERFORM EXCLUDE_TOOLBAR.
|
||||
PERFORM SET_LAYOUT.
|
||||
PERFORM SET_EVENT_RECEIVER.
|
||||
PERFORM DISPLAY_GRID.
|
||||
ELSE.
|
||||
PERFORM REFRESH_ALV.
|
||||
ENDIF.
|
||||
|
||||
ENDMODULE.
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module STATUS_0110 OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE status_0110 OUTPUT.
|
||||
SET PF-STATUS '0110'.
|
||||
SET TITLEBAR '0110'.
|
||||
ENDMODULE.
|
||||
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001PBO</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0001PBO</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,12 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0001S01
|
||||
*&---------------------------------------------------------------------*
|
||||
*----------------------------------------------------------------------*
|
||||
* SELECTION-SCREEN
|
||||
*----------------------------------------------------------------------*
|
||||
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME. " TITLE TEXT-B01.
|
||||
SELECT-OPTIONS: s_module FOR zcmt0002-zmodule
|
||||
OBLIGATORY " MODIF ID mod
|
||||
MATCHCODE OBJECT zcmh_zmodule,
|
||||
s_class FOR zcmt0002-zclass.
|
||||
SELECTION-SCREEN END OF BLOCK b1.
|
||||
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001S01</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0001S01</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,243 @@
|
||||
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Tables
|
||||
*----------------------------------------------------------------------*
|
||||
TABLES: zcmt0003, zcmt0002.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Types, Internal Table, Structure
|
||||
*----------------------------------------------------------------------*
|
||||
TYPES : BEGIN OF ty_chk,
|
||||
cd1, "사용유무
|
||||
cd2,
|
||||
cd3,
|
||||
cd4,
|
||||
cd5, "사용유무
|
||||
cd6,
|
||||
cd7,
|
||||
cd8,
|
||||
f_cd1(30), "Code1 필드명
|
||||
f_cd2(30), "Code1 필드명
|
||||
f_cd3(30), "Code1 필드명
|
||||
f_cd4(30), "Code1 필드명
|
||||
f_cd5(30), "Code1 필드명
|
||||
f_cd6(30), "Code1 필드명
|
||||
f_cd7(30), "Code1 필드명
|
||||
f_cd8(30), "Code1 필드명
|
||||
fld01, "사용유무
|
||||
fld02,
|
||||
fld03,
|
||||
fld04,
|
||||
fld05,
|
||||
fld06,
|
||||
fld07,
|
||||
fld08,
|
||||
fld09,
|
||||
fld10,
|
||||
fld11,
|
||||
fld12,
|
||||
fld13,
|
||||
fld14,
|
||||
fld15,
|
||||
fld16,
|
||||
fld17,
|
||||
f_fld01(30), "Code1 필드
|
||||
f_fld02(30), "Code2 필드
|
||||
f_fld03(30), "Code3 필드
|
||||
f_fld04(30), "Code4 필드
|
||||
f_fld05(30), "Code5 필드
|
||||
f_fld06(30), "Code6 필드
|
||||
f_fld07(30), "Code7 필드
|
||||
f_fld08(30), "Code8 필드
|
||||
f_fld09(30), "Code9 필드
|
||||
f_fld10(30), "Code10 필드
|
||||
f_fld11(30), "Code11 필드
|
||||
f_fld12(30), "Code12 필드
|
||||
f_fld13(30), "Code13 필드
|
||||
f_fld14(30), "Code14 필드
|
||||
f_fld15(30), "Code15 필드
|
||||
f_fld16(30), "Code16 필드
|
||||
f_fld17(30), "Code17 필드
|
||||
END OF ty_chk.
|
||||
|
||||
DATA gs_chk TYPE ty_chk.
|
||||
|
||||
DATA : BEGIN OF gt_0070 OCCURS 0,
|
||||
zmodule LIKE zcmt0001-zmodule,
|
||||
zclass LIKE zcmt0001-zclass,
|
||||
zclss_desc LIKE zcmt0001-zclss_desc,
|
||||
zprgname LIKE zcmt0001-zprgname,
|
||||
zcode2_ox LIKE zcmt0001-zcode2_ox,
|
||||
zcode3_ox LIKE zcmt0001-zcode3_ox,
|
||||
zcode4_ox LIKE zcmt0001-zcode4_ox,
|
||||
zcode5_ox LIKE zcmt0001-zcode5_ox,
|
||||
zcode6_ox LIKE zcmt0001-zcode6_ox,
|
||||
zcode7_ox LIKE zcmt0001-zcode7_ox,
|
||||
zcode8_ox LIKE zcmt0001-zcode8_ox,
|
||||
zcd1_desc LIKE zcmt0001-zcd1_desc,
|
||||
zcd2_desc LIKE zcmt0001-zcd2_desc,
|
||||
zcd3_desc LIKE zcmt0001-zcd3_desc,
|
||||
zcd4_desc LIKE zcmt0001-zcd4_desc,
|
||||
zcd5_desc LIKE zcmt0001-zcd5_desc,
|
||||
zcd6_desc LIKE zcmt0001-zcd6_desc,
|
||||
zcd7_desc LIKE zcmt0001-zcd7_desc,
|
||||
zcd8_desc LIKE zcmt0001-zcd8_desc,
|
||||
zf01_ox LIKE zcmt0001-zf01_ox,
|
||||
zf01_desc LIKE zcmt0001-zf01_desc,
|
||||
zf02_ox LIKE zcmt0001-zf02_ox,
|
||||
zf02_desc LIKE zcmt0001-zf02_desc,
|
||||
zf03_ox LIKE zcmt0001-zf03_ox,
|
||||
zf03_desc LIKE zcmt0001-zf03_desc,
|
||||
zf04_ox LIKE zcmt0001-zf04_ox,
|
||||
zf04_desc LIKE zcmt0001-zf04_desc,
|
||||
zf05_ox LIKE zcmt0001-zf05_ox,
|
||||
zf05_desc LIKE zcmt0001-zf05_desc,
|
||||
zf06_ox LIKE zcmt0001-zf06_ox,
|
||||
zf06_desc LIKE zcmt0001-zf06_desc,
|
||||
zf07_ox LIKE zcmt0001-zf07_ox,
|
||||
zf07_desc LIKE zcmt0001-zf07_desc,
|
||||
zf08_ox LIKE zcmt0001-zf08_ox,
|
||||
zf08_desc LIKE zcmt0001-zf08_desc,
|
||||
zf09_ox LIKE zcmt0001-zf09_ox,
|
||||
zf09_desc LIKE zcmt0001-zf09_desc,
|
||||
zf10_ox LIKE zcmt0001-zf10_ox,
|
||||
zf10_desc LIKE zcmt0001-zf10_desc,
|
||||
zf11_ox LIKE zcmt0001-zf11_ox,
|
||||
zf11_desc LIKE zcmt0001-zf11_desc,
|
||||
zf12_ox LIKE zcmt0001-zf12_ox,
|
||||
zf12_desc LIKE zcmt0001-zf12_desc,
|
||||
zf13_ox LIKE zcmt0001-zf13_ox,
|
||||
zf13_desc LIKE zcmt0001-zf13_desc,
|
||||
zf14_ox LIKE zcmt0001-zf14_ox,
|
||||
zf14_desc LIKE zcmt0001-zf14_desc,
|
||||
zf15_ox LIKE zcmt0001-zf15_ox,
|
||||
zf15_desc LIKE zcmt0001-zf15_desc,
|
||||
zf16_ox LIKE zcmt0001-zf16_ox,
|
||||
zf16_desc LIKE zcmt0001-zf16_desc,
|
||||
zf17_ox LIKE zcmt0001-zf17_ox,
|
||||
zf17_desc LIKE zcmt0001-zf17_desc,
|
||||
END OF gt_0070.
|
||||
|
||||
DATA gt_0071 TYPE TABLE OF zcmt0002 WITH HEADER LINE.
|
||||
|
||||
DATA : BEGIN OF gt_0071_pk OCCURS 0,
|
||||
zmodule LIKE zcmt0002-zmodule,
|
||||
zclass LIKE zcmt0002-zclass,
|
||||
zcm_code1 LIKE zcmt0002-zcm_code1,
|
||||
zcm_code2 LIKE zcmt0002-zcm_code2,
|
||||
zcm_code3 LIKE zcmt0002-zcm_code3,
|
||||
zcm_code4 LIKE zcmt0002-zcm_code4,
|
||||
zcm_code5 LIKE zcmt0002-zcm_code5,
|
||||
zcm_code6 LIKE zcmt0002-zcm_code6,
|
||||
zcm_code7 LIKE zcmt0002-zcm_code7,
|
||||
zcm_code8 LIKE zcmt0002-zcm_code8,
|
||||
END OF gt_0071_pk.
|
||||
|
||||
* AL:V - 클래스
|
||||
DATA : BEGIN OF gt_class OCCURS 0,
|
||||
zmodule LIKE zcmt0001-zmodule,
|
||||
zclass LIKE zcmt0001-zclass,
|
||||
zclss_desc LIKE zcmt0001-zclss_desc,
|
||||
zprgname LIKE zcmt0001-zprgname,
|
||||
END OF gt_class.
|
||||
|
||||
* ALV - 클래스 별 상세 정보
|
||||
DATA : BEGIN OF gt_detail OCCURS 0,
|
||||
mark,
|
||||
zmodule LIKE zcmt0002-zmodule,
|
||||
zclass LIKE zcmt0002-zclass,
|
||||
zcm_code1 LIKE zcmt0002-zcm_code1,
|
||||
zcm_code2 LIKE zcmt0002-zcm_code2,
|
||||
zcm_code3 LIKE zcmt0002-zcm_code3,
|
||||
zcm_code4 LIKE zcmt0002-zcm_code4,
|
||||
zcm_code5 LIKE zcmt0002-zcm_code5,
|
||||
zcm_code6 LIKE zcmt0002-zcm_code6,
|
||||
zcm_code7 LIKE zcmt0002-zcm_code7,
|
||||
zcm_code8 LIKE zcmt0002-zcm_code8,
|
||||
zcmf01_ch LIKE zcmt0002-zcmf01_ch,
|
||||
zcmf02_ch LIKE zcmt0002-zcmf02_ch,
|
||||
zcmf03_ch LIKE zcmt0002-zcmf03_ch,
|
||||
zcmf04_ch LIKE zcmt0002-zcmf04_ch,
|
||||
zcmf05_ch LIKE zcmt0002-zcmf05_ch,
|
||||
zcmf06_ch LIKE zcmt0002-zcmf06_ch,
|
||||
zcmf07_ch LIKE zcmt0002-zcmf07_ch,
|
||||
zcmf08_ch LIKE zcmt0002-zcmf08_ch,
|
||||
zcmf09_ch LIKE zcmt0002-zcmf09_ch,
|
||||
zcmf10_ch LIKE zcmt0002-zcmf10_ch,
|
||||
zcmf11_qu LIKE zcmt0002-zcmf11_qu,
|
||||
zcmf12_ut LIKE zcmt0002-zcmf12_ut,
|
||||
zcmf13_cr LIKE zcmt0002-zcmf13_cr,
|
||||
zcmf14_ck LIKE zcmt0002-zcmf14_ck,
|
||||
zcmf15_nm LIKE zcmt0002-zcmf15_nm,
|
||||
zcmf16_nm LIKE zcmt0002-zcmf16_nm,
|
||||
zcmf17_dc LIKE zcmt0002-zcmf17_dc,
|
||||
zsort_key LIKE zcmt0002-zsort_key,
|
||||
ernam LIKE zcmt0001-ernam,
|
||||
erdat LIKE zcmt0001-erdat,
|
||||
erzet LIKE zcmt0001-erzet,
|
||||
aenam LIKE zcmt0001-aenam,
|
||||
aedat LIKE zcmt0001-aedat,
|
||||
aezet LIKE zcmt0001-aezet,
|
||||
celltab TYPE lvc_t_styl, "Cell Style,
|
||||
colinfo TYPE lvc_t_scol, "Cell Color
|
||||
END OF gt_detail.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Global Variable
|
||||
*----------------------------------------------------------------------*
|
||||
DATA : gv_module_desc LIKE dd07t-ddtext,
|
||||
gv_class LIKE zcmt0001-zclass,
|
||||
gv_module LIKE zcmt0001-zmodule,
|
||||
gv_total TYPE i,
|
||||
gv_cursor(50) TYPE c,
|
||||
gv_error,
|
||||
gv_mode(2), "Edit Mode
|
||||
gv_okcode TYPE sy-ucomm,
|
||||
gv_saveok TYPE sy-ucomm.
|
||||
|
||||
DATA: gv_zauthority VALUE 'X'.
|
||||
DATA: gv_f4_module(2),
|
||||
gv_f4_class(5).
|
||||
|
||||
DATA: gv_langu LIKE sy-langu,
|
||||
gs_0000 LIKE zcms0010.
|
||||
*----------------------------------------------------------------------*
|
||||
* Constants
|
||||
*----------------------------------------------------------------------*
|
||||
CONSTANTS c_module(15) TYPE c VALUE 'ZDMODULE'.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Search Help
|
||||
*----------------------------------------------------------------------*
|
||||
DATA: gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE,
|
||||
gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Data & Variables
|
||||
*&---------------------------------------------------------------------*
|
||||
DATA : g_event_receiver TYPE REF TO lcl_event_receiver,
|
||||
g_docking_container TYPE REF TO cl_gui_docking_container,
|
||||
g_custom_container TYPE REF TO cl_gui_custom_container,
|
||||
g_grid1 TYPE REF TO cl_gui_alv_grid,
|
||||
g_grid2 TYPE REF TO cl_gui_alv_grid,
|
||||
gs_variant TYPE disvariant,
|
||||
gs_layout TYPE lvc_s_layo,
|
||||
gs_layout2 TYPE lvc_s_layo,
|
||||
col_pos TYPE i,
|
||||
gt_fcat TYPE lvc_t_fcat,
|
||||
gt_fcat2 TYPE lvc_t_fcat,
|
||||
gt_sort TYPE lvc_t_sort WITH HEADER LINE,
|
||||
gt_exclude TYPE ui_functions,
|
||||
gs_stbl TYPE lvc_s_stbl,
|
||||
gv_valid TYPE c,
|
||||
gt_celltab TYPE lvc_t_styl, "ALV 제어: 셀에 대한 스타일 테이블
|
||||
gt_rows TYPE lvc_t_row,
|
||||
gt_fcode TYPE TABLE OF sy-ucomm,
|
||||
gv_gridtitle TYPE lvc_title.
|
||||
|
||||
* Title
|
||||
DATA : g_document TYPE REF TO cl_dd_document,
|
||||
g_splitter TYPE REF TO cl_gui_splitter_container,
|
||||
g_grid_left TYPE REF TO cl_gui_container,
|
||||
g_grid_right TYPE REF TO cl_gui_container.
|
||||
@@ -0,0 +1,20 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0001TOP</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>3</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<TPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0001TOP</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,61 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& 프로그램 ID : ZCMR0002
|
||||
*& 프로그램 명 : [CM] Common Code Define
|
||||
*& 생성일 : 2025.05.20
|
||||
*& 생성자 :
|
||||
*& 프로그램 설명 : Common Code Define
|
||||
*&---------------------------------------------------------------------*
|
||||
* Modification Log
|
||||
*----------------------------------------------------------------------*
|
||||
* Tag Date Author Description
|
||||
*----------------------------------------------------------------------*
|
||||
* N 2025.05.20 Initial Release
|
||||
*----------------------------------------------------------------------*
|
||||
*& 변경번호 : #1(CTS No) 변경자 : XXX 변경일자 : YYYY..MM.DD
|
||||
*& 변경내용 : 간단한 설명,(상세내용은 변경부분에 주석처리)
|
||||
*&---------------------------------------------------------------------*
|
||||
REPORT zcmr0002 MESSAGE-ID zcmm01.
|
||||
|
||||
INCLUDE zcmr0002c01. "ALV Class
|
||||
INCLUDE zcmr0002top. "Top Include
|
||||
INCLUDE zcmr0002s01. "Screen
|
||||
INCLUDE zcmr0002pbo. "PBO-Modules
|
||||
INCLUDE zcmr0002pai. "PAI-Modules
|
||||
INCLUDE zcmr0002f01. "Business FORM Routine
|
||||
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* AT SELECTION-SCREEN
|
||||
*----------------------------------------------------------------------*
|
||||
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_MODULE-LOW.
|
||||
* PERFORM SELECT_MODULE USING MODULE.
|
||||
* S_MODULE-LOW = MODULE.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* INITIALIZATION
|
||||
*----------------------------------------------------------------------*
|
||||
INITIALIZATION.
|
||||
PERFORM SCRFIELDS_FUNCTXT.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
AT SELECTION-SCREEN.
|
||||
*----------------------------------------------------------------------*
|
||||
CASE SSCRFIELDS-UCOMM.
|
||||
WHEN 'FC01'.
|
||||
PERFORM SCR_USER_COMMAND. "Module Code Management
|
||||
ENDCASE.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* START-OF-SELECTION
|
||||
*----------------------------------------------------------------------*
|
||||
START-OF-SELECTION.
|
||||
PERFORM GET_TITLE.
|
||||
* PERFORM CHECK_PARAM.
|
||||
PERFORM GET_DATA.
|
||||
PERFORM MAKE_DATA.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* END-OF-SELECTION
|
||||
*----------------------------------------------------------------------*
|
||||
END-OF-SELECTION.
|
||||
CALL SCREEN 100.
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,120 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0002C01
|
||||
*&---------------------------------------------------------------------*
|
||||
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
|
||||
|
||||
DATA G_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* CLASS LCL_EVENT_HANDLER DEFINITION
|
||||
*----------------------------------------------------------------------*
|
||||
CLASS LCL_EVENT_RECEIVER DEFINITION.
|
||||
PUBLIC SECTION.
|
||||
|
||||
METHODS:
|
||||
HANDLE_DATA_CHANGED
|
||||
FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
|
||||
IMPORTING ER_DATA_CHANGED
|
||||
E_ONF4_AFTER,
|
||||
|
||||
HANDLE_USER_COMMAND
|
||||
FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_UCOMM,
|
||||
|
||||
HANDLE_TOOLBAR
|
||||
FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_OBJECT
|
||||
E_INTERACTIVE,
|
||||
|
||||
HANDLE_MENU_BUTTON
|
||||
FOR EVENT MENU_BUTTON OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_OBJECT
|
||||
E_UCOMM,
|
||||
|
||||
HANDLE_ONF4
|
||||
FOR EVENT ONF4 OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_FIELDNAME
|
||||
E_FIELDVALUE
|
||||
ES_ROW_NO
|
||||
ER_EVENT_DATA
|
||||
ET_BAD_CELLS
|
||||
E_DISPLAY,
|
||||
|
||||
HANDLE_CHANGED_FINISHED
|
||||
FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_MODIFIED,
|
||||
|
||||
HANDLE_DOUBLE_CLICK
|
||||
FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_ROW
|
||||
E_COLUMN
|
||||
ES_ROW_NO,
|
||||
|
||||
HANDLE_HOTSPOT_CLICK
|
||||
FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_ROW_ID
|
||||
E_COLUMN_ID
|
||||
ES_ROW_NO,
|
||||
|
||||
HANDLE_TOP_OF_PAGE
|
||||
FOR EVENT TOP_OF_PAGE OF CL_GUI_ALV_GRID
|
||||
IMPORTING E_DYNDOC_ID.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* CLASS LCL_EVENT_HANDLER IMPLEMENTATION
|
||||
*----------------------------------------------------------------------*
|
||||
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
|
||||
METHOD HANDLE_DATA_CHANGED.
|
||||
* PERFORM alv_data_changed USING er_data_changed
|
||||
* e_onf4_after.
|
||||
ENDMETHOD. "HANDLE_DATA_CHANGED
|
||||
|
||||
METHOD HANDLE_USER_COMMAND.
|
||||
* PERFORM alv_user_command USING e_ucomm.
|
||||
ENDMETHOD. "HANDLE_USER_COMMAND
|
||||
|
||||
METHOD HANDLE_TOOLBAR.
|
||||
* PERFORM alv_event_toolbar USING e_object
|
||||
* e_interactive.
|
||||
ENDMETHOD. "HANDLE_TOOLBAR
|
||||
|
||||
METHOD HANDLE_MENU_BUTTON.
|
||||
* PERFORM alv_menu_button USING e_object
|
||||
* e_ucomm.
|
||||
ENDMETHOD. "HANDLE_MENU_BUTTON
|
||||
|
||||
METHOD HANDLE_ONF4.
|
||||
ER_EVENT_DATA->M_EVENT_HANDLED = 'x'.
|
||||
* PERFORM alv_onf4 USING e_fieldname
|
||||
* e_fieldvalue
|
||||
* es_row_no
|
||||
* er_event_data
|
||||
* et_bad_cells
|
||||
* e_display.
|
||||
ENDMETHOD. "HANDLE_ONF4
|
||||
|
||||
METHOD HANDLE_CHANGED_FINISHED.
|
||||
* PERFORM alv_changed_finished USING e_modified.
|
||||
ENDMETHOD. "HANDLE_CHANGED_FINISHED
|
||||
|
||||
METHOD HANDLE_DOUBLE_CLICK.
|
||||
PERFORM ALV_DOUBLE_CLICK USING E_ROW
|
||||
E_COLUMN
|
||||
ES_ROW_NO.
|
||||
ENDMETHOD. "HANDLE_DOUBLE_CLICK
|
||||
|
||||
METHOD HANDLE_HOTSPOT_CLICK.
|
||||
PERFORM ALV_HOTSPOT_CLICK USING E_ROW_ID
|
||||
E_COLUMN_ID
|
||||
ES_ROW_NO.
|
||||
ENDMETHOD. "HANDLE_HOTSPOT_CLICK
|
||||
|
||||
METHOD HANDLE_TOP_OF_PAGE.
|
||||
* PERFORM top_of_page USING e_dyndoc_id.
|
||||
ENDMETHOD. "HANDLE_TOP_OF_PAGE
|
||||
|
||||
ENDCLASS.
|
||||
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0002C01</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>E</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<I18N_TPOOL>
|
||||
<item>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TEXTPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0002C01</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TEXTPOOL>
|
||||
</item>
|
||||
</I18N_TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0002F01</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>E</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<I18N_TPOOL>
|
||||
<item>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TEXTPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0002F01</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TEXTPOOL>
|
||||
</item>
|
||||
</I18N_TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,169 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0002PAI
|
||||
*&---------------------------------------------------------------------*
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module EXIT INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE exit INPUT.
|
||||
|
||||
CHECK gv_OKCODE = 'EXIT'.
|
||||
|
||||
PERFORM check_data_changed CHANGING gv_error.
|
||||
CHECK gv_error IS INITIAL.
|
||||
|
||||
LEAVE PROGRAM.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module USER_COMMAND_0100 INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE user_command_0100 INPUT.
|
||||
|
||||
DATA lv_ans.
|
||||
|
||||
GET CURSOR FIELD gv_field LINE gv_tcline.
|
||||
|
||||
CLEAR gv_saveok.
|
||||
gv_saveok = gv_okcode.
|
||||
CLEAR gv_okcode.
|
||||
|
||||
CASE gv_saveok.
|
||||
WHEN 'BACK' OR 'CANC'.
|
||||
PERFORM check_data_changed CHANGING gv_error.
|
||||
CHECK gv_error IS INITIAL.
|
||||
LEAVE TO SCREEN 0.
|
||||
|
||||
WHEN 'NEW'.
|
||||
PERFORM check_data_changed CHANGING gv_error.
|
||||
CHECK gv_error IS INITIAL.
|
||||
|
||||
CLEAR : gs_data, gs_data_old.
|
||||
|
||||
* 모듈/ 클래스 값 설정
|
||||
PERFORM check_module.
|
||||
|
||||
* 필드 정의 설정
|
||||
PERFORM make_fld_data USING 'N'.
|
||||
|
||||
WHEN 'DEL'.
|
||||
CLEAR gv_error.
|
||||
|
||||
* 1. 필수 입력 항목 체크
|
||||
PERFORM check_pk_data USING 'D'
|
||||
CHANGING gv_error.
|
||||
|
||||
* 2. Popup
|
||||
CHECK gv_error <> 'X'.
|
||||
PERFORM popup_to_confirm USING TEXT-t11
|
||||
TEXT-q02
|
||||
TEXT-t12
|
||||
TEXT-t13
|
||||
space
|
||||
CHANGING lv_ans.
|
||||
|
||||
IF lv_ans = '1'.
|
||||
PERFORM check_pk_duplicate CHANGING gv_error.
|
||||
PERFORM delete_data USING gv_error.
|
||||
ENDIF.
|
||||
|
||||
WHEN 'SAVE'.
|
||||
CLEAR gv_error.
|
||||
|
||||
* 1. 필수 입력 항목 체크
|
||||
PERFORM check_pk_data USING 'S'
|
||||
CHANGING gv_error.
|
||||
|
||||
* 2. PK 중복값 체크
|
||||
CHECK gv_error <> 'X'.
|
||||
PERFORM check_pk_duplicate CHANGING gv_error.
|
||||
PERFORM save_data USING gv_error.
|
||||
|
||||
WHEN OTHERS.
|
||||
ENDCASE.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module GET_MODULE_TEXT INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE get_module_text INPUT.
|
||||
|
||||
DATA lt_return LIKE TABLE OF ddshretval WITH HEADER LINE.
|
||||
|
||||
CLEAR : lt_return, lt_return[].
|
||||
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
|
||||
EXPORTING
|
||||
retfield = 'DOMVALUE_L'
|
||||
dynpprog = sy-repid
|
||||
dynpnr = sy-dynnr
|
||||
value_org = 'S' " 'C'
|
||||
TABLES
|
||||
value_tab = gt_module_t
|
||||
return_tab = lt_return
|
||||
EXCEPTIONS
|
||||
parameter_error = 1
|
||||
no_values_found = 2
|
||||
OTHERS = 3.
|
||||
|
||||
IF NOT lt_return[] IS INITIAL.
|
||||
CLEAR lt_return.
|
||||
READ TABLE lt_return INDEX 1.
|
||||
IF sy-subrc = 0.
|
||||
gs_data-zmodule = lt_return-fieldval.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
|
||||
PERFORM get_module_text USING gs_data-zmodule
|
||||
CHANGING gs_data-module_t.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module CHECK_ZMODULE INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE check_zmodule INPUT.
|
||||
|
||||
CLEAR gs_data-module_t.
|
||||
|
||||
IF gs_data-zmodule IS NOT INITIAL.
|
||||
|
||||
SELECT SINGLE zmd_desc
|
||||
INTO gs_data-module_t
|
||||
FROM zcmt0003
|
||||
WHERE zmodule = gs_data-zmodule.
|
||||
|
||||
IF sy-subrc NE 0.
|
||||
MESSAGE e000 WITH TEXT-m03. " '등록되지 않은 모듈입니다.'.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module CHECK_KEY INPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
* text
|
||||
*----------------------------------------------------------------------*
|
||||
MODULE check_key INPUT.
|
||||
|
||||
CHECK gs_data-zmodule IS NOT INITIAL AND gs_data-zclass IS NOT INITIAL.
|
||||
|
||||
SELECT SINGLE mandt INTO @sy-mandt FROM zcmt0001
|
||||
WHERE spras = @sy-langu
|
||||
AND zmodule = @gs_data-zmodule
|
||||
AND zclass = @gs_data-zclass.
|
||||
|
||||
IF sy-subrc = 0.
|
||||
MESSAGE e000 WITH TEXT-m04. "'이미 등록된 클래스 입니다.'.
|
||||
ENDIF.
|
||||
|
||||
ENDMODULE.
|
||||
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0002PAI</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>E</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<I18N_TPOOL>
|
||||
<item>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TEXTPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0002PAI</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TEXTPOOL>
|
||||
</item>
|
||||
</I18N_TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,99 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0002PBO
|
||||
*&---------------------------------------------------------------------*
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module STATUS_0100 OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE STATUS_0100 OUTPUT.
|
||||
|
||||
SET PF-STATUS '100'.
|
||||
SET TITLEBAR '100' WITH GV_MODULE_DESC.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module SET_SCREEN OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE SET_SCREEN OUTPUT.
|
||||
|
||||
IF NO_MEANS IS INITIAL.
|
||||
NO_MEANS = 'X'.
|
||||
ENDIF.
|
||||
|
||||
IF GS_DATA-ZMODULE IS INITIAL.
|
||||
CLEAR GS_DATA-MODULE_T.
|
||||
ELSE.
|
||||
PERFORM GET_MODULE_TEXT USING GS_DATA-ZMODULE
|
||||
CHANGING GS_DATA-MODULE_T.
|
||||
ENDIF.
|
||||
|
||||
IF GS_DATA_OLD-ZMODULE IS INITIAL.
|
||||
CLEAR GS_DATA_OLD-MODULE_T.
|
||||
ELSE.
|
||||
PERFORM GET_MODULE_TEXT USING GS_DATA_OLD-ZMODULE
|
||||
CHANGING GS_DATA_OLD-MODULE_T.
|
||||
ENDIF.
|
||||
|
||||
CHECK GS_DATA-MODE = 'X'.
|
||||
LOOP AT SCREEN.
|
||||
IF SCREEN-GROUP1 = 'GR1'.
|
||||
SCREEN-INPUT = 0.
|
||||
MODIFY SCREEN.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module CREATE_ALV_0100 OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE CREATE_ALV_0100 OUTPUT.
|
||||
|
||||
IF G_CUSTOM_CONTAINER IS INITIAL.
|
||||
CREATE OBJECT G_CUSTOM_CONTAINER
|
||||
EXPORTING
|
||||
CONTAINER_NAME = 'CONT1'.
|
||||
|
||||
CREATE OBJECT G_GRID
|
||||
EXPORTING
|
||||
I_PARENT = G_CUSTOM_CONTAINER
|
||||
I_APPL_EVENTS = 'X'. "space
|
||||
|
||||
PERFORM SET_FCAT.
|
||||
PERFORM SET_LAYOUT.
|
||||
PERFORM SET_EVENT_RECEIVER.
|
||||
PERFORM DISPLAY_GRID.
|
||||
ELSE.
|
||||
PERFORM REFRESH_ALV .
|
||||
ENDIF.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module GET_FLD_DATA OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE GET_FLD_DATA OUTPUT.
|
||||
|
||||
READ TABLE GT_FLD INDEX TC_FLD-CURRENT_LINE INTO GT_FLD.
|
||||
TC_FLD-LINES = 17.
|
||||
|
||||
ENDMODULE.
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Module SET_CURSOR OUTPUT
|
||||
*&---------------------------------------------------------------------*
|
||||
*&
|
||||
*&---------------------------------------------------------------------*
|
||||
MODULE SET_CURSOR OUTPUT.
|
||||
|
||||
SET CURSOR FIELD GV_FIELD LINE GV_TCLINE.
|
||||
|
||||
ENDMODULE.
|
||||
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0002PBO</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>E</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<I18N_TPOOL>
|
||||
<item>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TEXTPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0002PBO</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TEXTPOOL>
|
||||
</item>
|
||||
</I18N_TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,14 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0002S01
|
||||
*&---------------------------------------------------------------------*
|
||||
*----------------------------------------------------------------------*
|
||||
* SELECTION-SCREEN
|
||||
*----------------------------------------------------------------------*
|
||||
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.
|
||||
SELECT-OPTIONS S_MODULE FOR ZCMT0002-ZMODULE NO-EXTENSION NO INTERVALS
|
||||
"OBLIGATORY
|
||||
MATCHCODE OBJECT zcmh_zmodule.
|
||||
SELECTION-SCREEN END OF BLOCK B1.
|
||||
|
||||
|
||||
SELECTION-SCREEN FUNCTION KEY 1.
|
||||
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0002S01</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>E</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<I18N_TPOOL>
|
||||
<item>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TEXTPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0002S01</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TEXTPOOL>
|
||||
</item>
|
||||
</I18N_TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,97 @@
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR0002TOP
|
||||
*&---------------------------------------------------------------------*
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Tables
|
||||
*----------------------------------------------------------------------*
|
||||
TABLES: zcmt0002, sscrfields.
|
||||
|
||||
DATA: module(2),
|
||||
no_means(1).
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Types
|
||||
*----------------------------------------------------------------------*
|
||||
TYPES : BEGIN OF ty_data.
|
||||
INCLUDE STRUCTURE zcmt0001.
|
||||
TYPES : module_t LIKE dd07t-ddtext,
|
||||
mode, " X:수정
|
||||
END OF ty_data.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Internal Table, Structure
|
||||
*----------------------------------------------------------------------*
|
||||
|
||||
DATA : gs_data TYPE ty_data,
|
||||
gs_data_old TYPE ty_data,
|
||||
|
||||
gt_zcmt0001 TYPE TABLE OF zcmt0001 WITH HEADER LINE.
|
||||
|
||||
* ALV용
|
||||
DATA : BEGIN OF gt_disp OCCURS 0,
|
||||
zmodule LIKE zcmt0001-zmodule,
|
||||
zclass LIKE zcmt0001-zclass,
|
||||
zclss_desc LIKE zcmt0001-zclss_desc,
|
||||
zprgname LIKE zcmt0001-zprgname,
|
||||
aenam LIKE zcmt0001-aenam,
|
||||
aedat LIKE zcmt0001-aedat,
|
||||
aezet LIKE zcmt0001-aezet,
|
||||
END OF gt_disp.
|
||||
|
||||
* 필드명 TC용 itab
|
||||
DATA : BEGIN OF gt_fld OCCURS 0,
|
||||
txt1(7),
|
||||
txt2(15),
|
||||
ox LIKE zcmt0001-zf01_ox,
|
||||
desc LIKE zcmt0001-zf01_desc,
|
||||
END OF gt_fld.
|
||||
|
||||
* 모듈명
|
||||
DATA : gt_module_t LIKE zcmt0003 OCCURS 0 WITH HEADER LINE.
|
||||
|
||||
DATA : gv_module_desc LIKE dd07t-ddtext,
|
||||
gv_class LIKE zcmt0001-zclass,
|
||||
gv_module LIKE zcmt0001-zmodule.
|
||||
|
||||
CONTROLS tc_fld TYPE TABLEVIEW USING SCREEN 100.
|
||||
|
||||
DATA: gs_funtxt TYPE smp_dyntxt.
|
||||
*----------------------------------------------------------------------*
|
||||
* Global Variable
|
||||
*----------------------------------------------------------------------*
|
||||
DATA : gv_total TYPE i,
|
||||
gv_error,
|
||||
gv_new,
|
||||
gv_okcode TYPE sy-ucomm,
|
||||
gv_saveok TYPE sy-ucomm,
|
||||
gv_field(30),
|
||||
gv_tcline TYPE i.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Constants
|
||||
*----------------------------------------------------------------------*
|
||||
CONSTANTS c_module(15) TYPE c VALUE 'ZDMODULE'.
|
||||
|
||||
*----------------------------------------------------------------------*
|
||||
* Search Help
|
||||
*----------------------------------------------------------------------*
|
||||
DATA: gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE,
|
||||
gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
|
||||
|
||||
|
||||
*&---------------------------------------------------------------------*
|
||||
*& Include ZCMR1010ALV
|
||||
*&---------------------------------------------------------------------*
|
||||
DATA : g_custom_container TYPE REF TO cl_gui_custom_container,
|
||||
g_grid TYPE REF TO cl_gui_alv_grid,
|
||||
gs_variant TYPE disvariant,
|
||||
gs_layout TYPE lvc_s_layo,
|
||||
gv_col_pos TYPE i,
|
||||
gt_fcat TYPE lvc_t_fcat,
|
||||
gt_exclude TYPE ui_functions,
|
||||
gt_sort TYPE lvc_t_sort,
|
||||
gs_stbl TYPE lvc_s_stbl,
|
||||
gv_valid TYPE c,
|
||||
gt_rows TYPE lvc_t_row,
|
||||
gt_fcode TYPE TABLE OF sy-ucomm.
|
||||
@@ -0,0 +1,25 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<PROGDIR>
|
||||
<NAME>ZCMR0002TOP</NAME>
|
||||
<SUBC>I</SUBC>
|
||||
<RLOAD>E</RLOAD>
|
||||
<UCCHECK>X</UCCHECK>
|
||||
</PROGDIR>
|
||||
<I18N_TPOOL>
|
||||
<item>
|
||||
<LANGUAGE>E</LANGUAGE>
|
||||
<TEXTPOOL>
|
||||
<item>
|
||||
<ID>R</ID>
|
||||
<ENTRY>Include ZCMR0002TOP</ENTRY>
|
||||
<LENGTH>19</LENGTH>
|
||||
</item>
|
||||
</TEXTPOOL>
|
||||
</item>
|
||||
</I18N_TPOOL>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,536 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DD02V>
|
||||
<TABNAME>ZCMT0001</TABNAME>
|
||||
<TABCLASS>TRANSP</TABCLASS>
|
||||
<CLIDEP>X</CLIDEP>
|
||||
<LANGDEP>X</LANGDEP>
|
||||
<MAINFLAG>X</MAINFLAG>
|
||||
<CONTFLAG>A</CONTFLAG>
|
||||
<EXCLASS>1</EXCLASS>
|
||||
</DD02V>
|
||||
<DD09L>
|
||||
<TABNAME>ZCMT0001</TABNAME>
|
||||
<AS4LOCAL>A</AS4LOCAL>
|
||||
<TABKAT>3</TABKAT>
|
||||
<TABART>APPL0</TABART>
|
||||
<UEBERSETZ>X</UEBERSETZ>
|
||||
<BUFALLOW>N</BUFALLOW>
|
||||
</DD09L>
|
||||
<DD03P_TABLE>
|
||||
<DD03P>
|
||||
<FIELDNAME>MANDT</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>MANDT</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>SPRAS</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>SPRAS</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<SHLPORIGIN>D</SHLPORIGIN>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
<LANGUFLAG>X</LANGUFLAG>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZMODULE</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_MODULE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCLASS</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CLASS</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCLSS_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000100</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000050</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZPRGNAME</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000100</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000050</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE2_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE3_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE4_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE5_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE6_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE7_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCODE8_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD1_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD2_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD3_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD4_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD5_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD6_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD7_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCD8_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF01_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF01_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF02_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF02_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF03_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF03_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF04_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF04_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF05_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF05_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF06_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF06_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF07_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF07_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF08_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF08_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF09_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF09_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF10_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF10_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF11_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF11_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF12_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF12_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF13_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF13_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF14_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF14_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF15_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF15_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF16_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF16_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF17_OX</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000002</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000001</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZF17_DESC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000060</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000030</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>.INCLUDE</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<PRECFIELD>ZCMS0010</PRECFIELD>
|
||||
<MASK> S</MASK>
|
||||
<DDTEXT>log</DDTEXT>
|
||||
<COMPTYPE>S</COMPTYPE>
|
||||
</DD03P>
|
||||
</DD03P_TABLE>
|
||||
<I18N_LANGS>
|
||||
<LANGU>E</LANGU>
|
||||
</I18N_LANGS>
|
||||
<DD02_TEXTS>
|
||||
<item>
|
||||
<DDLANGUAGE>E</DDLANGUAGE>
|
||||
<DDTEXT>[CM] 공통코드 클래스 관리</DDTEXT>
|
||||
</item>
|
||||
</DD02_TEXTS>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,272 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DD02V>
|
||||
<TABNAME>ZCMT0002</TABNAME>
|
||||
<TABCLASS>TRANSP</TABCLASS>
|
||||
<CLIDEP>X</CLIDEP>
|
||||
<LANGDEP>X</LANGDEP>
|
||||
<MAINFLAG>X</MAINFLAG>
|
||||
<CONTFLAG>A</CONTFLAG>
|
||||
<EXCLASS>1</EXCLASS>
|
||||
</DD02V>
|
||||
<DD09L>
|
||||
<TABNAME>ZCMT0002</TABNAME>
|
||||
<AS4LOCAL>A</AS4LOCAL>
|
||||
<TABKAT>4</TABKAT>
|
||||
<TABART>APPL1</TABART>
|
||||
<UEBERSETZ>X</UEBERSETZ>
|
||||
<BUFALLOW>N</BUFALLOW>
|
||||
</DD09L>
|
||||
<DD03P_TABLE>
|
||||
<DD03P>
|
||||
<FIELDNAME>MANDT</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>MANDT</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>SPRAS</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>SPRAS</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<SHLPORIGIN>D</SHLPORIGIN>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
<LANGUFLAG>X</LANGUFLAG>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZMODULE</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_MODULE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCLASS</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CLASS</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE1</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE2</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE3</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE4</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE5</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE6</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE7</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCM_CODE8</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF01_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF02_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF03_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF04_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF05_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF06_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF07_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF08_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF09_CH</FIELDNAME>
|
||||
<ROLLNAME>ZCME_CODE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF10_CH</FIELDNAME>
|
||||
<ROLLNAME>CHAR200L</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF11_QU</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>P</INTTYPE>
|
||||
<INTLEN>000008</INTLEN>
|
||||
<REFTABLE>ZCMT0002</REFTABLE>
|
||||
<REFFIELD>ZCMF12_UT</REFFIELD>
|
||||
<DATATYPE>QUAN</DATATYPE>
|
||||
<LENG>000015</LENG>
|
||||
<MASK> QUAN</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF12_UT</FIELDNAME>
|
||||
<ROLLNAME>MEINS</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF13_CR</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>P</INTTYPE>
|
||||
<INTLEN>000008</INTLEN>
|
||||
<REFTABLE>ZCMT0002</REFTABLE>
|
||||
<REFFIELD>ZCMF14_CK</REFFIELD>
|
||||
<DATATYPE>CURR</DATATYPE>
|
||||
<LENG>000015</LENG>
|
||||
<DECIMALS>000002</DECIMALS>
|
||||
<MASK> CURR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF14_CK</FIELDNAME>
|
||||
<ROLLNAME>WAERS</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF15_NM</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>N</INTTYPE>
|
||||
<INTLEN>000040</INTLEN>
|
||||
<DATATYPE>NUMC</DATATYPE>
|
||||
<LENG>000020</LENG>
|
||||
<MASK> NUMC</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF16_NM</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>N</INTTYPE>
|
||||
<INTLEN>000040</INTLEN>
|
||||
<DATATYPE>NUMC</DATATYPE>
|
||||
<LENG>000020</LENG>
|
||||
<MASK> NUMC</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZCMF17_DC</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>P</INTTYPE>
|
||||
<INTLEN>000007</INTLEN>
|
||||
<DATATYPE>DEC</DATATYPE>
|
||||
<LENG>000013</LENG>
|
||||
<MASK> DEC</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZSORT_KEY</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<INTTYPE>C</INTTYPE>
|
||||
<INTLEN>000006</INTLEN>
|
||||
<DATATYPE>CHAR</DATATYPE>
|
||||
<LENG>000003</LENG>
|
||||
<MASK> CHAR</MASK>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>.INCLUDE</FIELDNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<PRECFIELD>ZCMS0010</PRECFIELD>
|
||||
<MASK> S</MASK>
|
||||
<DDTEXT>log</DDTEXT>
|
||||
<COMPTYPE>S</COMPTYPE>
|
||||
</DD03P>
|
||||
</DD03P_TABLE>
|
||||
<I18N_LANGS>
|
||||
<LANGU>E</LANGU>
|
||||
</I18N_LANGS>
|
||||
<DD02_TEXTS>
|
||||
<item>
|
||||
<DDLANGUAGE>E</DDLANGUAGE>
|
||||
<DDTEXT>[CM] 공통코드 세부코드</DDTEXT>
|
||||
</item>
|
||||
</DD02_TEXTS>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
@@ -0,0 +1,56 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
|
||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||
<asx:values>
|
||||
<DD02V>
|
||||
<TABNAME>ZCMT0003</TABNAME>
|
||||
<TABCLASS>TRANSP</TABCLASS>
|
||||
<CLIDEP>X</CLIDEP>
|
||||
<MAINFLAG>X</MAINFLAG>
|
||||
<CONTFLAG>A</CONTFLAG>
|
||||
<EXCLASS>1</EXCLASS>
|
||||
</DD02V>
|
||||
<DD09L>
|
||||
<TABNAME>ZCMT0003</TABNAME>
|
||||
<AS4LOCAL>A</AS4LOCAL>
|
||||
<TABKAT>0</TABKAT>
|
||||
<TABART>APPL0</TABART>
|
||||
<BUFALLOW>N</BUFALLOW>
|
||||
</DD09L>
|
||||
<DD03P_TABLE>
|
||||
<DD03P>
|
||||
<FIELDNAME>MANDT</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>MANDT</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZMODULE</FIELDNAME>
|
||||
<KEYFLAG>X</KEYFLAG>
|
||||
<ROLLNAME>ZCME_MODULE</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
<DD03P>
|
||||
<FIELDNAME>ZMD_DESC</FIELDNAME>
|
||||
<ROLLNAME>ZCME_MD_DESC</ROLLNAME>
|
||||
<ADMINFIELD>0</ADMINFIELD>
|
||||
<NOTNULL>X</NOTNULL>
|
||||
<COMPTYPE>E</COMPTYPE>
|
||||
</DD03P>
|
||||
</DD03P_TABLE>
|
||||
<I18N_LANGS>
|
||||
<LANGU>E</LANGU>
|
||||
</I18N_LANGS>
|
||||
<DD02_TEXTS>
|
||||
<item>
|
||||
<DDLANGUAGE>E</DDLANGUAGE>
|
||||
<DDTEXT>[CM] 모듈 정의</DDTEXT>
|
||||
</item>
|
||||
</DD02_TEXTS>
|
||||
</asx:values>
|
||||
</asx:abap>
|
||||
</abapGit>
|
||||
Reference in New Issue
Block a user