ABAP负号提前的测试

关注

转载最新推荐文章于 2026-10-22 09:46:51 发布 778 阅读 AI 写同款· GEO 优化 ›

ABAP备忘 memo alpha 转换"增加前导0 DATA: lv_matnr TYPE matnr VALUE '15000042'. lv_matnr = |{ lv_matnr ALPHA = IN }|. WRITE: lv_matnr. "示例结果：000000000015000042 "删除前导0 DATA: gs_matnr TYPE matnr VALUE '000000000015000042'. DATA(gs_out_matnr) = |{ gs_mat. 阅读详情

*&---------------------------------------------------------------------*
*& 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