commit (2026.08.28)

젠컨설팅 서버 설정에 맞도록 커스트마이징(경영단위 S001)

src/zcopatd0010.prog.xml

@@ -2902,11 +2902,41 @@
      <ENTRY>종료하겠습니까?</ENTRY>
      <LENGTH>18</LENGTH>
     </item>
+    <item>
+     <ID>I</ID>
+     <KEY>S01</KEY>
+     <ENTRY>선택조건</ENTRY>
+     <LENGTH>14</LENGTH>
+    </item>
+    <item>
+     <ID>I</ID>
+     <KEY>T01</KEY>
+     <ENTRY>경영단위</ENTRY>
+     <LENGTH>14</LENGTH>
+    </item>
     <item>
      <ID>R</ID>
      <ENTRY>하향식 배부 사이클 추가 기준 관리</ENTRY>
      <LENGTH>19</LENGTH>
     </item>
+    <item>
+     <ID>S</ID>
+     <KEY>P_ERKRS</KEY>
+     <ENTRY>경영 단위</ENTRY>
+     <LENGTH>13</LENGTH>
+    </item>
+    <item>
+     <ID>S</ID>
+     <KEY>P_PERIO</KEY>
+     <ENTRY>기간/년도</ENTRY>
+     <LENGTH>13</LENGTH>
+    </item>
+    <item>
+     <ID>S</ID>
+     <KEY>P_VARINT</KEY>
+     <ENTRY>변형</ENTRY>
+     <LENGTH>10</LENGTH>
+    </item>
    </TPOOL>
   </asx:values>
  </asx:abap>

src/zcopatd0010top.prog.abap

@@ -87,9 +87,9 @@ DATA : g_exit(1),
        g_begin_200      LIKE sy-tabix,
        g_datar          LIKE sy-datar,
        g_index_200      LIKE sy-tabix VALUE 1,
-       g_ce0name        LIKE dd03p-tabname  VALUE 'CE01000',
+       g_ce0name        LIKE dd03p-tabname  VALUE 'CE0S001',
-       g_ce1name        LIKE dd03p-tabname  VALUE 'CE11000',
+       g_ce1name        LIKE dd03p-tabname  VALUE 'CE1S001',
-       g_tabname        LIKE dd03p-tabname  VALUE 'CEx1000',
+       g_tabname        LIKE dd03p-tabname  VALUE 'CExS001',
        kepp_c_prog      LIKE tkebpsf-prog VALUE 'SAPLKEPP',
        g_fcode          LIKE kpp0i-ok_code,
        g_dnum           LIKE tkebpsf-dnum VALUE '0200',
@@ -113,7 +113,7 @@ DATA: gs_bpsel   TYPE kepp_s_bpsel,
 DATA: g_fieldtab TYPE rkea1_fieldtab WITH HEADER LINE.
 DATA: g_ftab_dep TYPE rkea1_t_depend WITH HEADER LINE.
 
-DATA: g_erkrs   LIKE tkeb-erkrs VALUE '1000',
+DATA: g_erkrs   LIKE tkeb-erkrs VALUE 'S001',
       g_kokrs   LIKE tka01-kokrs,
       g_pa_type LIKE ceddb-pa_type VALUE '1'.
 

src/zcotopdown.fugr.ztopdown_env.abap

@@ -4,7 +4,7 @@ FUNCTION ZTOPDOWN_ENV.
 *"  EXPORTING
 *"     VALUE(TB_NAME) TYPE  TABNAME
 *"--------------------------------------------------------------------
-  tb_name = 'ZCOTD1000'.
+  tb_name = 'ZCOTDS001'.