SAP ABAP负号提前的解决方案

ag • 2018.06.20 11:46 • 文章 • 阅读 6158

1、SE37定义函数：CONVERSION_EXIT_Z001_OUTPUT

FUNCTION conversion_exit_z001_output.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(INPUT)
*"  EXPORTING
*"     REFERENCE(OUTPUT)
*"----------------------------------------------------------------------

*作用：
* 1.将金额类型等数字类型，负号实现前置；
* 2.可以保留千分位;
* 3.适用于多个这样的字段修改需求;

*调用方式：
* 在对应的alv设置fieldcat时针对设置金额等数字类型的字段添加代码：固定写成’ZXXX’形式。
* WE_FIELDCAT-EDIT_MASK = '==Z001'.

  DATA: output1(20),
        output2(20),
        outnum(16) TYPE p DECIMALS 3.

  IF input IS NOT INITIAL .
    outnum = input.

    IF input > 0.
      WRITE outnum TO output1.
    ELSE.
      outnum = outnum * ( -1 ).
      WRITE outnum TO output1.
      CONCATENATE '-' output1 INTO output1.
    ENDIF.
  ELSE.
    CLEAR output1.
  ENDIF.

  CONDENSE output1 NO-GAPS.
  WRITE output1 TO output2 RIGHT-JUSTIFIED.
  output = output2.

  CLEAR: output2.
ENDFUNCTION.

FUNCTION conversion_exit_z001_output.

*"----------------------------------------------------------------------

*"*"本地接口：

*" IMPORTING

*" REFERENCE(INPUT)

*" EXPORTING

*" REFERENCE(OUTPUT)

*"----------------------------------------------------------------------

*作用：

* 1.将金额类型等数字类型，负号实现前置；

* 2.可以保留千分位;

* 3.适用于多个这样的字段修改需求;

*调用方式：

* 在对应的alv设置fieldcat时针对设置金额等数字类型的字段添加代码：固定写成’ZXXX’形式。

* WE_FIELDCAT-EDIT_MASK = '==Z001'.

DATA: output1(20),

output2(20),

outnum(16) TYPE p DECIMALS 3.

IF input IS NOT INITIAL .

outnum = input.

IF input > 0.

WRITE outnum TO output1.

ELSE.

outnum = outnum * ( -1 ).

WRITE outnum TO output1.

CONCATENATE '-' output1 INTO output1.

ENDIF.

ELSE.

CLEAR output1.

ENDIF.

CONDENSE output1 NO-GAPS.

WRITE output1 TO output2 RIGHT-JUSTIFIED.

output = output2.

CLEAR: output2.

ENDFUNCTION.

2、ALV的fieldcat中设置EDIT_MASK，当传值’==Z001′.时会自动调用此函数将负号提前。

本文作者: GavinDong

版权属于: GavinDong博客

文章链接: https://www.gavindong.com/2583.html

如果使用过程中遇到问题，可 **点击此处** 交流沟通。

CONVERSION 函数负号负数输入输出转换

ag普通用户

0 0

文章

SAP函数FIMA_DAYS_AND_MONTHS_AND_YEARS

SAP函数FIMA_DAYS_AND_MONTHS_AND_YEARS用于计算两个日期之间间隔的年数、月数和天数。不输入分隔符时将两个日期的间隔分别以年、月和日计算。输入分隔符…

ag
2021.07.08
1.4K000
文章

物料单位转换的两个函数

MD_CONVERT_MATERIAL_UNITMATERIAL_UNIT_CONVERSION

ag
2017.06.04
2.3K000
文章

SAP 时间戳获取及使用函数

时间戳是长度 15的 DEC类型，组成为 8位日期 + 6位时间。时间戳与时间的转化：把时间和日期转成时间戳 CONVERT DATE IV_DATE TIME IV_TIME…

ag
2017.05.03
4.9K020

文章

使用BDC做VL02N发货

BDC做交货单发货，是需要三行BDC即可。 BDC相关数据结构：

"bdc数据结构.
data begin of i_mess occurs 0.
include structure bdcmsgcoll.
data end of i_mess.

data: begin of e_mess occurs 0,
        mess(100),
      end of e_mess.

data begin of it_bdc occurs 0.
include structure bdcdata.
data end of it_bdc.

