mygit/abap-ztax
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

First Commit (2026.08.18)

Browse Source
This commit is contained in:
mygit
2026-08-18 04:42:47 +00:00
parent 7befdc4199
commit 1a868f3cbe
44 changed files with 4444 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/package.devc.xml
+10
View File
@@ -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>
src/z_cds_date_param.ddls.asddls
+24
View File
@@ -0,0 +1,24 @@
@AbapCatalog.sqlViewName: 'ZV_DATEPARM'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'test'
@Metadata.ignorePropagatedAnnotations: true
define view Z_CDS_DATE_PARAM
with parameters p_date : abap.dats
as select from zttax0020
{
key reg_no,
key confirm_date,
shop_nm,
substring(
DATS_ADD_MONTHS(
confirm_date,
-1,
'FAIL'
), 1 , 6 ) as test
}
where confirm_date >= $parameters.p_date
src/z_cds_date_param.ddls.baseinfo
+19
View File
@@ -0,0 +1,19 @@
{
"BASEINFO":
{
"FROM":
[
"ZTTAX0020"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}
src/z_cds_date_param.ddls.xml
+13
View File
@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DDLS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DDLS>
<DDLNAME>Z_CDS_DATE_PARAM</DDLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>test</DDTEXT>
<SOURCE_TYPE>V</SOURCE_TYPE>
</DDLS>
</asx:values>
</asx:abap>
</abapGit>
src/zcds_vtax0008.ddls.asddls
+30
View File
@@ -0,0 +1,30 @@
@AbapCatalog.sqlViewName: 'ZVTAX0008'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: '감가상각 스케쥴표'
@Metadata.ignorePropagatedAnnotations: true
define view zcds_vtax0008 as
select
p.assettype,
p.assetcode,
q.seq_no,
q.yearmonth,
p.assetdate,
p.aname,
p.depr_method,
p.useful_life,
@Semantics.currencyCode: true
p.waers,
@Semantics.amount.currencyCode: 'waers'
p.assetprice,
q.start_ym,
q.end_ym,
@Semantics.amount.currencyCode: 'waers'
q.dep_amt
from zttax0008 as p
inner join ztf_asset_depr as q
on p.mandt = q.mandt
and p.assettype = q.assettype
and p.assetcode = q.assetcode
;
src/zcds_vtax0008.ddls.baseinfo
+19
View File
@@ -0,0 +1,19 @@
{
"BASEINFO":
{
"FROM":
[
"ZTTAX0008"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}
src/zcds_vtax0008.ddls.xml
+13
View File
@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DDLS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DDLS>
<DDLNAME>ZCDS_VTAX0008</DDLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>감가상각 스케쥴표</DDTEXT>
<SOURCE_TYPE>V</SOURCE_TYPE>
</DDLS>
</asx:values>
</asx:abap>
</abapGit>
src/zcl_common_class.clas.abap
+25
View File
@@ -0,0 +1,25 @@
class ZCL_COMMON_CLASS definition
public
create public .
public section.
types TY_ROW type STRING_TABLE .
types:
TY_T_ROW type STANDARD TABLE OF TY_ROW with DEFAULT KEY .
methods UPLOAD_EXCEL_TO_ITAB
returning
value(RR_DATA) type ref to DATA .
protected section.
private section.
ENDCLASS.
CLASS ZCL_COMMON_CLASS IMPLEMENTATION.
method UPLOAD_EXCEL_TO_ITAB.
endmethod.
ENDCLASS.
src/zcl_common_class.clas.xml
+41
View File
@@ -0,0 +1,41 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_COMMON_CLASS</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>공통 클래스</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
<DESCRIPTIONS>
<SEOCOMPOTX>
<CMPNAME>TY_ROW</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>Table of Strings</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>TY_T_ROW</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>Table of Strings</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CMPNAME>UPLOAD_EXCEL_TO_ITAB</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>선택된 xlsx 파일 내용을 Itab 으로 리턴</DESCRIPT>
</SEOCOMPOTX>
</DESCRIPTIONS>
<DESCRIPTIONS_SUB>
<SEOSUBCOTX>
<CMPNAME>UPLOAD_EXCEL_TO_ITAB</CMPNAME>
<SCONAME>RR_DATA</SCONAME>
<LANGU>E</LANGU>
<DESCRIPT>Table of Strings</DESCRIPT>
</SEOSUBCOTX>
</DESCRIPTIONS_SUB>
</asx:values>
</asx:abap>
</abapGit>
src/zcl_custom_tax_amdp.clas.abap
+78
View File
@@ -0,0 +1,78 @@
class ZCL_CUSTOM_TAX_AMDP definition
public
final
create public .
public section.
interfaces IF_AMDP_MARKER_HDB .
class-methods GET_ASSET_DEPR_PLAN
for table function ZTF_ASSET_DEPR .
protected section.
private section.
ENDCLASS.
CLASS ZCL_CUSTOM_TAX_AMDP IMPLEMENTATION.
METHOD get_asset_depr_plan
BY DATABASE FUNCTION
FOR HDB
LANGUAGE SQLSCRIPT
OPTIONS READ-ONLY
USING zttax0008 scal_tt_month.
RETURN
select mandt,
assettype,
assetcode,
* assetdate,
* aname,
* depr_method,
* useful_life,
month_cnt,
start_ym,
end_ym,
* assetprice,
yearmonth,
seq_no,
* Round amt fixed.
CASE when seq_no = month_cnt then
( dep_amt + assetprice - (dep_amt * month_cnt ))
ELSE dep_amt
END as dep_amt,
waers
from (
SELECT mandt,
assettype,
assetcode,
* assetdate,
* aname,
* depr_method,
* useful_life,
useful_life * 12 as month_cnt,
to_varchar(assetdate, 'yyyymm') as start_ym,
to_varchar(add_months(assetdate, useful_life * 12 - 1 ), 'YYYYMM') as end_ym,
assetprice,
q.yearmonth,
row_number() over (
partition by p.assetcode
order by q.yearmonth
) as seq_no,
round(assetprice / (useful_life * 12), 2) as dep_amt,
waers
from zttax0008 as p
inner join scal_tt_month as q
ON q.yearmonth >= to_varchar(assetdate, 'yyyymm')
and q.yearmonth < to_varchar(add_months(assetdate, useful_life * 12 ), 'YYYYMM')
where p.depr_method = '1'
);
ENDMETHOD.
ENDCLASS.
src/zcl_custom_tax_amdp.clas.xml
+16
View File
@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_CUSTOM_TAX_AMDP</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>조회</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>
src/zco_constants.prog.abap
+168
View File
@@ -0,0 +1,168 @@
*&---------------------------------------------------------------------*
*& Include ZCO_CONSTANTS
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZH_CONSTANTS
*&---------------------------------------------------------------------*
*-- ALV Grid 번호.
CONSTANTS: gc_grid(5) VALUE'GRID',
gc_grid1(5) VALUE'GRID1',
gc_grid2(5) VALUE'GRID2',
gc_grid3(5) VALUE'GRID3',
gc_grid4(5) VALUE'GRID4',
gc_grid5(5) VALUE'GRID5'.
*-- 수량 단위.
CONSTANTS: BEGIN OF gc_quan,
pc TYPE t006-msehi VALUE 'PC',
st TYPE t006-msehi VALUE 'ST',
ea TYPE t006-msehi VALUE 'EA',
END OF gc_quan.
*-- 금액 단위.
CONSTANTS: BEGIN OF gc_waers,
krw TYPE tcurc-waers VALUE 'KRW',
usd TYPE tcurc-waers VALUE 'USD',
END OF gc_waers.
*-- Icon.
CONSTANTS: BEGIN OF gc_icon,
success LIKE icon-id VALUE '@08@', " 성공.
error LIKE icon-id VALUE '@0A@', " 에러.
warning LIKE icon-id VALUE '@09@', " 경고.
create LIKE icon-id VALUE '@0Y@', " 생성.
change LIKE icon-id VALUE '@0Z@', " 변경.
delete LIKE icon-id VALUE '@11@', " 삭제.
green LIKE icon-id VALUE '@5B@',
red LIKE icon-id VALUE '@5C@',
yellow LIKE icon-id VALUE '@5D@',
expand LIKE icon-id VALUE '@3S@', " 확장 - 펼치기.
collapse LIKE icon-id VALUE '@3T@', " 접기.
para LIKE icon-id VALUE '@77@', " Tree Value.
END OF gc_icon.
*-- Fcode.
CONSTANTS: BEGIN OF gc_fcode,
back LIKE sy-ucomm VALUE 'BACK',
canc LIKE sy-ucomm VALUE 'CANC',
exit LIKE sy-ucomm VALUE 'EXIT',
save LIKE sy-ucomm VALUE 'SAVE',
dele LIKE sy-ucomm VALUE 'DELE',
exec LIKE sy-ucomm VALUE 'EXEC',
excel LIKE sy-ucomm VALUE 'EXCEL',
dist LIKE sy-ucomm VALUE 'DIST',
disp LIKE sy-ucomm VALUE 'DISP',
link LIKE sy-ucomm VALUE 'LINK',
refresh LIKE sy-ucomm VALUE 'REFRESH',
pf01 LIKE sy-ucomm VALUE 'PF01', " BTN 1.
pf02 LIKE sy-ucomm VALUE 'PF02', " BTN 2.
pf03 LIKE sy-ucomm VALUE 'PF03', " BTN 3.
pf04 LIKE sy-ucomm VALUE 'PF04', " BTN 4.
pick LIKE sy-ucomm VALUE 'PICK',
* 전표.
post LIKE sy-ucomm VALUE 'POST',
reve LIKE sy-ucomm VALUE 'REVE',
togg LIKE sy-ucomm VALUE 'TOGG',
END OF gc_fcode.
*-- Popup Answer Code.
CONSTANTS: BEGIN OF gc_answer,
yes TYPE c VALUE 'J',
no TYPE c VALUE 'N',
canc TYPE c VALUE 'A',
END OF gc_answer.
*-- ALV Mode.
CONSTANTS: BEGIN OF gc_mode,
create TYPE c VALUE 'C', " 생성.
modify TYPE c VALUE 'M', " 변경.
delete TYPE c VALUE 'D', " 삭제.
excel TYPE c VALUE 'A', " 엑셀.
error TYPE c VALUE 'E', " 에러.
save TYPE c VALUE 'S', " 저장.
disp TYPE c VALUE 'P', " 조회.
change TYPE c VALUE 'H', " 수정.
END OF gc_mode.
*-- Tcode 관련.
CONSTANTS: BEGIN OF gc_tcode,
fb01(4) TYPE c VALUE 'FB01', " 전표생성.
fb02(4) TYPE c VALUE 'FB02', " 전표변경.
fb03(4) TYPE c VALUE 'FB03', " 전표조회.
END OF gc_tcode.
*-- 세트 값.
*CONSTANTS: BEGIN OF gc_setcls,
* set LIKE setnode-setclass VALUE '0000', " 세트
* kostl LIKE setnode-setclass VALUE '0101', " 코스트센터 그룹.
* kstar LIKE setnode-setclass VALUE '0102', " 원가요소
* prctr LIKE setnode-setclass VALUE '0106', " 손익센터
* racct LIKE setnode-setclass VALUE '0109', " 계정
* END OF gc_setcls.
**-- 공통 Code.
*CONSTANTS : BEGIN OF gc_codegrp,
* j001 LIKE zcot0021-codegrp VALUE 'J001', " 사업부문별 표준계층구조 매핑
* j002 LIKE zcot0021-codegrp VALUE 'J002', " 판매오더 손익센터 대체
* j003 LIKE zcot0021-codegrp VALUE 'J003', " 코스트센터-브랜드 매핑
* a001 LIKE zcot0021-codegrp VALUE 'A001', " 점포사업장 매출원가 대체
* k101 LIKE zcot0021-codegrp VALUE 'K101', " 경관차조정 - 성과급
* k102 LIKE zcot0021-codegrp VALUE 'K102', " 경관차조정 - 전대
* k103 LIKE zcot0021-codegrp VALUE 'K103', " 경관차조정 - 리스
* k104 LIKE zcot0021-codegrp VALUE 'K104', " 경관차조정 - 손상관련 감가상각
* k106 LIKE zcot0021-codegrp VALUE 'K106', " 경관차조정 - 손상처리 조정
* k109 LIKE zcot0021-codegrp VALUE 'K109', " 경관차조정 - FE 물류비 대체
* a011 LIKE zcot0021-codegrp VALUE 'A011', " 경관차조정 - 매출차감 복원
*
* a002 LIKE zcot0021-codegrp VALUE 'A002', " 점포수불부 생산입고/타계정출고계정(ZCOR0010)
* a005 LIKE zcot0021-codegrp VALUE 'A005', " 재료비/생산금액집계(ZCOR0060)
* c004 LIKE zcot0021-codegrp VALUE 'C004', " NRV 수불집계 출고유형(ZCOR0280)
* c005 LIKE zcot0021-codegrp VALUE 'C005', " NRV 출고율적용플랜트(ZCOR0280)
* c007 LIKE zcot0021-codegrp VALUE 'C007', " 후레쉬센터 경비종류별 원가요소그룹(ZCOR0650)
* c009 LIKE zcot0021-codegrp VALUE 'C009', " 물류비 배부기준
*
* t001 LIKE zcot0021-codegrp VALUE 'T001', " 오더유형
* t002 LIKE zcot0021-codegrp VALUE 'T002', " DEFAULT 오더그룹
* END OF gc_codegrp.
*-- SU01 - 파라미터.
CONSTANTS: BEGIN OF gc_para_code,
cac(3) TYPE c VALUE 'CAC',
buk(3) TYPE c VALUE 'BUK',
END OF gc_para_code.
*-- 계획버전
*CONSTANTS: BEGIN OF gc_version,
* 000 TYPE tkvs-versi VALUE '000', " 계획/실제
* a00 TYPE tkvs-versi VALUE 'A00', " 경영
* a10 TYPE tkvs-versi VALUE 'A10', " 수정
* r00 TYPE tkvs-versi VALUE 'R00', " 실행
* b00 TYPE tkvs-versi VALUE 'B00', " 예산(기초)
* END OF gc_version.
*-- 컨버전
CONSTANTS: BEGIN OF gc_conv,
alpha TYPE convexit VALUE 'ALPHA',
matn1 TYPE convexit VALUE 'MATN1',
cunit TYPE convexit VALUE 'CUNIT',
END OF gc_conv.
*-- 데이터타입
CONSTANTS: BEGIN OF gc_datatype,
p(1) TYPE c VALUE 'P',
i(1) TYPE c VALUE 'I',
END OF gc_datatype.
CONSTANTS : gc_e TYPE c VALUE 'E',
gc_s TYPE c VALUE 'S',
gc_d TYPE c VALUE 'D'.
src/zco_constants.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZCO_CONSTANTS</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/zco_macro.prog.abap
+624
View File
@@ -0,0 +1,624 @@
*&---------------------------------------------------------------------*
*& Include ZCO_MACRO
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZCO_MACRO
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Macro. *
* 001. __ALV_REFRESH - Refresh ALV. *
* 002. __ALV_OPTIMIZE - Set Optimize. *
* 003. __ALV_EDITCELL - ALV Edit Cell *
* 004. __ALV_GETCELL - ALV Cell. *
* 005. __ALV_TOOLBAR - ALV Toolbar 생성 *
* 006. __ALV_CELLSTYLE - Cellstyle 지정 (Enable / Disable) *
* 007. __ALV_CELLCOLOR - Cellcolor 지정 *
* 008. __ALV_CELLHOTSPOT - Cell Hotspot 지정 *
* 009. __ALV_CURSOR - Cell Cursor 지정 *
* *
* 010. __GET_SELECT_ROWS - ALV 선택 Rows 가져오기 *
* 011. __SET_SELECT_ROWS - ALV 선택 Rows 유지하기 *
* 012. __SET_FRONTEND_FIELDCAT - 필드카다로그 재설정 *
* 013. __SET_FRONTEND_LAYOUT - Layout 재설정 *
* 014. __SET_READY_INPUT - ALV Input 활성 Check *
* *
* 020. __SPLITTER - 컨테이너 Split *
* 021. __SET_SPLITTER - Split한 Container 연결 *
* 022. __HEIGHT_SPLIT - Split 높이지정 *
* 023. __WIDTH_SPLIT - Split 넓이지정 *
* *
* 030. __RANGES - Range 생성. *
* 031. __ICON_CREATE - Button Icon 생성. *
* 032. __POPUP_TO_CONFIRM_STEP - Yer / No Popup 실행 *
* 033. __LASTDAY_OF_MONTHS - 월의 마지막날 가져오기 *
* 034. __CONVERSION_ALPHA - Conversion Input/Output *
* 035. __CONVERSION_MATNR - Conversion Material Input/Output *
* 036. __CONVERSION_CURRENCY - 통화단위에 맞게 금액변경 *
* 037. __SAPGUI_INDICATOR - SAPGUI 상태바 *
* 038. __SF_SPECIALCHAR_DELETE - 특수문자 제거(EXCEL 업로드시) *
* *
* 040. __DATE_VALID_CHECK - 일자타입 Validation Check *
* 041. __BETWEEN_DATES - 일간의 일자 구하기 *
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* 001. __ALV_REFRESH - Refresh ALV.
*----------------------------------------------------------------------*
DEFINE __alv_refresh.
*-- ALV Refresh.
CLEAR gs_stable.
gs_stable-row = &3. gs_stable-col = &4.
CALL METHOD &1->refresh_table_display
EXPORTING
i_soft_refresh = &2
is_stable = gs_stable.
END-OF-DEFINITION.
*----------------------------------------------------------------------*
* 002. __ALV_OPTIMIZE - Set Optimize.
*----------------------------------------------------------------------*
DEFINE __alv_optimize.
*-- Set_OPTIMIZE.
CALL METHOD &1->set_optimize_all_cols.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 003. __ALV_EDITCELL - ALV Edit Cell.
*&---------------------------------------------------------------------*
DATA: po_er_data_changed TYPE REF TO cl_alv_changed_data_protocol,
gv_cell_index TYPE lvc_s_modi-row_id.
DEFINE __alv_editcell.
*-- ALV Cell Modify.
CALL METHOD po_er_data_changed->modify_cell
EXPORTING
i_row_id = gv_cell_index
i_fieldname = &1
i_value = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 004. __ALV_GETCELL - ALV Cell .
*&---------------------------------------------------------------------*
DEFINE __alv_getcell.
*-- ALV Cell Value.
CALL METHOD po_er_data_changed->get_cell_value
EXPORTING
i_row_id = gv_cell_index
i_fieldname = &1
IMPORTING
e_value = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 005. __ALV_TOOLBAR - ALV Toolbar 생성.
*&---------------------------------------------------------------------*
DEFINE __alv_toolbar.
*-- Crete ALV Toolbar.
CLEAR: gs_toolbar.
MOVE : &3 TO gs_toolbar-function, " FUNCTION CODE.
&4 TO gs_toolbar-icon, " ICON.
&5 TO gs_toolbar-quickinfo, " ICON QUICKINFO.
&6 TO gs_toolbar-text, " BUTTON TEXT.
&7 TO gs_toolbar-butn_type, " BUTTON TYPE .
&8 TO gs_toolbar-disabled. " 'X' - 사용 불가능.
INSERT gs_toolbar INTO &1->mt_toolbar INDEX &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 006. __ALV_CELLSTYLE - Cellstyle 지정 (Enable / Disable).
*&---------------------------------------------------------------------*
DEFINE __alv_cellstyle.
*-- SET ALV CELLSTYLE.
CLEAR: gs_style.
gs_style-fieldname = &1.
CASE &2.
WHEN 'E'.
gs_style-style = cl_gui_alv_grid=>mc_style_enabled.
WHEN 'D'.
gs_style-style = cl_gui_alv_grid=>mc_style_disabled.
WHEN 'H'.
gs_style-style = cl_gui_alv_grid=>mc_style_hotspot.
ENDCASE.
*--//
INSERT gs_style INTO TABLE gt_style.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 007. __ALV_CELLCOLOR- Cellcolor 지정.
*&---------------------------------------------------------------------*
DEFINE __alv_cellcolor.
*-- SET ALV CELLCOLOR.
CLEAR: gs_color.
gs_color-fname = &1. " Fieldname.
gs_color-color-col = &2. " 색상.
gs_color-color-int = &3. " 강조.
INSERT gs_color INTO TABLE gt_color.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 008. __ALV_CELLHOTSPOT - Cell Hotspot 지정.
*&---------------------------------------------------------------------*
DEFINE __alv_cellhotspot.
*-- SET ALV CELLHOTSPOT.
CLEAR: gs_style.
gs_style-fieldname = &1.
*--
gs_style-style = cl_gui_alv_grid=>mc_style_hotspot.
INSERT gs_style INTO TABLE gt_style.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 009. __ALV_CURSOR - ALC Cell Cursor 지정.
*&---------------------------------------------------------------------*
DEFINE __alv_cursor.
DATA: ls_col TYPE lvc_s_col,
ls_row TYPE lvc_s_row.
CLEAR: ls_col, ls_row.
ls_row-index = &2.
ls_col-fieldname = &3.
*-- Cursor 지정.
CALL METHOD &1->set_current_cell_via_id
EXPORTING
is_row_id = ls_row
is_column_id = ls_col.
***-- Cursor의 화면 지정.
** CALL METHOD &1->set_scroll_info_via_id
** EXPORTING
** is_row_info = ls_row
** is_col_info = ls_col.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 010. __GET_SELECT_ROWS - ALV 선택 Rows 가져오기
*&---------------------------------------------------------------------*
DEFINE __get_select_rows.
CLEAR: gs_rows, gt_rows, gt_rows[].
*-- 선택 ROW 가져오기.
CALL METHOD &1->get_selected_rows
IMPORTING
et_index_rows = gt_rows.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 011. __SET_SELECT_ROWS - ALV 선택 Rows 유지하기
*&---------------------------------------------------------------------*
DEFINE __set_select_rows.
*-- 선택 ROW 유지하기.
CALL METHOD &1->set_selected_rows
EXPORTING
it_index_rows = gt_rows.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 012. __SET_FRONTEND_FIELDCAT - 필드카다로그 재설정
*&---------------------------------------------------------------------*
DEFINE __set_frontend_fieldcat.
*-- 필드카다로그 재설정.
CALL METHOD &1->set_frontend_fieldcatalog
EXPORTING
it_fieldcatalog = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 013. __SET_FRONTEND_LAYOUT - Layout 재설정
*&---------------------------------------------------------------------*
DEFINE __set_frontend_layout.
*-- 필드카다로그 재설정.
CALL METHOD &1->set_frontend_layout
EXPORTING
is_layout = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 014. __SET_READY_INPUT - ALV Input 활성 Check
*&---------------------------------------------------------------------*
DEFINE __set_ready_input.
*-- ALV Input 활성 Check
CALL METHOD &1->set_ready_for_input
EXPORTING
i_ready_for_input = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 020. __SPLITTER - 컨테이너 Split.
*&---------------------------------------------------------------------*
DEFINE __splitter.
*-- Create a splitter control for ALV Grid Control.
CREATE OBJECT &1
EXPORTING
parent = &2
rows = &3
columns = &4
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 021. __SET_SPLITTER - Split한 Container 연결.
*&---------------------------------------------------------------------*
DEFINE __set_splitter.
*-- Get the containers of the splitter control.
CALL METHOD &1->get_container
EXPORTING
row = &3
column = &4
RECEIVING
container = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 022. __HEIGHT_SPLIT - Split 높이지정.
*&---------------------------------------------------------------------*
DEFINE __height_split.
*--
CALL METHOD &1->set_row_height
EXPORTING
id = &2
height = &3
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 023. __WIDTH_SPLIT - Split 넓이지정.
*&---------------------------------------------------------------------*
DEFINE __width_split.
*--
CALL METHOD &1->set_column_width
EXPORTING
id = &2
width = &3
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
OTHERS = 3.
END-OF-DEFINITION.
*----------------------------------------------------------------------*
* 030. __RANGES - Range 생성.
*----------------------------------------------------------------------*
DEFINE __ranges.
*-- Ranges 변수 Setting.
MOVE : &2 TO &1-sign,
&3 TO &1-option,
&4 TO &1-low,
&5 TO &1-high.
COLLECT &1.
CLEAR: &1.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 031. __ICON_CREATE - Button Icon 생성.
*&---------------------------------------------------------------------*
DEFINE __icon_create.
*-- Button Icon 설정.
CALL FUNCTION 'ICON_CREATE'
EXPORTING
name = &1 " 아이콘.
text = &2 " 텍스트.
info = &3 " 텍스트 정보.
IMPORTING
result = &4 " 변경할 Button.
EXCEPTIONS
icon_not_found = 1
outputfield_too_short = 2
OTHERS = 3.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 032. __POPUP_TO_CONFIRM_STEP - Yer / No Popup 실행.
*&---------------------------------------------------------------------*
DATA: gv_answer.
DEFINE __popup_to_confirm_step.
CLEAR: gv_answer.
*-- Yer / No / Cancel Popup.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'Y'
textline1 = &1
textline2 = &2
titel = &3
IMPORTING
answer = gv_answer.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 033. __LASTDAY_OF_MONTHS - 월의 마지막날 가져오기.
*&---------------------------------------------------------------------*
DEFINE __lastday_of_months.
*-- 월의 마지막날 가져오기.
CALL FUNCTION 'RP_LAST_DAY_OF_MONTHS'
EXPORTING
day_in = &1
IMPORTING
last_day_of_month = &2
EXCEPTIONS
day_in_no_date = 1
OTHERS = 2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 034. __CONVERSION_ALPHA - Conversion Input/Output .
*&---------------------------------------------------------------------*
DEFINE __conversion_alpha.
CASE &1.
WHEN 'I'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = &2
IMPORTING
output = &2.
WHEN 'O'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
input = &2
IMPORTING
output = &2.
ENDCASE.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 035. __CONVERSION_MATNR - Conversion Material Input/Output .
*&---------------------------------------------------------------------*
DEFINE __conversion_matnr.
CASE &1.
WHEN 'I'.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = &2
IMPORTING
output = &2.
WHEN 'O'.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
input = &2
IMPORTING
output = &2.
ENDCASE.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 036. __CONVERSION_CURRENCY - 통화단위에 맞게 금액변경.
*&---------------------------------------------------------------------*
DATA : lv_amount(50).
DEFINE __conversion_currency.
CLEAR: lv_amount.
lv_amount = &2.
CASE &1.
WHEN 'I'.
*-- 통화단위에 맞게 금액변경.
CALL FUNCTION 'CURRENCY_AMOUNT_IDOC_TO_SAP'
EXPORTING
currency = &3
idoc_amount = lv_amount
IMPORTING
sap_amount = lv_amount.
WHEN 'O'.
*-- 통화단위에 맞게 금액변경.
CALL FUNCTION 'CURRENCY_AMOUNT_SAP_TO_IDOC'
EXPORTING
currency = &3
sap_amount = lv_amount
IMPORTING
idoc_amount = lv_amount.
ENDCASE.
&2 = lv_amount.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 037. __SAPGUI_INDICATOR - SAPGUI 상태바
*&---------------------------------------------------------------------*
DEFINE __sapgui_indicator.
*-- SAPGUI 상태바.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = &1
text = &2.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 038. __SF_SPECIALCHAR_DELETE - 특수문자 제거(EXCEL 업로드시)
*&---------------------------------------------------------------------*
DATA gv_searchhw TYPE fist-searchw.
DEFINE __sf_specialchar_delete.
gv_searchhw = &1.
CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
EXPORTING
with_specialchar = gv_searchhw
IMPORTING
without_specialchar = gv_searchhw
EXCEPTIONS
result_word_empty = 1
OTHERS = 2.
&1 = gv_searchhw.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 040. __DATE_VALID_CHECK - 일자타입 Validation Check .
*&---------------------------------------------------------------------*
DATA : lv_value TYPE char20,
lv_int TYPE i,
lv_len TYPE i.
DEFINE: __date_valid_check.
CLEAR: lv_int, lv_len, lv_value.
lv_len = strlen( &1 ).
DO lv_len TIMES.
IF &1+lv_int(1) CA '1234567890'.
CONCATENATE lv_value &1+lv_int(1) INTO lv_value.
ENDIF.
ADD 1 TO lv_int.
ENDDO.
&1 = lv_value.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& 041. __BETWEEN_DATES - 일간의 일자 구하기.
*&---------------------------------------------------------------------*
DEFINE __between_dates.
*-- 일과 일사이 일수 구하기..
CALL FUNCTION 'HR_MX_INTERVAL_BETWEEN_DATES'
EXPORTING
i_date_start = &1
i_date_end = &2
IMPORTING
e_days = &3.
END-OF-DEFINITION.
*&---------------------------------------------------------------------*
*& Include ZPP_MACRO
*&---------------------------------------------------------------------*
"-* Clear
DEFINE M_CLEAR.
clear: &1, &1[].
END-OF-DEFINITION.
"-*append
DEFINE M_APPEND.
append &1. clear &1.
END-OF-DEFINITION.
"-*collect
DEFINE M_COLLECT.
collect &1. clear &1.
END-OF-DEFINITION.
"-*range
DEFINE M_RANGES.
clear &1.
move : &2 to &1-sign,
&3 to &1-option,
&4 to &1-low,
&5 to &1-high.
append &1.
clear &1.
END-OF-DEFINITION.
"-*Range copy
DEFINE M_RANGES_COPY.
M_CLEAR &1.
LOOP AT &2.
&1-OPTION = &2-OPTION.
&1-SIGN = &2-SIGN.
&1-LOW = &2-LOW.
&1-HIGH = &2-HIGH.
M_APPEND &1.
ENDLOOP.
END-OF-DEFINITION.
src/zco_macro.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZCO_MACRO</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/zco_variant.prog.abap
+168
View File
@@ -0,0 +1,168 @@
*&---------------------------------------------------------------------*
*& Include ZCO_VARIANT
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZH_VARIANT
*&---------------------------------------------------------------------*
TABLES: sscrfields.
DATA : gv_err.
*----------------------------------------------------------------------*
* ALV DEFINE *
*----------------------------------------------------------------------*
DATA :
*-- Container.
go_docking_container TYPE REF TO cl_gui_docking_container,
go_docking_container1 TYPE REF TO cl_gui_docking_container,
go_docking_container2 TYPE REF TO cl_gui_docking_container,
go_docking_container3 TYPE REF TO cl_gui_docking_container,
go_custom_container TYPE REF TO cl_gui_custom_container,
go_custom_container1 TYPE REF TO cl_gui_custom_container,
go_custom_container2 TYPE REF TO cl_gui_custom_container,
go_custom_container3 TYPE REF TO cl_gui_custom_container,
go_custom_container4 TYPE REF TO cl_gui_custom_container,
go_splitter TYPE REF TO cl_gui_splitter_container,
go_splitter_w1 TYPE REF TO cl_gui_splitter_container,
go_splitter_w2 TYPE REF TO cl_gui_splitter_container,
go_splitter_w3 TYPE REF TO cl_gui_splitter_container,
go_splitter_h1 TYPE REF TO cl_gui_splitter_container,
go_splitter_h2 TYPE REF TO cl_gui_splitter_container,
go_splitter_h3 TYPE REF TO cl_gui_splitter_container,
go_container TYPE REF TO cl_gui_container,
go_container1 TYPE REF TO cl_gui_container,
go_container2 TYPE REF TO cl_gui_container,
go_container3 TYPE REF TO cl_gui_container,
go_container4 TYPE REF TO cl_gui_container,
go_container5 TYPE REF TO cl_gui_container,
go_container_top TYPE REF TO cl_gui_container,
go_container_end TYPE REF TO cl_gui_container,
go_container_l TYPE REF TO cl_gui_container,
go_container_r TYPE REF TO cl_gui_container,
go_top_of_list TYPE REF TO cl_gui_html_viewer,
go_end_of_list TYPE REF TO cl_gui_html_viewer,
*-- ALV Grid.
go_grid TYPE REF TO lcl_alv_grid,
go_grid1 TYPE REF TO lcl_alv_grid,
go_grid2 TYPE REF TO lcl_alv_grid,
go_grid3 TYPE REF TO lcl_alv_grid,
go_grid4 TYPE REF TO lcl_alv_grid,
go_grid5 TYPE REF TO lcl_alv_grid,
*-- ALV Tree.
go_tree1 TYPE REF TO cl_gui_alv_tree,
go_tree2 TYPE REF TO cl_gui_alv_tree,
go_tree3 TYPE REF TO cl_gui_alv_tree,
go_tree4 TYPE REF TO cl_gui_alv_tree,
gs_variant TYPE disvariant,
gs_variant1 TYPE disvariant,
gs_variant2 TYPE disvariant,
gs_variant3 TYPE disvariant,
gs_variant4 TYPE disvariant,
gs_variant5 TYPE disvariant,
*-- ALV control: Layout
gs_layout TYPE lvc_s_layo,
gs_layout1 TYPE lvc_s_layo,
gs_layout2 TYPE lvc_s_layo,
gs_layout3 TYPE lvc_s_layo,
gs_layout4 TYPE lvc_s_layo,
gs_layout5 TYPE lvc_s_layo,
*-- ALV LIst : Fieldcataolg.
gs_fieldcat TYPE lvc_s_fcat,
gt_fieldcat TYPE lvc_t_fcat,
gt_fieldcat1 TYPE lvc_t_fcat,
gt_fieldcat2 TYPE lvc_t_fcat,
gt_fieldcat3 TYPE lvc_t_fcat,
gt_fieldcat4 TYPE lvc_t_fcat,
gt_fieldcat5 TYPE lvc_t_fcat,
gt_fieldcat_popup TYPE lvc_t_fcat,
*-- ALV F4 Help.
gt_f4 TYPE lvc_t_f4,
gs_f4 TYPE lvc_s_f4,
*-- ALV Sorting.
gs_sort TYPE lvc_s_sort,
gt_sort TYPE lvc_t_sort,
gt_sort1 TYPE lvc_t_sort,
gt_sort2 TYPE lvc_t_sort,
gt_sort3 TYPE lvc_t_sort,
gt_sort4 TYPE lvc_t_sort,
gt_sort5 TYPE lvc_t_sort,
*-- ALV Toolbar.
gs_toolbar TYPE stb_button,
go_toolbar TYPE REF TO cl_gui_toolbar,
gs_exclude TYPE ui_functions,
gs_exclude1 TYPE ui_functions,
gs_exclude2 TYPE ui_functions,
gs_exclude3 TYPE ui_functions,
gs_exclude4 TYPE ui_functions,
gs_exclude5 TYPE ui_functions,
*-- ALV Color & Style
gs_color TYPE lvc_s_scol,
gt_color TYPE lvc_t_scol WITH HEADER LINE,
gs_style TYPE lvc_s_styl,
gt_style TYPE lvc_t_styl WITH HEADER LINE,
gs_stable TYPE lvc_s_stbl.
DATA: gs_rows TYPE lvc_s_row,
gt_rows TYPE lvc_t_row.
*-- Tree 관련.
DATA: gs_hierarchy_header1 TYPE treev_hhdr,
gs_hierarchy_header2 TYPE treev_hhdr.
DATA: gs_dynpro LIKE dynpread,
gt_dynpro LIKE TABLE OF gs_dynpro.
*----------------------------------------------------------------------*
* OK_CODE. *
*----------------------------------------------------------------------*
DATA: ok_code_0100 LIKE sy-ucomm,
ok_code_0110 LIKE sy-ucomm,
ok_code_0120 LIKE sy-ucomm,
ok_code_0200 LIKE sy-ucomm,
ok_code_0300 LIKE sy-ucomm,
ok_code_0400 LIKE sy-ucomm.
*----------------------------------------------------------------------*
* BDC DEFINE *
*----------------------------------------------------------------------*
DATA : gt_bdcdata LIKE TABLE OF bdcdata WITH HEADER LINE, " BDC Data.
gt_bdcmsg LIKE TABLE OF bdcmsgcoll WITH HEADER LINE, " BDC Message.
gv_bdcmode LIKE ctu_params-dismode VALUE 'N', " BDC Mode.
gv_bdcmsg LIKE bapireturn-message, " BDC Message.
gv_message LIKE bapireturn-message.
*----------------------------------------------------------------------*
* F4 Help. *
*----------------------------------------------------------------------*
DATA : gt_f4_fields LIKE help_value OCCURS 0 WITH HEADER LINE,
gt_f4_header TYPE f4typ_heading_tab WITH HEADER LINE,
gv_f4_fieldname LIKE help_info-fieldname,
gv_f4_fieldvalue LIKE help_info-fldvalue.
TYPES : BEGIN OF ty_err,
fname TYPE lvc_fname,
index TYPE sy-index,
msg TYPE char100,
END OF ty_err.
src/zco_variant.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZCO_VARIANT</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/zmtax01.msag.xml
+19
View File
@@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_MSAG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<T100A>
<ARBGB>ZMTAX01</ARBGB>
<MASTERLANG>E</MASTERLANG>
</T100A>
<T100>
<T100>
<SPRSL>E</SPRSL>
<ARBGB>ZMTAX01</ARBGB>
<MSGNR>000</MSGNR>
<TEXT>&amp;</TEXT>
</T100>
</T100>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010.prog.abap
+65
View File
@@ -0,0 +1,65 @@
* Program Name : ZTAX0010 *
* Description : 신용카드 사용 내역 등록 및 관리 *
* Screen : 100 *
* Transaction code : ZTAX0010 *
* Updated Tables : N/A *
* Input Parameters : *
* Return Codes : *
* Special Logic : *
*----------------------------------------------------------------------*
* MODIFICATION LOG *
*----------------------------------------------------------------------*
* Date Rev Programmer Description *
*------------ -------- ------------- ----------------------------------*
* 2026.06.05 N MYSAP Initial coding *
* xlsx 파일만 업로드 가능.
*----------------------------------------------------------------------*
REPORT ZTAX0010 MESSAGE-ID zmtax01 NO STANDARD PAGE HEADING.
*----------------------------------------------------------------------*
* INCLUDE
*----------------------------------------------------------------------*
INCLUDE ZTAX0010_cls.
INCLUDE ZTAX0010_top.
INCLUDE ZTAX0010_sel.
INCLUDE ZTAX0010_f01.
INCLUDE ZTAX0010_o01.
INCLUDE ZTAX0010_i01.
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
INITIALIZATION.
PERFORM initialization.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
START-OF-SELECTION.
CLEAR: gv_err, gv_mode.
*-- Authority Check(Company Code).
* PERFORM authority_check.
*-- Init & Check.
PERFORM init_data.
*-- Select .
PERFORM get_data.
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
END-OF-SELECTION.
CHECK: gv_err IS INITIAL.
* DATA(lv_line) = lines( gt_grid ).
*
* IF lv_line = 0.
* MESSAGE s003(zmco03) DISPLAY LIKE 'E'. EXIT.
* ELSE.
* MESSAGE s050(zmco03) WITH lv_line.
CALL SCREEN 100.
* ENDIF.
src/ztax0010.prog.xml
+439
View File
@@ -0,0 +1,439 @@
<?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>ZTAX0010</NAME>
<SUBC>1</SUBC>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<DYNPROS>
<item>
<HEADER>
<PROGRAM>ZTAX0010</PROGRAM>
<SCREEN>0100</SCREEN>
<LANGUAGE>E</LANGUAGE>
<DESCRIPT>조회</DESCRIPT>
<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>OK_CODE_0100</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/>
<RPY_DYFLOW>
<LINE> MODULE alv_display_0100.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW/>
<RPY_DYFLOW>
<LINE>*</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>PROCESS AFTER INPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE user_command_0100.</LINE>
</RPY_DYFLOW>
</FLOW_LOGIC>
</item>
</DYNPROS>
<CUA>
<ADM>
<ACTCODE>000001</ACTCODE>
<PFKCODE>000001</PFKCODE>
<MOD_LANGU>E</MOD_LANGU>
</ADM>
<STA>
<RSMPE_STAT>
<CODE>PF_0100</CODE>
<MODAL>D</MODAL>
<ACTCODE>000001</ACTCODE>
<PFKCODE>000001</PFKCODE>
<BUTCODE>0001</BUTCODE>
<INT_NOTE>PF_Status</INT_NOTE>
</RSMPE_STAT>
</STA>
<FUN>
<RSMPE_FUNT>
<CODE>BACK</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_PDIR_BACK</TEXT_NAME>
<ICON_ID>@CF@</ICON_ID>
<FUN_TEXT>BACK</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>BACK</CODE>
<TEXTNO>002</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<FUN_TEXT>Back</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>CANC</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<FUN_TEXT>Exit</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>DOWNLOAD</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_XLS</TEXT_NAME>
<ICON_ID>@J2@</ICON_ID>
<FUN_TEXT>엑셀 다운로드</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>EXCEL</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_XLS</TEXT_NAME>
<ICON_ID>@J2@</ICON_ID>
<FUN_TEXT>엑셀 다운로드</FUN_TEXT>
<INFO_TEXT>간편 신고 데이타 파일 생성</INFO_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>EXIT</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
<ICON_ID>@0W@</ICON_ID>
<FUN_TEXT>Cancel</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>SAVE</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_SYSTEM_SAVE</TEXT_NAME>
<ICON_ID>@2L@</ICON_ID>
<FUN_TEXT>Save</FUN_TEXT>
</RSMPE_FUNT>
</FUN>
<BUT>
<RSMPE_BUT>
<PFK_CODE>000001</PFK_CODE>
<CODE>0001</CODE>
<NO>01</NO>
<PFNO>02</PFNO>
</RSMPE_BUT>
</BUT>
<PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>02</PFNO>
<FUNCODE>EXCEL</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>03</PFNO>
<FUNCODE>BACK</FUNCODE>
<FUNNO>002</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>11</PFNO>
<FUNCODE>SAVE</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>12</PFNO>
<FUNCODE>EXIT</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>15</PFNO>
<FUNCODE>CANC</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
</PFK>
<SET>
<RSMPE_STAF>
<STATUS>PF_0100</STATUS>
<FUNCTION>BACK</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>PF_0100</STATUS>
<FUNCTION>CANC</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>PF_0100</STATUS>
<FUNCTION>DOWNLOAD</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>PF_0100</STATUS>
<FUNCTION>EXCEL</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>PF_0100</STATUS>
<FUNCTION>EXIT</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>PF_0100</STATUS>
<FUNCTION>SAVE</FUNCTION>
</RSMPE_STAF>
</SET>
<DOC>
<RSMPE_ATRT>
<OBJ_TYPE>A</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<MODAL>D</MODAL>
<INT_NOTE>PF_Status</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>PF_Status</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>P</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<MODAL>D</MODAL>
<INT_NOTE>PF_Status</INT_NOTE>
</RSMPE_ATRT>
</DOC>
<TIT>
<RSMPE_TITT>
<CODE>ST_0100</CODE>
<TEXT>신용카드 사용내역 관리</TEXT>
</RSMPE_TITT>
</TIT>
</CUA>
<TPOOL>
<item>
<ID>I</ID>
<KEY>001</KEY>
<ENTRY>홈텍스</ENTRY>
<LENGTH>13</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>002</KEY>
<ENTRY>KB국민은행</ENTRY>
<LENGTH>16</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>B01</KEY>
<ENTRY>조회조건</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>B02</KEY>
<ENTRY>업로드 파일 선택</ENTRY>
<LENGTH>19</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G01</KEY>
<ENTRY>승인일자</ENTRY>
<LENGTH>10</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G02</KEY>
<ENTRY>카드번호</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G03</KEY>
<ENTRY>가맹점사업자번호</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G04</KEY>
<ENTRY>가맹점명</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G05</KEY>
<ENTRY>통화키</ENTRY>
<LENGTH>13</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G06</KEY>
<ENTRY>공급가액</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G07</KEY>
<ENTRY>세액</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G08</KEY>
<ENTRY>비과세</ENTRY>
<LENGTH>13</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G09</KEY>
<ENTRY>합계</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G10</KEY>
<ENTRY>가맹점유형(CODE)</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G11</KEY>
<ENTRY>가맹점유형</ENTRY>
<LENGTH>15</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G12</KEY>
<ENTRY>업태</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G13</KEY>
<ENTRY>업종</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G14</KEY>
<ENTRY>공제여부결정(CODE)</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G15</KEY>
<ENTRY>공제여부결정</ENTRY>
<LENGTH>16</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G16</KEY>
<ENTRY>비고</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G17</KEY>
<ENTRY>카드사</ENTRY>
<LENGTH>13</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G18</KEY>
<ENTRY>계정과목(CODE)</ENTRY>
<LENGTH>16</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G19</KEY>
<ENTRY>계정과목(소)</ENTRY>
<LENGTH>17</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G20</KEY>
<ENTRY>계정과목(대)</ENTRY>
<LENGTH>17</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G21</KEY>
<ENTRY>출처(CODE)</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G22</KEY>
<ENTRY>출처</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G23</KEY>
<ENTRY>적요</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>G24</KEY>
<ENTRY>신고대상여부</ENTRY>
<LENGTH>16</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T01</KEY>
<ENTRY>회계년도</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T02</KEY>
<ENTRY>분기</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T03</KEY>
<ENTRY>조회건수</ENTRY>
<LENGTH>10</LENGTH>
</item>
<item>
<ID>R</ID>
<ENTRY>Program ZTAX0010</ENTRY>
<LENGTH>16</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>P_GJAHR</KEY>
<ENTRY>회계년도</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>P_QUART</KEY>
<ENTRY>분기</ENTRY>
<LENGTH>10</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010_cls.prog.abap
+195
View File
@@ -0,0 +1,195 @@
*&---------------------------------------------------------------------*
*& Include ZTAX0010_CLS
*&---------------------------------------------------------------------*
CLASS: lcl_event_receiver DEFINITION DEFERRED.
DATA : go_event_receiver TYPE REF TO lcl_event_receiver, " ALV Event
go_event_receiver1 TYPE REF TO lcl_event_receiver,
go_event_receiver2 TYPE REF TO lcl_event_receiver,
go_event_receiver3 TYPE REF TO lcl_event_receiver.
*&---------------------------------------------------------------------
*& CLASS DEFINITIAL
*&---------------------------------------------------------------------*
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
DATA lv_object TYPE char30.
*-- Constructor.
METHODS:
constructor
IMPORTING e_object_text TYPE c,
*-- Toolbar.
handle_toolbar
FOR EVENT toolbar OF cl_gui_alv_grid
IMPORTING e_object e_interactive,
*-- User_Command.
handle_user_command
FOR EVENT user_command OF cl_gui_alv_grid
IMPORTING e_ucomm,
*-- Data_Changed.
handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed,
*-- Data_Change Finished.
handle_data_changed_finished
FOR EVENT data_changed_finished OF cl_gui_alv_grid
IMPORTING e_modified et_good_cells,
*-- Hotspot_Click.
handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id,
*-- Double_Click.
handle_double_click
FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row e_column,
*-- Button_Click.
handle_button_click
FOR EVENT button_click OF cl_gui_alv_grid
IMPORTING es_col_id es_row_no,
*-- F4 Help.
handle_on_f4
FOR EVENT onf4 OF cl_gui_alv_grid
IMPORTING e_fieldname e_fieldvalue es_row_no
er_event_data et_bad_cells e_display.
ENDCLASS. "LCL_EVENT_RECEIVER DEFINITION
*---------------------------------------------------------------------
* CLASS LCL_EVENT_RECEIVER IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_event_receiver IMPLEMENTATION.
*-- Constructor.
METHOD constructor.
CALL METHOD super->constructor.
lv_object = e_object_text.
ENDMETHOD. "CONSTRUCTOR
*-- Tollbar.
METHOD handle_toolbar.
*PERFORM toolbar_pros USING e_object e_interactive lv_object.
ENDMETHOD. "HANDLE_TOOLBAR
*-- User_Command
METHOD handle_user_command.
CASE lv_object.
WHEN 'GRID'.
*PERFORM handle_user_command USING e_ucomm.
ENDCASE.
ENDMETHOD. "HANDLE_USER_COMMAND
*-- DATA_CHANGED.
METHOD handle_data_changed.
ENDMETHOD. "HANDLE_DATA_CHANGED
*-- DATA_CHANGE FISNISHED.
METHOD handle_data_changed_finished.
PERFORM data_changed_finished USING e_modified et_good_cells.
ENDMETHOD. "HANDLE_DATA_CHANGED_FINISHED
*-- HOTSPOT_CLICK.
METHOD handle_hotspot_click.
* CASE lv_object.
* WHEN 'GRID'.
*PERFORM handle_hotspot_click USING e_row_id e_column_id.
* ENDCASE.
ENDMETHOD. "HANDLE_HOTSPOT_CLICK
*-- DOUBLE_CLICK.
METHOD handle_double_click.
ENDMETHOD. "HANDLE_DOUBLE_CLICK
*-- BUTTON_CLICK.
METHOD handle_button_click.
ENDMETHOD. "HANDLE_BUTTON_CLICK
*-- F4 HELP.
METHOD handle_on_f4.
CASE lv_object.
WHEN 'GRID'.
PERFORM on_f4 USING e_fieldname e_fieldvalue es_row_no
er_event_data et_bad_cells e_display.
ENDCASE.
ENDMETHOD.
ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION
*---------------------------------------------------------------------
*LOCAL CLASSES: Definition
*---------------------------------------------------------------------*
CLASS lcl_alv_grid DEFINITION INHERITING FROM cl_gui_alv_grid.
PUBLIC SECTION.
METHODS: set_optimize_all_cols.
METHODS: set_cursor IMPORTING row TYPE i
col TYPE i.
METHODS: set_fixed_column.
METHODS: set_row_resize.
METHODS: set_err_cells IMPORTING it_err TYPE lvc_t_err.
ENDCLASS. "LCL_AlV_GRID DEFINITION
*---------------------------------------------------------------------
*CLASS LCL_AlV_GRID IMPLEMENTATION
*---------------------------------------------------------------------*
CLASS lcl_alv_grid IMPLEMENTATION.
METHOD set_optimize_all_cols.
CALL METHOD me->optimize_all_cols
EXPORTING
include_header = 1.
ENDMETHOD. "SET_OPTIMIZE_ALL_COLS
METHOD set_cursor.
CALL METHOD me->set_current_cell_base
EXPORTING
row = row
col = col.
ENDMETHOD. " SET_CURSOR
METHOD set_fixed_column.
CALL METHOD me->set_fixed_cols
EXPORTING
cols = 5.
ENDMETHOD. "SET_FIXED_COLUMN
METHOD set_row_resize.
CALL METHOD me->set_resize_rows
EXPORTING
enable = 1.
ENDMETHOD. " SET_ROW_RESIZE
METHOD set_err_cells.
CALL METHOD me->set_error_cells
EXPORTING
cell_table = it_err
EXCEPTIONS
error = 1
OTHERS = 2.
ENDMETHOD. "GET_CURRENT_COL
ENDCLASS. "LCL_ALV_GRID IMPLEMENTATION
src/ztax0010_cls.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZTAX0010_CLS</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010_f01.prog.abap
+1594
View File
File diff suppressed because it is too large Load Diff
src/ztax0010_f01.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZTAX0010_F01</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010_i01.prog.abap
+3
View File
@@ -0,0 +1,3 @@
*&---------------------------------------------------------------------*
*& Include ZTAX0010_I01
*&---------------------------------------------------------------------*
src/ztax0010_i01.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZTAX0010_I01</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010_o01.prog.abap
+60
View File
@@ -0,0 +1,60 @@
*&---------------------------------------------------------------------*
*& Include ZTAX0010_O01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
DATA : lv_text(200),
lt_fcode TYPE TABLE OF sy-ucomm.
CLEAR: lv_text, lt_fcode, lt_fcode[].
*--
PERFORM set_status TABLES lt_fcode USING lv_text.
SET PF-STATUS 'PF_0100' EXCLUDING lt_fcode.
SET TITLEBAR 'ST_0100' WITH lv_text.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module ALV_DISPLAY_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE alv_display_0100 OUTPUT.
CHECK : go_docking_container IS INITIAL.
*-- Create Object : Container.
PERFORM create_container USING go_docking_container.
PERFORM split_container.
*-- ALV_Display.
PERFORM create_alv USING go_grid go_container
gc_grid go_event_receiver.
*--
PERFORM create_html_text USING 'H' go_top_of_list go_container_top.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CASE ok_code_0100.
WHEN gc_fcode-back OR gc_fcode-exit OR gc_fcode-canc.
LEAVE TO SCREEN 0.
WHEN gc_fcode-save.
PERFORM save_data.
WHEN gc_fcode-excel.
PERFORM export_excel_form_data.
ENDCASE.
ENDMODULE.
src/ztax0010_o01.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZTAX0010_O01</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010_sel.prog.abap
+48
View File
@@ -0,0 +1,48 @@
*&---------------------------------------------------------------------*
*& Include ZTAX0010_SEL
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-b01.
PARAMETERS : p_gjahr TYPE gjahr DEFAULT sy-datum(4) OBLIGATORY.
*-- 분기.
PARAMETERS : p_quart TYPE zquarter OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-b02.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_chk1 RADIOBUTTON GROUP rg1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(40) TEXT-001 FOR FIELD p_chk1.
PARAMETERS: p_chk2 RADIOBUTTON GROUP rg1.
SELECTION-SCREEN COMMENT 50(10) TEXT-002 FOR FIELD p_chk2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN FUNCTION KEY 1. "Excel 업로드 버튼 추가
* AT SELECTION-SCREEN *
*======================================================================*
AT SELECTION-SCREEN.
* PERFORM selection_screen.
IF sscrfields-ucomm = 'FC01'.
PERFORM upload_excel.
gv_mode = gc_mode-excel.
CALL SCREEN 0100.
* MESSAGE 'You clicked Function Key1' TYPE 'I'.
ENDIF.
*&---------------------------------------------------------------------*
* AT SELECTION-SCREEN ON
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
* PERFORM selection_screen_output.
src/ztax0010_sel.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZTAX0010_SEL</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztax0010_top.prog.abap
+56
View File
@@ -0,0 +1,56 @@
*&---------------------------------------------------------------------*
*& Include ZTAX0010_TOP
*&---------------------------------------------------------------------*
*-- 공통 Include.
INCLUDE zco_constants. " Constants.
INCLUDE zco_variant. " Variant.
INCLUDE zco_macro. " Macro.
INCLUDE <cl_alv_control>.
*&---------------------------------------------------------------------*
*& TABLES
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& CONSTANTS
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Variables
*&---------------------------------------------------------------------*
DATA : gv_mode TYPE c LENGTH 1.
*&---------------------------------------------------------------------*
*& Types
*&---------------------------------------------------------------------*
TYPES : BEGIN OF ty_record.
INCLUDE TYPE zttax0020.
TYPES : card_company TYPE zcard_buk,
shop_ty_name TYPE c LENGTH 10,
deduction_desc TYPE c LENGTH 5,
acct LIKE zttax0030-acct,
acct_nm TYPE c LENGTH 40,
gacct_nm TYPE c LENGTH 40,
origin LIKE zttax0030-origin,
origin_nm TYPE c LENGTH 40,
descript LIKE Zttax0030-descript,
bp_no like zttax0009-bp_no,
bp_nm like zttax0009-bp_nm,
mark TYPE c LENGTH 1, "수정 여부
EXPORT TYPE C LENGTH 1, "신고 대상 여부
END OF ty_record.
*&---------------------------------------------------------------------*
*& Internal Table
*&---------------------------------------------------------------------*
*-- Main Internal Table.
DATA : gt_grid TYPE TABLE OF ty_record.
*&---------------------------------------------------------------------*
*& Field Symbols
*&---------------------------------------------------------------------*
FIELD-SYMBOLS : <gt_data> TYPE table,
<gs_data> TYPE any.
src/ztax0010_top.prog.xml
+12
View File
@@ -0,0 +1,12 @@
<?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>ZTAX0010_TOP</NAME>
<SUBC>I</SUBC>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztf_asset_depr.ddls.asddls
+26
View File
@@ -0,0 +1,26 @@
@EndUserText.label: '감가상각 스케쥴표'
define table function ztf_asset_depr
returns
{
key mandt : mandt;
key assettype : zassettype;
key assetcode : mconame4;
// key ASSETDATE : /sapquery/s_bdate;
// aname : /bofu/text;
// depr_method : zdepmethod;
// useful_life : abap.int1;
month_cnt : abap.int1;
start_ym : zstart_ym;
end_ym : zend_ym;
// assetprice : s_sum;
yearmonth : vdm_yearmonth;
seq_no : zseq_no;
@Semantics.amount.currencyCode: 'waers'
dep_amt : zdepamt;
WAERS : waers;
}
implemented by method
zcl_custom_tax_amdp=>get_asset_depr_plan;
src/ztf_asset_depr.ddls.baseinfo
View File
src/ztf_asset_depr.ddls.xml
+13
View File
@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DDLS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DDLS>
<DDLNAME>ZTF_ASSET_DEPR</DDLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>감가상각 스케쥴표</DDTEXT>
<SOURCE_TYPE>F</SOURCE_TYPE>
</DDLS>
</asx:values>
</asx:abap>
</abapGit>
src/zttax0008.tabl.xml
+98
View File
@@ -0,0 +1,98 @@
<?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>ZTTAX0008</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>[HTAX]자산 관리</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZTTAX0008</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<PROTOKOLL>X</PROTOKOLL>
<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>ASSETTYPE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZASSETTYPE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ASSETCODE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MCONAME4</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ASSETDATE</FIELDNAME>
<ROLLNAME>/SAPQUERY/S_BDATE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ANAME</FIELDNAME>
<ROLLNAME>/BOFU/TEXT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DEPR_METHOD</FIELDNAME>
<ROLLNAME>ZDEPMETHOD</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>USEFUL_LIFE</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>X</INTTYPE>
<INTLEN>000001</INTLEN>
<DATATYPE>INT1</DATATYPE>
<LENG>000003</LENG>
<MASK> INT1</MASK>
<DDTEXT>내용연수</DDTEXT>
</DD03P>
<DD03P>
<FIELDNAME>ASSETPRICE</FIELDNAME>
<ROLLNAME>S_SUM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<REFTABLE>ZTTAX0008</REFTABLE>
<REFFIELD>WAERS</REFFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>WAERS</FIELDNAME>
<ROLLNAME>WAERS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>
src/zttax0009.tabl.xml
+55
View File
@@ -0,0 +1,55 @@
<?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>ZTTAX0009</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>거래처 관리</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZTTAX0009</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<PROTOKOLL>X</PROTOKOLL>
<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>BP_NO</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZBPNO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>BP_NM</FIELDNAME>
<ROLLNAME>ZBPNM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>TEL_NO</FIELDNAME>
<ROLLNAME>DSTEL</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>
src/zttax0010.tabl.xml
+48
View File
@@ -0,0 +1,48 @@
<?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>ZTTAX0010</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>[HTAX]신용카드 마스터</DDTEXT>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZTTAX0010</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<PROTOKOLL>X</PROTOKOLL>
<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>CARD_NO</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCARD_NO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CARD_COMPANY</FIELDNAME>
<ROLLNAME>ZCARD_BUK</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>
src/zttax0020.tabl.xml
+157
View File
@@ -0,0 +1,157 @@
<?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>ZTTAX0020</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>[HTAX]카드사용내역</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZTTAX0020</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>3</TABKAT>
<TABART>APPL1</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>GJAHR</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>GJAHR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>QUARTER</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZQUARTER</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REG_NO</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZREGNO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CONFIRM_DATE</FIELDNAME>
<ROLLNAME>ZCONF_DATE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<SHLPORIGIN>T</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>CARD_NO</FIELDNAME>
<ROLLNAME>ZCARD_NO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SHOP_REG_NO</FIELDNAME>
<ROLLNAME>ZBUSI_REGNO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SHOP_NM</FIELDNAME>
<ROLLNAME>ZSHOP_NM</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>WAERS</FIELDNAME>
<ROLLNAME>WAERS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SUPPLY_VALUE</FIELDNAME>
<ROLLNAME>ZSUPVAL</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<REFTABLE>ZTTAX0020</REFTABLE>
<REFFIELD>WAERS</REFFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>TAX_AMOUNT</FIELDNAME>
<ROLLNAME>ZTAXAMT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<REFTABLE>ZTTAX0020</REFTABLE>
<REFFIELD>WAERS</REFFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>NON_TAXABLE</FIELDNAME>
<ROLLNAME>ZNOTAXABLE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<REFTABLE>ZTTAX0020</REFTABLE>
<REFFIELD>WAERS</REFFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>AMOUNT_SUPPLY</FIELDNAME>
<ROLLNAME>ZSUPAMT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<REFTABLE>ZTTAX0020</REFTABLE>
<REFFIELD>WAERS</REFFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SHOP_TYPE</FIELDNAME>
<ROLLNAME>ZSHOPTYPE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>BISINESS_TYPE</FIELDNAME>
<ROLLNAME>ZBUSITYPE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>BISINESS_CATEGORY</FIELDNAME>
<ROLLNAME>ZBUSICATE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DEDUCTION_STATUS</FIELDNAME>
<ROLLNAME>ZDEDSTATUS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ETC</FIELDNAME>
<ROLLNAME>SWD_OBJTXT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>
src/zttax0030.tabl.xml
+96
View File
@@ -0,0 +1,96 @@
<?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>ZTTAX0030</TABNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>[HTAX]공제여부 확정 변경</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZTTAX0030</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>1</TABKAT>
<TABART>APPL1</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>GJAHR</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>GJAHR</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>QUARTER</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZQUARTER</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>REG_NO</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZREGNO</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ACCT</FIELDNAME>
<ROLLNAME>ZACCT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DEDUCTION_STATUS</FIELDNAME>
<ROLLNAME>ZDEDSTATUS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ORIGIN</FIELDNAME>
<ROLLNAME>ZORIGIN</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DESCRIPT</FIELDNAME>
<ROLLNAME>ARBFND_DESCRIPTION</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>EXPORT</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
<DDTEXT>신고 대상 여부</DDTEXT>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>
src/zvtax0020.ddls.asddls
+71
View File
@@ -0,0 +1,71 @@
@AbapCatalog.sqlViewName: 'ZVTAX0020'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: '사업자카드사용경비처리이력'
@Metadata.ignorePropagatedAnnotations: true
define view zcds_tax0020
as select
key p.gjahr,
key p.quarter,
key p.reg_no,
p.confirm_date,
q.card_company,
p.card_no,
p.shop_reg_no,
p.shop_nm,
@Semantics.currencyCode: true
p.waers,
@Semantics.amount.currencyCode: 'waers'
p.supply_value,
@Semantics.amount.currencyCode: 'waers'
p.tax_amount,
@Semantics.amount.currencyCode: 'waers'
p.non_taxable,
@Semantics.amount.currencyCode: 'waers'
p.amount_supply,
p.shop_type,
cast ( case p.shop_type
when '01' then '법인사업자'
when '02' then '일반과세자'
when '03' then '면세사업자'
when '04' then '간이과세자'
else ''
end as abap.char(10) ) as shop_ty_name,
p.bisiness_type,
p.bisiness_category,
cast( COALESCE(r.deduction_status, p.deduction_status) as zdedstatus) as deduction_status,
cast( case COALESCE(r.deduction_status, p.deduction_status)
when '01' then '불공제'
when '02' then '공제'
else ''
end as abap.char(5) ) as deduction_desc,
p.etc,
r.acct,
t.code_txt as acct_nm,
f.code_txt as gacct_nm,
r.origin,
s.code_txt as origin_nm,
r.descript,
r.export
from zttax0020 as p
left outer join zttax0010 as q on p.card_no = q.card_no
left outer join zttax0030 as r on p.gjahr = r.gjahr
and p.quarter = r.quarter
and p.reg_no = r.reg_no
left outer join zcat0020 as t
on t.appli = 'TX'
and t.grp = 'TAX01'
and t.spras = 'E'
and t.code = r.acct
left outer join zcat0020 as s
on s.appli = 'TX'
and s.grp = 'TAX02'
and s.spras = 'E'
and s.code = r.origin
left outer join zcat0020 as f
on f.appli = t.appli
and f.grp = t.grp
and f.spras = t.spras
and f.code = t.fld_02
src/zvtax0020.ddls.baseinfo
+22
View File
@@ -0,0 +1,22 @@
{
"BASEINFO":
{
"FROM":
[
"ZCAT0020",
"ZTTAX0010",
"ZTTAX0020",
"ZTTAX0030"
],
"ASSOCIATED":
[],
"BASE":
[],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}
src/zvtax0020.ddls.xml
+13
View File
@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DDLS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DDLS>
<DDLNAME>ZVTAX0020</DDLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>test</DDTEXT>
<SOURCE_TYPE>V</SOURCE_TYPE>
</DDLS>
</asx:values>
</asx:abap>
</abapGit>