First Commit (2026.08.28)

2026-08-28 00:31:38 +00:00
parent c0ee4b26f0
commit ef241d888e
61 changed files with 16193 additions and 0 deletions
@@ -0,0 +1,137 @@
+*&---------------------------------------------------------------------*
+*& Include ZCOPATD0010TOP                           - Report ZCOPATD0010
+*&---------------------------------------------------------------------*
+REPORT zcopatd0010  MESSAGE-ID ztopdown.
+INCLUDE zcopatdcommtop                          .  " 패키지 공용 Data
+
+TABLES: cepl4a, t821t, tkepc, tkequs1t, tkeplexitt, tkeptrt,cepl4b.
+
+* strategies
+CONSTANTS: g_c_distri  LIKE tkepplsz-type            VALUE '1'.
+CONSTANTS: g_c_forec   LIKE tkepplsz-type            VALUE '2'.
+CONSTANTS: g_c_reval   LIKE tkepplsz-type            VALUE '3'.
+CONSTANTS: g_c_treval  LIKE tkepplsz-type            VALUE '4'.
+CONSTANTS: true            VALUE 'X', false VALUE space,
+           ident_dim_curtp LIKE ceformf-field VALUE 'CURTP'.
+
+DATA : g_topdown   TYPE REF TO zcl_copa_topdown.
+
+DATA: g_char_type.
+
+TYPES:
+  BEGIN OF ys_ref_on_screen,
+    mark         TYPE flag,
+    fnam         LIKE cedst-fnam.
+    INCLUDE TYPE kepp_s_src.
+    INCLUDE TYPE kepp_s_ref.
+TYPES:
+    src_low_txt  TYPE scrtext_m,
+    src_high_txt TYPE scrtext_m,
+    ref_low_txt  TYPE scrtext_m,
+    ref_high_txt TYPE scrtext_m,
+    icon_more    TYPE char5,
+    icon_sel     TYPE char5,
+  END OF ys_ref_on_screen.
+
+TYPES:
+  BEGIN OF ys_0201,
+    show_text,
+    found_col  TYPE fieldname,
+    found_line TYPE int4,
+  END OF ys_0201,
+
+  BEGIN OF ys_1100,
+    fieldname      TYPE fieldname,
+    fieldname_txt  TYPE scrtext_m,
+    entry_count(8) TYPE n,
+    cursor_line    TYPE n,
+    but_filter     TYPE char5,
+    but_filter_txt TYPE char30,
+    found_col      TYPE fieldname,
+    found_line     TYPE int4,
+    show_text,
+    show_from_to,
+    col_optimize,
+
+  END OF ys_1100.
+
+DATA: BEGIN OF g_fieldtabkey,
+        tabname   LIKE dd03p-tabname,
+        fieldname LIKE dd03p-fieldname,
+      END OF g_fieldtabkey.
+
+
+DATA: tscrol(1) OCCURS 0 WITH HEADER LINE.
+DATA: g_planmerk LIKE cepl5 OCCURS 0 WITH HEADER LINE.
+DATA: g_planwert LIKE cepl9 OCCURS 0 WITH HEADER LINE.
+
+DATA: g_tkebpfm LIKE tkebpfm OCCURS 0 WITH HEADER LINE.
+DATA: gs_tkeb TYPE rkea1_v_tkeb.
+DATA: g_tkebpsf LIKE tkebpsf OCCURS 0 WITH HEADER LINE,
+      gt_fnam   TYPE kepp_t_fnam WITH HEADER LINE,
+      gt_sort   TYPE kepp_t_sort WITH HEADER LINE,
+      gt_box    TYPE kepp_t_box  WITH HEADER LINE.
+
+DATA :
+  gt_backup_ref   TYPE STANDARD TABLE OF ys_ref_on_screen
+              WITH HEADER LINE,
+  gt_backup_multi TYPE STANDARD TABLE OF ys_ref_on_screen
+                   WITH HEADER LINE.
+
+DATA:           g_fcodetab LIKE kpp0i OCCURS 0 WITH HEADER LINE.
+
+DATA : g_exit(1),
+       g_tfill_200      LIKE sy-tfill,
+       g_func           LIKE tkebpsf-func VALUE 'GITD',
+       gs_0201          TYPE ys_0201,
+       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_ce1name        LIKE dd03p-tabname  VALUE 'CE11000',
+       g_tabname        LIKE dd03p-tabname  VALUE 'CEx1000',
+       kepp_c_prog      LIKE tkebpsf-prog VALUE 'SAPLKEPP',
+       g_fcode          LIKE kpp0i-ok_code,
+       g_dnum           LIKE tkebpsf-dnum VALUE '0200',
+       g_fnam           TYPE kepp_s_sel1-fnam,
+       g_display(1),
+       gt_chartab       TYPE kepp_t_sel1 WITH HEADER LINE,
+       gs_1100          TYPE ys_1100,
+       g_first_pbo_1100 TYPE flag,
+       g_loopc_200      LIKE sy-tabix,
+       g_begin_1000     LIKE sy-tabix,
+       g_tfill_1000     LIKE sy-tfill,
+       g_loopc_1000     LIKE sy-tabix.
+
+** curtp texts
+DATA: src_high TYPE char20,
+      ref_high TYPE char20.
+
+DATA: gs_bpsel   TYPE kepp_s_bpsel,
+      gt_old_sel TYPE kepp_t_sel1.
+
+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',
+      g_kokrs   LIKE tka01-kokrs,
+      g_pa_type LIKE ceddb-pa_type VALUE '1'.
+
+DATA: subrc   LIKE sy-subrc.
+
+DATA:
+  gt_ref   TYPE STANDARD TABLE OF ys_ref_on_screen WITH HEADER LINE,
+  gt_multi TYPE STANDARD TABLE OF ys_ref_on_screen WITH HEADER LINE.
+
+CONTROLS:
+  tctd_sk TYPE TABLEVIEW USING SCREEN '0100',
+  tc_ref  TYPE TABLEVIEW USING SCREEN '1100'.
+
+
+
+*-- Selection Screen 입력값
+SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-s01.
+  PARAMETERS: p_erkrs  TYPE erkrs   OBLIGATORY,      "경영단위 코드
+              p_perio  TYPE jahrper OBLIGATORY,      "기간(YYYYMM)
+              p_varint TYPE covariant OBLIGATORY.   "변형
+SELECTION-SCREEN END OF BLOCK b1.