*사업자등록번호 값 체크
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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
609 | report zsapdoi_004. | sapjoy | 2008.12.26 | 2923 |
608 | FUNCTION Z_BAPI_ASSETNAME_SEARCH | sapjoy | 2009.01.30 | 2898 |
607 | INCLUDE Z16_001I01 | sapjoy | 2007.04.26 | 2887 |
606 | REPORT Z05_001 [3] | sapjoy | 2007.05.21 | 2880 |
605 | REPORT z17_20 | sapjoy | 2012.08.01 | 2879 |
604 | REPORT Z03_003 [7] | sapjoy | 2007.05.11 | 2875 |
603 | FORM set_field_catalogs_grid USING lt_fieldcat TYPE lvc_t_fcat. | sapjoy | 2007.01.03 | 2875 |
602 | REPORT z19_010 [2] | sapjoy | 2007.04.06 | 2843 |
601 | REPORT z18_014 | sapjoy | 2007.03.09 | 2843 |
600 | Sub DOI_MACRO() | sapjoy | 2008.12.26 | 2842 |
599 | DBZF1SSEL | sapjoy | 2006.12.19 | 2842 |
598 | REPORT Z09_006 [1] | sapjoy | 2006.12.18 | 2839 |
597 | REPORT Z03_006 [5] | sapjoy | 2006.12.02 | 2812 |
596 | report zunicode_017. | sapjoy | 2008.11.21 | 2810 |
595 | REPORT Z07_016 | sapjoy | 2008.04.14 | 2804 |
594 | Report Z15_047 [3] | sapjoy | 2007.12.05 | 2798 |
» | FIELD_EXIT_STCD2_0 | sapjoy | 2008.12.16 | 2792 |
592 | report zunicode_026. | sapjoy | 2008.11.21 | 2782 |
591 | REPORT Z18_001 | sapjoy | 2007.03.02 | 2774 |
590 | Z01_021 [1] | sapjoy | 2006.12.02 | 2771 |