data: l_opttion type ctu_params.
l_opttion-dismode  = 'N'.
l_opttion-updmode  = 'S'.
l_opttion-cattmode = ''.
l_opttion-defsize  = 'X'.
l_opttion-racommit = 'X'.
l_opttion-nobinpt  = 'X'.
l_opttion-nobiend  = 'X'.

"bdc数据结构.

data begin of i_mess occurs 0.

include structure bdcmsgcoll.

data end of i_mess.

data: begin of e_mess occurs 0,

mess(100),

end of e_mess.

data begin of it_bdc occurs 0.

include structure bdcdata.

data end of it_bdc.

data: l_opttion type ctu_params.

l_opttion-dismode = 'N'.

l_opttion-updmode = 'S'.

l_opttion-cattmode = ''.

l_opttion-defsize = 'X'.

l_opttion-racommit = 'X'.

l_opttion-nobinpt = 'X'.

l_opttion-nobiend = 'X'.

BDC组装FM： [crayon-62c358a…

2020.05.17

1.2K010

文章

SAP工单退料取移动平均价问题研究

业务场景给工单A发料一批，发料时M物料的价格是10CNY/EA，退料时的移动平均价（MAP）变成了12CNY/EA，希望退料时取的价格是发料时的10CNY/EA。 MIGO测试发…

ag
2021.05.29
1.3K010
文章

SAP的SD, FI,MM的业务集成和SD业务常用到重要函数

http://blog.csdn.net/sap_jack/article/details/1066926 SD 和 MM 模块的业务集成： 1. 当你创建销售订单（SO），所有的…

ag
2018.02.02
2.2K000
文章

SAP函数相关的表和工具

SAP FM函数相关的表和工具 SAP Function Module Tables TFDIR，SAP函数模块基本属性表 TFTIT，The Description of Fun…

ag
2021.03.10
1.6K000
文章

ABAP日期转大写星期

由于统计的需要，要使用ABAP将日期转换成大写星期，练习代码及效果如下。

ag
2021.03.26
1.1K000

文章

交货单冲销函数WS_REVERSE_GOODS_ISSUE

使用函数WS_REVERSE_GOODS_ISSUE冲销交货单，有时候会冲销失败，如果冲销失败可人工VL09试一下。

form cx_dn  using gt_out type typ_out.

  data ls_emkpf type emkpf.
  data lt_mesg type standard table of mesg.

  select single wbstk,vbtyp into @data(l_likp)
    from likp
    where vbeln = @gt_out-le_vbeln.

  call function 'WS_REVERSE_GOODS_ISSUE'
    exporting
      i_vbeln                   = gt_out-le_vbeln
      i_budat                   = gt_out-budat
      i_vbtyp                   = l_likp-vbtyp
      i_tcode                   = 'VL09'
    importing
      es_emkpf                  = ls_emkpf
    tables
      t_mesg                    = lt_mesg
    exceptions
      error_reverse_goods_issue = 1
      others                    = 2.
  if sy-subrc <> 0.
    rollback work.
    message e000 with 'DN冲销失败'.
  else.
    commit work and wait.
    message s000 with 'DN冲销成功'.
  endif.

endform.

form cx_dn using gt_out type typ_out.

data ls_emkpf type emkpf.

data lt_mesg type standard table of mesg.

select single wbstk,vbtyp into @data(l_likp)

from likp

where vbeln = @gt_out-le_vbeln.

call function 'WS_REVERSE_GOODS_ISSUE'

exporting

i_vbeln = gt_out-le_vbeln

i_budat = gt_out-budat

i_vbtyp = l_likp-vbtyp

i_tcode = 'VL09'

importing

es_emkpf = ls_emkpf

tables

t_mesg = lt_mesg

exceptions

error_reverse_goods_issue = 1

others = 2.

if sy-subrc <> 0.

rollback work.

message e000 with 'DN冲销失败'.

else.

commit work and wait.

message s000 with 'DN冲销成功'.

endif.

endform.

…

2020.05.17

3.0K000

文章

SAP RFC函数测试工具

两个适合SAP ABAP顾问以及OA、中台等外围系统开发者和测试者调试SAP RFC接口函数、分析网络和bug的小工具，操作简单、功能齐全，值得收藏。 SAP RFC测试工具1 S…

ag
2020.09.24
3.5K050

发表评论

登录后才能评论

SAP ABAP负号提前的解决方案

相关文章

发表评论