*사업자등록번호 값 체크
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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
610 | REPORT Z14_005 | sapjoy | 2007.01.22 | 2268 |
609 | REPORT z14_006 | sapjoy | 2007.01.22 | 2219 |
608 | REPORT z14_007 | sapjoy | 2007.01.22 | 2147 |
607 | REPORT z14_010 | sapjoy | 2007.01.22 | 2261 |
606 | REPORT Z14_011 | sapjoy | 2007.01.22 | 2580 |
605 | REPORT Z14_012 | sapjoy | 2007.01.22 | 2203 |
604 | REPORT Z15_004 | sapjoy | 2007.01.23 | 2385 |
603 | REPORT Z15_006 [2] | sapjoy | 2007.01.23 | 2408 |
602 | REPORT Z15_007 | eabap | 2007.01.23 | 2678 |
601 | REPORT Z15_003 | sapjoy | 2007.01.25 | 2198 |
600 | REPORT Z_15_011 | sapjoy | 2007.01.26 | 2170 |
599 | REPORT z_15_012 | sapjoy | 2007.01.26 | 2176 |
598 | REPORT z15_014 | sapjoy | 2007.01.26 | 2625 |
597 | REPORT z15_016 | sapjoy | 2007.01.29 | 2396 |
596 | REPORT z15_017 | sapjoy | 2007.01.29 | 2316 |
595 | REPORT Z15_020 | sapjoy | 2007.01.29 | 2524 |
594 | REPORT z15_021 | sapjoy | 2007.01.29 | 2452 |
593 | REPORT Z15_022. | sapjoy | 2007.01.30 | 2494 |
592 | REPORT z15_023 | sapjoy | 2007.01.30 | 2484 |
591 | REPORT z15_024 | sapjoy | 2007.01.30 | 2239 |