常用的校验(数量,金额,日期)

数量的校验

IF ls_ar-doc_number CN '0123456789 '.
MESSAGE ID 'ZF' TYPE 'S' NUMBER '069' DISPLAY LIKE 'E' WITH ls_ar-
doc_number.
LEAVE LIST-PROCESSING.
ENDIF.


金额的校验:
IF ls_ar-wrbtr CN '0123456789,. '.
MESSAGE ID 'ZF' TYPE 'S' NUMBER '070' DISPLAY LIKE 'E' WITH ls_ar-wrbtr .
LEAVE LIST-PROCESSING.
ENDIF.


日期的校验:
CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
EXPORTING
date = ls_ar-budat.
IF sy-subrc <> 0.
MESSAGE ID 'ZF' TYPE 'S' NUMBER '071' DISPLAY LIKE 'E' WITH ls_ar-budat.
LEAVE LIST-PROCESSING.
ENDIF.

posted @ 2021-11-23 10:24  清以致远  阅读(85)  评论(0)    收藏  举报