ABAP 中去掉前导零问题

 

1. CONVERSION_EXIT_ALPHA_INPUT  功能： 给输入的数字编号添加前置 0  
2. CONVERSION_EXIT_ALPHA_OUTPUT 功能： 删除输入的数字编号中的前置0  
3.   
4. ==============================常用的子程序=======================================   
5.   
6. ABAP 加 前导0  &&&  去掉 前导0 的  Function Module.   
7.   
8. 只要调用这两个 PERFORM. <XXXXX> 字段就会自动更改~   
9.   
10. PERFORM. add_zero CHANGING <XXXXX>.  ” ++ 加前导 0  
11.   
12. PERFORM. dele_zero CHANGING <XXXXX>.  ” -- 去掉前导 0  
13.   
14.   
15. *&---------------------------------------------------------------------*   
16. *&      Form  ADD_ZERO   
17. *&---------------------------------------------------------------------*   
18. *       text   
19. *----------------------------------------------------------------------*   
20. FORM. add_zero  CHANGING p_in.   
21.   
22.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'  
23.     EXPORTING   
24.       input  = p_in   
25.     IMPORTING   
26.       output = p_in.   
27.   
28. ENDFORM.                    " ADD_ZERO   
29. *&---------------------------------------------------------------------*   
30. *&      Form  DELE_ZERO   
31. *&---------------------------------------------------------------------*   
32. *       text   
33. *----------------------------------------------------------------------*   
34. FORM. dele_zero  CHANGING p_out.   
35.   
36.   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'  
37.     EXPORTING   
38.       input  = p_out   
39.     IMPORTING   
40.       output = p_out.   
41.   
42. ENDFORM.                    " DELE_ZERO