ABAP负号提前的测试
2017-02-13 16:03
288 查看
*&---------------------------------------------------------------------*
*& Report ZTEST_NEGATIVE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_NEGATIVE.
DATA : GV_NUM TYPE I .
GV_NUM = '-9633110.235'.
WRITE : / '处理前输出样式:', GV_NUM.
SKIP 2.
PERFORM ASSET_FRONT_MINUS CHANGING GV_NUM.
*&---------------------------------------------------------------------*
*& Form asset_front_minus
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->VALUE1 text
*----------------------------------------------------------------------*
FORM ASSET_FRONT_MINUS CHANGING VALUE1.
DATA : VALUE2 TYPE I.
DATA : STRING1 TYPE CHAR20.
VALUE2 = ABS( VALUE1 ).
WRITE VALUE2 TO STRING1.
CONDENSE STRING1.
IF VALUE1 < 0.
WRITE:/ '处理后输出样式:', '-', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ELSE.
WRITE:/ '处理后输出样式:', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ENDIF.
ENDFORM. "asset_front_minus
![](http://img.blog.csdn.net/20150522104334044?watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvemhvbmdndW9tYW8=/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center)
原文地址:http://blog.csdn.net/zhongguomao/article/details/45914315
*& Report ZTEST_NEGATIVE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_NEGATIVE.
DATA : GV_NUM TYPE I .
GV_NUM = '-9633110.235'.
WRITE : / '处理前输出样式:', GV_NUM.
SKIP 2.
PERFORM ASSET_FRONT_MINUS CHANGING GV_NUM.
*&---------------------------------------------------------------------*
*& Form asset_front_minus
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->VALUE1 text
*----------------------------------------------------------------------*
FORM ASSET_FRONT_MINUS CHANGING VALUE1.
DATA : VALUE2 TYPE I.
DATA : STRING1 TYPE CHAR20.
VALUE2 = ABS( VALUE1 ).
WRITE VALUE2 TO STRING1.
CONDENSE STRING1.
IF VALUE1 < 0.
WRITE:/ '处理后输出样式:', '-', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ELSE.
WRITE:/ '处理后输出样式:', STRING1 LEFT-JUSTIFIED NO-GAP NO-ZERO.
ENDIF.
ENDFORM. "asset_front_minus
原文地址:http://blog.csdn.net/zhongguomao/article/details/45914315
相关文章推荐
- ABAP负号提前的测试
- ABAP负号提前测试2
- ABAP负号提前的方法
- ABAP 负号 提前
- 在ABAP中将负号提前的方法
- [abap] 负号前置函数——不需要定义中间变量
- ALV 负号提前 (EDIT_MASK应用)
- SAP 金额等负号提前问题
- ABAP ALV报表将数值字段负号提前
- 业务系统压力测试前,需要Oracle dba提前完成的工作
- 让你提前认识软件开发(49):自动测试
- 教你提前体验iOS9 iOS9公开测试版升级教程
- Smartform中负号提前解决方法
- web提前做好测试
- app崩溃的原因 和 提前测试流程/方法 和出现崩溃后怎么定位和处理 总结(持续更新中)
- 加入SOA技术圈测试第一篇:ABAP 编程点滴(不断更新中)
- CDS测试框架介绍:如何为ABAP CDS Entities写测试
- ABAP 负号前置方法汇总
- ABAP 创建测试文件
- 读取QM决策长文本的ABAP测试程序