SAP ABAP负号提前的解决方案

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

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 时间戳获取及使用函数

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

ag
2017.05.03
4.0K020
文章

根据公司代码和日期获取会计期间的函数

并非所有公司的会计期间都是跟着自然月走的，因此有些开发场景里需要根据公司代码和日期动态判断所属会计期间，可以用函数BAPI_COMPANYCODE_GET_PERIOD。例如印度…

ag
2021.10.28
274000

文章

交货单冲销函数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

2.2K000

文章

ABAP弹框选择会计年月函数

ABAP函数POPUP_TO_SELECT_MONTH可以弹框选择年度和月份，取消选择时SUBRC为4.

ag
2021.10.15
276000

文章

使用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-61f2d60…

2020.05.17

793010

文章

SAP ECC取会计分录的对方科目

在SAP S4中，会计分录的对方科目已经写到表ACDOCA了，但是ECC中并没有固定的字段存这个东西，间接法做现金流量、不同系统数据核对的时候还得自己去取。使用SAP标准函数GE…

ag
2021.11.26
339010
文章

SAP中的F4搜索帮助的一个小迷思

今天开发同学说F4怎么没作用，输入一个值按F4搜索帮助出来的是全部的值。平时也没怎么留意这个细节，于是我用F-02的公司代码这个字段摸索了下，发现如果输入完整的公司代码再按F4则…

ag
2021.07.12
505000
文章

ABAP日期转大写星期

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

ag
2021.03.26
667000
文章

物料单位转换的两个函数

MD_CONVERT_MATERIAL_UNITMATERIAL_UNIT_CONVERSION

ag
2017.06.04
1.7K000
文章

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

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

ag
2021.05.29
666010

发表评论

登录后才能评论

SAP ABAP负号提前的解决方案

相关文章

发表评论