diff --git a/.abapgit.xml b/.abapgit.xml new file mode 100644 index 0000000..5c616cb --- /dev/null +++ b/.abapgit.xml @@ -0,0 +1,10 @@ + + + + + 3 + /src/ + PREFIX + + + diff --git a/src/package.devc.xml b/src/package.devc.xml new file mode 100644 index 0000000..422cc53 --- /dev/null +++ b/src/package.devc.xml @@ -0,0 +1,10 @@ + + + + + + 테스트 + + + + diff --git a/src/z_im_wbs_regn_gsber.sxci.xml b/src/z_im_wbs_regn_gsber.sxci.xml new file mode 100644 index 0000000..ab4117c --- /dev/null +++ b/src/z_im_wbs_regn_gsber.sxci.xml @@ -0,0 +1,17 @@ + + + + + + + Z_IM_WBS_REGN_GSBER + WBS 지역코드 사업영역 정합성 검증 + ZCL_IM__IM_WBS_REGN_GSBER + WORKBREAKDOWN_UPDATE + IF_EX_WORKBREAKDOWN_UPDATE + X + + + + + diff --git a/src/zcl_im__im_wbs_regn_gsber.clas.abap b/src/zcl_im__im_wbs_regn_gsber.clas.abap new file mode 100644 index 0000000..9e29812 --- /dev/null +++ b/src/zcl_im__im_wbs_regn_gsber.clas.abap @@ -0,0 +1,26 @@ +class ZCL_IM__IM_WBS_REGN_GSBER definition + public + final + create public . + +public section. + + interfaces IF_EX_WORKBREAKDOWN_UPDATE . +protected section. +private section. +ENDCLASS. + + + +CLASS ZCL_IM__IM_WBS_REGN_GSBER IMPLEMENTATION. + + + method IF_EX_WORKBREAKDOWN_UPDATE~AT_SAVE. + + BREAK-POINT. + endmethod. + + + method IF_EX_WORKBREAKDOWN_UPDATE~BEFORE_UPDATE. + endmethod. +ENDCLASS. diff --git a/src/zcl_im__im_wbs_regn_gsber.clas.xml b/src/zcl_im__im_wbs_regn_gsber.clas.xml new file mode 100644 index 0000000..1109855 --- /dev/null +++ b/src/zcl_im__im_wbs_regn_gsber.clas.xml @@ -0,0 +1,16 @@ + + + + + + ZCL_IM__IM_WBS_REGN_GSBER + 3 + Imp. class for BAdI imp. Z_IM_WBS_REGN_GSBER + 1 + X + X + X + + + + diff --git a/src/zuserexit.prog.abap b/src/zuserexit.prog.abap new file mode 100644 index 0000000..7dba07e --- /dev/null +++ b/src/zuserexit.prog.abap @@ -0,0 +1,89 @@ +*&---------------------------------------------------------------------* +*& Report ZUSEREXIT +*&---------------------------------------------------------------------* +*& +*&---------------------------------------------------------------------* +REPORT zuserexit NO STANDARD PAGE HEADING. +TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir. +TABLES : tstct. +DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE. +DATA : field1(30). +DATA : v_devclass LIKE tadir-devclass. +PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY. + +SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode. +IF sy-subrc EQ 0. + SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' + AND object = 'PROG' + AND obj_name = tstc-pgmna. + MOVE : tadir-devclass TO v_devclass. + IF sy-subrc NE 0. + SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna. + IF trdir-subc EQ 'F'. + SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna. + SELECT SINGLE * FROM enlfdir WHERE funcname = + tfdir-funcname. + SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' + AND object = 'FUGR' + AND obj_name EQ enlfdir-area. + + MOVE : tadir-devclass TO v_devclass. + ENDIF. + ENDIF. + SELECT * FROM tadir INTO TABLE jtab + WHERE pgmid = 'R3TR' + AND object = 'SMOD' + AND devclass = v_devclass. + SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND + tcode EQ p_tcode. + FORMAT COLOR COL_POSITIVE INTENSIFIED OFF. + WRITE:/(19) 'Transaction Code - ', + 20(20) p_tcode, + 45(50) tstct-ttext. + SKIP. + IF NOT jtab[] IS INITIAL. + WRITE:/(95) sy-uline. + FORMAT COLOR COL_HEADING INTENSIFIED ON. + WRITE:/1 sy-vline, + 2 'Exit Name', + 21 sy-vline , + 22 'Description', + 95 sy-vline. + WRITE:/(95) sy-uline. + LOOP AT jtab. + SELECT SINGLE * FROM modsapt + WHERE sprsl = sy-langu AND + name = jtab-obj_name. + FORMAT COLOR COL_NORMAL INTENSIFIED OFF. + WRITE:/1 sy-vline, + 2 jtab-obj_name HOTSPOT ON, + 21 sy-vline , + 22 modsapt-modtext, + 95 sy-vline. + ENDLOOP. + WRITE:/(95) sy-uline. + DESCRIBE TABLE jtab. + SKIP. + FORMAT COLOR COL_TOTAL INTENSIFIED ON. + WRITE:/ 'No of Exits:' , sy-tfill. + ELSE. + FORMAT COLOR COL_NEGATIVE INTENSIFIED ON. + WRITE:/(95) 'No User Exit exists'. + ENDIF. +ELSE. + FORMAT COLOR COL_NEGATIVE INTENSIFIED ON. + WRITE:/(95) 'Transaction Code Does Not Exist'. +ENDIF. + +AT LINE-SELECTION. + GET CURSOR FIELD field1. + CHECK field1(4) EQ 'JTAB'. + SET PARAMETER ID 'MON' FIELD sy-lisel+1(10). + CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN. + +*---End of Program + + +*Selection texts +*-- +* P_TCODE 트랜잭션 코드 diff --git a/src/zuserexit.prog.xml b/src/zuserexit.prog.xml new file mode 100644 index 0000000..dd7dcbd --- /dev/null +++ b/src/zuserexit.prog.xml @@ -0,0 +1,21 @@ + + + + + + ZUSEREXIT + 1 + 3 + X + X + + + + R + 프로그램 ZUSEREXIT + 14 + + + + +