138 lines
4.4 KiB
ABAP
138 lines
4.4 KiB
ABAP
*&---------------------------------------------------------------------*
|
|
*& 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 'CE0S001',
|
|
g_ce1name LIKE dd03p-tabname VALUE 'CE1S001',
|
|
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',
|
|
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 'S001',
|
|
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.
|