FUNCTION zmm_fm_21_05.
*"----------------------------------------------------------------------
*"*"本地接口:
*" IMPORTING
*" VALUE(IN) TYPE ZSLIFNR_SRM
*" EXPORTING
*" VALUE(OUT) TYPE ZSLIFNR_SRM
*"----------------------------------------------------------------------
CONSTANTS : gc_black TYPE char04 VALUE '@EB@',
gc_red TYPE char04 VALUE '@0A@',
gc_green TYPE char04 VALUE '@08@',
gc_yellow TYPE char04 VALUE '@09@'.
DATA: lv_msg TYPE string,
ls_bnka TYPE bnka,
ls_lfa1 TYPE lfa1,
ls_but000 TYPE but000,
ls_lfb1 TYPE lfb1,
ls_lfm1 TYPE lfm1.
DATA:lv_partner TYPE but000-partner,
lv_lifnr TYPE lfa1-lifnr.
CLEAR lv_msg.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = in-partner
IMPORTING
output = in-partner.
IF in-bu_group IS INITIAL.
lv_msg = lv_msg && '/' && '账户组必填'.
ENDIF.
IF in-partner IS INITIAL.
lv_msg = lv_msg && '/' && '供应商编码必填'.
ENDIF.
IF in-title_key IS INITIAL.
lv_msg = lv_msg && '/' && '关键字必填'.
ENDIF.
IF in-name_org1 IS INITIAL.
lv_msg = lv_msg && '/' && '供应商名称1必填'.
ELSE.
* SELECT SINGLE * FROM lfa1 INTO ls_lfa1
* WHERE lifnr EQ in-partner.
SELECT SINGLE * FROM but000 INTO ls_but000
WHERE partner EQ in-partner.
IF sy-subrc EQ 0.
lv_msg = lv_msg && '/' && '供应商基本视图已存在' && in-name_org1.
in-lfa1f = 'X'.
ELSE.
* IF in-bu_group IN r_bu_group.
"基本视图
IF in-bu_sort1 IS INITIAL.
lv_msg = lv_msg && '/' && '检索项必填'.
ENDIF.
IF in-land1 IS INITIAL.
lv_msg = lv_msg && '/' && '国家必填'.
ENDIF.
IF in-regio IS INITIAL .
lv_msg = lv_msg && '/' && '地区(省)必填'.
ENDIF.
IF in-city1 IS INITIAL .
lv_msg = lv_msg && '/' && '城市必填'.
ENDIF.
IF in-street IS INITIAL.
lv_msg = lv_msg && '/' && '街道必填'.
ENDIF.
IF in-post_code1 IS INITIAL.
lv_msg = lv_msg && '/' && '邮编必填'.
ENDIF.
* IF in-taxnum IS INITIAL .
* lv_msg = lv_msg && '/' && '税号必填'.
* ENDIF.
* ENDIF.
ENDIF.
ENDIF.
IF NOT in-lfa1f IS INITIAL.
IF NOT in-caigou-ekorg IS INITIAL .
SELECT SINGLE * FROM lfm1 INTO ls_lfm1
WHERE lifnr EQ