PA30 PA40增强 CMOD

ki_reikun

已于 2022-04-07 18:05:35 修改

阅读量1w

点赞数 1

CC 4.0 BY-SA版权

文章标签： abap

于 2022-03-30 17:11:06 首次发布

本文链接：https://blog.youkuaiyun.com/ki_laikun/article/details/123851330

本文介绍了一种基于ABAP的手机号码验证方法，通过检查手机号码长度及是否存在系统中来确保数据的有效性和唯一性。文章详细展示了如何使用ABAP进行数据校验，并通过具体的案例演示了验证流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

可以做输入检查和校验的增强，回车或者保存都会触发

EXIT_SAPFP50M_002

 INFOTYPES : 0185, 0530, 0532.
 DATA: lw_0185 TYPE p0185,
       lw_0105 TYPE p0105.
*       lw_9509 TYPE p9509.

 DATA: lw_p0008 TYPE p0008,
       lw_p0007 TYPE p0007,
       lt_p0007 TYPE TABLE OF pa0007.

 DATA: l_icnum TYPE p0185-icnum,
       l_pernr TYPE numc08,
       l_len   TYPE i,
       l_usrid TYPE p0105-usrid.
 DATA: lv_varyf_old TYPE char10.
 DATA: lv_varyf_new TYPE char10.
 DATA  lv_szbk  TYPE zehr_szbk.
 DATA: lv_is_dc_per TYPE char1, 
       ls_p0001     TYPE p0001.

CASE innnn-infty.
WHEN '0105' .
     CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
       EXPORTING
         prelp = innnn
       IMPORTING
         pnnnn = lw_0105.
     IF lw_0105-subty = 'CELL'.
       l_len = strlen( lw_0105-usrid ).
       IF  l_len  <> 11.
         MESSAGE '手机号码长度应该为11位，请检查' TYPE 'E'.
       ENDIF.
       SELECT SINGLE usrid FROM pa0105 INTO l_usrid WHERE  usrid = lw_0105-usrid AND subty = 'CELL'.
       IF sy-subrc = 0.
         MESSAGE '手机号码已存在系统，请检查信息' TYPE 'E'.
       ENDIF.
     ENDIF.
ENDCASE.