*사업자등록번호 값 체크
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 z17_02 . | sapjoy | 2012.08.01 | 895 |
609 | REPORT z15_06. | sapjoy | 2012.08.01 | 896 |
608 | REPORT z05_17. | sapjoy | 2012.07.30 | 898 |
607 | REPORT z05_18. | sapjoy | 2012.07.30 | 901 |
606 | REPORT Z14_18. | sapjoy | 2012.08.01 | 903 |
605 | REPORT z17_03. | sapjoy | 2012.08.01 | 905 |
604 | REPORT Z07_06. | sapjoy | 2012.07.30 | 908 |
603 | REPORT z07_02. | sapjoy | 2012.07.30 | 909 |
602 | REPORT z12_29. | sapjoy | 2012.07.30 | 910 |
601 | REPORT Z14_01. | sapjoy | 2012.08.01 | 910 |
600 | REPORT z14_16. [1] | sapjoy | 2012.08.01 | 910 |
599 | REPORT z05_11. | sapjoy | 2012.07.30 | 912 |
598 | REPORT z05_04. | sapjoy | 2012.07.30 | 913 |
597 | REPORT z05_02. | sapjoy | 2012.07.30 | 914 |
596 | REPORT z12_08. | sapjoy | 2012.07.30 | 915 |
595 | REPORT z05_26. | sapjoy | 2012.07.30 | 918 |
594 | REPORT z12_21. | sapjoy | 2012.07.30 | 920 |
593 | REPORT Z14_20. | sapjoy | 2012.08.01 | 921 |
592 | REPORT Z05_08. | sapjoy | 2012.07.30 | 923 |
591 | REPORT z05_09. | sapjoy | 2012.07.30 | 924 |