*사업자등록번호 값 체크
IF sy-tcode = 'FD01'.
*사업자등록번호 값이 중복되는지 검사 ------------------------------
DATA : lt_kna1 LIKE kna1 OCCURS 0 WITH HEADER LINE.
DATA : lv_subrc LIKE sy-subrc,
lv_kunnr LIKE kna1-kunnr,
lv_stcd2 LIKE kna1-stcd1.
CLEAR : lv_kunnr, lv_stcd2, lv_subrc, lt_kna1, lt_kna1[].
*사업자등록번호 들고오기
CLEAR: scr_fields[].
scr_fields-fieldname = 'KNA1-STCD2'.
APPEND scr_fields.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
TABLES
dynpfields = scr_fields
EXCEPTIONS
invalid_abapworkarea = 1
invalid_dynprofield = 2
invalid_dynproname = 3
invalid_dynpronummer = 4
invalid_request = 5
no_fielddescription = 6
invalid_parameter = 7
undefind_error = 8
OTHERS = 9.
CHECK sy-subrc = 0.
READ TABLE scr_fields INDEX 1.
lv_stcd2 = scr_fields-fieldvalue.
*사업자등록번호 체크
IF NOT lv_stcd2 IS INITIAL.
CLEAR : lv_subrc.
SELECT SINGLE * INTO TABLE lt_kna1
FROM kna1
WHERE stcd2 = lv_stcd2.
lv_subrc = sy-subrc.
IF lv_subrc = 0.
MESSAGE e398(00) WITH '동일한 사업자번호가 이미 존재합니다’.
EXIT.
ENDIF.
ENDIF.
ENDIF.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
90 | REPORT Z15_027 . | sapjoy | 2007.02.01 | 2715 |
89 | REPORT zBADI_FIND | sapjoy | 2009.01.15 | 2724 |
88 | REPORT z18_037 [3] | sapjoy | 2008.04.21 | 2728 |
87 | report zunicode_034. [1] | sapjoy | 2008.11.21 | 2734 |
86 | REPORT Z03_005 [1] | sapjoy | 2006.12.02 | 2735 |
85 | REPORT Z03_021 [5] | sapjoy | 2007.05.15 | 2737 |
84 | REPORT Z17_019 [1] | sapjoy | 2007.02.14 | 2748 |
83 | REPORT Z07_002 . | sapjoy | 2006.12.06 | 2755 |
82 | REPORT Z15_026 | sapjoy | 2007.01.31 | 2758 |
81 | REPORT ZDYNAMIC_ITAB_08. | sapjoy | 2009.02.16 | 2760 |
80 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |
79 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
78 | report zunicode_026. | sapjoy | 2008.11.21 | 2782 |
» | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
76 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
75 | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
74 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
73 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
72 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
71 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |